Return to list.m CVS log

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

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

1.1     ! root        1: |environment(bullet_list;
        !             2:        blank.lines 1, list.tags bullet;
        !             3: 
        !             4:        indent, blank.lines 1)
        !             5:        |comment<summary: bullet_list (bulletted list using \(bu \- \s-1\(bu\s+1 \s-1\-\s+1 \s-2\(bu\s+2 \s-2\-\s+2 \s-3\(bu\s+3)>
        !             6: 
        !             7: |environment(dash_list;
        !             8:        blank.lines 1, list.tags dash;
        !             9: 
        !            10:        indent, blank.lines 1)
        !            11:        |comment<summary: dash_list (dasheded list using \- \(bu \s-1\-\s+1 \s-1\(bu\s+1 \s-2\-\s+2 \s-2\(bu\s+2 \s-3\-\s+3)>
        !            12: 
        !            13: |environment(number_list;
        !            14:        clear level_1 level_2 level_3 level_4 level_5 level_6 level_7,
        !            15:        number format level_1 level_2 level_3 level_4 level_5 level_6 level_7 1,
        !            16:        blank.lines 1, list.tags number;
        !            17: 
        !            18:        indent, blank.lines 1)
        !            19:        |comment<summary: number_list (numbered list using 1 1.1 1.1.1 1.1.1.1 1.1.1.1.1 1.1.1.1.1.1 1.1.1.1.1.1.1)>
        !            20: 
        !            21: |environment(outline_list;
        !            22:        clear level_1 level_2 level_3 level_4 level_5 level_6 level_7,
        !            23:        number format level_1 I,
        !            24:        number format level_2 A,
        !            25:        number format level_3 level_5  1,
        !            26:        number format level_4 level_6  a,
        !            27:        number format level_7 i,
        !            28:        blank.lines 1, list.tags outline;
        !            29: 
        !            30:        indent, blank.lines 1)
        !            31:        |comment<summary: outline_list (outline list using I A 1 a (1) (a) i))>
        !            32: 
        !            33: |environment(level1;
        !            34:        if begin equal_string(list_type, number),
        !            35:                clear level_2 level_3 level_4 level_5 level_6 level_7,
        !            36:                incr level_1,
        !            37:                store string.from.number remember_string level_1,
        !            38:        if end,
        !            39:        if begin equal_string(list_type, bullet),
        !            40:                set string remember_string \(bu,
        !            41:        if end,
        !            42:        if begin equal_string(list_type, dash),
        !            43:                set string remember_string \-,
        !            44:        if end,
        !            45:        if begin equal_string(list_type, outline),
        !            46:                clear level_2 level_3 level_4 level_5 level_6 level_7,
        !            47:                incr level_1,
        !            48:                store string.from.number remember_string level_1,
        !            49:        if end;
        !            50:        indent 0.2i, indent.line -0.2i, string remember_string,
        !            51:        horizontal.motion "|0.2i")
        !            52:        |comment<summary: level1 (a list item at level 1; IT)>
        !            53: 
        !            54: |environment(level2;
        !            55:        if begin equal_string(list_type, number),
        !            56:                clear level_3 level_4 level_5 level_6 level_7,
        !            57:                incr level_2,
        !            58:                store string.from.number remember_string level_1,
        !            59:                add string remember_string ".",
        !            60:                add string.from.number remember_string level_2,
        !            61:        if end,
        !            62:        if begin equal_string(list_type, bullet),
        !            63:                set string remember_string \-,
        !            64:        if end,
        !            65:        if begin equal_string(list_type, dash),
        !            66:                set string remember_string \(bu,
        !            67:        if end,
        !            68:        if begin equal_string(list_type, outline),
        !            69:                clear level_3 level_4 level_5 level_6 level_7,
        !            70:                incr level_2,
        !            71:                store string.from.number remember_string level_2,
        !            72:        if end;
        !            73:        indent 0.4i, indent.line -0.2i, string remember_string,
        !            74:        horizontal.motion "|0.2i")
        !            75:        |comment<summary: level2 (a list item at level 2; IT)>
        !            76: 
        !            77: |environment(level3;
        !            78:        if begin equal_string(list_type, number),
        !            79:                clear level_4 level_5 level_6 level_7,
        !            80:                incr level_3,
        !            81:                store string.from.number remember_string level_1,
        !            82:                add string remember_string ".",
        !            83:                add string.from.number remember_string level_2,
        !            84:                add string remember_string ".",
        !            85:                add string.from.number remember_string level_3,
        !            86:        if end,
        !            87:        if begin equal_string(list_type, bullet),
        !            88:                set string remember_string \s-1\(bu\s+1,
        !            89:        if end,
        !            90:        if begin equal_string(list_type, dash),
        !            91:                set string remember_string \s-1\-\s+1,
        !            92:        if end,
        !            93:        if begin equal_string(list_type, outline),
        !            94:                clear level_4 level_5 level_6 level_7,
        !            95:                incr level_3,
        !            96:                store string.from.number remember_string level_3,
        !            97:        if end;
        !            98:        indent 0.6i, indent.line -0.2i, string remember_string,
        !            99:        horizontal.motion "|0.2i")
        !           100:        |comment<summary: level3 (a list item at level 3; IT)>
        !           101: 
        !           102: |environment(level4;
        !           103:        if begin equal_string(list_type, number),
        !           104:                clear level_5 level_6 level_7,
        !           105:                incr level_4,
        !           106:                store string.from.number remember_string level_1,
        !           107:                add string remember_string ".",
        !           108:                add string.from.number remember_string level_2,
        !           109:                add string remember_string ".",
        !           110:                add string.from.number remember_string level_3,
        !           111:                add string remember_string ".",
        !           112:                add string.from.number remember_string level_4,
        !           113:        if end,
        !           114:        if begin equal_string(list_type, bullet),
        !           115:                set string remember_string \s-1\-\s+1,
        !           116:        if end,
        !           117:        if begin equal_string(list_type, dash),
        !           118:                set string remember_string \s-1\(bu\s+1,
        !           119:        if end,
        !           120:        if begin equal_string(list_type, outline),
        !           121:                clear level_5 level_6 level_7,
        !           122:                incr level_4,
        !           123:                store string.from.number remember_string level_4,
        !           124:        if end;
        !           125:        indent 0.8i, indent.line -0.2i, string remember_string,
        !           126:        horizontal.motion "|0.2i")
        !           127:        |comment<summary: level4 (a list item at level 4; IT)>
        !           128: 
        !           129: |environment(level5;
        !           130:        if begin equal_string(list_type, number),
        !           131:                clear level_6 level_7,
        !           132:                incr level_5,
        !           133:                store string.from.number remember_string level_1,
        !           134:                add string remember_string ".",
        !           135:                add string.from.number remember_string level_2,
        !           136:                add string remember_string ".",
        !           137:                add string.from.number remember_string level_3,
        !           138:                add string remember_string ".",
        !           139:                add string.from.number remember_string level_4,
        !           140:                add string remember_string ".",
        !           141:                add string.from.number remember_string level_5,
        !           142:        if end,
        !           143:        if begin equal_string(list_type, bullet),
        !           144:                set string remember_string \s-2\(bu\s+2,
        !           145:        if end,
        !           146:        if begin equal_string(list_type, dash),
        !           147:                set string remember_string \s-2\-\s+2,
        !           148:        if end,
        !           149:        if begin equal_string(list_type, outline),
        !           150:                clear level_6 level_7,
        !           151:                incr level_5,
        !           152:                set string remember_string "(",
        !           153:                add string.from.number remember_string level_5,
        !           154:                add string remember_string ")",
        !           155:        if end;
        !           156:        indent 1.0i, indent.line -0.2i, string remember_string,
        !           157:        horizontal.motion "|0.2i")
        !           158:        |comment<summary: level5 (a list item at level 5; IT)>
        !           159: 
        !           160: |environment(level6;
        !           161:        if begin equal_string(list_type, number),
        !           162:                clear level_7,
        !           163:                incr level_6,
        !           164:                store string.from.number remember_string level_1,
        !           165:                add string remember_string ".",
        !           166:                add string.from.number remember_string level_2,
        !           167:                add string remember_string ".",
        !           168:                add string.from.number remember_string level_3,
        !           169:                add string remember_string ".",
        !           170:                add string.from.number remember_string level_4,
        !           171:                add string remember_string ".",
        !           172:                add string.from.number remember_string level_5,
        !           173:                add string remember_string ".",
        !           174:                add string.from.number remember_string level_6,
        !           175:        if end,
        !           176:        if begin equal_string(list_type, bullet),
        !           177:                set string remember_string \s-2\-\s+2,
        !           178:        if end,
        !           179:        if begin equal_string(list_type, dash),
        !           180:                set string remember_string \s-2\(bu\s+2,
        !           181:        if end,
        !           182:        if begin equal_string(list_type, outline),
        !           183:                clear level_7,
        !           184:                incr level_6,
        !           185:                set string remember_string "(",
        !           186:                add string.from.number remember_string level_6,
        !           187:                add string remember_string ")",
        !           188:        if end;
        !           189:        indent 1.2i, indent.line -0.2i, string remember_string,
        !           190:        horizontal.motion "|0.2i")
        !           191:        |comment<summary: level6 (a list item at level 6; IT)>
        !           192: 
        !           193: |environment(level7;
        !           194:        if begin equal_string(list_type, number),
        !           195:                incr level_7,
        !           196:                store string.from.number remember_string level_1,
        !           197:                add string remember_string ".",
        !           198:                add string.from.number remember_string level_2,
        !           199:                add string remember_string ".",
        !           200:                add string.from.number remember_string level_3,
        !           201:                add string remember_string ".",
        !           202:                add string.from.number remember_string level_4,
        !           203:                add string remember_string ".",
        !           204:                add string.from.number remember_string level_5,
        !           205:                add string remember_string ".",
        !           206:                add string.from.number remember_string level_6,
        !           207:                add string remember_string ".",
        !           208:                add string.from.number remember_string level_7,
        !           209:        if end,
        !           210:        if begin equal_string(list_type, bullet),
        !           211:                set string remember_string \s-3\(bu\s+3,
        !           212:        if end,
        !           213:        if begin equal_string(list_type, dash),
        !           214:                set string remember_string \s-3\-\s+3,
        !           215:        if end,
        !           216:        if begin equal_string(list_type, outline),
        !           217:                incr level_7,
        !           218:                store string.from.number remember_string level_7,
        !           219:                add string remember_string ")",
        !           220:        if end;
        !           221:        indent 1.4i, indent.line -0.2i, string remember_string,
        !           222:        horizontal.motion "|0.2i")
        !           223:        |comment<summary: level7 (a list item at level 7; IT)>

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