Return to section.m CVS log

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

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

1.1     ! root        1: |environment(chapter;
        !             2:        new.page, spacing on, blank.lines 2i,
        !             3:        incr chapter_counter,
        !             4:        clear section_counter subsection_counter subsubsection_counter
        !             5:        paragraph_counter,
        !             6:        set string temporary_string "Chapter ",
        !             7:        add string.from.number temporary_string chapter_counter,
        !             8:        inline off, size +10, font.family helvetica,
        !             9:        tab.stops \nWuR,
        !            10:        tab, string temporary_string,
        !            11:        divert.string temporary_string;
        !            12: 
        !            13:        sectioning bychapter,
        !            14:        inline off, size +4, font.family helvetica, blank.lines .25i,
        !            15:        tab.stops \nWuR,
        !            16:        font bold, tab, string temporary_string, new.line,
        !            17:        font roman, font.family times, size -4, inline on,
        !            18:        minimum.lines 1.25i, paragraph,
        !            19:        store string.from.number remember_string chapter_counter,
        !            20:        contents section 1 remember_string temporary_string)
        !            21:        |comment<summary: chapter (numbered chapter; IT)>
        !            22: 
        !            23: |environment(section;
        !            24:        divert.string temporary_string;
        !            25: 
        !            26:        minimum.lines 2, protect, incr section_counter,
        !            27:        clear subsection_counter subsubsection_counter paragraph_counter,
        !            28:        font bold,
        !            29:        |ifvalue sectioning bychapter [
        !            30:                number chapter_counter, text ".",
        !            31:        ]
        !            32:        |ifvalue sectioning byappendix [
        !            33:                number appendix_counter, text ".",
        !            34:        ]
        !            35:        number section_counter,
        !            36:        |ifvalue sectioning bysection [
        !            37:                text ".",
        !            38:        ]
        !            39:        text " ", string temporary_string, font roman,
        !            40:        paragraph,
        !            41:        clear string remember_string,
        !            42:        |ifvalue sectioning bychapter [
        !            43:                store string.from.number remember_string chapter_counter,
        !            44:                add string remember_string ".",
        !            45:        ]
        !            46:        |ifvalue sectioning byappendix [
        !            47:                store string.from.number remember_string appendix_counter,
        !            48:                add string remember_string ".",
        !            49:        ]
        !            50:        add string.from.number remember_string section_counter,
        !            51:        |ifvalue sectioning bysection [
        !            52:                contents section 1 remember_string temporary_string,
        !            53:        ]
        !            54:        |ifvalue sectioning bychapter [
        !            55:                contents section 2 remember_string temporary_string,
        !            56:        ]
        !            57:        |ifvalue sectioning byappendix [
        !            58:                contents section 2 remember_string temporary_string,
        !            59:        ])
        !            60:        |comment<summary: section (numbered section; IT)>
        !            61: 
        !            62: |environment(subsection;
        !            63:        divert.string temporary_string;
        !            64: 
        !            65:        minimum.lines, protect, incr subsection_counter,
        !            66:        clear subsubsection_counter paragraph_counter,
        !            67:        font bold,
        !            68:        |ifvalue sectioning bychapter [
        !            69:                number chapter_counter, text ".",
        !            70:        ]
        !            71:        |ifvalue sectioning byappendix [
        !            72:                number appendix_counter, text ".",
        !            73:        ]
        !            74:        number section_counter, text ".",
        !            75:        number subsection_counter, text " ", string temporary_string, font roman,
        !            76:        paragraph,
        !            77:        clear string remember_string,
        !            78:        |ifvalue sectioning bychapter [
        !            79:                store string.from.number remember_string chapter_counter,
        !            80:                add string remember_string ".",
        !            81:        ]
        !            82:        |ifvalue sectioning byappendix [
        !            83:                store string.from.number remember_string appendix_counter,
        !            84:                add string remember_string ".",
        !            85:        ]
        !            86:        add string.from.number remember_string section_counter,
        !            87:        add string remember_string ".",
        !            88:        add string.from.number remember_string subsection_counter,
        !            89:        |ifvalue sectioning bysection [
        !            90:                contents section 2 remember_string temporary_string,
        !            91:        ]
        !            92:        |ifvalue sectioning bychapter [
        !            93:                contents section 3 remember_string temporary_string,
        !            94:        ]
        !            95:        |ifvalue sectioning byappendix [
        !            96:                contents section 3 remember_string temporary_string,
        !            97:        ])
        !            98:        |comment<summary: subsection (numbered subsection; IT)>
        !            99: 
        !           100: |environment(subsubsection;
        !           101:        divert.string temporary_string;
        !           102: 
        !           103:        minimum.lines, protect, incr subsubsection_counter,
        !           104:        clear paragraph_counter,
        !           105:        font italics,
        !           106:        |ifvalue sectioning bychapter [
        !           107:                number chapter_counter, text ".",
        !           108:        ]
        !           109:        |ifvalue sectioning byappendix [
        !           110:                number appendix_counter, text ".",
        !           111:        ]
        !           112:        number section_counter, text ".",
        !           113:        number subsection_counter, text ".",
        !           114:        number subsubsection_counter, text " ", string temporary_string, font roman,
        !           115:        clear string remember_string,
        !           116:        |ifvalue sectioning bychapter [
        !           117:                store string.from.number remember_string chapter_counter,
        !           118:                add string remember_string ".",
        !           119:        ]
        !           120:        |ifvalue sectioning byappendix [
        !           121:                store string.from.number remember_string appendix_counter,
        !           122:                add string remember_string ".",
        !           123:        ]
        !           124:        add string.from.number remember_string section_counter,
        !           125:        add string remember_string ".",
        !           126:        add string.from.number remember_string subsection_counter,
        !           127:        add string remember_string ".",
        !           128:        add string.from.number remember_string subsubsection_counter,
        !           129:        |ifvalue sectioning bysection [
        !           130:                contents section 3 remember_string temporary_string,
        !           131:        ]
        !           132:        |ifvalue sectioning bychapter [
        !           133:                contents section 4 remember_string temporary_string,
        !           134:        ]
        !           135:        |ifvalue sectioning byappendix [
        !           136:                contents section 4 remember_string temporary_string,
        !           137:        ])
        !           138:        |comment<summary: subsubsection (numbered subsubsection; IT)>
        !           139: 
        !           140: |associate(paragraph;
        !           141:        minimum.lines;
        !           142: 
        !           143:        |ifvalue localparagraph.style indented [
        !           144:                indent.line +3,
        !           145:        ]
        !           146:        |ifvalue localparagraph.style numbered [
        !           147:                incr paragraph_counter, number format paragraph_counter i,
        !           148:                store string.from.number temporary_string paragraph_counter,
        !           149:                add string temporary_string ") ",
        !           150:                string italics temporary_string,
        !           151:        ]
        !           152:        |ifvalue globalparagraph.style indented [
        !           153:                localparagraph.style indented,
        !           154:        ]
        !           155:        |ifvalue globalparagraph.style numbered [
        !           156:                localparagraph.style numbered,
        !           157:        ]
        !           158:        |ifvalue globalparagraph.style flushed [
        !           159:                localparagraph.style flushed,
        !           160:        ];
        !           161: 
        !           162:        [numbered;;
        !           163:                localparagraph.style numbered]
        !           164:        [n;;
        !           165:                localparagraph.style numbered]
        !           166:        [indented;;
        !           167:                localparagraph.style indented]
        !           168:        [i;;
        !           169:                localparagraph.style indented]
        !           170:        [flushed;;
        !           171:                localparagraph.style flushed]
        !           172:        [f;;
        !           173:                localparagraph.style flushed])
        !           174:        |comment<summary: paragraph (n, i, f, numbered, indented, flushed)>
        !           175: 
        !           176: |associate(p;
        !           177:        minimum.lines;
        !           178: 
        !           179:        |ifvalue localparagraph.style indented [
        !           180:                indent.line +3,
        !           181:        ]
        !           182:        |ifvalue localparagraph.style numbered [
        !           183:                incr paragraph_counter, number format paragraph_counter i,
        !           184:                store string.from.number temporary_string paragraph_counter,
        !           185:                add string temporary_string ") ",
        !           186:                string italics temporary_string,
        !           187:        ]
        !           188:        |ifvalue globalparagraph.style indented [
        !           189:                localparagraph.style indented,
        !           190:        ]
        !           191:        |ifvalue globalparagraph.style numbered [
        !           192:                localparagraph.style numbered,
        !           193:        ]
        !           194:        |ifvalue globalparagraph.style flushed [
        !           195:                localparagraph.style flushed,
        !           196:        ];
        !           197: 
        !           198:        [numbered;;
        !           199:                localparagraph.style numbered]
        !           200:        [n;;
        !           201:                localparagraph.style numbered]
        !           202:        [indented;;
        !           203:                localparagraph.style indented]
        !           204:        [i;;
        !           205:                localparagraph.style indented]
        !           206:        [flushed;;
        !           207:                localparagraph.style flushed]
        !           208:        [f;;
        !           209:                localparagraph.style flushed])
        !           210:        |comment<summary: p (alias for paragraph)>
        !           211: 
        !           212: |environment(appendix;
        !           213:        new.page, spacing on, blank.lines 4,
        !           214:        number format appendix_counter A, incr appendix_counter,
        !           215:        clear section_counter subsection_counter subsubsection_counter
        !           216:        paragraph_counter,
        !           217:        set string remember_string "Appendix ",
        !           218:        add string.from.number remember_string appendix_counter,
        !           219:        divert.string temporary_string;
        !           220: 
        !           221:        sectioning byappendix,
        !           222:        center on, size +1, font bold,
        !           223:        string remember_string, blank.lines, string temporary_string,
        !           224:        font roman, size -1, center off,
        !           225:        minimum.lines 4, paragraph,
        !           226:        store string.from.number remember_string appendix_counter,
        !           227:        contents section 1 remember_string temporary_string)
        !           228:        |comment<summary: appendix (numbered appendix; IT)>
        !           229: 
        !           230: |environment(unnumbered_chapter;
        !           231:        new.page, spacing on, blank.lines 2i,
        !           232:        divert.string temporary_string;
        !           233: 
        !           234:        sectioning bychapter,
        !           235:        inline off, size +4, font.family helvetica, blank.lines .25i,
        !           236:        tab.stops \nWuR,
        !           237:        font bold, tab, string temporary_string, new.line,
        !           238:        font roman, font.family times, size -4, inline on,
        !           239:        minimum.lines 1.25i, paragraph,
        !           240:        clear string remember_string,
        !           241:        contents section 1 remember_string temporary_string)
        !           242:        |comment<summary: unnumbered_chapter (unnumbered chapter)>
        !           243: 
        !           244: |environment(unnumbered_section;
        !           245:        divert.string temporary_string;
        !           246: 
        !           247:        minimum.lines 2, protect, font bold,
        !           248:        string temporary_string, font roman,
        !           249:        paragraph,
        !           250:        clear string remember_string,
        !           251:        |ifvalue sectioning bysection [
        !           252:                contents section 1 remember_string temporary_string,
        !           253:        ]
        !           254:        |ifvalue sectioning bychapter [
        !           255:                contents section 2 remember_string temporary_string,
        !           256:        ]
        !           257:        |ifvalue sectioning byappendix [
        !           258:                contents section 2 remember_string temporary_string,
        !           259:        ])
        !           260:        |comment<summary: unnumbered_section (unnumbered section)>
        !           261: 
        !           262: |environment(unnumbered_subsection;
        !           263:        divert.string temporary_string;
        !           264: 
        !           265:        minimum.lines, protect, font bold,
        !           266:        string temporary_string, font roman,
        !           267:        paragraph,
        !           268:        clear string remember_string,
        !           269:        |ifvalue sectioning bysection [
        !           270:                contents section 2 remember_string temporary_string,
        !           271:        ]
        !           272:        |ifvalue sectioning bychapter [
        !           273:                contents section 3 remember_string temporary_string,
        !           274:        ]
        !           275:        |ifvalue sectioning byappendix [
        !           276:                contents section 3 remember_string temporary_string,
        !           277:        ])
        !           278:        |comment<summary: unnumbered_subsection (unnumbered subsection)>
        !           279: 
        !           280: |environment(unnumbered_subsubsection;
        !           281:        divert.string temporary_string;
        !           282: 
        !           283:        minimum.lines, protect, font italics,
        !           284:        string temporary_string, font roman,
        !           285:        clear string remember_string,
        !           286:        |ifvalue sectioning bysection [
        !           287:                contents section 3 remember_string temporary_string,
        !           288:        ]
        !           289:        |ifvalue sectioning bychapter [
        !           290:                contents section 4 remember_string temporary_string,
        !           291:        ]
        !           292:        |ifvalue sectioning byappendix [
        !           293:                contents section 4 remember_string temporary_string,
        !           294:        ])
        !           295:        |comment<summary: unnumbered_subsubsection (unnumbered subsubsection)>
        !           296: 
        !           297: |environment(unnumbered_appendix;
        !           298:        divert.string temporary_string;
        !           299: 
        !           300:        new.page, spacing on, blank.lines 4,
        !           301:        sectioning byappendix,
        !           302:        center on, size +1, font bold,
        !           303:        string temporary_string,
        !           304:        font roman, size -1, center off,
        !           305:        minimum.lines 4, paragraph,
        !           306:        store string.from.number remember_string appendix_counter,
        !           307:        contents section 1 remember_string temporary_string)
        !           308:        |comment<summary: unnumbered_appendix (unnumbered appendix)>

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