Return to list.m CVS log

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

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

1.1     ! root        1: |environment(bullet_list;
        !             2:        list.type fixed, list.pre "\&", list.format 1, list.post "\s-2\(bu\s+2\ ",
        !             3:        list.indent "nnn", list on;
        !             4: 
        !             5:        list off)
        !             6:        |comment<summary: bullet_list (bulletted list using \s-2\(bu\s+2)>
        !             7: 
        !             8: |environment(dash_list;
        !             9:        list.type fixed, list.pre "\&", list.format 1, list.post "\(em\ ",
        !            10:        list.indent "nnn", list on;
        !            11: 
        !            12:        list off)
        !            13:        |comment<summary: dash_list (dashed list using \(em)>
        !            14: 
        !            15: |environment(number_list;
        !            16:        list.type calculated, list.pre "\&", list.format 1, list.post ".\ \ ",
        !            17:        list.indent "nnnnn", list on;
        !            18: 
        !            19:        list off)
        !            20:        |comment<summary: number_list (numbered list using 1.)>
        !            21: 
        !            22: |environment(p_number_list;
        !            23:        list.type calculated, list.pre "(", list.format 1, list.post ")\ \ ",
        !            24:        list.indent "nnnnn", list on;
        !            25: 
        !            26:        list off)
        !            27:        |comment<summary: p_number_list (numbered list using (1))>
        !            28: 
        !            29: |environment(A_list;
        !            30:        list.type calculated, list.pre "\&", list.format A, list.post ".\ \ ",
        !            31:        list.indent "nnnnn", list on;
        !            32: 
        !            33:        list off)
        !            34:        |comment<summary: A_list (alphabetized list using A.)>
        !            35: 
        !            36: |environment(a_list;
        !            37:        list.type calculated, list.pre "\&", list.format a, list.post ")\ \ ",
        !            38:        list.indent "nnnnn", list on;
        !            39: 
        !            40:        list off)
        !            41:        |comment<summary: a_list (alphabetized list using a))>
        !            42: 
        !            43: |environment(p_a_list;
        !            44:        list.type calculated, list.pre "(", list.format a, list.post ")\ \ ",
        !            45:        list.indent "nnnnn", list on;
        !            46: 
        !            47:        list off)
        !            48:        |comment<summary: p_a_list (alphabetized list using (a))>
        !            49: 
        !            50: |environment(I_list;
        !            51:        list.type calculated, list.pre "\&", list.format I, list.post ".\ \ ",
        !            52:        list.indent "nnnnn", list on;
        !            53: 
        !            54:        list off)
        !            55:        |comment<summary: I_list (numbered list using I.)>
        !            56: 
        !            57: |environment(i_list;
        !            58:        list.type calculated, list.pre "\&", list.format i, list.post ")\ \ ",
        !            59:        list.indent "nnnnn", list on;
        !            60: 
        !            61:        list off)
        !            62:        |comment<summary: i_list (numbered list using i))>
        !            63: 
        !            64: |environment(text_list;
        !            65:        list.type fixed, list.pre "\&", list.format 1, list.post "\ ",
        !            66:        list.indent "nnnnn", list on;
        !            67: 
        !            68:        list off)
        !            69:        |comment<summary: text_list (text list using text from item))>
        !            70: 
        !            71: |associate(item;
        !            72:        clear string temporary_string;
        !            73: 
        !            74:        |ifvalue list.spacing on [
        !            75:                blank.lines .5,
        !            76:        ]
        !            77:        |ifvalue list.type fixed [
        !            78:                add string.from.string temporary_string premark_string,
        !            79:                add string.from.string temporary_string postmark_string,
        !            80:                store string remember_string postmark_string,
        !            81:        ]
        !            82:        |ifvalue list.type calculated [
        !            83:                incr list_counter,
        !            84:                number format.from.string list_counter format_string,
        !            85:                add string.from.string temporary_string premark_string,
        !            86:                add string.from.number temporary_string list_counter,
        !            87:                add string.from.string temporary_string postmark_string,
        !            88:                store string remember_string premark_string,
        !            89:                add string.from.number remember_string list_counter,
        !            90:        ]
        !            91:        store width temporary_width indent_string,
        !            92:        store width width_counter temporary_string,
        !            93:        if else begin GT(width_counter, temporary_width),
        !            94:                clear width_counter, sub width_counter temporary_width,
        !            95:                indent.line number width_counter,
        !            96:        if end,
        !            97:        if else begin,
        !            98:                clear temporary_width, sub temporary_width width_counter,
        !            99:                indent.line number temporary_width,
        !           100:        if end,
        !           101:        string temporary_string, concatenate;
        !           102:        [$;;
        !           103:                set string temporary_string $])
        !           104:        |comment<summary: item (item of a list; IT)>

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