Return to kluwer.m CVS log

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

Annotation of researchv10no/cmd/monk/db/kluwer.m, revision 1.1

1.1     ! root        1: |include(global.h)
        !             2: 
        !             3: |include(macro.h)
        !             4: 
        !             5: |environment(tc_heading;
        !             6:        clear string even_header odd_header page_header,
        !             7:        new.page odd, tab.stops \nWuR,
        !             8:        divert.string temporary_string;
        !             9: 
        !            10:        inline off, size +4, font.family helvetica, center on,
        !            11:        font bold, string temporary_string, font roman,
        !            12:        center off, font.family times, size -4, inline on,
        !            13:        minimum.lines,
        !            14:        clear string remember_string,
        !            15:        contents section 1 remember_string temporary_string,
        !            16:        set string even_header "\(ts\s9\\n'page_counter'\(ts\(ts\f2",
        !            17:        add string.from.string even_header temporary_string,
        !            18:        add string even_header "\fP\s0\(ts",
        !            19:        set string odd_header "\(ts\s9\f2",
        !            20:        add string.from.string odd_header temporary_string,
        !            21:        add string odd_header "\fP\(ts\(ts\\n'page_counter'\s0\(ts")
        !            22:        |comment<summary: tc_heading (tc program heading)>
        !            23: 
        !            24: |environment(index_placement;
        !            25:        clear string even_header odd_header page_header,
        !            26:        new.page odd, spacing on, blank.lines 2i,
        !            27:        set string temporary_string "INDEX", inline off,
        !            28:        size +4, inline on, font.family helvetica, blank.lines .25i,
        !            29:        tab.stops \nWuR,
        !            30:        font bold, tab, string temporary_string, new.line,
        !            31:        font roman, font.family times, size -4, inline on,
        !            32:        minimum.lines 1.25i, paragraph,
        !            33:        clear string remember_string,
        !            34:        contents section 1 remember_string temporary_string,
        !            35:        set string even_header "\(ts\s9\\n'page_counter'\(ts\(ts\f2",
        !            36:        add string.from.string even_header temporary_string,
        !            37:        add string even_header "\fP\s0\(ts",
        !            38:        set string odd_header "\(ts\s9\f2",
        !            39:        add string.from.string odd_header temporary_string,
        !            40:        add string odd_header "\fP\(ts\(ts\\n'page_counter'\s0\(ts",
        !            41:        minimum.lines;)
        !            42:        |comment<summary: index_placement (put the index here)>
        !            43: 
        !            44: |environment(reference_placement;
        !            45:        |ifvalue sawreference on [
        !            46:                clear string even_header odd_header page_header,
        !            47:                new.page odd, spacing on, blank.lines 2i,
        !            48:                set string temporary_string "REFERENCES", inline off,
        !            49:                size +4, inline on, font.family helvetica, blank.lines .25i,
        !            50:                tab.stops \nWuR,
        !            51:                font bold, tab, string temporary_string, new.line,
        !            52:                font roman, font.family times, size -4, inline on,
        !            53:                minimum.lines 1.25i, paragraph,
        !            54:                clear string remember_string,
        !            55:                contents section 1 remember_string temporary_string,
        !            56:                set string even_header "\(ts\s9\\n'page_counter'\(ts\(ts\f2",
        !            57:                add string.from.string even_header temporary_string,
        !            58:                add string even_header "\fP\s0\(ts",
        !            59:                set string odd_header "\(ts\s9\f2",
        !            60:                add string.from.string odd_header temporary_string,
        !            61:                add string odd_header "\fP\(ts\(ts\\n'page_counter'\s0\(ts",
        !            62:                reference.placement
        !            63:        ];
        !            64: 
        !            65:        sawreference off)
        !            66:        |comment<summary: reference_placement (produce references here)>
        !            67: 
        !            68: |include(section.h)
        !            69: 
        !            70: |environment(chapter;
        !            71:        clear string even_header odd_header page_header,
        !            72:        new.page odd, spacing on, blank.lines 2i,
        !            73:        incr chapter_counter,
        !            74:        clear section_counter subsection_counter subsubsection_counter
        !            75:        paragraph_counter,
        !            76:        set string temporary_string "Chapter ",
        !            77:        add string.from.number temporary_string chapter_counter,
        !            78:        inline off, size +10, font.family helvetica,
        !            79:        tab.stops \nWuR,
        !            80:        tab, string temporary_string,
        !            81:        divert.string temporary_string;
        !            82: 
        !            83:        sectioning bychapter,
        !            84:        inline off, size +4, font.family helvetica, blank.lines .25i,
        !            85:        tab.stops \nWuR,
        !            86:        font bold, tab, string temporary_string, new.line,
        !            87:        font roman, font.family times, size -4, inline on,
        !            88:        minimum.lines 1.25i, paragraph,
        !            89:        store string.from.number remember_string chapter_counter,
        !            90:        contents section 1 remember_string temporary_string,
        !            91:        set string even_header "\(ts\s9\\n'page_counter'\(ts\f2",
        !            92:        add string.from.string even_header temporary_string,
        !            93:        add string even_header "\(tsChapter ",
        !            94:        add string.from.number even_header chapter_counter,
        !            95:        add string even_header "\fP\s0\(ts",
        !            96:        set string odd_header "\(ts\s9\f2Chapter ",
        !            97:        add string.from.number odd_header chapter_counter,
        !            98:        add string odd_header "\(ts",
        !            99:        add string.from.string odd_header temporary_string,
        !           100:        add string odd_header "\fP\(ts\\n'page_counter'\s0\(ts")
        !           101:        |comment<summary: chapter (numbered chapter; IT)>
        !           102: 
        !           103: |environment(section;
        !           104:        divert.string temporary_string;
        !           105: 
        !           106:        minimum.lines 2, protect, incr section_counter,
        !           107:        clear subsection_counter subsubsection_counter paragraph_counter,
        !           108:        font bold,
        !           109:        |ifvalue sectioning bychapter [
        !           110:                number chapter_counter, text ".",
        !           111:        ]
        !           112:        |ifvalue sectioning byappendix [
        !           113:                number appendix_counter, text ".",
        !           114:        ]
        !           115:        number section_counter,
        !           116:        |ifvalue sectioning bysection [
        !           117:                text ".",
        !           118:        ]
        !           119:        text " ", string temporary_string, font roman,
        !           120:        paragraph,
        !           121:        clear string remember_string,
        !           122:        |ifvalue sectioning bychapter [
        !           123:                store string.from.number remember_string chapter_counter,
        !           124:                add string remember_string ".",
        !           125:        ]
        !           126:        |ifvalue sectioning byappendix [
        !           127:                store string.from.number remember_string appendix_counter,
        !           128:                add string remember_string ".",
        !           129:        ]
        !           130:        add string.from.number remember_string section_counter,
        !           131:        |ifvalue sectioning bysection [
        !           132:                contents section 1 remember_string temporary_string,
        !           133:        ]
        !           134:        |ifvalue sectioning bychapter [
        !           135:                contents section 2 remember_string temporary_string,
        !           136:        ]
        !           137:        |ifvalue sectioning byappendix [
        !           138:                contents section 2 remember_string temporary_string,
        !           139:        ]
        !           140:        set string odd_header "\(ts\s9\f2Section ",
        !           141:        |ifvalue sectioning bychapter [
        !           142:                add string.from.number odd_header chapter_counter,
        !           143:                add string odd_header ".",
        !           144:        ]
        !           145:        |ifvalue sectioning byappendix [
        !           146:                add string.from.number odd_header appendix_counter,
        !           147:                add string odd_header ".",
        !           148:        ]
        !           149:        add string.from.number odd_header section_counter,
        !           150:        add string odd_header "\(ts",
        !           151:        add string.from.string odd_header temporary_string,
        !           152:        add string odd_header "\fP\(ts\\n'page_counter'\s0\(ts")
        !           153:        |comment<summary: section (numbered section; IT)>
        !           154: 
        !           155: |environment(appendix;
        !           156:        clear string even_header odd_header page_header,
        !           157:        new.page odd, spacing on, blank.lines 2i,
        !           158:        number format appendix_counter A, incr appendix_counter,
        !           159:        clear section_counter subsection_counter subsubsection_counter
        !           160:        paragraph_counter,
        !           161:        set string temporary_string "Appendix ",
        !           162:        add string.from.number temporary_string appendix_counter,
        !           163:        inline off, size +4, font.family helvetica,
        !           164:        tab.stops \nWuR,
        !           165:        font bold, tab, string temporary_string, font roman,
        !           166:        divert.string remember_string;
        !           167: 
        !           168:        sectioning byappendix,
        !           169:        inline off, size +4, font.family helvetica, blank.lines .25i,
        !           170:        tab.stops \nWuR,
        !           171:        font bold, tab, string remember_string, new.line,
        !           172:        font roman, font.family times, size -4, inline on,
        !           173:        minimum.lines 1.25i, paragraph,
        !           174:        store string.from.number remember_string appendix_counter,
        !           175:        contents section 1 remember_string temporary_string,
        !           176:        set string even_header "\(ts\s9\\n'page_counter'\(ts\f2",
        !           177:        add string.from.string even_header temporary_string,
        !           178:        add string even_header "\(tsAppendix ",
        !           179:        add string.from.number even_header appendix_counter,
        !           180:        add string even_header "\fP\s0\(ts",
        !           181:        set string odd_header "\(ts\s9\f2Appendix ",
        !           182:        add string.from.number odd_header appendix_counter,
        !           183:        add string odd_header "\(ts",
        !           184:        add string.from.string odd_header temporary_string,
        !           185:        add string odd_header "\fP\(ts\\n'page_counter'\s0\(ts")
        !           186:        |comment<summary: appendix (numbered appendix; IT)>
        !           187: 
        !           188: |environment(unnumbered_chapter;
        !           189:        clear string even_header odd_header page_header,
        !           190:        new.page odd, spacing on, blank.lines 2i,
        !           191:        divert.string temporary_string;
        !           192: 
        !           193:        sectioning bychapter,
        !           194:        inline off, size +4, font.family helvetica, blank.lines .25i,
        !           195:        tab.stops \nWuR,
        !           196:        font bold, tab, string temporary_string, new.line,
        !           197:        font roman, font.family times, size -4, inline on,
        !           198:        minimum.lines 1.25i, paragraph,
        !           199:        clear string remember_string,
        !           200:        contents section 1 remember_string temporary_string,
        !           201:        set string even_header "\(ts\s9\\n'page_counter'\(ts\(ts\f2",
        !           202:        add string.from.string even_header temporary_string,
        !           203:        add string even_header "\fP\s0\(ts",
        !           204:        set string odd_header "\(ts\s9\f2",
        !           205:        add string.from.string odd_header temporary_string,
        !           206:        add string odd_header "\fP\(ts\(ts\\n'page_counter'\s0\(ts")
        !           207:        |comment<summary: unnumbered_chapter (unnumbered chapter)>
        !           208: 
        !           209: |environment(unnumbered_section;
        !           210:        divert.string temporary_string;
        !           211: 
        !           212:        minimum.lines 2, protect, font bold,
        !           213:        string temporary_string, font roman,
        !           214:        paragraph,
        !           215:        clear string remember_string,
        !           216:        |ifvalue sectioning bysection [
        !           217:                contents section 1 remember_string temporary_string,
        !           218:        ]
        !           219:        |ifvalue sectioning bychapter [
        !           220:                contents section 2 remember_string temporary_string,
        !           221:        ]
        !           222:        |ifvalue sectioning byappendix [
        !           223:                contents section 2 remember_string temporary_string,
        !           224:        ]
        !           225:        set string odd_header "\(ts\s9\f2",
        !           226:        add string.from.string odd_header temporary_string,
        !           227:        add string odd_header "\fP\(ts\(ts\\n'page_counter'\s0\(ts")
        !           228:        |comment<summary: unnumbered_section (unnumbered section)>
        !           229: 
        !           230: |environment(unnumbered_appendix;
        !           231:        clear string even_header odd_header page_header,
        !           232:        divert.string temporary_string;
        !           233: 
        !           234:        new.page odd, spacing on, blank.lines 2i,
        !           235:        sectioning byappendix,
        !           236:        inline off, size +4, font.family helvetica, blank.lines .25i,
        !           237:        tab.stops \nWuR,
        !           238:        font bold, tab, string temporary_string, new.line,
        !           239:        font roman, font.family times, size -4, inline on,
        !           240:        minimum.lines 1.25i, paragraph,
        !           241:        clear string remember_string,
        !           242:        contents section 1 remember_string temporary_string,
        !           243:        set string even_header "\(ts\s9\\n'page_counter'\(ts\(ts\f2",
        !           244:        add string.from.string even_header temporary_string,
        !           245:        add string even_header "\fP\s0\(ts",
        !           246:        set string odd_header "\(ts\s9\f2",
        !           247:        add string.from.string odd_header temporary_string,
        !           248:        add string odd_header "\fP\(ts\(ts\\n'page_counter'\s0\(ts")
        !           249:        |comment<summary: unnumbered_appendix (unnumbered appendix)>
        !           250: 
        !           251: |environment(:document;
        !           252:        line.length 5i,
        !           253:        page.length 9.5i,
        !           254:        clear string even_header odd_header page_header, reference.option rp;)
        !           255: 
        !           256: |environment(:document_save;
        !           257:        ;)
        !           258: 
        !           259: |environment(:document_restore;
        !           260:        ;)
        !           261: 
        !           262: |macro(top.of.page;
        !           263:        [
        !           264: '\"    ;P page number register TEMP
        !           265: .              de TP
        !           266: '              sp
        !           267: .              af ;P \\g'page_counter'         \" save format of P
        !           268: .              af page_counter 1                       \" normal format for next line
        !           269: .              nr ;P \\n'page_counter'                 \" must use different name for P
        !           270: .              af page_counter \\g(;P                  \" restore format to P
        !           271: .              af ;P 1                                 \" normal format for control register
        !           272: '              sp 2
        !           273: .              if \\n(;P-1 .tl \\*(page_header         \" output headers
        !           274: .              if !\\n(;P%2 .tl \\*(even_header
        !           275: .              if \\n(;P%2 .tl \\*(odd_header
        !           276: '              sp .75i
        !           277: .              rr ;P                                   \" free storage
        !           278: ..
        !           279: ])

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