Return to section.m CVS log

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

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

1.1     ! root        1: |environment(chapter;
        !             2:        new.page, blank.lines 4, center on, font.size +1, font bold,
        !             3:        incr chapter_counter,
        !             4:        clear section_counter subsection_counter subsubsection_counter
        !             5:        paragraph_counter,
        !             6:        text "Chapter ", concatenate, number chapter_counter, new.line;
        !             7: 
        !             8:        blank.lines 4, paragraph,
        !             9:        store string.from.number remember_string chapter_counter)
        !            10:        |comment<summary: chapter (numbered chapter; IT)>
        !            11: 
        !            12: |environment(section;
        !            13:        blank.lines 2, protect, font bold, incr section_counter,
        !            14:        clear subsection_counter subsubsection_counter paragraph_counter,
        !            15:        number section_counter, text ". ";
        !            16: 
        !            17:        paragraph,
        !            18:        store string.from.number remember_string section_counter)
        !            19:        |comment<summary: section (numbered section; IT)>
        !            20: 
        !            21: |environment(subsection;
        !            22:        blank.lines, protect, font bold, incr subsection_counter,
        !            23:        clear subsubsection_counter paragraph_counter,
        !            24:        number section_counter, text ".",
        !            25:        number subsection_counter, text " ";
        !            26: 
        !            27:        paragraph,
        !            28:        store string.from.number remember_string section_counter,
        !            29:        add string remember_string ".",
        !            30:        add string.from.number remember_string subsection_counter)
        !            31:        |comment<summary: subsection (numbered subsection; IT)>
        !            32: 
        !            33: |environment(subsubsection;
        !            34:        blank.lines, protect, font italics, incr subsubsection_counter,
        !            35:        clear paragraph_counter,
        !            36:        number section_counter, text ".",
        !            37:        number subsection_counter, text ".",
        !            38:        number subsubsection_counter, text " ";
        !            39: 
        !            40:        store string.from.number remember_string section_counter,
        !            41:        add string remember_string ".",
        !            42:        add string.from.number remember_string subsection_counter,
        !            43:        add string remember_string ".",
        !            44:        add string.from.number remember_string subsubsection_counter)
        !            45:        |comment<summary: subsubsection (numbered subsubsection; IT)>
        !            46: 
        !            47: |associate(paragraph;
        !            48:        blank.lines, clear string temporary_string;
        !            49: 
        !            50:        if begin not_null_string(temporary_string),
        !            51:                temporary.font italics, string temporary_string, temporary.font,
        !            52:        if end;
        !            53: 
        !            54:        [numbered;
        !            55:                incr paragraph_counter, number format paragraph_counter i,
        !            56:                store string.from.number temporary_string paragraph_counter,
        !            57:                add string temporary_string ") ";]
        !            58:        [n;
        !            59:                incr paragraph_counter, number format paragraph_counter i,
        !            60:                store string.from.number temporary_string paragraph_counter,
        !            61:                add string temporary_string ") ";]
        !            62:        [indented;
        !            63:                indent.line 3;]
        !            64:        [i;
        !            65:                indent.line 3;])
        !            66:        |comment<summary: paragraph (paragraph n, i, numbered or indented)>
        !            67: 
        !            68: |associate(p;
        !            69:        blank.lines, clear string temporary_string;
        !            70: 
        !            71:        if begin not_null_string(temporary_string),
        !            72:                temporary.font italics, string temporary_string, temporary.font,
        !            73:        if end;
        !            74: 
        !            75:        [numbered;
        !            76:                incr paragraph_counter, number format paragraph_counter i,
        !            77:                store string.from.number temporary_string paragraph_counter,
        !            78:                add string temporary_string ") ";]
        !            79:        [n;
        !            80:                incr paragraph_counter, number format paragraph_counter i,
        !            81:                store string.from.number temporary_string paragraph_counter,
        !            82:                add string temporary_string ") ";]
        !            83:        [indented;
        !            84:                indent.line 3;]
        !            85:        [i;
        !            86:                indent.line 3;])
        !            87:        |comment<summary: p (alias for paragraph)>
        !            88: 
        !            89: |environment(appendix;
        !            90:        new.page, blank.lines 4, center on, font.size +1, font bold,
        !            91:        incr appendix_counter,
        !            92:        clear section_counter subsection_counter subsubsection_counter,
        !            93:        text "Appendix ", concatenate, number appendix_counter A, new.line;
        !            94: 
        !            95:        blank.lines 4, paragraph,
        !            96:        store string.from.number remember_string appendix_counter)
        !            97:        |comment<summary: appendix (numbered appendix; IT)>
        !            98: 
        !            99: |environment(unnumbered_chapter;
        !           100:        new.page, blank.lines 4, center on, font.size +1, font bold;
        !           101: 
        !           102:        blank.lines 4, paragraph)
        !           103:        |comment<summary: unnumbered_chapter (unnumbered chapter)>
        !           104: 
        !           105: |environment(unnumbered_section;
        !           106:        blank.lines 2, protect, font bold;
        !           107: 
        !           108:        paragraph)
        !           109:        |comment<summary: unnumbered_section (unnumbered section)>
        !           110: 
        !           111: |environment(unnumbered_subsection;
        !           112:        blank.lines, protect, font bold;
        !           113: 
        !           114:        paragraph)
        !           115:        |comment<summary: unnumbered_subsection (unnumbered subsection)>
        !           116: 
        !           117: |environment(unnumbered_subsubsection;
        !           118:        blank.lines, protect, font italics;)
        !           119:        |comment<summary: unnumbered_subsubsection (unnumbered subsubsection)>
        !           120: 
        !           121: |environment(unnumbered_appendix;
        !           122:        new.page, blank.lines 4, center on, font.size +1, font bold;
        !           123: 
        !           124:        blank.lines 4, paragraph)
        !           125:        |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.