![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kluwer CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / monk / o.db|
Return to kluwer CVS log | Up to [Research Unix] / researchv10no / cmd / monk / o.db |
1.1 root 1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26: |environment(tc_heading;
27: clear string EH OH PH,
28: new.page odd, tab.stops \nWuR,
29: divert.string Ts;
30:
31: inline off, size +4, font.family helvetica, center on,
32: font bold, string Ts, font roman,
33: center off, font.family times, size -4, inline on,
34: minimum.lines,
35: clear string Rs,
36: contents section 1 Rs Ts,
37: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
38: add string.from.string EH Ts,
39: add string EH "\fP\s0\(ts",
40: set string OH "\(ts\s9\f2",
41: add string.from.string OH Ts,
42: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
43: |comment<summary: tc_heading (tc program heading)>
44:
45: |environment(index_placement;
46: clear string EH OH PH,
47: new.page odd, spacing on, blank.lines 2i,
48: set string Ts "INDEX", inline off,
49: size +4, inline on, font.family helvetica, blank.lines .25i,
50: tab.stops \nWuR,
51: font bold, tab, string Ts, new.line,
52: font roman, font.family times, size -4, inline on,
53: minimum.lines 1.25i, paragraph,
54: clear string Rs,
55: contents section 1 Rs Ts,
56: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
57: add string.from.string EH Ts,
58: add string EH "\fP\s0\(ts",
59: set string OH "\(ts\s9\f2",
60: add string.from.string OH Ts,
61: add string OH "\fP\(ts\(ts\\nP\s0\(ts",
62: minimum.lines;)
63: |comment<summary: index_placement (put the index here)>
64:
65: |environment(reference_placement;
66: |ifvalue sawreference on [
67: clear string EH OH PH,
68: new.page odd, spacing on, blank.lines 2i,
69: set string Ts "REFERENCES", inline off,
70: size +4, inline on, font.family helvetica, blank.lines .25i,
71: tab.stops \nWuR,
72: font bold, tab, string Ts, new.line,
73: font roman, font.family times, size -4, inline on,
74: minimum.lines 1.25i, paragraph,
75: clear string Rs,
76: contents section 1 Rs Ts,
77: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
78: add string.from.string EH Ts,
79: add string EH "\fP\s0\(ts",
80: set string OH "\(ts\s9\f2",
81: add string.from.string OH Ts,
82: add string OH "\fP\(ts\(ts\\nP\s0\(ts",
83: reference.placement
84: ];
85:
86: sawreference off)
87: |comment<summary: reference_placement (produce references here)>
88:
89:
90:
91: |environment(chapter;
92: clear string EH OH PH,
93: new.page odd, spacing on, blank.lines 2i,
94: incr CH,
95: clear S0 S1 S2
96: S3,
97: set string Ts "Chapter ",
98: add string.from.number Ts CH,
99: inline off, size +10, font.family helvetica,
100: tab.stops \nWuR,
101: tab, string Ts,
102: divert.string Ts;
103:
104: sectioning bychapter,
105: inline off, size +4, font.family helvetica, blank.lines .25i,
106: tab.stops \nWuR,
107: font bold, tab, string Ts, new.line,
108: font roman, font.family times, size -4, inline on,
109: minimum.lines 1.25i, paragraph,
110: store string.from.number Rs CH,
111: contents section 1 Rs Ts,
112: set string EH "\(ts\s9\\nP\(ts\f2",
113: add string.from.string EH Ts,
114: add string EH "\(tsChapter ",
115: add string.from.number EH CH,
116: add string EH "\fP\s0\(ts",
117: set string OH "\(ts\s9\f2Chapter ",
118: add string.from.number OH CH,
119: add string OH "\(ts",
120: add string.from.string OH Ts,
121: add string OH "\fP\(ts\\nP\s0\(ts")
122: |comment<summary: chapter (numbered chapter; IT)>
123:
124: |environment(section;
125: divert.string Ts;
126:
127: minimum.lines 2, protect, incr S0,
128: clear S1 S2 S3,
129: font bold,
130: |ifvalue sectioning bychapter [
131: number CH, text ".",
132: ]
133: |ifvalue sectioning byappendix [
134: number AC, text ".",
135: ]
136: number S0,
137: |ifvalue sectioning bysection [
138: text ".",
139: ]
140: text " ", string Ts, font roman,
141: paragraph,
142: clear string Rs,
143: |ifvalue sectioning bychapter [
144: store string.from.number Rs CH,
145: add string Rs ".",
146: ]
147: |ifvalue sectioning byappendix [
148: store string.from.number Rs AC,
149: add string Rs ".",
150: ]
151: add string.from.number Rs S0,
152: |ifvalue sectioning bysection [
153: contents section 1 Rs Ts,
154: ]
155: |ifvalue sectioning bychapter [
156: contents section 2 Rs Ts,
157: ]
158: |ifvalue sectioning byappendix [
159: contents section 2 Rs Ts,
160: ]
161: set string OH "\(ts\s9\f2Section ",
162: |ifvalue sectioning bychapter [
163: add string.from.number OH CH,
164: add string OH ".",
165: ]
166: |ifvalue sectioning byappendix [
167: add string.from.number OH AC,
168: add string OH ".",
169: ]
170: add string.from.number OH S0,
171: add string OH "\(ts",
172: add string.from.string OH Ts,
173: add string OH "\fP\(ts\\nP\s0\(ts")
174: |comment<summary: section (numbered section; IT)>
175:
176: |environment(appendix;
177: clear string EH OH PH,
178: new.page odd, spacing on, blank.lines 2i,
179: number format AC A, incr AC,
180: clear S0 S1 S2
181: S3,
182: set string Ts "Appendix ",
183: add string.from.number Ts AC,
184: inline off, size +4, font.family helvetica,
185: tab.stops \nWuR,
186: font bold, tab, string Ts, font roman,
187: divert.string Rs;
188:
189: sectioning byappendix,
190: inline off, size +4, font.family helvetica, blank.lines .25i,
191: tab.stops \nWuR,
192: font bold, tab, string Rs, new.line,
193: font roman, font.family times, size -4, inline on,
194: minimum.lines 1.25i, paragraph,
195: store string.from.number Rs AC,
196: contents section 1 Rs Ts,
197: set string EH "\(ts\s9\\nP\(ts\f2",
198: add string.from.string EH Ts,
199: add string EH "\(tsAppendix ",
200: add string.from.number EH AC,
201: add string EH "\fP\s0\(ts",
202: set string OH "\(ts\s9\f2Appendix ",
203: add string.from.number OH AC,
204: add string OH "\(ts",
205: add string.from.string OH Ts,
206: add string OH "\fP\(ts\\nP\s0\(ts")
207: |comment<summary: appendix (numbered appendix; IT)>
208:
209: |environment(unnumbered_chapter;
210: clear string EH OH PH,
211: new.page odd, spacing on, blank.lines 2i,
212: divert.string Ts;
213:
214: sectioning bychapter,
215: inline off, size +4, font.family helvetica, blank.lines .25i,
216: tab.stops \nWuR,
217: font bold, tab, string Ts, new.line,
218: font roman, font.family times, size -4, inline on,
219: minimum.lines 1.25i, paragraph,
220: clear string Rs,
221: contents section 1 Rs Ts,
222: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
223: add string.from.string EH Ts,
224: add string EH "\fP\s0\(ts",
225: set string OH "\(ts\s9\f2",
226: add string.from.string OH Ts,
227: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
228: |comment<summary: unnumbered_chapter (unnumbered chapter)>
229:
230: |environment(unnumbered_section;
231: divert.string Ts;
232:
233: minimum.lines 2, protect, font bold,
234: string Ts, font roman,
235: paragraph,
236: clear string Rs,
237: |ifvalue sectioning bysection [
238: contents section 1 Rs Ts,
239: ]
240: |ifvalue sectioning bychapter [
241: contents section 2 Rs Ts,
242: ]
243: |ifvalue sectioning byappendix [
244: contents section 2 Rs Ts,
245: ]
246: set string OH "\(ts\s9\f2",
247: add string.from.string OH Ts,
248: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
249: |comment<summary: unnumbered_section (unnumbered section)>
250:
251: |environment(unnumbered_appendix;
252: clear string EH OH PH,
253: divert.string Ts;
254:
255: new.page odd, spacing on, blank.lines 2i,
256: sectioning byappendix,
257: inline off, size +4, font.family helvetica, blank.lines .25i,
258: tab.stops \nWuR,
259: font bold, tab, string Ts, new.line,
260: font roman, font.family times, size -4, inline on,
261: minimum.lines 1.25i, paragraph,
262: clear string Rs,
263: contents section 1 Rs Ts,
264: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
265: add string.from.string EH Ts,
266: add string EH "\fP\s0\(ts",
267: set string OH "\(ts\s9\f2",
268: add string.from.string OH Ts,
269: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
270: |comment<summary: unnumbered_appendix (unnumbered appendix)>
271:
272: |environment(:document;
273: line.length 5i,
274: page.length 9.5i,
275: clear string EH OH PH, reference.option rp;)
276:
277: |environment(:document_save;
278: ;)
279:
280: |environment(:document_restore;
281: ;)
282:
283: |macro(top.of.page;
284: [
285: '\" ;P page number register TEMP
286: . de TP
287: ' sp
288: . af ;P \\gP \" save format of P
289: . af P 1 \" normal format for next line
290: . nr ;P \\nP \" must use different name for P
291: . af P \\g(;P \" restore format to P
292: . af ;P 1 \" normal format for control register
293: ' sp 2
294: . if \\n(;P-1 .tl \\*(PH \" output headers
295: . if !\\n(;P%2 .tl \\*(EH
296: . if \\n(;P%2 .tl \\*(OH
297: ' sp .75i
298: . rr ;P \" free storage
299: ..
300: ])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.