![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to macro 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 macro CVS log | Up to [Research Unix] / researchv10no / cmd / monk / db |
1.1 root 1: |macro(.top.of.page;
2: [
3: .de)h
4: .ev2
5: .ll\\nWu
6: .lt\\nWu
7: .ie"\*(.T"aps" \{\
8: .nr;o \\n(.o
9: .po0
10: .lt7.5i
11: .ps10
12: .vs12p
13: .ft1
14: .tl'--''--'
15: .ft
16: .vs
17: .ps
18: .lt
19: .po\\n(;ou \}
20: .el\{\
21: .ps10
22: .vs12p
23: .ft1
24: .tl''''
25: .ft
26: .vs
27: .ps\}
28: .nrP +1
29: .if\\n(:C \{\
30: .ll\\n(W0u
31: .lt\\n(W0u \}
32: .TP
33: .if\\n(:C \{\
34: .ll\\nWu
35: .lt\\nWu \}
36: .br
37: .ev
38: .ch)n -\\n(:mu
39: .ch)f -\\n(:ou
40: .if!\\n(:q .nr :v 0
41: .nr:V \\n(.v
42: .mk:r
43: .mkU0
44: .rrU1 U2 U3 U4 U5 U6 U7 U8 U9
45: .if\\n(:d=0&((\\n(:z-\\n(:w):(\\n(:w-\\n(:z)) \{\
46: .nr;t \\n(:w%26+1
47: .af;w a
48: .nr;w \\n(;t
49: .ie\\n(!\\n(;w \{\
50: .)z
51: .)s
52: .mkU0
53: .rrU1 U2 U3 U4 U5 U6 U7 U8 U9 \}
54: .el\{\
55: .)z
56: .)s \}
57: .rr;t ;w \}
58: .nr:T 0
59: .if\\n(:A>0 \{\
60: .nr;i \\n(.i
61: .in0
62: .:2
63: .nr:T 1
64: .in\\n(;iu \}
65: .mk#T
66: .rr;i ;o ;t ;w
67: .ns
68: ..
69: ])
70: |macro(top.of.page;
71: [
72: .deTP
73: 'sp
74: .af;P \\gP
75: .afP 1
76: .nr;P \\nP
77: .afP \\g(;P
78: .af;P 1
79: 'sp2
80: .if\\n(;P-1 .tl \\*(PH
81: .if!\\n(;P%2 .tl \\*(EH
82: .if\\n(;P%2 .tl \\*(OH
83: 'sp2
84: .if\\n(;P=4 .if "\\*(f0"model" \
85: .pl13.25i
86: .rr;P
87: ..
88: ])
89: |macro(.bottom.of.page;
90: [
91: .de)f
92: .if\\n(:A \{\
93: .rn)f ;u
94: .nrT. 1
95: .if\\n(:f=0 .T# 1
96: 'br
97: .nr:f 1
98: .rn;u )f \}
99: .nr;y \\n(.pu-\\n(nlu-\\n(:mu
100: .if\\n(:qu>1v .nr ;y -1v
101: .ie\\n(:q&\\n(;y&((\\n(:C<2):(\\n(:v=0)) .)o
102: .el\{\
103: .nr:o \\n(:m+\\n(:q
104: .if\\n(:q \
105: .nr:o +\\n(:Vu-1u
106: .ch)n 15i
107: .ch)f 15i \}
108: .ie\\n(:C=0 'bp
109: .el.ie \\n(:C=\\n(:c \{\
110: .nr;d \\n(.lu-\\n(W\\n(:Cu
111: .nr:C 1
112: .nrO \\n(O1u
113: .po\\nOu
114: .nrW \\n(W1u+\\n(;du
115: .ll\\nWu
116: .lt\\nWu
117: .nr:m \\n(:M
118: 'bp
119: .rr;d \}
120: .el\{\
121: .if\\n(:C=1 .if "\\*(f0"acm" \
122: .pl10.875i
123: .if\\n(nl>\\n(U\\n(:C \
124: .mkU\\n(:C
125: .nr;d \\n(.lu-\\n(W\\n(:Cu
126: .nr:C +1
127: .ie\\n(U\\n(:Cu \
128: 'sp|\\n(U\\n(:Cu
129: .el'sp |\\n(U0u
130: .ch)n -\\n(:mu
131: .ch)f -\\n(:ou
132: .if!\\n(:q .nr :v 0
133: .nrO \\n(O\\n(:Cu
134: .po\\nOu
135: .nrW \\n(W\\n(:Cu+\\n(;du
136: .ll\\nWu
137: .lt\\nWu
138: .if\\n(:d=0&((\\n(:z-\\n(:w):(\\n(:w-\\n(:z)) \{\
139: .nr;t \\n(:w%26+1
140: .af;w a
141: .nr;w \\n(;t
142: .if!\\n(!\\n(;w \{\
143: .)z
144: .)s \}
145: .rr;t ;w \}
146: .nr:T 0
147: .if\\n(:A>0 \{\
148: .nr;i \\n(.i
149: .in0
150: .:2
151: .nr:T 1
152: .in\\n(;iu \}
153: .mk#T
154: .rr;d ;i ;t ;w
155: .ns\}
156: .if\\n(:A \{\
157: .nr:K \\n(:ou+2v
158: .ch>f -(\\n(:Ku+1v)
159: 'br\}
160: .rr;y
161: ..
162: ])
163: |macro(bottom.of.page;
164: [
165: .deBP
166: .ev2
167: .if\\n(:C \{\
168: .ll\\n(W0u
169: .lt\\n(W0u \}
170: 'sp
171: .af;P \\gP
172: .afP 1
173: .nr;P \\nP
174: .afP \\g(;P
175: .af;P 1
176: .if!\\n(;P%2 .tl \\*(EF
177: .if\\n(;P%2 .tl \\*(OF
178: .tl\\*(PF
179: .if\\n(:C \{\
180: .ll\\nWu
181: .lt\\nWu \}
182: .ev
183: .rr;P
184: ..
185: ])
186: |macro(.float.output;
187: [
188: .de)z
189: .if\\n(:z=\\n(:w .tm no floats to output
190: .nr:w \\n(:w%26+1
191: .af;w a
192: .nr;w \\n(:w
193: .nr;q \\n(.u
194: .nr;L \\n(.L
195: .nr;i \\n(.i
196: .ev1
197: .nf
198: .ls1
199: .in0
200: .nr:d 1
201: .rs
202: .br
203: .?\\n(;w
204: .if\\n(;q .fi
205: .ls\\n(;L
206: .in\\n(;iu
207: .nr:d 0
208: .ev
209: .ne2
210: .rm?\\n(;w
211: .rr|\\n(;w !\\n(;w
212: .rr;L ;i ;q ;w
213: ..
214: ])
215: |macro(.multiple.float.output;
216: [
217: .de)s
218: .if!(\\n(:z=\\n(:w) \{\
219: .nr;t \\n(:w%26+1
220: .af;w a
221: .nr;w \\n(;t
222: .nr;h \\n(|\\n(;w
223: .if(((\\n(!\\n(;w=1)&(\\n(:C<2))&\
224: ((\\n(;h<\\n(.t):((\\n(;h>(\\n(.p-\\n(:r-\\n(:m))&\
225: (\\n(nl<=(\\n(.p-\\n(:r-\\n(:o/2u+\\n(:r))))) \{\
226: .)z
227: .)s \}
228: .rr;h ;t ;w \}
229: ..
230: ])
231: |macro(.flush.float.output;
232: [
233: .de)w
234: .if!(\\n(:z=\\n(:w) \{\
235: .nr;o \\n(:w
236: .)s
237: .if\\n(:w=\\n(;o \{\
238: .nr:d 1
239: .rs
240: .bp
241: .nr:d 0 \}
242: .)w \}
243: .rr;o
244: ..
245: ])
246: |macro(.footnote.output;
247: [
248: .de)o
249: .if\\n(:v&\\n(:C=1 .nr :m \\n(:o
250: .ev1
251: .nf
252: .ls1
253: .in0
254: .:F
255: .ie"\\n(.z":3" \{\
256: .br
257: .di
258: .ie\\n(dnu<=\\n(:Hu \{\
259: .nr:q 0
260: .nr:o \\n(:mu
261: .rm:3 :F \}
262: .el\{\
263: .nrdn +\\n(:V-\\n(.v
264: .nr:q \\n(dnu
265: .nr:o \\n(:mu+\\n(:qu
266: .nr:o +\\n(:Vu-1u
267: .rn:3 :F \} \}
268: .el\{\
269: .nr:q 0
270: .rm:F
271: .nr:o \\n(:mu
272: .ch)n 15i \}
273: .ev
274: ..
275: ])
276: |macro(.footnote.diverter;
277: [
278: .de)n
279: .di:3
280: .nr;o \\n(.o
281: .po\\nOu
282: .ps10
283: .vs12p
284: .ft1
285: .ie\n(.A=0 \l@\\n(.lu@
286: .el_____________________________
287: .nr:H \\n(.v
288: .ft
289: .vs
290: .ps
291: .po\\n(;ou
292: ..
293: ])
294: |macro(.catch.diverter;
295: [
296: .deC0
297: .diCO
298: ..
299: ])
300: |macro(.end.of.file;
301: [
302: .de)q
303: ..
304: ])
305: |macro(.pop.counter;
306: [
307: .de)C
308: .nr\\$1 \\$3
309: .ds\\$2 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
310: ..
311: ])
312: |macro(.initalize;
313: [
314: .nr:A 0
315: .nr:B 0
316: .nr:C 0
317: .nr:K 0
318: .nr:M .8i
319: .nr:N 0
320: .nr:T 0
321: .nr:V \n(.v
322: .nr:c 0
323: .nr:d 0
324: .nr:f 0
325: .nr:m .8i
326: .nr:o \n(:mu
327: .nr:q 0
328: .nr:r .6i
329: .nr:v 0
330: .nr:w 0
331: .nr:x 0
332: .nr:y 0
333: .nr:z 0
334: .dsAT \f(HBA\h'-.2m'T\h'-.15m'\s0\s13&\s0\s16\h'-.15m'T\fP
335: .if\n(mo-0 .ds DT January
336: .if\n(mo-1 .ds DT February
337: .if\n(mo-2 .ds DT March
338: .if\n(mo-3 .ds DT April
339: .if\n(mo-4 .ds DT May
340: .if\n(mo-5 .ds DT June
341: .if\n(mo-6 .ds DT July
342: .if\n(mo-7 .ds DT August
343: .if\n(mo-8 .ds DT September
344: .if\n(mo-9 .ds DT October
345: .if\n(mo-10 .ds DT November
346: .if\n(mo-11 .ds DT December
347: .asDT " \n(dy, 19\n(yr
348: .ie"\*(.T"aps" .ds LO \s36\(Lb\s0
349: .el.ie "\*(.T"eps" .ds LO \s36\(Lb\s0
350: .el.ie "\*(.T"i300" .ds LO \s36\(Lb\s0
351: .el.ie "\*(.T"im300" .ds LO \s36\(Lb\s0
352: .el.ie "\*(.T"post" .ds LO \s36\(LH\s0
353: .el.ds LO \s36\(L1\s0\s16\v'-.4'\*(AT\v'.4'\h'-\w'\*(AT'u'\s0
354: .if\nP .nr P -1
355: .nrP \nP 1
356: .nrU0 .6i
357: .rrU1 U2 U3 U4 U5 U6 U7 U8 U9
358: .dsPH ''- \\nP -''
359: .wh0 )h
360: .wh-\n(:mu )f
361: .ch)f 15i
362: .wh-\n(:mu )n
363: .ch)f -\n(:mu
364: .wh-\n(:ru BP
365: .em)q
366: .ds` \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m@\(ga\h@|\\n:u@
367: .ds' \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m+.07m@\(aa\h@|\\n:u@
368: .ds+ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m+.07m@\[email protected]@\(aa\[email protected]@\h@|\\n:u@
369: .ds^ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.15m-.07m@\
370: \h@\\n(.fu-1u/2u*.02m@^\h@|\\n:u@
371: .ds~ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m-.07m@\
372: \h@\\n(.fu-1u/2u*.05m@~\h@|\\n:u@
373: .ds, \\k:\h@-\\n(.wu*85u/100u@\[email protected]@,\[email protected]@\h@|\\n:u@
374: .ds: \\k:\h@-\\n(.wu*85u/100u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*3u*.06m@\
375: \h@3u-\\n(.fu/2u*.05m-.1m@\
376: \[email protected]@\z.\h@\\n(.fu-1u/2u*.05m+.2m@.\[email protected]@\h@|\\n:u@
377: .ds; \\k:\h@-\\n(.wu*75u/100u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*3u*.09m@\
378: \h@3u-\\n(.fu/2u*.06m-.15m@\h@\\n(.fu-1u/2u*.04m@\
379: \[email protected]@\z.\[email protected]@.\[email protected]@\h@|\\n:u@
380: .ds- \\k:\h@-\\n(.wu*75u/100u@\[email protected]@`\[email protected]@\h@|\\n:u@
381: .ds/ \\k:\h@-\\n(.wu*85u/100u@\[email protected]@\(aa\[email protected]@\h@|\\n:u@
382: ])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.