![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to section.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 section.m CVS log | Up to [Research Unix] / researchv10no / cmd / monk / db |
1.1 root 1: |environment(chapter;
2: new.page, spacing on, blank.lines 2i,
3: incr chapter_counter,
4: clear section_counter subsection_counter subsubsection_counter
5: paragraph_counter,
6: set string temporary_string "Chapter ",
7: add string.from.number temporary_string chapter_counter,
8: inline off, size +10, font.family helvetica,
9: tab.stops \nWuR,
10: tab, string temporary_string,
11: divert.string temporary_string;
12:
13: sectioning bychapter,
14: inline off, size +4, font.family helvetica, blank.lines .25i,
15: tab.stops \nWuR,
16: font bold, tab, string temporary_string, new.line,
17: font roman, font.family times, size -4, inline on,
18: minimum.lines 1.25i, paragraph,
19: store string.from.number remember_string chapter_counter,
20: contents section 1 remember_string temporary_string)
21: |comment<summary: chapter (numbered chapter; IT)>
22:
23: |environment(section;
24: divert.string temporary_string;
25:
26: minimum.lines 2, protect, incr section_counter,
27: clear subsection_counter subsubsection_counter paragraph_counter,
28: font bold,
29: |ifvalue sectioning bychapter [
30: number chapter_counter, text ".",
31: ]
32: |ifvalue sectioning byappendix [
33: number appendix_counter, text ".",
34: ]
35: number section_counter,
36: |ifvalue sectioning bysection [
37: text ".",
38: ]
39: text " ", string temporary_string, font roman,
40: paragraph,
41: clear string remember_string,
42: |ifvalue sectioning bychapter [
43: store string.from.number remember_string chapter_counter,
44: add string remember_string ".",
45: ]
46: |ifvalue sectioning byappendix [
47: store string.from.number remember_string appendix_counter,
48: add string remember_string ".",
49: ]
50: add string.from.number remember_string section_counter,
51: |ifvalue sectioning bysection [
52: contents section 1 remember_string temporary_string,
53: ]
54: |ifvalue sectioning bychapter [
55: contents section 2 remember_string temporary_string,
56: ]
57: |ifvalue sectioning byappendix [
58: contents section 2 remember_string temporary_string,
59: ])
60: |comment<summary: section (numbered section; IT)>
61:
62: |environment(subsection;
63: divert.string temporary_string;
64:
65: minimum.lines, protect, incr subsection_counter,
66: clear subsubsection_counter paragraph_counter,
67: font bold,
68: |ifvalue sectioning bychapter [
69: number chapter_counter, text ".",
70: ]
71: |ifvalue sectioning byappendix [
72: number appendix_counter, text ".",
73: ]
74: number section_counter, text ".",
75: number subsection_counter, text " ", string temporary_string, font roman,
76: paragraph,
77: clear string remember_string,
78: |ifvalue sectioning bychapter [
79: store string.from.number remember_string chapter_counter,
80: add string remember_string ".",
81: ]
82: |ifvalue sectioning byappendix [
83: store string.from.number remember_string appendix_counter,
84: add string remember_string ".",
85: ]
86: add string.from.number remember_string section_counter,
87: add string remember_string ".",
88: add string.from.number remember_string subsection_counter,
89: |ifvalue sectioning bysection [
90: contents section 2 remember_string temporary_string,
91: ]
92: |ifvalue sectioning bychapter [
93: contents section 3 remember_string temporary_string,
94: ]
95: |ifvalue sectioning byappendix [
96: contents section 3 remember_string temporary_string,
97: ])
98: |comment<summary: subsection (numbered subsection; IT)>
99:
100: |environment(subsubsection;
101: divert.string temporary_string;
102:
103: minimum.lines, protect, incr subsubsection_counter,
104: clear paragraph_counter,
105: font italics,
106: |ifvalue sectioning bychapter [
107: number chapter_counter, text ".",
108: ]
109: |ifvalue sectioning byappendix [
110: number appendix_counter, text ".",
111: ]
112: number section_counter, text ".",
113: number subsection_counter, text ".",
114: number subsubsection_counter, text " ", string temporary_string, font roman,
115: clear string remember_string,
116: |ifvalue sectioning bychapter [
117: store string.from.number remember_string chapter_counter,
118: add string remember_string ".",
119: ]
120: |ifvalue sectioning byappendix [
121: store string.from.number remember_string appendix_counter,
122: add string remember_string ".",
123: ]
124: add string.from.number remember_string section_counter,
125: add string remember_string ".",
126: add string.from.number remember_string subsection_counter,
127: add string remember_string ".",
128: add string.from.number remember_string subsubsection_counter,
129: |ifvalue sectioning bysection [
130: contents section 3 remember_string temporary_string,
131: ]
132: |ifvalue sectioning bychapter [
133: contents section 4 remember_string temporary_string,
134: ]
135: |ifvalue sectioning byappendix [
136: contents section 4 remember_string temporary_string,
137: ])
138: |comment<summary: subsubsection (numbered subsubsection; IT)>
139:
140: |associate(paragraph;
141: minimum.lines;
142:
143: |ifvalue localparagraph.style indented [
144: indent.line +3,
145: ]
146: |ifvalue localparagraph.style numbered [
147: incr paragraph_counter, number format paragraph_counter i,
148: store string.from.number temporary_string paragraph_counter,
149: add string temporary_string ") ",
150: string italics temporary_string,
151: ]
152: |ifvalue globalparagraph.style indented [
153: localparagraph.style indented,
154: ]
155: |ifvalue globalparagraph.style numbered [
156: localparagraph.style numbered,
157: ]
158: |ifvalue globalparagraph.style flushed [
159: localparagraph.style flushed,
160: ];
161:
162: [numbered;;
163: localparagraph.style numbered]
164: [n;;
165: localparagraph.style numbered]
166: [indented;;
167: localparagraph.style indented]
168: [i;;
169: localparagraph.style indented]
170: [flushed;;
171: localparagraph.style flushed]
172: [f;;
173: localparagraph.style flushed])
174: |comment<summary: paragraph (n, i, f, numbered, indented, flushed)>
175:
176: |associate(p;
177: minimum.lines;
178:
179: |ifvalue localparagraph.style indented [
180: indent.line +3,
181: ]
182: |ifvalue localparagraph.style numbered [
183: incr paragraph_counter, number format paragraph_counter i,
184: store string.from.number temporary_string paragraph_counter,
185: add string temporary_string ") ",
186: string italics temporary_string,
187: ]
188: |ifvalue globalparagraph.style indented [
189: localparagraph.style indented,
190: ]
191: |ifvalue globalparagraph.style numbered [
192: localparagraph.style numbered,
193: ]
194: |ifvalue globalparagraph.style flushed [
195: localparagraph.style flushed,
196: ];
197:
198: [numbered;;
199: localparagraph.style numbered]
200: [n;;
201: localparagraph.style numbered]
202: [indented;;
203: localparagraph.style indented]
204: [i;;
205: localparagraph.style indented]
206: [flushed;;
207: localparagraph.style flushed]
208: [f;;
209: localparagraph.style flushed])
210: |comment<summary: p (alias for paragraph)>
211:
212: |environment(appendix;
213: new.page, spacing on, blank.lines 4,
214: number format appendix_counter A, incr appendix_counter,
215: clear section_counter subsection_counter subsubsection_counter
216: paragraph_counter,
217: set string remember_string "Appendix ",
218: add string.from.number remember_string appendix_counter,
219: divert.string temporary_string;
220:
221: sectioning byappendix,
222: center on, size +1, font bold,
223: string remember_string, blank.lines, string temporary_string,
224: font roman, size -1, center off,
225: minimum.lines 4, paragraph,
226: store string.from.number remember_string appendix_counter,
227: contents section 1 remember_string temporary_string)
228: |comment<summary: appendix (numbered appendix; IT)>
229:
230: |environment(unnumbered_chapter;
231: new.page, spacing on, blank.lines 2i,
232: divert.string temporary_string;
233:
234: sectioning bychapter,
235: inline off, size +4, font.family helvetica, blank.lines .25i,
236: tab.stops \nWuR,
237: font bold, tab, string temporary_string, new.line,
238: font roman, font.family times, size -4, inline on,
239: minimum.lines 1.25i, paragraph,
240: clear string remember_string,
241: contents section 1 remember_string temporary_string)
242: |comment<summary: unnumbered_chapter (unnumbered chapter)>
243:
244: |environment(unnumbered_section;
245: divert.string temporary_string;
246:
247: minimum.lines 2, protect, font bold,
248: string temporary_string, font roman,
249: paragraph,
250: clear string remember_string,
251: |ifvalue sectioning bysection [
252: contents section 1 remember_string temporary_string,
253: ]
254: |ifvalue sectioning bychapter [
255: contents section 2 remember_string temporary_string,
256: ]
257: |ifvalue sectioning byappendix [
258: contents section 2 remember_string temporary_string,
259: ])
260: |comment<summary: unnumbered_section (unnumbered section)>
261:
262: |environment(unnumbered_subsection;
263: divert.string temporary_string;
264:
265: minimum.lines, protect, font bold,
266: string temporary_string, font roman,
267: paragraph,
268: clear string remember_string,
269: |ifvalue sectioning bysection [
270: contents section 2 remember_string temporary_string,
271: ]
272: |ifvalue sectioning bychapter [
273: contents section 3 remember_string temporary_string,
274: ]
275: |ifvalue sectioning byappendix [
276: contents section 3 remember_string temporary_string,
277: ])
278: |comment<summary: unnumbered_subsection (unnumbered subsection)>
279:
280: |environment(unnumbered_subsubsection;
281: divert.string temporary_string;
282:
283: minimum.lines, protect, font italics,
284: string temporary_string, font roman,
285: clear string remember_string,
286: |ifvalue sectioning bysection [
287: contents section 3 remember_string temporary_string,
288: ]
289: |ifvalue sectioning bychapter [
290: contents section 4 remember_string temporary_string,
291: ]
292: |ifvalue sectioning byappendix [
293: contents section 4 remember_string temporary_string,
294: ])
295: |comment<summary: unnumbered_subsubsection (unnumbered subsubsection)>
296:
297: |environment(unnumbered_appendix;
298: divert.string temporary_string;
299:
300: new.page, spacing on, blank.lines 4,
301: sectioning byappendix,
302: center on, size +1, font bold,
303: string temporary_string,
304: font roman, size -1, center off,
305: minimum.lines 4, paragraph,
306: store string.from.number remember_string appendix_counter,
307: contents section 1 remember_string temporary_string)
308: |comment<summary: unnumbered_appendix (unnumbered appendix)>
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.