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

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.