![[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 / db|
Return to kluwer CVS log | Up to [Research Unix] / researchv10no / cmd / monk / db |
1.1 root 1: |environment(tc_heading;
2: clear string EH OH PH,
3: new.page odd, tab.stops \nWuR,
4: divert.string Ts;
5: inline off, size +4, font.family helvetica, center on,
6: font bold, string Ts, font roman,
7: center off, font.family times, size -4, inline on,
8: minimum.lines,
9: clear string Rs,
10: contents section 1 Rs Ts,
11: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
12: add string.from.string EH Ts,
13: add string EH "\fP\s0\(ts",
14: set string OH "\(ts\s9\f2",
15: add string.from.string OH Ts,
16: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
17: |environment(index_placement;
18: clear string EH OH PH,
19: new.page odd, spacing on, blank.lines 2i,
20: set string Ts "INDEX", inline off,
21: size +4, inline on, font.family helvetica, blank.lines .25i,
22: tab.stops \nWuR,
23: font bold, tab, string Ts, new.line,
24: font roman, font.family times, size -4, inline on,
25: minimum.lines 1.25i, paragraph,
26: clear string Rs,
27: contents section 1 Rs Ts,
28: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
29: add string.from.string EH Ts,
30: add string EH "\fP\s0\(ts",
31: set string OH "\(ts\s9\f2",
32: add string.from.string OH Ts,
33: add string OH "\fP\(ts\(ts\\nP\s0\(ts",
34: minimum.lines;)
35: |environment(reference_placement;
36: |ifvalue sawreference on [
37: clear string EH OH PH,
38: new.page odd, spacing on, blank.lines 2i,
39: set string Ts "REFERENCES", inline off,
40: size +4, inline on, font.family helvetica, blank.lines .25i,
41: tab.stops \nWuR,
42: font bold, tab, string Ts, new.line,
43: font roman, font.family times, size -4, inline on,
44: minimum.lines 1.25i, paragraph,
45: clear string Rs,
46: contents section 1 Rs Ts,
47: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
48: add string.from.string EH Ts,
49: add string EH "\fP\s0\(ts",
50: set string OH "\(ts\s9\f2",
51: add string.from.string OH Ts,
52: add string OH "\fP\(ts\(ts\\nP\s0\(ts",
53: reference.placement
54: ];
55: sawreference off)
56: |environment(chapter;
57: clear string EH OH PH,
58: new.page odd, spacing on, blank.lines 2i,
59: incr CH,
60: clear S0 S1 S2
61: S3,
62: set string Ts "Chapter ",
63: add string.from.number Ts CH,
64: inline off, size +10, font.family helvetica,
65: tab.stops \nWuR,
66: tab, string Ts,
67: divert.string Ts;
68: sectioning bychapter,
69: inline off, size +4, font.family helvetica, blank.lines .25i,
70: tab.stops \nWuR,
71: font bold, tab, string Ts, new.line,
72: font roman, font.family times, size -4, inline on,
73: minimum.lines 1.25i, paragraph,
74: store string.from.number Rs CH,
75: contents section 1 Rs Ts,
76: set string EH "\(ts\s9\\nP\(ts\f2",
77: add string.from.string EH Ts,
78: add string EH "\(tsChapter ",
79: add string.from.number EH CH,
80: add string EH "\fP\s0\(ts",
81: set string OH "\(ts\s9\f2Chapter ",
82: add string.from.number OH CH,
83: add string OH "\(ts",
84: add string.from.string OH Ts,
85: add string OH "\fP\(ts\\nP\s0\(ts")
86: |environment(section;
87: divert.string Ts;
88: minimum.lines 2, protect, incr S0,
89: clear S1 S2 S3,
90: font bold,
91: |ifvalue sectioning bychapter [
92: number CH, text ".",
93: ]
94: |ifvalue sectioning byappendix [
95: number AC, text ".",
96: ]
97: number S0,
98: |ifvalue sectioning bysection [
99: text ".",
100: ]
101: text " ", string Ts, font roman,
102: paragraph,
103: clear string Rs,
104: |ifvalue sectioning bychapter [
105: store string.from.number Rs CH,
106: add string Rs ".",
107: ]
108: |ifvalue sectioning byappendix [
109: store string.from.number Rs AC,
110: add string Rs ".",
111: ]
112: add string.from.number Rs S0,
113: |ifvalue sectioning bysection [
114: contents section 1 Rs Ts,
115: ]
116: |ifvalue sectioning bychapter [
117: contents section 2 Rs Ts,
118: ]
119: |ifvalue sectioning byappendix [
120: contents section 2 Rs Ts,
121: ]
122: set string OH "\(ts\s9\f2Section ",
123: |ifvalue sectioning bychapter [
124: add string.from.number OH CH,
125: add string OH ".",
126: ]
127: |ifvalue sectioning byappendix [
128: add string.from.number OH AC,
129: add string OH ".",
130: ]
131: add string.from.number OH S0,
132: add string OH "\(ts",
133: add string.from.string OH Ts,
134: add string OH "\fP\(ts\\nP\s0\(ts")
135: |environment(appendix;
136: clear string EH OH PH,
137: new.page odd, spacing on, blank.lines 2i,
138: number format AC A, incr AC,
139: clear S0 S1 S2
140: S3,
141: set string Ts "Appendix ",
142: add string.from.number Ts AC,
143: inline off, size +4, font.family helvetica,
144: tab.stops \nWuR,
145: font bold, tab, string Ts, font roman,
146: divert.string Rs;
147: sectioning byappendix,
148: inline off, size +4, font.family helvetica, blank.lines .25i,
149: tab.stops \nWuR,
150: font bold, tab, string Rs, new.line,
151: font roman, font.family times, size -4, inline on,
152: minimum.lines 1.25i, paragraph,
153: store string.from.number Rs AC,
154: contents section 1 Rs Ts,
155: set string EH "\(ts\s9\\nP\(ts\f2",
156: add string.from.string EH Ts,
157: add string EH "\(tsAppendix ",
158: add string.from.number EH AC,
159: add string EH "\fP\s0\(ts",
160: set string OH "\(ts\s9\f2Appendix ",
161: add string.from.number OH AC,
162: add string OH "\(ts",
163: add string.from.string OH Ts,
164: add string OH "\fP\(ts\\nP\s0\(ts")
165: |environment(unnumbered_chapter;
166: clear string EH OH PH,
167: new.page odd, spacing on, blank.lines 2i,
168: divert.string Ts;
169: sectioning bychapter,
170: inline off, size +4, font.family helvetica, blank.lines .25i,
171: tab.stops \nWuR,
172: font bold, tab, string Ts, new.line,
173: font roman, font.family times, size -4, inline on,
174: minimum.lines 1.25i, paragraph,
175: clear string Rs,
176: contents section 1 Rs Ts,
177: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
178: add string.from.string EH Ts,
179: add string EH "\fP\s0\(ts",
180: set string OH "\(ts\s9\f2",
181: add string.from.string OH Ts,
182: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
183: |environment(unnumbered_section;
184: divert.string Ts;
185: minimum.lines 2, protect, font bold,
186: string Ts, font roman,
187: paragraph,
188: clear string Rs,
189: |ifvalue sectioning bysection [
190: contents section 1 Rs Ts,
191: ]
192: |ifvalue sectioning bychapter [
193: contents section 2 Rs Ts,
194: ]
195: |ifvalue sectioning byappendix [
196: contents section 2 Rs Ts,
197: ]
198: set string OH "\(ts\s9\f2",
199: add string.from.string OH Ts,
200: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
201: |environment(unnumbered_appendix;
202: clear string EH OH PH,
203: divert.string Ts;
204: new.page odd, spacing on, blank.lines 2i,
205: sectioning byappendix,
206: inline off, size +4, font.family helvetica, blank.lines .25i,
207: tab.stops \nWuR,
208: font bold, tab, string Ts, new.line,
209: font roman, font.family times, size -4, inline on,
210: minimum.lines 1.25i, paragraph,
211: clear string Rs,
212: contents section 1 Rs Ts,
213: set string EH "\(ts\s9\\nP\(ts\(ts\f2",
214: add string.from.string EH Ts,
215: add string EH "\fP\s0\(ts",
216: set string OH "\(ts\s9\f2",
217: add string.from.string OH Ts,
218: add string OH "\fP\(ts\(ts\\nP\s0\(ts")
219: |environment(:document;
220: line.length 5i,
221: page.length 9.5i,
222: clear string EH OH PH, reference.option rp;)
223: |environment(:document_save;
224: ;)
225: |environment(:document_restore;
226: ;)
227: |macro(top.of.page;
228: [
229: .deTP
230: 'sp
231: .af;P \\gP
232: .afP 1
233: .nr;P \\nP
234: .afP \\g(;P
235: .af;P 1
236: 'sp2
237: .if\\n(;P-1 .tl \\*(PH
238: .if!\\n(;P%2 .tl \\*(EH
239: .if\\n(;P%2 .tl \\*(OH
240: 'sp.75i
241: .rr;P
242: ..
243: ])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.