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