![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to list.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / monk / db|
Return to list.m CVS log | Up to [Research Unix] / researchv8dc / cmd / monk / db |
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.