Return to refs.m CVS log

Up to [Research Unix] / researchv8dc / cmd / monk / db

Annotation of researchv8dc/cmd/monk/db/refs.m, revision 1.1

1.1     ! root        1: |environment(reference_placement;
        !             2:        verbatim on,
        !             3:        ref_ieee_begin,
        !             4:        ref_ieee_end,
        !             5:        ref_ieee_init,
        !             6: 
        !             7:        ref_ieee_other,
        !             8:        ref_ieee_journal,
        !             9:        ref_ieee_book,
        !            10:        ref_ieee_article,
        !            11:        ref_ieee_report,
        !            12:        ref_ieee_tm,
        !            13: 
        !            14:        reference placement;)
        !            15:        |comment<summary: reference_placement (produce references here)>
        !            16: 
        !            17: |environment(ref_ieee_begin;
        !            18:        divert.input on reference_begin_definition,
        !            19:        blank.lines, incr reference_counter,
        !            20:        indent 0.3i, indent.line -0.3i,
        !            21:        text "[", string reference_mark, text "]",
        !            22:        horizontal.motion "|0.3i", concatenate,
        !            23:        if else macro_argument_eq(1, 0),
        !            24:                macro reference_other_definition,
        !            25:        if else,
        !            26:         if else macro_argument_eq(1, 1),
        !            27:                 macro reference_journal_definition,
        !            28:         if else,
        !            29:          if else macro_argument_eq(1, 2),
        !            30:                  macro reference_book_definition,
        !            31:          if else,
        !            32:           if else macro_argument_eq(1, 3),
        !            33:                   macro reference_article_definition,
        !            34:           if else,
        !            35:            if else macro_argument_eq(1, 4),
        !            36:                    macro reference_report_definition,
        !            37:            if else,
        !            38:             if else macro_argument_eq(1, 5),
        !            39:                     macro reference_tm_definition,
        !            40:             if else,
        !            41:                      error "Bad argument passed to reference_begin_definition",
        !            42:        new.line;)
        !            43: 
        !            44: |environment(ref_ieee_end;
        !            45:        divert.input on reference_end_definition,
        !            46:        clear string reference_author reference_book reference_location
        !            47:        reference_date reference_editor reference_government
        !            48:        reference_institution reference_journal reference_keyword reference_tm
        !            49:        reference_number reference_other reference_page reference_report
        !            50:        reference_title reference_volume,
        !            51:        clear reference_authors reference_others reference_pages reference_titles;)
        !            52: 
        !            53: |environment(ref_ieee_init;
        !            54:        new.page, blank.lines 4, center on, font.size +1, font bold,
        !            55:        text "REFERENCES", blank.lines 4,
        !            56:        macro reference_end_definition,
        !            57:        blank.lines;)
        !            58: 
        !            59: |environment(ref_ieee_other;
        !            60:        divert.input on reference_other_definition,
        !            61:        if begin not_null_string(reference_author),
        !            62:                string reference_author, text ",",
        !            63:        if end,
        !            64:        set punctation_string ".",
        !            65:        if not_null_string(reference_other),
        !            66:                set string punctation_string ",",
        !            67:        if begin not_null_string(reference_title),
        !            68:                text "\& ", temporary.font italics, string reference_title,
        !            69:                temporary.font, string punctation_string,
        !            70:        if end,
        !            71:        if begin not_null_string(reference_other),
        !            72:                text "\& ", string reference_other,
        !            73:        if end,
        !            74:        if begin not_null_string(reference_date),
        !            75:                text "\& (", string reference_date, text ").",
        !            76:        if end,
        !            77:        new.line;)
        !            78: 
        !            79: |environment(ref_ieee_journal;
        !            80:        divert.input on reference_journal_definition,
        !            81:        string reference_author, text ",",
        !            82:        if begin not_null_string(reference_title),
        !            83:                string open_double_quote, string reference_title, text ",",
        !            84:                string close_double_quote,
        !            85:        if end,
        !            86:        clear string punctation_string,
        !            87:        if null_string(reference_volume),
        !            88:                set string punctation_string ",",
        !            89:        text "\& ", temporary.font italics, string reference_journal,
        !            90:        temporary.font, string punctation_string,
        !            91:        if begin not_null_string(reference_volume),
        !            92:                temporary.font bold, string reference_volume,
        !            93:                temporary.font,
        !            94:        if end,
        !            95:        if begin not_null_string(reference_number),
        !            96:                string punctation_string,
        !            97:                text "(", string reference_number, text ")",
        !            98:        if end,
        !            99:        if begin not_null_string(reference_page),
        !           100:                if else begin gt(reference_pages, 0),
        !           101:                        text "\& pp. ",
        !           102:                if end,
        !           103:                if else begin,
        !           104:                        text "\& p. ",
        !           105:                if end,
        !           106:                string reference_page,
        !           107:        if end,
        !           108:        if not_null_string(reference_institution),
        !           109:                if begin null_string(reference_report),
        !           110:                        text "\& ", string reference_institution, text ",",
        !           111:                if end,
        !           112:        text "\& (", string reference_date, text ").",
        !           113:        if not_null_string(reference_other),
        !           114:                string reference_other,
        !           115:        new.line;)
        !           116: 
        !           117: |environment(ref_ieee_book;
        !           118:        divert.input on reference_book_definition,
        !           119:        string reference_author, text ", ",
        !           120:        temporary.font italics, string reference_title, temporary.font, text ",",
        !           121:        if begin not_null_string(reference_volume),
        !           122:                string reference_volume, text ",",
        !           123:        if end,
        !           124:        clear string punctation_string,
        !           125:        if not_null_string(reference_location),
        !           126:                set string punctation_string ",",
        !           127:        text "\& ", string reference_institution, string punctation_string,
        !           128:        if begin not_null_string(reference_location),
        !           129:                string reference_location,
        !           130:        if end,
        !           131:        text "\& (", string reference_date, text ").",
        !           132:        if begin not_null_string(reference_government),
        !           133:                text "\& Gov't. ordering no. ", string reference_government,
        !           134:        if end,
        !           135:        if not_null_string(reference_other),
        !           136:                string reference_other,
        !           137:        new.line;)
        !           138: 
        !           139: |environment(ref_ieee_article;
        !           140:        divert.input on reference_article_definition,
        !           141:        string reference_author, text ", ",
        !           142:        string open_double_quote, string reference_title, text ",",
        !           143:        string close_double_quote,
        !           144:        if begin not_null_string(reference_page),
        !           145:                if else begin gt(reference_pages, 0),
        !           146:                        text "\& pp. ",
        !           147:                if end,
        !           148:                if else begin,
        !           149:                        text "\& p. ",
        !           150:                if end,
        !           151:                string reference_page,
        !           152:        if end,
        !           153:        text "\& in ", temporary.font italics, string reference_book,
        !           154:        temporary.font, text ",",
        !           155:        if begin not_null_string(reference_editor),
        !           156:                text "\& ed. ", string reference_editor, text ",",
        !           157:        if end,
        !           158:        clear string punctation_string,
        !           159:        if not_null_string(reference_location),
        !           160:                set string punctation_string ",",
        !           161:        if begin not_null_string(reference_institution),
        !           162:                text "\& ", string reference_institution, string punctation_string,
        !           163:        if end,
        !           164:        if begin not_null_string(reference_location),
        !           165:                text "\& ", string reference_location,
        !           166:        if end,
        !           167:        text "\& (", string reference_date, text ").",
        !           168:        if not_null_string(reference_other),
        !           169:                string reference_other,
        !           170:        new.line;)
        !           171: 
        !           172: |environment(ref_ieee_report;
        !           173:        divert.input on reference_report_definition,
        !           174:        string reference_author, text ", ",
        !           175:        string open_double_quote, string reference_title, text ",",
        !           176:        string close_double_quote,
        !           177:        clear string punctation_string,
        !           178:        if not_null_string(reference_institution),
        !           179:                set string punctation_string ",",
        !           180:        if not_null_string(reference_location),
        !           181:                set string punctation_string ",",
        !           182:        string reference_report, string reference_government,
        !           183:        string punctation_string,
        !           184:        if begin not_null_string(reference_institution),
        !           185:                clear string punctation_string,
        !           186:                if not_null_string(reference_location),
        !           187:                        set string punctation_string ",",
        !           188:                string reference_institution, string punctation_string,
        !           189:        if end,
        !           190:        if begin not_null_string(reference_location),
        !           191:                string reference_location,
        !           192:        if end,
        !           193:        text "\& (", string reference_date, text ").",
        !           194:        if not_null_string(reference_other),
        !           195:                string reference_other,
        !           196:        new.line;)
        !           197: 
        !           198: |environment(ref_ieee_tm;
        !           199:        divert.input on reference_tm_definition,
        !           200:        string reference_author, text ", ",
        !           201:        temporary.font italics, string reference_title,
        !           202:        temporary.font, text ", ",
        !           203:        string reference_tm, text ".",
        !           204:        new.line;)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.