![[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] / researchv10no / cmd / monk / db|
Return to list.m CVS log | Up to [Research Unix] / researchv10no / cmd / monk / db |
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.