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     ! 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.