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