Return to t_contents.m CVS log

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

Annotation of researchv10no/cmd/monk/db/t_contents.m, revision 1.1.1.1

1.1       root        1: |environment(tc_placement;
                      2:        minimum.lines;)
                      3:        |comment<summary: tc_placement (put the table of contents here)>
                      4: 
                      5: |environment(tc_heading;
                      6:        new.page, tab.stops \nWuR,
                      7:        divert.string temporary_string;
                      8: 
                      9:        inline off, size +1, center on,
                     10:        font bold, string temporary_string, font roman,
                     11:        center off, size -1, inline on,
                     12:        minimum.lines,
                     13:        clear string remember_string,
                     14:        contents section 1 remember_string temporary_string)
                     15:        |comment<summary: tc_heading (tc program heading)>
                     16: 
                     17: |associate(tc_entry;;;
                     18:        [0 $sequence $text $page;
                     19:                minimum.lines, font bold,
                     20:                text $text, tab, text $page;]
                     21:        [1 $sequence $text $page;
                     22:                minimum.lines, font bold, text $sequence,
                     23:                horizontal.motion "|0.3i", text $text, tab, text $page;]
                     24:        [2 $sequence $text $page;
                     25:                minimum.lines 0,
                     26:                horizontal.motion "|0.3i", text $sequence,
                     27:                horizontal.motion "|0.6i", text $text, tab, text $page;]
                     28:        [3 $sequence $text $page;
                     29:                minimum.lines 0,
                     30:                horizontal.motion "|0.6i", text $sequence,
                     31:                horizontal.motion "|0.9i", text $text, tab, text $page;])
                     32:        |comment<summary: tc_entry (tc program entry)>

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