![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mmn.src CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff / macros.d|
Return to mmn.src CVS log | Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff / macros.d |
1.1 root 1: '''\" PWB Memorandum Macros - 10.125 of 12/3/80
2: '''\" C NROFF Version @(#) mmn.src 10.125@(#)
3: '\" *** COMMENTING CONVENTIONS ***
4: '\" '''\"tab ==> prime comment, used in most terse macro summary
5: '\" ''\"tab ==> additional external comments
6: '\" '\"tab ==> internal comments, not shown to user
7: '\" *** MACRO DOCUMENTATION ***
8: '\" (following for external macros)
9: '\" '''\"tabXX: Description [number of args allowed: n or n:m]
10: '\" ''\"tab .XX arguments (with optional arguments in [] )
11: '\" ''\"tab further description, comments, notes, etc.
12: '\" (internal macros similar, but prefixed only by single ')
13: ''\" *** NAMING CONVENTIONS ***
14: ''\" A = upper-case alphabetic; a = lower-case alphabetic;
15: ''\" n = digit; X = A, a, or n.
16: ''\" EXTERNALLY-KNOWN ITEMS (generally in order of preference)
17: ''\" MACROS: AA, A, nA, An
18: ''\" STRINGS: An, nA, AA, A (like macros, but necessarily disjoint)
19: ''\" REGISTERS: Aa, a, An.
20: ''\" INTERNAL ITEMS
21: ''\" MACROS: )X (orignally defined)
22: ''\" >X (dynamically created via di, da, de, am)
23: ''\" ?a (floating displays)
24: ''\" STRINGS: ]X (dedicated to specific uses)
25: ''\" }X (dynamic; function return; temps (esp }n))
26: ''\" REGISTERS: :X (dedicated)
27: ''\" ?a (sizes of floating displays)
28: ''\" ;X (function return; temporaries (esp. ;n))
29: ''\" !a (width of floating displays)
30: ''\" !A (more dedicated registers)
31: '\" Available Name List
32: '\" macros:
33: '\" )egij03456789
34: '\" (ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789
35: '\" >FGHIJMOPQUVZaefghijklmno
36: '\" strings:
37: '\" ]ABDFGHIJKLMOPQRSTUVWXYijklmopqsu0789
38: '\" }FGIJKMNOPQRTUVWXYZacdghijklmnqrsuwx56789
39: '\" registers:
40: '\" :K
41: '\" ;HLOQVX8
42: '\" !EGHIJMR456789
43: '\" *** INTERNAL STRINGS ***
44: '\" ]a: list stack for counter :a
45: '\" ]b: list stack for text indent :b
46: '\" ]c: list stack for mark indent :c
47: '\" ]d: list stack for pad distance/justification :d
48: '\" ]e: list stack for type :e
49: '\" ]f: list stack for LI-space :f
50: '\" ]g: current list mark
51: '\" ]h: list stack for mark ]g
52: '\" *** INTERNAL NUMBER REGISTERS ***
53: '\" !A set if long footnotes already output on this page
54: '\" !B flag wide display output on this page
55: '\" !F flag narrow/wide footnotes already on this page
56: '\" :A accumulated amount of space before line :N on this page (.SP)
57: '\" :D flag to indicate inside diversion
58: '\" 0 ==> not inside, 1 ==> inside
59: '\" used by .SP to do spacing right
60: '\" :N line number of end of block of blank lines :A long (.SP)
61: '\" :I set to control indenting on paragraphs for Pt 2
62: '\" 0 is no indent; 1 is indent
63: '\" also flag to )y (float displays) that am
64: '\" inside header
65: '\" :a current counter for lists
66: .nr :a 0 1
67: '\" :b current text indent for lists
68: .nr :b 0
69: '\" :c current mark indent for lists
70: .nr :c 0
71: '\" :d current pad distance/justification for lists
72: .nr :d 0
73: '\" :e current type for lists [0:1]
74: '\" 0 ==> simple mark, found in ]g
75: '\" 1 ==> autonumber/letter
76: .nr :e 0
77: '\" :f current LI-space for lists
78: .nr :f 0
79: '\" :g current level for lists = [0:6]
80: .nr :g 0 1
81: '\" :h flag for default adjustment mode
82: '\" 0 ==> .na, 1 ==> .ad (used by .SA and thus .)R )
83: .nr :h 1\" default = adjust???
84: '\" :u flag to controlling page increment & main section increment in )h
85: '\" set by .H 1: = 0 if no section/page increment needed, = 1 if needed
86: .nr :u 0
87: '\" !X register is extra top of page margin
88: .nr !X 0
89: '\" ;p flag controls floating displays cause a break when output on the current
90: '\" page. ;p == 1 means they cause a break; ;p == 0 means no. set by
91: '\" WC macro.
92: .nr ;p 1 \" floating break mode is default
93: '\" !0 flag if there are any figures (Fg may reset to 0 for .H 1)
94: .nr !0 0
95: '\" !1 flag if there are any tables (Tb may reset to 0 for .H 1)
96: .nr !1 0
97: '\" !2 flag if there are any equations (Ec may reset to 0 for .H 1)
98: .nr !2 0
99: '\" !3 flag if there are any exhibits (Ex may reset to 0 for .H 1)
100: .nr !3 0
101: .nr !N 0 \" copy-to flag; no copy-to's encountered yet
102: '\" *** TEMPORARY REGISTERS ***
103: '\" ;0: .H, .HU, .LI, .SK
104: '\" ;1: .LI, .H, .HU, .)F
105: '\" ;2: .MT and .AF normally zero but set to 1 to suppress headings
106: '\" also temp in .H
107: '\" ;3: .)I. .H.
108: '\" ;4: .SP
109: '\" *** TEMPORARY STRINGS ***
110: '\" }0: .H, .)F
111: '\" }1: .H
112: '\" }2: .H, .MT, .AF
113: '\" following allows for override of Bell Laboratories by .AF
114: .ds }2 Bell Laboratories
115: '\" }3: .)I return value; .H
116: '\" *** TEMPORARY MACROS ***
117: '\" >A: .H
118: '''\" *** EXTERNALLY AVAILABLE STRINGS ***
119: '''\" Notation: [n] means n arguments; [n:m] means n to m args
120: '''\" BU: Bullet (for nroff/troff compatibility)
121: .ds BU \(bu
122: '''\" EM: Dash (for nroff/troff compatibility)
123: .ds EM "\ --\ \"
124: '''\" F : footnote numberer
125: .ds F \u\\n+(:p\d\" in the text.\*F
126: '''\" DT: current date (unless overriden by .ND) in Month dy, 19yr
127: '''\" HF: Heading Fonts: gives fonts for levels 1-7 of .H & .HU
128: '''\" default: 3 3 2 2 2 2 2
129: '''\" i.e.: B B I I I I I
130: .ds HF 3 3 2 2 2 2 2
131: '''\" Lf: title for List of Figures
132: .ds Lf LIST OF FIGURES
133: '''\" Lt: title for List of Tables
134: .ds Lt LIST OF TABLES
135: '''\" Lx: title for list of Exhibits
136: .ds Lx LIST OF EXHIBITS
137: '''\" Le: title for List of Equations
138: .ds Le LIST OF EQUATIONS
139: '''\" RE: SCCS Release.Level of memomacs
140: .ds RE 10.125
141: '''\" Rf: reference numberer
142: .ds Rf \u[\\n+(:R]\d\" in the text.\*(Rf
143: '''\" Rp: title for references page
144: .ds Rp References
145: '''\" Tm: Trademark indicator
146: .ds Tm \uTM\d
147: '''\" *** EXTERNALLY-KNOWN NUMBER REGISTERS ***
148: '''\" Notation: [n:m] means x st n <= x <= m
149: '''\" Au: add'l author info after 'from' [0:1] default 1
150: .nr Au 1
151: '''\" C : type of copy [0:3] default 0 (original)
152: ''\" 0 original; 1 Official;2 Date;3 Draft
153: ''\" settable via -rCn
154: '''\" Cp: Separate pages for List of Figs, etc., default 0
155: ''\" = 0 ==> Use separate pages
156: ''\" = 1 ==> Put on T of C page
157: .nr Cp 0
158: '''\" Cl: Contents level [0:3], default = 2
159: ''\" if heading level <= Cl, it is saved for table of contents,
160: ''\" 0 ==> none, 1 ==> .H 1 only, etc.
161: .nr Cl 2
162: '''\" D : debug flag, settable to debug mode via -rD1 [0:1], default = 0
163: ''\" 0 ==> stop on any error, 1 ==> continue, even if garbage output
164: '''\" Ej: page Ejection flag for headings, default = 0
165: ''\" Eject if heading level <= Ej.
166: ''\" 0 ==> no Eject, 1 ==> .bp for level 1 headings, 2 ==> .bp
167: ''\" for levels 1 & 2.
168: '\" nr Ej 0
169: '''\" Ds: display space flag
170: .nr Ds 1v
171: '''\" Ec:equation counter
172: .nr Ec 0 1
173: '''\" Eq: equation label flag, default 0 means labels on right
174: .nr Eq 0
175: '''\" Ex: exhibit counter, initially 0.
176: .nr Ex 0 1
177: '''\" De: Eject after each floating display is output [0:1] default 0
178: ''\" 0 => no eject; <> 0 => eject
179: .nr De 0
180: '''\" Df: Floating Display Format Specifier [0:7] default 5
181: ''\" The following flags may be added together to set a combination of
182: ''\" conditions. The flags are:
183: ''\" 1: put one display on the current page if it fits
184: ''\" 2: put one on the top of each page (only if any are queued)
185: ''\" 4: put as many as will fit at the top of the page (always at least
186: ''\" one, if any are in the queue)
187: ''\" Note: if both 2 and 4 are selected, the result is as if only 4 were
188: ''\" specified. If neither 2 or 4 are set, no floating displays will be
189: ''\" output at the top of the page. Similarly, if 1 is not set, no
190: ''\" floating displays are output on the current page.
191: .nr Df 5
192: '''\" Fg: Figure counter, initially 0.
193: .nr Fg 0 1
194: '''\" Fs: amount of spacing between footnote entries; default 1
195: .nr Fs 1
196: '''\" H1-H7: heading counters: controlled by .H and .HU
197: '''\" H1: 1st level heading counter, initially 0
198: ''\" incremented by .H 1
199: .nr H1 0 1
200: '''\" H2: 2nd level heading counter
201: .nr H2 0 1
202: '''\" H3: 3rd level heading counter
203: .nr H3 0 1
204: '''\" H4: 4th level heading counter
205: .nr H4 0 1
206: '''\" H5: 5th level heading counter
207: .nr H5 0 1
208: '''\" H6: 6th level heading counter
209: .nr H6 0 1
210: '''\" H7: 7th level heading counter
211: .nr H7 0 1
212: '''\" Hb: Break level for headings [0:7], default=2
213: ''\" If heading level <= Hb, break occurs after it, else run-in text.
214: ''\" Break always occurs after .H 1 heading.
215: .nr Hb 2
216: '''\" Hc: heading centering level, [0:7], default = 0
217: ''\" if level <= Hc & (level <= Hs | level <= Hb), center heading
218: '\" nr Hc 0
219: '''\" Hi: heading temporary indent (following .H) [0:2], default = 1
220: ''\" when registers Hb and sl create a break or space after a heading
221: ''\" (.H and .HU), Hi controls the indent of next line.
222: ''\" = 0 ==> 0 indent (left margin)
223: ''\" = 1 ==> indent to right as much as paragraph (like .P 1)
224: ''\" = 2 ==> indent to line up with text part of preceding heading
225: .nr Hi 1
226: '''\" Hs: space level for headings [0:7], default = 2
227: ''\" if head-level <= Hs, a space is output following the heading.
228: ''\" SEE ALSO: register Hb; .H, .HU.
229: .nr Hs 2
230: '''\" Ht: Heading type of numbering (multiple or single)
231: '''\" = 0 ==> multiple (1.1.1 etc), = 1 ==> single (as in outline)
232: '\" nr Ht 0
233: '''\" Hu: level at which HU considered to be [1:7], default = 2
234: ''\" This value is used for Bold, Italic, break, space determination,
235: ''\" and also causes incrementation of counter (H1-H7) as appropriate.
236: ''\" SEE ALSO: registers Bl, Hb, H1-H7, Il, sl; .HU, .H
237: .nr Hu 2
238: '''\" Hy: control hyphenation in body
239: ''\" 0 - no hyphenation (default)
240: ''\" 1 - hyphenate
241: .nr Hy 0
242: '''\" Le: list indicator for equations; default 0
243: ''\" = 0 ==> no list generated after TOC
244: ''\" = 1 ==> list generated
245: .nr Le 0
246: '''\" Lf: list indicator for figures; default 1
247: ''\" = 0 ==> no list generated after TOC
248: ''\" = 1 ==> list generated
249: .nr Lf 1
250: '''\" Li: standard list indent (for .AL), default = 6.
251: .nr Li 6
252: '''\" Ls: list level for no LB/LI/LE space; default 6
253: '\" there is no spacing for either LB, for LI, or for LE even if requested
254: '\" if the list depth is greater than Ls value
255: .nr Ls 6
256: '''\" Lt: list indicator for tables; default 1
257: ''\" = 0 ==> no list generated after TOC
258: ''\" = 1 ==> list generated
259: .nr Lt 1
260: '''\" Lx: list indicator for exhibits; default 1
261: ''\" = 0 ==> no list generated after TOC
262: ''\" = 1 ==> list generated
263: .nr Lx 1
264: '''\" Np: flag for numbered paragraphs, default 0
265: ''\" = 0 ==> unnumbered paragraphs
266: ''\" = 1 ==> paragraphs numbered in first-level headings
267: .nr Np 0
268: '''\" Oc: Arabic TOC page numbering for OSDD, default 0
269: ''\" = 0 ==> Roman numbering for TOC
270: ''\" = 1 ==> Arabic numbering for TOC
271: .nr Oc 0
272: '''\" Of: figure caption punctuation, default 0
273: ''\" = 0 ==> use period
274: ''\" = 1 ==> use dash
275: .nr Of 0
276: '''\" )d: counter for paragraph numbers
277: .nr )d 0 1
278: .af )d 01
279: '''\" Pi: std paragraph indent, default 5
280: .nr Pi 5
281: '''\" Ps: amount of paragraph spacing, default 1
282: .nr Ps 1
283: '''\" Pt: default paragraph type [0:2], initial value = 0
284: ''\" = 0 ==> left-justified is default for .P macro
285: ''\" = 1 ==> indented first line for .P macro
286: ''\" = 2 ==> indent .P except after .H, .DE, .LE
287: .nr Pt 0
288: '''\" Pv: put PRIVATE at top of page [0:2], default 0
289: ''\" = 0 ==> not on any pages
290: ''\" = 1 ==> on first page only
291: ''\" = 2 ==> on every page
292: .nr Pv 0
293: '''\" Rf: reference count for CS
294: .nr Rf 0
295: '''\" Si: standard indent for displays (default 5)
296: .nr Si 5
297: '''\" Tb: Table counter, initially = 0
298: .nr Tb 0 1
299: '''\" *** EXTERNALLY-AVAILABLE MACROS ***
300: '''\" RD: promt and read from standard input.
301: ''\" .RD prompt diversion string
302: ''\" This macro prints the prompt message on the standard error
303: ''\" channel (an ascii bel if prompt is empty), and then reads text from
304: ''\" the terminal, using the rd request. All the input is captured in
305: ''\" the diversion named on the macro line, and the first line (up to the
306: ''\" first newline) is captured in the string named on the macro line.
307: .de RD
308: 'fl \" flush partial line first
309: .di }w \" diversion to capture text
310: .rd \\$1 \" get the input
311: .br
312: .di
313: .ie \w@\\$3@ \{\
314: '\" set string only if asked for
315: . di }x
316: . ds \\$3 "\\*(}w
317: . br
318: . di
319: ' br \}
320: .if \w@\\$2@ .rn }w \\$2 \" set diversion only if asked for
321: .rm }w }x
322: ..
323: '''\" B : Boldface [0:6]
324: '''\" .B ["Bold-arg" [prevailing-arg]] (up to six args)
325: ''\" If bold-arg is present, it is made Boldface,
326: ''\" and then the font reverts to the prevailing font.
327: ''\" If no argument is given, the font is changed to Bold
328: ''\" until explicitly changed again.
329: ''\" If the second argument is given, it is concatenated to the
330: ''\" first one, and return to prevailing font.
331: ''\" Up to six arguments are allowed, they will alternate in font.
332: ''\" SEE ALSO: I, R, .IB, .BI, .RI, .IR, .RB, .BR.
333: .de B
334: .ie \\n(.$ .nr ;G \\n(.f
335: .el .ft 3
336: .if \\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2
337: .if \\n(.$-2 \{.ds }i
338: . if @\\n(.f@2@ .ds }i \^
339: . ds }I \&\f3\\$1\fP\\$2\\*(}i
340: 'br \}
341: .if \\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4
342: .if \\n(.$-4 .if !\\n(.$-6 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6
343: .if \\n(.$ .ft \\n(;G
344: ..
345: '''\" I : Italic font [0:6]
346: '''\" .I [ "italic-arg" [prevailing-arg]] (up to six args)
347: ''\" If italic-arg is given, it is made Italic (TROFF) or underlined
348: ''\" (NROFF), and then font reverts to prevailing.
349: ''\" If the argument is omitted, font is changed to Italic (underlined)
350: ''\" until explicitly changed.
351: ''\" If the second argument is given, it is concatenated to the
352: ''\" first one, with one-half narrow blank, and return to prevailing font.
353: ''\" Up to six arguments are allowed, arguments will alternate in font.
354: ''\" SEE ALSO: .B, .R, .IR, .RI, .IB, .BI, .RB, .BR.
355: .de I
356: .ie \\n(.$ .nr ;G \\n(.f
357: .el .ft 2
358: .if \\n(.$ .if !\\n(.$-1 \&\f2\\$1
359: .if \\n(.$-1 \{.ds }i \^
360: . if @\\n(.f@2@ .ds }i
361: . ds }I \&
362: . if \w@\\$1@ .ds }I \&\f2\\$1\fP\\*(}i
363: 'br \}
364: .if \\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3
365: .if \\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5
366: .if \\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6
367: .if \\n(.$ .ft \\n(;G
368: ..
369: '''\" RI : Alternate Roman and Italic [1:6]
370: .de RI
371: .nr ;G \\n(.f
372: .}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
373: ..
374: '''\" RB : Alternate Roman and Bold [1:6]
375: .de RB
376: .nr ;G \\n(.f
377: .}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
378: ..
379: '''\" IR : Alternate Italic and Roman [1:6]
380: .de IR
381: .nr ;G \\n(.f
382: .}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
383: ..
384: '''\" IB : Alternate Italic and Bold [1:6]
385: .de IB
386: .nr ;G \\n(.f
387: .}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
388: ..
389: '''\" BR : Alternate Bold and Roman [1:6]
390: .de BR
391: .nr ;G \\n(.f
392: .}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
393: ..
394: '''\" BI : Alternate Bold and Italic [1:6]
395: .de BI
396: .nr ;G \\n(.f
397: .}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
398: ..
399: '''\" }S : Common part of double-font macros [4:9]
400: .de }S
401: .ds }i
402: .if @\\$1@2@ .if !@\\$5@@ .ds }i\^
403: .ie !@\\$4@@ .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
404: .el \\$3
405: .ft \\n(;G
406: ..
407: '''\" SM : If 1 or 2 args, reduce arg1's point size by 1; append arg2 [1:3]
408: '''\" If 3 args, reduce arg2's point size by 1; prepend arg1 & append arg3.
409: .de SM
410: .ie \\n(.$-2 \&\\$1\s-1\\$2\s0\\$3
411: .el \&\s-1\\$1\s0\\$2
412: ..
413: '''\" R : Roman font [0]
414: '''\" .R
415: ''\" Make the current font be Roman.
416: ''\" NOTE: this is intended as the closing bracket for I and B, as in:
417: ''\" .I or .B
418: ''\" one or more lines of text
419: ''\" .R
420: .de R
421: .ft 1
422: .ul0
423: ..
424: .de EQ
425: '''\" EQ: begin equation display [0:1]
426: ''\" .EQ [label]
427: .ds ]E \\$1
428: .di >E\"when inside display, begin NESTED DIVERSION
429: ..
430: '''\" EN: end equation display [0]
431: '''\" .EN
432: .de EN
433: \!.br
434: .br
435: .di\"end diversion into >E
436: .rm >E
437: .lt \\n(.lu
438: .pc
439: .if \w@\\*(10\\*(}E@ \{\
440: .ie !\\n(Eq \{\
441: . ie \\n(:Y>0 \{.if \\n(:Y<\w@\\*(10@ .nr :Y \w@\\*(10@\"if centered block
442: \!\\*(10\h'\\\\n(.lu-\w@\\*(10\\*(]E@u-\\\\n(.iu'\\*(]E
443: . br \}
444: . el .ie \\n(:B=2 .tl \(ts\(ts\\*(10\(ts\\*(]E\(ts\"if centered
445: . el .ie \\n(:B=1 .tl \(ts\h'\\n(Sin'\\*(10\(ts\(ts\\*(]E\(ts\"if indented
446: . el .if \\n(:B=0 .tl \(ts\\*(10\(ts\(ts\\*(]E\(ts\"if left-blocked
447: ' br \} \" end block output only if strings 10 or ]E have width
448: .el \{\
449: . ie \\n(:Y>0 \{.if \\n(:Y<\w@\\*(10@ .nr :Y \w@\\*(10@\"if centered block
450: \!\\\\h'-\\\\n(.iu'\\*(]E\\\\h'\\\\n(.iu-\\w@\\*(]E@u'\\*(10
451: . br \}
452: . el .ie \\n(:B=2 .tl \(ts\\*(]E\(ts\\*(10\(ts\(ts\"if centered
453: . el .ie \\n(:B=1 .tl \(ts\h'\\n(Sin'\\*(]E\(ts\(ts\\*(10\(ts\"if indented
454: . el .if \\n(:B=0 .tl \(ts\\*(]E\(ts\(ts\\*(10\(ts\"if left-blocked
455: ' br \} \} \" end block output only if strings 10 or ]E have width
456: .pc %
457: .lt
458: .rm ]E 10
459: .rr :E
460: ..
461: '''\" HC: Set hyphenatication character everywhere [0:1]
462: ''\" .HC [hyphen-character]
463: '\" sets hyphen character in all 3 enivornments
464: .de HC
465: .ev 0
466: .hc \\$1
467: .ev
468: .ev 1
469: .hc \\$1
470: .ev
471: .ev 2
472: .hc \\$1
473: .ev
474: ..
475: '''\" H : Heading, numbered [1:3]
476: '''\" .H level ["heading"] [\*F]
477: ''\" level = subordination value [1:7], 1 = most major, 7 = most minor
478: ''\" 1 space is output before heading (level = [2:7])
479: ''\" 1 more space is added for level=1, unless register Ej=1,
480: ''\" a .bp occurs to get to next page
481: ''\" a .bp occurs in any case if level <= Ej
482: ''\" heading is Bold, Italic, or Roman depending on value of level-th
483: ''\" item in string HF. null is considered 1 (Roman).
484: ''\" if level <= Hc & (level <= Hb | level <= Hs), heading is centered
485: ''\" if level <= Hb, a break occurs after the heading
486: ''\" if level <= Hs, a space occurs after it.
487: ''\" if there is break or space, temporary indent is done according to Hi
488: ''\" a .ne is done before the heading to keep it together. its value is:
489: ''\" (size of heading)+1 if run-in text used
490: ''\" (size of heading)+2 if break, but no space
491: ''\" (size of heading)+3 if space after heading
492: ''\" SEE ALSO: Hb, Ej, H1-H7, Hi, Hu, Hs; HF; .HU.
493: '\" NOTE: a (secret) entry of .H 0 "heading" is used to implement .HU.
494: '\" ;0 used as temp
495: '\" ;1 is level, either from arg1, or from Hu.
496: '\" ;2 is temp (width of numbering + blanks)
497: '\" ;3 is temp (from .)I)
498: '\" }0, }1, }2, }3 used as local temp strings
499: '\" >A is created and removed
500: '\" :S is flag for sect-page numbering
501: .de H
502: '\" error checks
503: .if \\n(:F .)D "H:missing FE"
504: .if \\n(:y .)D "H:missing DE"
505: .if !\\n(.$ .)D "H:missing arg"
506: '\" ;0 set to 1 on any error
507: .nr ;0 0
508: .if \\$1-7 .nr ;0 1
509: .if \w@\\$1@-\w'0'u .nr ;0 1
510: .if \\n(;0 .)D "H:bad arg:\\$1"
511: '\" make sure all List Control items cleared
512: '\" Also, reset the world
513: .LC 0
514: .br
515: .)R
516: '\" derive level in ;1, to control most decisions on format
517: .nr ;1 0\\$1
518: .if !0\\$1 .nr ;1 \\n(Hu \" for unnumbered heading
519: .if !\\n(;1 .)D "H:bad arg:\\$1"\" .H a title
520: '\" clear lower-level counters
521: .if 2-\\n(;1 .nr H2 0 1
522: .if 3-\\n(;1 .nr H3 0 1
523: .if 4-\\n(;1 .nr H4 0 1
524: .if 5-\\n(;1 .nr H5 0 1
525: .if 6-\\n(;1 .nr H6 0 1
526: .if 7-\\n(;1 .nr H7 0 1
527: .if 2-\\n(;1 \{.if \\n(:S .)w\"flush floating keeps if .H 1 & sec-page
528: .if \\n(:C .nr :p 0 1 \}\" reset fn ctr if .H 1 and :C set
529: '\" do pre-spacing & fix increment of current-level counter
530: .SP
531: .nr :u 0
532: .if \\n(;1-1 .nr H\\n(;1 +1 \"all but 1st-level
533: .if !\\n(;1-1 \{.nr :u 1 \"in case we cross page
534: .SP 2 \}\"total of 2 space, at least, if 1st level
535: .if \\n(;1-1 .if (\\n(Ej+1-\\n(;1)&(\\n(nl-\\n(:J) \{ .if \\n(;C .nr ;C 2 \" force back to 1st column
536: . bp \}
537: .if !\\n(;1-1 \{.if (\\n(Ej+\\n(:S)&(\\n(nl-\\n(:J) \{ .if \\n(;C .nr ;C 2 \" force back to 1st col
538: . bp \} \" :S ==> Ej
539: .if !\\n(:u-1 .nr H1 +1 \"bump if not done by )h
540: .if (\\n(:u=1)&(\\n(:S=1) .nr P 1 \}\" and for sec-page, restart to 1
541: .nr :u 0
542: '\" ' additional pre-space if space or break
543: '\" .if !\\n(;1-\\n(Hs .SP 1\"if level <=Hs
544: '\" .if !\\n(;1-\\n(Hb .SP 1\"if level <=Hb
545: '\" all constant pre-space done. now accumulate number, if any
546: .ds }0 \\n(H1.
547: .if 0\\$1-1 .as }0 \\n(H2
548: .if 0\\$1-2 .as }0 .\\n(H3
549: .if 0\\$1-3 .as }0 .\\n(H4
550: .if 0\\$1-4 .as }0 .\\n(H5
551: .if 0\\$1-5 .as }0 .\\n(H6
552: .if 0\\$1-6 .as }0 .\\n(H7
553: .if \\n(Ht \{ .)I \\n(;1 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
554: . ds }0 \\*(}3.
555: ' br \}
556: .as }0 \ \ \"spaces between number and heading
557: .if !0\\$1 .ds }0 \"clear if unnumbered heading
558: '\" at this pt, }0 is number blank blank, and $2 (if any) is heading
559: '\" now set ;0 = 0 (run-in), = 1 (break only), = 2 (space)
560: .nr ;0 0
561: .if !\\n(;1-\\n(Hb .nr ;0 1
562: .if !\\n(;1-\\n(Hs .nr ;0 2
563: '\" following defines for non-run-in and run-in text
564: .ds }2
565: .if !\\n(;0 .if \w@\\$2@ .ds }2 " \" 2 adjustable blanks
566: '\" set up ;3 to be increment for later .ne, so that HX can change
567: .nr ;3 2v
568: '\" call user exit macro (if any exists) to override numbering
569: .HX \\n(;1 0\\$1 "\\$2\\$3"
570: '\" for double line indent reset counter if first or second level
571: .if \\$1<3 .nr )a 0 1
572: .af )a 01
573: '\" for numbered paragraphs reset counter if first level heading
574: .if (\\$1=1)&(\\n(Np=1) .nr )d 0
575: '\" figure out number of lines for .ne
576: .di >A
577: \&\\*(}0\\$2\\$3\\*(}2
578: .br
579: .di
580: .rm >A
581: .if \\n(;0-1 .nr ;3 +1v\"add some for post-space
582: .ne \\n(;3u+\\n(dnu+\\n(;0v
583: '\" call user exit macro (if any exists) to reset indents
584: .HY \\n(;1 0\\$1 "\\$2\\$3"
585: '\" finally put out the heading
586: .if \\n(;0 .na \" don't change adjust if run-in heading
587: .)I \\n(;1 \\*(HF\" get font, }3 = 1/null (R), 2 (I), 3 (B)
588: .nr ;3 1
589: .nr ;3 \\*(}3-1 \"Roman now = 0; Bold/Italic >0
590: '\" number (if any) appears in Roman (not underlined)
591: .nr ;2 \w@\\*(}0@
592: .if \\n(;0 \{.in+\\n(;2u
593: .ti-\\n(;2u \}
594: .nr ;2 \\n(.i\"save current indent for use with Hi = 2
595: .if !\\n(;1-\\n(Hc .if \\n(;0 .ce
596: \\*(}0\&\c
597: '\" figure out whether cu, ul or none.
598: .ds }1 cu
599: .if \nU .ds }1 ul
600: .if \w@\\*(}0\\$2@-\\n(.l .ds }1 ul
601: '\" even though only $2 is to be underlined,
602: '\" }0 is already in the word buffer
603: .if \w@\\*(}0\\$2@u>166m .ds }1 ul\" word buffer size limitation
604: .if !\\n(;3 .ds }1
605: '\" cu only if: 1. heading fits on 1 line and
606: '\" 2. U == 0 and 3. level asks for Italic.
607: '\" ul if 4. is true, but any of others false.
608: .nr ;s \\n(.f \" save current font
609: .if \\n(;3=2 .ds }1 "ft 3 \" use bold overstrike
610: '\\*(}1
611: .ie \\n(;0 \{\
612: \&\\$2\\$3
613: ' in
614: ' br \}
615: .el \{\&\\$2\&\c
616: \&\\$3\\*(}2\&\c
617: ' br \}
618: .if \\n(;3=2 .ft \\n(;s \" restore font
619: .if (\\n(;1<=\\n(Cl)&(\w@\\$2@>0) .)E \\$1 "\\$2"\"save entry for TOC
620: 'na
621: .if \\n(:h 'ad
622: .if \\n(;0 .br
623: .if \\n(;0-1 .SP
624: '\" do .ti only if Hi and Pt are both 1
625: .if \\n(;0*\\n(Hi*\\n(Pt .if !\\n(Hi-1+\\n(Pt-1 .ti+\\n(Pin
626: .if 0\\$1*\\n(;0 .if \\n(Hi-1 .ti\\n(;2u
627: .nr :I 1\"force indent on following .P
628: .nr !D \\n(nl \" mark current position for .P
629: .nr !Z \\n()O \" mark on-line position for .P
630: .if (0\\$1=1)&(\\nN=5) \{\
631: . nr Fg 0
632: . nr Tb 0
633: . nr Ec 0
634: . nr Ex 0 \}
635: .HZ \\n(;1 0\\$1 "\\$2\\$3"
636: .ft 1
637: ..
638: '''\" HM: Heading Marker styles [0:7]
639: '''\" .HM [arg1 ... arg7]
640: ''\" args are as .af args: 1,a,A,i,I
641: ''\" provide default in case of omitted args
642: .de HM
643: .af H1 \\$1 1
644: .af H2 \\$2 1
645: .af H3 \\$3 1
646: .af H4 \\$4 1
647: .af H5 \\$5 1
648: .af H6 \\$6 1
649: .af H7 \\$7 1
650: ..
651: '''\" HU: Heading, unnumbered [1:2]
652: '''\" .HU "heading" [\*F]
653: ''\" SEE ALSO: register Hu, bl, br, Il, sl, H1-H7; .H
654: .de HU
655: .if !\\n(.$ .)D "HU:missing arg"
656: .H 0 "\\$1" "\\$2"
657: ..
658: '''\" HX: Heading user exit X [3]
659: '''\" .HX level-1 level-2 "heading"
660: ''\" called by .H after number string built, just before heading
661: ''\" size computed and put out.
662: ''\" level-1 [1:7] heading level, given in .H, or by Hu
663: ''\" level-2 [0:7] same as level-1 for .H, = 0 for .HU
664: ''\" "heading" heading given to .H or .HU, may be null
665: ''\" useful items (changeable by user):
666: ''\" }0 has string of accumulated numbers, followed by 2 blanks
667: ''\" }2 string to separate number and heading, normally 2 blanks
668: ''\" also: may want to do .ne dependent on level, add extra pre-space,
669: ''\" change indent (maybe?)
670: '\" .de HX
671: '\" ..
672: '''\" HY: Heading user exit Y [3]
673: '''\" .HY level-1 level-2 "heading"
674: ''\" arguments same as .HX but called after heading
675: ''\" size computed, could be used to reset indents
676: '\" .de HY
677: '\" ..
678: '''\" HZ: Heading user exit Z [3]
679: '''\" .HZ level-1 level-2 "heading"
680: '''\" arguments same as .HX, but called at very end of .H
681: ''\" could be used to reset counters (figures, tables, footnotes, etc)
682: '\" .de HZ
683: '\" ..
684: '''\" LOWEST LEVEL LISTING MACROS - LB,LC,LE,LI.
685: '''\" LB: List Begin (and define parameters) [4:7]
686: '''\" .LB text-indent mark-indent pad type [mark [LI-space [LB-space]]]
687: ''\" text-indent = [0:?] = relative indent of text from current indent
688: ''\" normal = [1:2] (simple mark) or [4:5] (a.\ \ text, 10.\ \ text)
689: ''\" mark-indent = [0:?] = relative indent of beginning of
690: ''\" mark from current indent. only used when left-justifying (pad = 0).
691: ''\" pad = [1:?] = position difference between right character of
692: ''\" right-justified mark and left character of text. normal = [1:3]
693: ''\" = 0 ==> left justify mark
694: ''\" type = [0:6] notes type of marking desired
695: ''\" = 0 ==> simple mark character(s)
696: ''\" = 1 ==> auto number/letter, form x.
697: ''\" = 2 ==> auto number/letter, form x)
698: ''\" = 3 ==> auto number/letter, form (x)
699: ''\" = 4 ==> auto number/letter, form [x]
700: ''\" = 5 ==> auto number/letter, form <x>
701: ''\" = 6 ==> auto number/letter, form {x}
702: ''\" mark = actual mark character (if type = 0)
703: ''\" = beginning value for auto-marking (if type = 1) = 1,a,A,i,I
704: ''\" Defaults to null (type = 0) or 1 (type > 0)
705: ''\" LI-space = [0:1] = number of blank lines to precede .LI
706: ''\" If = 1, LB-space would normally be 0.
707: ''\" defaults to 1 if omitted.
708: ''\" LB-space = [0:1] = number of blank lines to preced .LB
709: ''\" if omitted, 0 assumed
710: .de LB
711: .if 4-\\n(.$ .)D "LB:missing arg(s)"
712: '\" .)L \\$1u*1.5n \\$2u*1.5n \\$3n "\\$4" "\\$5" "\\$6" "\\$7"
713: .)L 0\\$1n 0\\$2n 0\\$3n "\\$4" "\\$5" "\\$6" "\\$7"
714: ..
715: '\" )L: actual LB as in nroff version
716: '\" args already have proper dimension
717: .de )L
718: .if \\n(:g>5 .)D "LB:too many nested lists"\"if :g now 6
719: .if \\n(:g .)A \"push status
720: .if !\\n+(:g-1 .ds ]b \\n(.i\"save current indent at outer level
721: .nr :b \\n(.iu+0\\$1u \"text indent
722: .nr :c \\n(.iu+0\\$2u \"mark indent
723: .nr :d 0\\$3 \"pad
724: .nr :e 0\\$4 \"type
725: .nr :f 0\\$6 \"LI-space
726: .if !\w@\\$6@ .nr :f 1
727: .ds ]g \\$5
728: '\" take care of omitted case
729: .if !\w@\\$5@ \{.ds ]g \&
730: . if \\n(:e .ds ]g 1
731: ' br \}
732: .nr :a 0 1
733: .if 0\\$4 .af :a \\$5 1\"in case $5 is null
734: .if (\\n(:g<=\\n(Ls)&(0\\$7) .SP
735: .fi
736: .in\\n(:bu
737: .ti\\n(:bu\"preserve against .ti of .H
738: ..
739: '''\" LC: List Status Clear (to specified level) [1]
740: '''\" .LC nmbr
741: ''\" nmbr = [0:?]
742: ''\" List status information is popped, and the list level decremented
743: ''\" until = nmbr. Thus, .LC 0 makes sure list information cleared.
744: .de LC
745: .if \\n(:g-0\\$1 .)B\"which decrements :g
746: .if \\n(:g-0\\$1 .LC 0\\$1\"only if more levels to pop
747: ..
748: '''\" LE: List End (at current level) [0:1]
749: '''\" .LE [1]
750: ''\" Terminates list at current level (i.e., pops 1 level)
751: ''\" If the optional argument 1 given, a blank line is output.
752: .de LE
753: .if (\\n(:I>1)&(\\n(nl-\\n(:J) .nr :I 0\" no indent on following .P unless just past )h
754: .if \\n(:I<2 .nr :I 0
755: .ie \\n(:g<1 .)D "LE:mismatched"
756: .el .)B
757: .if (\\n(:g<=\\n(Ls)&(\\n(.$>0) .SP
758: .nr :J \\n(nl
759: ..
760: '''\" LI: List Item [0:2]
761: '''\" .LI ["mark" [1]]
762: ''\" The list item is output according to parameters set by the last
763: ''\" previous .LB at same level.
764: ''\" If no arguments given, the mark used is that established by the .LB.
765: ''\" If "mark" is given alone, it is used in place of the default.
766: ''\" If the "1" option used, the "mark" is used as a prefix to the default.
767: .de LI
768: .if !\\n(:g .)D "LI:no lists active"
769: .if (\\n(:g<=\\n(Ls)&(\\n(:f>0) .SP
770: .in\\n(:bu
771: '\" if doing space and not inside diversion, then use need
772: .if (\\n(:f>0)&(\\n(:D<1) .ne2v
773: .ds }0 \\*(]g
774: .if \\n(:e .ds }0 \\n+(:a.
775: .if \\n(:e-1 .ds }0 \\n(:a)
776: .if \\n(:e-2 .ds }0 (\\n(:a)
777: .if \\n(:e-3 .ds }0 [\\n(:a]
778: .if \\n(:e-4 .ds }0 <\\n(:a>
779: .if \\n(:e-5 .ds }0 {\\n(:a}
780: .if \\n(.$-1 .ds }0 \\$1\ \\*(}0
781: .if \\n(.$=1 .ds }0 \\$1
782: .nr ;0 \w@\\*(}0@
783: .nr ;1 \\n(:c
784: .if \\n(:d .nr ;1 \\n(:bu-\\n(:du-\\n(;0u
785: .if !\\n(;1 .nr ;1 0
786: .nr ;0 \\n(:bu-\\n(;1u-\\n(;0u
787: .ti\\n(;1u
788: .if !\\n(;0 .nr ;0 \w@ @u\"want at least one blank
789: '\" if zero-width mark, do hanging indent instead
790: .if \w@\\*(}0@ \&\\*(}0\h@\\n(;0u@\&\c
791: ..
792: '''\" INTERMEDIATE LIST START MACROS: AL, BL, DL, ML, VL.
793: '''\" AL: Begin Auto-Incremented List [0:2]
794: '''\" .AL [type [text-indent]]
795: ''\" type (if present) is: 1, a, A, i, or I indicating how list is to
796: ''\" be lettered/numbered.
797: ''\" text-indent gives indentation from current margin to text: 4 is
798: ''\" appropriate for lettered lists (or numbered lists going only to 9),
799: ''\" while 5 is better for numbered lists going higher than 9.
800: ''\" if text-indent only is omitted, it is assumed to be Li.
801: ''\" if type if omitted, it is assumed to be 1.
802: .de AL
803: .nr !D 0 \" clear header mark (for .P)
804: .if !@\\$1@@ .if !@\\$1@1@ .if !@\\$1@a@ .if !@\\$1@A@ .if !@\\$1@I@ .if !@\\$1@i@ .)D "AL:bad arg:\\$1"
805: .if \\n(.$<3 \{.ie \w@\\$2@=0 .)L \\n(Lin 0 2n 1 "\\$1"
806: .el .LB 0\\$2 0 2 1 "\\$1" \}
807: .if \\n(.$>2 \{.ie \w@\\$2@=0 .)L \\n(Lin 0 2n 1 "\\$1" 0 1
808: .el .LB 0\\$2 0 2 1 "\\$1" 0 1 \}
809: ..
810: '''\" BL: Begin Bullet List [0:1]
811: '''\" .BL [text-indent]
812: '''\" (followed by 1 or more .LI which generate bullet items)
813: .de BL
814: .nr ;0 \\n(Pi
815: .if (\\n(.$>0)&(\w@\\$1@>0) .nr ;0 0\\$1
816: .ie \\n(.$<2 .LB \\n(;0 0 1 0 \\*(BU
817: .el .LB \\n(;0 0 1 0 \\*(BU 0 1
818: .rr ;0
819: ..
820: '''\" DL: Begin Dashed List [0:1]
821: '''\" .DL [text-indent]
822: '''\" (followed by 1 or more .LI which generate dashed items)
823: .de DL
824: .nr ;0 \\n(Pi
825: .if (\\n(.$>0)&(\w@\\$1@>0) .nr ;0 0\\$1
826: .ie \\n(.$<2 .LB \\n(;0 0 1 0 \(em
827: .el .LB \\n(;0 0 1 0 \(em 0 1
828: .rr ;0
829: ..
830: '''\" ML: Begin Marked List [1:2]
831: '''\" .ML mark [text-indent]
832: ''\" similar to Bullet List or Dashed List, but with arbitrary mark
833: .de ML
834: .if \\n(.$<1 .)D "ML:missing arg"
835: .nr ;0 \w@\\$1@u/3u/\\n(.su+1u\" get size in n's
836: .ie \\n(.$<2 .LB \\n(;0 0 1 0 "\\$1"
837: .el .if \\n(.$=2 .LB 0\\$2 0 1 0 "\\$1"
838: .if \\n(.$>2 \{.if !\w@\\$2@ .LB \\n(;0 0 1 0 "\\$1" 0 1
839: . if \w@\\$2@ .LB 0\\$2 0 1 0 "\\$1" 0 1 \}
840: ..
841: '''\" RL: Begin Reference List [0:1]
842: '''\" .RL [text-indent]
843: ''\" makes auto-numbered list with square brackets.
844: ''\" text-indent defaults to 6 if omitted.
845: .de RL
846: .nr ;0 6
847: .if (\\n(.$>0)&(\w@\\$1@>0).nr ;0 0\\$1
848: .ie \\n(.$<2 .LB \\n(;0 0 2 4
849: .el .LB \\n(;0 0 2 4 1 0 1
850: .rr ;0
851: ..
852: '''\" VL: Begin Variable-item List [1:2]
853: '''\" .VL text-indent [mark-indent]
854: ''\" followed by: .LI item
855: ''\" text-ident gives distance to text
856: ''\" mark-indent gives indent from current margin to mark, default = 0
857: .de VL
858: .if \\n(.$<1 .)D "VL:missing arg"
859: .ie \\n(.$<3 .LB 0\\$1 0\\$2 0 0
860: .el .LB 0\\$1 0\\$2 0 0 \& 0 1
861: ..
862: '''\" P : Paragraph [0:1]
863: '''\" .P [type]
864: ''\" if no argument is present, the default paragraph style is used.
865: ''\" type = 0 ==> use left-justified paragraph
866: ''\" type = 1 ==> use indented paragraph
867: ''\" the default is set by the register Pt (same 0:1 meanings)
868: ''\" the Np register controls numbering of paragraphs
869: '\" if Pt = 2, then indent when :I >= 1 or when
870: '\" :I = 0 and nl != :J (spot marked by things
871: '\" that say "don't indent")
872: .de P
873: .if !((\\n(!D=\\n(nl)&(\\n(!Z=\\n()O)&(\\n(Np=0)) \{\
874: '\" \" a .P after a .H is a no-op unless numbered paragraphs
875: .br
876: .nr ;1 \\n(:J\"save place where "no-indent" last marked
877: .nr ;2 \\n(nl\"save place where now
878: .SP \\n(Psu*1
879: .if !\\n(:D .ne 2
880: .ie !\\n(;1-\\n(:J .nr ;2 \\n(;2-\\n(:J
881: .el .nr ;2 \\n(nl-\\n(:J
882: .nr :J \\n(;2
883: .if \\n(.$>0&(0\\$1) .ti+\\n(Pin
884: .if \\n(.$=0 \{\
885: . if \\n(Pt=1 .ti+\\n(Pin
886: . if \\n(Pt>1&(\\n(:I) .ti+\\n(Pin
887: . if \\n(Pt>1&(\\n(:I=0)&(\\n(:J>0) .ti+\\n(Pin \}
888: .if \\n(Np \{\
889: \\n(H1.\\n+()d\ \ \c
890: 'br \}
891: .nr :I 1 \} \"force indent on following .P (for Pt 2)
892: .nr :u 0
893: ..
894: '''\" nP: double-line indented paragraph (from ASC)
895: '''\" .nP
896: '\" uses )a as paragraph number counter (set in .H)
897: .de nP
898: .P 0
899:
900: .br
901: .sp -\\n()H
902: .de )p
903: 'ti 6n
904: .rm )p
905: .wh \\n(.du+\\n()H
906: \\..
907: .wh \\n(.du+\\n()H )p
908: \\n(H2.\\n+()a\h'|6n'\\c
909: ..
910: '''\" S : set point size and vertical spacing
911: '''\" .S [arg1] [arg2] [0:2]
912: '\" :P and !P current point size and vertical spacing respectively
913: '\" :Q and !Q previous point size and vertical spacing respectively
914: '\" first argument is selectable point size
915: '\" second argument is selectable vertical spacing
916: '\" D=default, P=previous, C=current
917: .de S
918: .if !\\n(:Q .nr :Q \\nS
919: .if !\\n(.$ .nr ;0 \\n(:Q
920: .if \\n(.$ .if !\w@\\$1@ \{\
921: . nr ;J 2
922: . nr ;0 \\n(:P \}
923: .if \w@\\$1@ \{\
924: . ie @\\$1@D@ \{\
925: . nr ;J 1
926: . nr ;0 \\nS \}
927: . el \{\
928: . ie @\\$1@C@ \{\
929: . nr ;J 2
930: . nr ;0 \\n(:P \}
931: . el \{\
932: . ie @\\$1@P@ \{\
933: . nr ;J 3
934: . nr ;0 \\n(:Q \}
935: . el \{.if !\\n(;J \{\
936: . nr ;0 \\n(:P
937: . nr ;0 \\$1 \}\}\}\}\}
938: .if 0\\$1-99 .nr ;0 \\nS
939: .if !\\n(;0 .)D "S:bad arg \\$1"
940: .nr :Q \\n(:P
941: .nr :P \\n(;0
942: .ps \\n(:Pp
943: .nr ;J 0
944: .if !\\n(!Q .nr !Q \\nS+2
945: .if !\\n(.$-1 \{\
946: . ie \\n(.$ \{\
947: . nr ;K 1
948: . nr ;7 \\n(.s+2 \}
949: . el \{\
950: . nr ;K 3
951: . nr ;7 \\n(!Q \}\}
952: .if \\n(.$-1 .if !\w@\\$2@ \{\
953: . nr ;K 2
954: . nr ;7 \\n(!P \}
955: .if \w@\\$2@ \{\
956: . ie @\\$2@D@ \{\
957: . nr ;K 1
958: . nr ;7 \\n(.s+2 \}
959: . el \{\
960: . ie @\\$2@C@ \{\
961: . nr ;K 2
962: . nr ;7 \\n(!P \}
963: . el \{\
964: . ie @\\$2@P@ \{\
965: . nr ;K 3
966: . nr ;7 \\n(!Q \}
967: . el \{.if !\\n(;K \{\
968: . nr ;7 \\n(!P
969: . nr ;7 \\$2 \}\}\}\}\}
970: .if 0\\$2-99 .nr ;7 \\n(.s+2
971: .if !\\n(;7 .)D "S:bad arg \\$2"
972: .nr !Q \\n(!P
973: .nr !P \\n(;7
974: .vs \\n(!Pp
975: .nr ;K 0
976: ..
977: '''\" pn: set page number
978: '''\" REDEFINES pn REQUEST
979: '\" fake out the function of the pn request so that
980: '\" the P register tracks w/ the % register when .pn used
981: .rn pn ]N
982: .de pn
983: .nr :Z 1\"set flag that .pn invoked
984: .]N \\$1\"call real .pn request
985: ..
986: '''\" SA: Set Adjustment default [0:1]
987: '''\" .SA [arg]
988: ''\" .SA 0 sets default & current adjustment to no adjust (.na)
989: ''\" .SA 1 sets default & current adjustment to adjust (.ad)
990: ''\" .SA sets adjustment to current default value
991: '\" SEE ALSO: nr :h, macro )R
992: .de SA
993: .if \\n(.$ \{.if \\$1-1 .)D "SA:bad arg:\\$1"
994: . nr :h 0\\$1 \}
995: 'na
996: .if \\n(:h 'ad
997: ..
998: '''\" SK: skip pages
999: '''\" .SK [arg]
1000: '\" skip arg pages
1001: '\" if arg omitted, to top of a page
1002: .de SK
1003: .br
1004: .bp
1005: .nr ;0 0\\$1-1
1006: .if \\n(;0+1 .rs
1007: .if \\n(;0+1 .SK \\n(;0
1008: ..
1009: '''\" OP: odd page
1010: '''\" .OP
1011: '\" ensure top of odd page
1012: .de OP
1013: .SK
1014: .if !\\nP%2 .SK 1
1015: ..
1016: '''\" SP: SPace 1 or more lines [0:1]
1017: '''\" .SP [lines] defaults to 1 if omitted, must be positive
1018: ''\" multiple .SP calls cooperate in producing only maximum requested
1019: ''\" spacing.
1020: ''\" uses ;4 as temp.
1021: ''\" :A expected to be # of accumulate blank lines
1022: ''\" :N = nl at end of last blank output
1023: '\" when in a diversion, use .d (rather than nl) for position
1024: '\" -mm diversion => :D set
1025: '\" tbl diversion => .z is non-null
1026: '\" careful--SP might occur at the same
1027: '\" position BUT in a different named diversion
1028: '\" (hence, the use of the string }D)
1029: '\" bug: still might be possible, if the same named diversion
1030: '\" is used, that a .SP might occur in the same vertical place.
1031: '\" very unlikely for
1032: '\" a) -mm will zero ;D and ;E whenever :D is cleared
1033: '\" b) tbl generates unique names
1034: .de SP
1035: .br
1036: .ie \\n(:D .)S \\$1\" -mm diversion
1037: .el .ie !'\\n(.z'' .)S \\$1\" tbl T{...}T diversion
1038: .el \{.rr ;D ;E\"no diversion;remove the SP-in-diversion registers
1039: . nr ;4 1v
1040: . if \\n(.$ .nr ;4 \\$1v
1041: . if !(\\n(nl=\\n(:N) .nr :A 0\" different place for sure
1042: . nr ;4 -\\n(:Au\" remove previous accumulation, if any
1043: '\" space and recompute accumulation
1044: . if \\n(;4 \{.sp\\n(;4u
1045: . nr :A +\\n(;4u \}
1046: . nr :N \\n(nl \}
1047: ..
1048: .de )S\"space ala SP but within a diversion
1049: .br
1050: .if !'\\n(.z'\\*(}D' .rr ;D ;E
1051: .nr ;4 1v
1052: .if \\n(.$ .nr ;4 \\$1v
1053: .if !(\\n(.d=\\n(;D) .nr ;E 0\" different place for sure
1054: .nr ;4 -\\n(;Eu\" remove previous accumulation, if any
1055: .if \\n(;4 \{.sp\\n(;4u
1056: . nr ;E +\\n(;4u \}
1057: .nr ;D \\n(.d
1058: .ds }D \\n(.z
1059: ..
1060: .de TS
1061: ''\" Multi-page tables--carry headings over multiple pages
1062: '\" tbl-generated macros/registers that must be utilized:
1063: '\" macros: T#
1064: '\" registers: )P )c
1065: '\" (code gleaned from -ms and from tbl output)
1066: '\" macros used:
1067: '\" .t diversion containing the top-of-table titles
1068: '\" and line drawing info
1069: '\" T# tbl-defined macro that draws the bottom portion
1070: '\" of boxed tables
1071: '\" >u macro into which footer is hidden while T# works
1072: '\" registers used:
1073: '\" ;h flag that header has printed >t
1074: '\" ;f flag that footer has printed T#
1075: '\" ;I temp storage for indent value
1076: '\" ;A flag that .TS H being used
1077: '\" ;B flag that .TH encountered
1078: '''\" TS: begin table display [0:1]
1079: '''\" .TS [H]
1080: .if (\\n(:D=0)&(\\n(Ds>0) .SP\"space according to Ds if NOT being diverted
1081: .if @\\$1@H@ \{.br\"divert tbl-gen'd text up to TH call
1082: . di >t
1083: . nr ;A 1 \}
1084: ..
1085: '''\" TH: end .TS H
1086: ''\" .TH [N]
1087: ''\" the [N] option specifies that the header should be output only
1088: ''\" if it is the first header on the page
1089: .de TH\"close off .TS H diversion
1090: .if \\n(.du>0.5v \{.nr )P 0
1091: . T# 0 \}
1092: .br
1093: .di
1094: .nr ;I \\n(.i
1095: .nr ;B 1
1096: .if \\n(;T .if !@\\$1@N@ .nr ;T 0
1097: .in 0 \" this might trip )h
1098: .mk #a
1099: .mk #b
1100: .mk #c
1101: .mk #d
1102: .mk #e
1103: .mk #f
1104: .if \\n(;T=0 \{\
1105: . >t \" output the header
1106: . nr ;T 1 \} \" mark header output
1107: .in \\n(;Iu
1108: .mk )c
1109: ..
1110: '''\" TE: end table display [0]
1111: '''\" .TE
1112: .de TE
1113: .if (\\n(:D=0)&(\\n(Ds>0) .SP\"space according to Ds if NOT being diverted
1114: .if (\\n(;A>0)&(\\n(;B=0) \{.br
1115: . di
1116: . )D "TE: used TS H but no TH" \}
1117: .rr ;A ;B ;h ;D ;E
1118: '\" remove tbl-generated strings/macros/registers
1119: .rm a+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
1120: .rr 32 33 34 35 36 37 38 40 79 80 81 82
1121: .rr a| b| c| d| e| f| g| h| i| j| k| l| m|
1122: .rr a- b- c- d- e- f- g- h- i- j- k- l- m-
1123: ..
1124: '\" INNER UTILITY MACROS
1125: '\" )A: stack push for list macros; called by .LB
1126: '\" prepends each parameter to front of stack string
1127: .de )A
1128: .af :a 1
1129: .ds ]a \\n(:a \\*(]a
1130: .ds ]b \\n(:b \\*(]b
1131: .ds ]c \\n(:c \\*(]c
1132: .ds ]d \\n(:d \\*(]d
1133: .ds ]e \\n(:e \\*(]e
1134: .ds ]f \\n(:f \\*(]f
1135: .ds ]h \\*(]g \\*(]h
1136: ..
1137: '\" )B: list status stack pop of 1 level: called by .LC
1138: '\" expects :g > 0
1139: .de )B
1140: .br
1141: .nr :g -1
1142: .)C nr :a ]a \\*(]a
1143: .)C nr :b ]b \\*(]b
1144: 'in \\n(:bu
1145: 'ti \\n(:bu
1146: .)C nr :c ]c \\*(]c
1147: .)C nr :d ]d \\*(]d
1148: .)C nr :e ]e \\*(]e
1149: .)C nr :f ]f \\*(]f
1150: .)C ds ]g ]h \\*(]h
1151: .af :a 1
1152: .if \\n(:e .af :a \\*(]g
1153: ..
1154: '\" )C: stack shift operation, called from .)B
1155: '\" .)C command current-name stack-name stack-args...
1156: .de )C
1157: .\\$1 \\$2 \\$4
1158: .ds \\$3 \\$5 \\$6 \\$7 \\$8 \\$9
1159: ..
1160: '\" )D: print error message and possibly terminate
1161: '\" .)D "message"
1162: .de )D
1163: 'di
1164: .nr :D 0
1165: .ie \\n(.P>0 \{\\"if page is being printed
1166: .fl
1167: ********************
1168: .br
1169: ERROR:(\\n(.F)input line \\n(.c:\\$1
1170: .br
1171: ********************
1172: \}
1173: .el \{\
1174: .tm ********************
1175: .tm ERROR:(\\n(.F)input line \\n(.c:\\$1
1176: .tm ********************
1177: \}
1178: .if !\\nD .ab \&
1179: ..
1180: '''\" EC:equation caption lines
1181: '''\" .EC ["title" ["override" [flag]]]
1182: '\" args like FG or TB
1183: '\" uses Ec as counter
1184: .de EC
1185: .nr !2 1
1186: .ie \\nN=5 .)F Equation 2 \\n+(Ec "\\$1" "\\n(H1-" 0
1187: .el .)F Equation 2 \\n+(Ec "\\$1" "\\$2" 0\\$3
1188: ..
1189: '''\" EX: Exhibit Title Line(s)
1190: '''\" .EX ["title" ["override" [flag]]]
1191: ''\" args like FG or TB
1192: ''\" uses Ex as counter
1193: .de EX
1194: .nr !3 1
1195: .ie \\nN=5 .)F Exhibit 3 \\n+(Ex "\\$1" "\\n(H1-" 0
1196: .el .)F Exhibit 3 \\n+(Ex "\\$1" "\\$2" 0\\$3
1197: ..
1198: '''\" FG: Figure Title Line(s)
1199: '''\" .FG ["title" ["override" [flag]]]
1200: ''\" issues figure title and saves for TOC
1201: ''\" normally gives: Figure n - title
1202: ''\" if title omitted, so are preceding - and blanks
1203: ''\" override is string which can modify normal numbering (using Fg)
1204: ''\" and works according to flag:
1205: ''\" flag: omitted or 0 ==> override used as prefix,
1206: ''\" = 1 ==> suffix, = 2 ==> replaces Fg
1207: ''\" !0 flag set for List of Figs, Fg may be reset to 0 by .H 1
1208: ''\" SEE ALSO: .TB, .)F
1209: .de FG
1210: .nr !0 1
1211: .ie \\nN=5 .)F Figure 0 \\n+(Fg "\\$1" "\\n(H1-" 0
1212: .el .)F Figure 0 \\n+(Fg "\\$1" "\\$2" 0\\$3
1213: ..
1214: '''\" TB: Table Title Line(s)
1215: '''\" .TB ["title" ["override" [flag]]]
1216: ''\" issues table title and saves for TOC
1217: ''\" all args same as for .FG
1218: ''\" uses counter Tb.
1219: ''\" SEE ALSO: .FG, .)F.
1220: .de TB
1221: .nr !1 1
1222: .ie \\nN=5 .)F TABLE 1 \\n+(Tb "\\$1" "\\n(H1-" 0
1223: .el .)F TABLE 1 \\n+(Tb "\\$1" "\\$2" 0\\$3
1224: ..
1225: '\" )F: Figure/Table/Equation/Exhibit line inner macro (for .FG, .TB, .EC, EX)
1226: '\" .)F name type counter "title" "override" flag
1227: '\" name = Figure or Table or Equation or Exhibit
1228: '\" type = 0 (Figure) or 1 (Table) or 2 (equation) or 3 (exhibit) for TOC saving
1229: '\" counter = already-incremented value of counter (Fg or Tb or Ec or Ex)
1230: '\" "title", "override", and flag as in FG/TB
1231: '\" flag = 0/null ==> prefix for override, 1 ==> suffix, 2 ==> replacement
1232: '\" uses temps: regs ;0 & ;1, string }0.
1233: '\" NOTE: needs more work (for TOC); also maybe option for spacing &
1234: '\" always indenting rather than current centering/indent choice.
1235: .de )F
1236: .nr ;0 \w@\\$5@
1237: .nr ;1 0
1238: .nr ;1 0\\$6
1239: .ds }0 \\$3
1240: .if \\n(;0 .ds }0 \\$5\\$3
1241: .if \\n(;1*\\n(;0 .ds }0 \\$3\\$5
1242: .if \\n(;1-1*\\n(;0 .ds }0 \\$5
1243: .ds }0 \\$1\ \\*(}0
1244: .ie (\w@\\$4@)&(\\n(Of=0) .as }0 .\ \ \" if actual title, add some space
1245: .el .if \\n(Of .as }0 " -\ \" use dash rather than period for OSDD
1246: '\" }0 is now entire string before title: name number [ - ]
1247: .nr ;0 \w@\\*(}0@
1248: .ll \\nWu
1249: .nr ;1 \\n(.lu-\\n(;0u-\w@\\$4@u+1u
1250: '\" ;1 <= 0 ==> cannot center title, > 0 ==> can do so.
1251: '\" don't mess if display already centered (:B=2)
1252: .if (\\n(:B<2)&(\\n(;1>0) \{\
1253: . in 0 \" center with respect to left margin
1254: . ce \}
1255: .if !\\n(;1 \{\
1256: . if !\\n(.u .nr ;U 1 \" set flag that no-fill was on
1257: . if \\n(:B=2 .ce 0
1258: . fi
1259: . in \\n(;0u
1260: . ti-\\n(;0u \}
1261: \f3\\*(}0\fP\\$4
1262: .ll
1263: .in
1264: .if \\n(:B=2 .ce 9999
1265: .if \\n(;U \{\
1266: . nf
1267: . nr ;U 0 \}
1268: '\" code here to save for TOC, using }0, \\$2, \\$4
1269: .if (\\n(Lf=1&(\\$2=0)):(\\n(Lt=1&(\\$2=1)):\
1270: (\\n(Le=1&(\\$2=2)):(\\n(Lx=1&(\\$2=3)) \{\
1271: . ds }3
1272: . if \\n(:S .ds }3 \\n(H1
1273: .ie \\n(:y=1 \{\
1274: \!.am >L \" if display make page# transparent
1275: \!.if \\$2=\\\\\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\\\nP \\*(}3
1276: \!\\\\..
1277: 'br \}
1278: .el \{\
1279: . am >L
1280: . if \\$2=\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\nP \\*(}3
1281: \\.. \} \}
1282: ..
1283: '\" )I: index into list of items
1284: '\" .)I index item1 ... item8
1285: '\" sets }3 to value of item(index); items cannot contain normal blanks
1286: '\" if less items than index, }3 is set to null
1287: .de )I
1288: .nr ;3 0\\$1+1
1289: .ds }3 \\$\\n(;3
1290: ..
1291: '\" )E: accumulate 1 entry for TOC
1292: '\" .)E rlevel "heading"
1293: '\" expects:
1294: '\" ;1 = dlevel = [1:7], = rlevel except when rlevel = 0
1295: '\" }0 = string of digits/letters, followed by 2 blanks (normally)
1296: '\" uses as temps: }3
1297: '\" SEE ALSO: .H, .TC
1298: .de )E
1299: .ds }3
1300: .if \\n(:S .ds }3 \\n(H1
1301: .am >C
1302: .)T \\n(;1 \\$1 "\\*(}0" "\\$2" \\nP \\*(}3
1303: \\..
1304: ..
1305: '\" )T: version 1: obtain maximum sizes for various section counters
1306: '\" .)T dlevel rlevel mark "heading" page [section]
1307: '\" (called from within .>C, set up by .)E )
1308: '\" sets H1 -- H7 to maximum widths of marks at that level
1309: '\" sets :a to max width of page number (incl. section)
1310: '\" TEMPS: ;0, }3
1311: .de )T
1312: .nr ;0 \w@\\$5@
1313: .if \w@\\$6@ .nr ;0 +\w'-'u+\w@\\$6@u
1314: .if \\n(;0-\\n(:a .nr :a \\n(;0
1315: .)I \\$1 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
1316: .if \w@\\$3@-\\*(}3 .nr H\\$1 \w@\\$3@
1317: ..
1318: '\" )U: (actually version 2 of )T) expand 1 TOC entry
1319: '\" .)U dlevel rlevel mark "heading" page [section]
1320: '\" dlevel = [1:7]
1321: '\" rlevel = [0:7], 0 ==> .HU, ignore mark
1322: '\" mark = string of digits/letters, followed by 2 blanks (normally)
1323: '\" "heading" is always present (no entries for title-less sections)
1324: '\" page is page number, may be restarted at 1 in some cases
1325: '\" section is present if :S > 0
1326: '\" expects:
1327: '\" :a = max size of page, or size of section-page (not counting -)
1328: '\" :b,:c,:d,:f set to args 1-4 (or defaults) of .TC
1329: '\" }0, }1, and }2 set as described in .TC
1330: .de )U
1331: .if !0\\$1-\\n(:b .sp\\n(:c
1332: .)I \\$1 \\*(}0
1333: .nr ;0 \\*(}3
1334: .)I \\$1 \\*(Ci
1335: .nr ;1 \\*(}3
1336: .)I \\$1 \\*(}2
1337: .nr ;2 \\*(}3
1338: '\" ;0 = width of mark
1339: '\" ;1 = offset to begin of mark
1340: '\" ;2 = offset to text
1341: .ds }3 \\$5
1342: .if \\n(.$-5 .ds }3 \\$6\-\\$5
1343: .nr :e \\n(:au-\w@\\*(}3@u+2n
1344: .ds }3 \h@\\n(:eu@\\*(}3
1345: '\" }3 is complete [section-]page string
1346: .ds }y
1347: .nr ;0 -\w@\\$3@
1348: .if \\n(;0 .as }y \h@\\n(;0u@
1349: .if 2-0\\$1 .as }y "\\$3
1350: .if 0\\$1-1 .ds }y "\\$3\\*(}y
1351: .if !0\\$2 .ds }y
1352: '\" }y = mark string, with blanks (if necessary) prepended for level 1
1353: '\" is null for .HU heading
1354: .ll \\nWu-\\n(:au-3n
1355: .in \\n(;2u
1356: .if !0\\$2 .in\\n(;1u
1357: .ti \\n(;1u
1358: .fi
1359: .di >A
1360: .if !0\\$1-\\n(:d .if !\\n(:f \\*(}y\\$4\\a\\*(}3
1361: .if !0\\$1-\\n(:d .if \\n(:f \\*(}y\\$4\\t\\*(}3
1362: .if 0\\$1-\\n(:d \\*(}y\\$4\\*(}3
1363: .br\"force out partial line while diverting
1364: \!.br\"force out partial line when laying out diversion
1365: .di
1366: .br
1367: .ll \\nWu
1368: .ne \\n(dnu
1369: .ta \\nWu-\\n(:au-2n
1370: .nf \" don't re-fill
1371: .in0
1372: .na
1373: .>A
1374: ..
1375: '\" )Z: set-up for list output
1376: '\" .)Z "list heading" type
1377: '\" "list heading" is the title of the particular
1378: '\" list (i.e., figure, exhibit, table, or equation)
1379: '\" type = [0:3], 0 ==> figure, 1 ==> table,
1380: '\" 2 ==> equation, 3 ==> exhibit
1381: .de )Z
1382: .in 0
1383: '\" Cp controls separate page or TOC printing for lists
1384: .ie !\\n(Cp \{\
1385: . SK
1386: . rs
1387: . sp 3v
1388: . ce 1 \}
1389: .el .sp 2v
1390: \\$1
1391: .sp 1v
1392: .nr :a 0
1393: .nr H1 0
1394: .af H1 1
1395: .>L \\$2
1396: .rn )T )V
1397: .rn )U )T
1398: .ds }0 \\n(H1
1399: .ds Ci 0
1400: .ds }2 \\n(H1
1401: .>L \\$2
1402: .rn )T )U
1403: .rn )V )T
1404: ..
1405: '''\" TC: Generate Table of Contents
1406: '''\" .TC [slevel] [spacing] [tlevel] [tab] [head1 ... head5]
1407: ''\" slevel gives max level number to have spacing between
1408: ''\" spacing is number of spaces.
1409: ''\" tlevel is max level which tabs over to right margin for page
1410: ''\" tab = 0 (default) ==> leaders, >0 ==> tabs
1411: .de TC
1412: .LC 0\"clean out lists
1413: .if \\n(:F .FE\"close dangling footnote
1414: .if \\n(:y .DE \" end dangling DS
1415: .if \\n(!N .NE \" end up dangling notation
1416: .)N \" flush stored NS/NE
1417: .)w\" flush floating keeps
1418: .if \\n(;R .RP 0 1 \" produce references page
1419: .)R
1420: '\" may need more, like messing with headers
1421: .rm )E )F DE DF DS FD FE FG FS H HU TB
1422: '\" clear out top titles
1423: .if !\\nP-1 .if \\nN .if !\\nN-1 .rn }t }b\"only if N = 1
1424: .if !\\nP-1 .if \\nN .if !\\nN-1 .nr N 0
1425: .rm }t }e }o
1426: .rs
1427: .if \\n(;C .nr ;C 2 \" force back to the first column
1428: .bp
1429: .ie \\n(Oc .nr P 1 \" use Page 1 for osdd contents otherwise Roman
1430: .el \{\
1431: . rm }f }p
1432: . nr ;g 1 1
1433: . af ;g i
1434: . ds }b ''- \\\\n(;g -''
1435: . am )b
1436: . nr ;g +1
1437: \\..
1438: '\" 3 lines above set up for roman page numbering, using ;g as counter
1439: ' br \}
1440: .nr N 0
1441: .rs
1442: .if !\\n(.$-4 .TX\"user exit if no more than 4 args
1443: .if \\n(;C .ll \\n(:Lu \" do CONTENTS in wide
1444: ''\" TY is defined to put out CONTENTS so user may redefine to
1445: ''\" suppress CONTENTS (also serves as TX replacement)
1446: .if !\\n(.$-4 .TY\"user exit (without CONTENTS) if no more than 4 args
1447: .ce99
1448: .if \\n(.$-4 \\$5
1449: .if \\n(.$-5 \\$6
1450: .if \\n(.$-6 \\$7
1451: .if \\n(.$-7 \\$8
1452: .if \\n(.$-8 \\$9
1453: .if \\n(.$-4 .sp
1454: .ce 0
1455: .sp
1456: .if \\n(;C .ll \\n(:lu \" return to narrow
1457: .nr ;m \\n(.hu+2v \" return position for 2C
1458: .nr :b 1
1459: .if \w@\\$1@ .nr :b 0\\$1
1460: .nr :c 1
1461: .if \w@\\$2@ .nr :c 0\\$2
1462: .nr :d 2
1463: .if \w@\\$3@ .nr :d 0\\$3
1464: .nr :f 0
1465: .if \w@\\$4@ .nr :f 0\\$4
1466: '\" :b = level for spacing, :c = number of spaces.
1467: '\" :d = max level to tab to right margin
1468: '\" :f = tab flag (0 ==> leader, 1 ==> tab)
1469: '\" set up to find max sizes of things
1470: .nr H1 0
1471: .af H1 1
1472: .nr H2 0
1473: .af H2 1
1474: .nr H3 0
1475: .af H3 1
1476: .nr H4 0
1477: .af H4 1
1478: .nr H5 0
1479: .af H5 1
1480: .nr H6 0
1481: .af H6 1
1482: .nr H7 0
1483: .af H7 1
1484: .nr :a 0
1485: '\" H1 -H7 will have max widths; :a max width of [section] page
1486: .>C
1487: .rn )T )V
1488: .rn )U )T
1489: '\" set up }0, }1, and }2 as useful arrays:
1490: '\" }0 = sizes of individual marks
1491: '\" }1 = offsets to beginning of marks
1492: '\" }2 = offsets to text parts
1493: .ds }0 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
1494: .nr H2 +\\n(H1
1495: .nr H3 +\\n(H2
1496: .nr H4 +\\n(H3
1497: .nr H5 +\\n(H4
1498: .nr H6 +\\n(H5
1499: .nr H7 +\\n(H6
1500: .if !\w'\\*(Ci' .ds Ci 0 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6
1501: .ds }2 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
1502: '\" more set up here for lists
1503: .>C
1504: .rm >C HX
1505: .rn )T )U
1506: .rn )V )T
1507: .if (\\n(Lf=1)&(\\n(!0>0) .)Z "\\*(Lf" 0
1508: .if (\\n(Lt=1)&(\\n(!1>0) .)Z "\\*(Lt" 1
1509: .if (\\n(Lx=1)&(\\n(!3>0) .)Z "\\*(Lx" 3
1510: .if (\\n(Le=1)&(\\n(!2>0) .)Z "\\*(Le" 2
1511: .)R
1512: ..
1513: '''\" .TY prints out CONTENTS or can be redefined by user
1514: .de TY
1515: .ce
1516: CONTENTS
1517: ..
1518: '''\" Subject/Date/From and Signature
1519: '\" NB: certain portions of this are needed only____
1520: '\" at the beginning of the document.
1521: '\" Therefore, certain macros/strings/registers are
1522: '\" used here and subsequently reused by other functions.
1523: '\" Reused names are so noted.
1524: '\" list of signatures are diverted and held until .SG macro
1525: '\" >v text of signature list
1526: '\" :V size of signature list
1527: '\" ;x size/flag for TM number REUSED
1528: '\" ;y flag indicating title diversion REUSED
1529: '\" >z text of FROM diversion REUSED
1530: '\" ;z size of FROM diversion REUSED
1531: '\" }z diverted text of title REUSED
1532: '\" >8 holder for TM number REUSED
1533: '\" :9 size of diverted title text REUSED
1534: '\" :1 temp loc'n of prevailing indent REUSED
1535: '\" :2 mark location REUSED
1536: '\" :3 indent for Abstract REUSED
1537: '\" ;n flag to suppress Bell Laboratories, etc.
1538: '\" }2 Bell Laboratories or other company name.
1539: '''\" TL: title of memo [0:2]
1540: '''\" .TL [ [case] [file case] ]
1541: '''\" {text of title}
1542: ''\" gather in charging case(s), filing case(s),
1543: ''\" and lines of the title for the top of a memo page
1544: .de TL
1545: .nr :D 2 \"s/d/f flag & flag for other diversions
1546: .nr ;c 2
1547: .nr ;z 0 \" zero size of author info diversion
1548: .nr :V 0 \" zero size of signature diversion
1549: .nr :1 \\n(.i \" save prevailing indent
1550: .if \\nC=4 .ls 1 \" for DRAFT single space memorandum header
1551: .ds >1 \\$1
1552: .ds >2 \\$2
1553: 'nr ;y 1
1554: 'll \\nWu-34n
1555: 'nh
1556: 'na
1557: 'fi
1558: 'if \\nE 'ft 3
1559: 'di >T
1560: ..
1561: '''\" AU: author info [6:9]
1562: '''\" .AU name initials [loc] [dept] [ext] [room] [[arg] ...]
1563: '\" optional args will appear, one line per each, following FROM
1564: '\" first arg (name) and second arg (initials) will be utilized in .SG
1565: .de AU
1566: .nr :D 1 \"s/d/f flag
1567: .nr ;c 1
1568: .if !\\n(;y 'nf
1569: .if \\n(;y .>9 \" terminate .TL diversion
1570: .rm TL\" free up space
1571: .ll \\nWu
1572: '\" build next author info for memo style
1573: .da >z
1574: 'if \\nE 'ft 3
1575: .if (\\n(;z>0)&(\\n(Au>0) .sp \" space if not first author
1576: \\$1
1577: .if \\n(Au>0 \{.if \w@\\$3@ .ie @\\$3@HP@ HP\ \&\c
1578: . el \\$3\ \&\c
1579: . if \w@\\$4@ \\$4
1580: . if \w@\\$3@ .if !\w@\\$4@ \&
1581: . if \w@\\$6@ \\$6\ \&\c
1582: . if \w@\\$5@ x\\$5
1583: . if \w@\\$6@ .if !\w@\\$5@ \&
1584: ' br \}
1585: .if \\n(.$-6 \\$7
1586: .if \\n(.$-7 \\$8
1587: .if \\n(.$-8 \\$9
1588: .br
1589: 'if \\nE 'ft
1590: .di
1591: .nr ;z +\\n(dn
1592: .nr dn 0
1593: '\" info for TM cover sheet
1594: .am >A
1595: .ie \\nE \{\
1596: \f3\\$1\\\\t\\$3\ \\$6\\\\t\\$5\fP\" >A, inside MT into >S, then CS
1597: 'br \}
1598: .el \{\
1599: \\$1\\\\t\\$3\ \\$6\\\\t\\$5\" >A, inside MT into >S, then CS
1600: 'br \}
1601: \\..
1602: '\" build signature & reference portion
1603: 'in \\n(:1u
1604: .if !\\n(:V .ds }v \\$3-\\$4-\\$2
1605: .if \\n(:V .as }v /\\$2
1606: .da >v
1607: 'if \\nE 'ft 3
1608: .sp 3
1609: \\$1
1610: .br
1611: 'if \\nE 'ft
1612: .di
1613: .nr :V +\\n(dnu
1614: .nr dn 0
1615: '\" released paper author info
1616: .ds }L \\$3\"get location string
1617: .if '\\$3'HOH' .ds }L HO\"change to 2-char name for HOH
1618: .if '\\$3'HOH' .nr :H 1
1619: .if '\\$3'HP' .ds }L }A\"used for HP
1620: .if '\\$3'AL' .ds }L }B\"used for AL
1621: .if '\\$3'ALF' .ds }L }B\"used for ALF
1622: .if '\\$3'RD' .ds }L }E\"used for RD
1623: .if '\\$3'FJ' .ds }L HO\"used for FJ
1624: .if '\\$3'IW' .ds }L IH\"used for IW
1625: .am >4
1626: .sp1
1627: \\$1
1628: .if \\\\n(:2 .sp
1629: .if \\\\n(:2 \\*(}2
1630: .if \\\\n(:2 .if \\n(:H \\\\*(}H
1631: .if \\\\n(:2 \\\\*(\\*(}L
1632: .ds }z \\\\*(\\*(}L
1633: \\..
1634: ..
1635: '\" .>9
1636: '\" terminate .TL diversion and add case numbers if necessary
1637: '\" REUSED
1638: .de >9
1639: .br
1640: .di
1641: .di }z
1642: .>T
1643: '\" if both charge and file case were given
1644: .if (\w'\\*(>1')&(\w'\\*(>2') \{\
1645: . ie '\\*(>1'\\*(>2' \{\
1646: . br
1647: Charge and Filing Case \\*(>1
1648: . br \}
1649: . el \{\
1650: . br
1651: Charge Case \\*(>1
1652: . br
1653: File Case \\*(>2
1654: . br \} \}
1655: .if (\w'\\*(>1'=0):(\w'\\*(>2'=0) \{\
1656: . ie \w'\\*(>1' \{\
1657: - Case\ \\*(>1
1658: . br \}
1659: . el .ie \w'\\*(>2' \{\
1660: - Case\ \\*(>2
1661: . br \}
1662: . el .br \}
1663: .di
1664: 'if \\nE 'ft 1
1665: .nr :9 \\n(dn \" size of diverted title info
1666: .nr dn 0
1667: .nr ;y 0
1668: 'nf \" process rest of heading info in no-fill
1669: .rm >9
1670: ..
1671: '''\" AT: author title [0:9]
1672: '''\" .AT "line1" [line2-9]
1673: ''\" author title lines appear after signer's name
1674: .de AT
1675: .da >v
1676: 'if \\nE 'ft 3
1677: .if \\n(.$-0 \\$1
1678: .if \\n(.$-1 \\$2
1679: .if \\n(.$-2 \\$3
1680: .if \\n(.$-3 \\$4
1681: .if \\n(.$-4 \\$5
1682: .if \\n(.$-5 \\$6
1683: .if \\n(.$-6 \\$7
1684: .if \\n(.$-7 \\$8
1685: .if \\n(.$-8 \\$9
1686: .br
1687: 'if \\nE 'ft
1688: .di
1689: .nr :V +\\n(dnu
1690: .nr dn 0
1691: ..
1692: '''\" OK: provide other keywords [1:9]
1693: '''\" .OK kw1 kw2 ... kw9
1694: .de OK
1695: .nr :D 1 \"s/d/f flag
1696: .nr ;c 1
1697: .de >7
1698: .if \\n(.$-0 \\$1
1699: .if \\n(.$-1 \\$2
1700: .if \\n(.$-2 \\$3
1701: .if \\n(.$-3 \\$4
1702: .if \\n(.$-4 \\$5
1703: .if \\n(.$-5 \\$6
1704: .if \\n(.$-6 \\$7
1705: .if \\n(.$-7 \\$8
1706: .if \\n(.$-8 \\$9
1707: \\..
1708: .rm OK
1709: ..
1710: '''\" TM: get TM numbers [1:9]
1711: '''\" .TM number
1712: .de TM
1713: .nr :D 1 \"s/d/f flag
1714: .nr ;c 1
1715: .de >8
1716: .if \\nE .ft 3
1717: .if \\n(.$-0 \\$1
1718: .if \\n(.$-1 \\$2
1719: .if \\n(.$-2 \\$3
1720: .if \\n(.$-3 \\$4
1721: .if \\n(.$-4 \\$5
1722: .if \\n(.$-5 \\$6
1723: .if \\n(.$-6 \\$7
1724: .if \\n(.$-7 \\$8
1725: .if \\n(.$-8 \\$9
1726: .if \\nE .ft
1727: \\..
1728: .nr ;x \\n(.$+1 \" size of TM line(s) plus a space
1729: .rm TM
1730: ..
1731: '''\" AS: abstract start [0:2]
1732: '''\" .AS [flag] [indent]
1733: '\" begin abstract indicating dump now & later (0 or null)
1734: '\" or dump later only (1)
1735: '\" indent and .ll shrink 2nd arg; deflt 5
1736: '\" >3 stored abstract text
1737: '\" :t flag
1738: '\" ;3 size of >3
1739: '\" :3 register containing indent amount (passed to MT)
1740: '\" :t ;1 :3 REUSED
1741: .de AS
1742: .nr :D 3 \"s/d/f flag & flag for other diversions
1743: .nr ;c 3
1744: .if \\n(;y .>9\"defense against missing .AU
1745: .rm TL\"free up space
1746: .nr :t 0\\$1 \" set flag for abstract type
1747: .if \\n(:t=1 .nr ;5 \\n(:s \" save value of footnote flag --AS/AE footnotes don't go in
1748: .nr :3 0 \" no indent by default
1749: .if \\n(.$-1 .nr :3 0\\$2n \" get optional indent
1750: .nr ;N \\n(:1 \" save indent for copy-to list
1751: 'in \\n(:1u
1752: 'fi
1753: .SA
1754: 'nh
1755: 'if \\n(Hy 'hy 14
1756: .di >3
1757: .ll 0u-2u*\\n(:3u+\\nWu\" really mean \\nW-(2*\\n(:3)
1758: .ce
1759: .ul
1760: ABSTRACT
1761: .SP 3
1762: .ns
1763: .rm AS
1764: .nr :I 1\"indent any following .P's
1765: ..
1766: '''\" AE: abstract end [0]
1767: '''\" .AE
1768: .de AE
1769: .br
1770: .di
1771: 'nf
1772: 'nh
1773: .nr ;3 \\n(dn
1774: .nr ;6 \\n(;3 \"save unperturbed copy for .NE
1775: .ll \\nWu
1776: 'in \\n(:1u
1777: .if \\n(:t=1 .nr :s \\n(;5 \" restore value of :s
1778: .rm AE
1779: ..
1780: '''\" MT: specify type of memo [0:2]
1781: '''\" .MT [type] [1] or .MT [type] [addressee name]
1782: ''\" indicate type of memo; if no arg, get Memo for File
1783: '\" dump subj, date, from info as well
1784: '\" second arg (except MT=4) means use addressee name in header
1785: '\" expects ;n and }2 to be set appropriately (by default or .AF)
1786: .de MT
1787: .nr :D 0 \"clear s/d/f flag
1788: .nr ;c 0
1789: .if !\\n(;y 'nf
1790: .if \\n(;y .>9 \" defense against missing .AU
1791: .rm TL TM OK AS AE AF AU\"free up needed space
1792: .ll \\nWu
1793: .rn TP >Y \" move TP so not there for )h
1794: .in \\n(:1u\" causes )h to be tripped
1795: .rn >Y TP
1796: .rn )K >Y\"disguise )K in case of long abstract
1797: .ie \\nE .nr :W \\nWu-\w'\f3September 33, 1999\fP'+3n\"indent for date for SG
1798: .el .nr :W \\nWu-\w'September 33, 1999'+3n\"indent for date for SG
1799: '\" call >6 for memo style
1800: '\" call >5 for released paper style
1801: '\" both of these disappear after either is used!
1802: '\" note that they use :2
1803: '\" second arg (except MT=4) adds addressee name to page header
1804: '\" must check width of $1 because .if !0\\$1=4 doesn't work for string
1805: .ie \w@\\$1@u<2n .if !0\\$1=4 .if \\n(.$=2 .ds ]n \\$2
1806: .el .if \\n(.$=2 .ds ]n \\$2
1807: .if !\\n(.$ .>6
1808: .if \\n(.$ .if \w@\\$1@u-\w'0'u .>6 "\\$1"
1809: .if \\n(.$ .nr ;y 0\\$1
1810: .if \\n(.$ .if !\\n(;y .>6 ""
1811: .if \\n(.$ .if \\n(;y-4 .>x
1812: .if \\n(.$ .if \\n(;y-3 .>5 "\\$2"
1813: .if \\n(.$ .if \\n(;y-2 .>6 "ENGINEER'S NOTES"
1814: .if \\n(.$ .if \\n(;y-1 .>6 "PROGRAMMER'S NOTES"
1815: .if \\n(.$ .if \\n(;y .>6 "MEMORANDUM FOR FILE"
1816: .)R
1817: .ta .8i 1.6i 2.4i 3.2i 4i 4.8i 5.6i 6.4i 7.2i 8i 8.8i 9.6i
1818: .ns
1819: .if \\nC=4 .ls 2 \" double space for DRAFT
1820: .>Y\" kill macros/strings; zero registers
1821: .nr ;M 1 \"indicate to .NS that .MT has been called
1822: .rm >Y MT
1823: ..
1824: '\" >x: print external letter
1825: .de >x
1826: .rm >6 >5 )Y )X
1827: .ta \\n(:Wu-6n
1828: .br
1829: .rs
1830: .sp 1
1831: .ie \\n(Pv \{\
1832: . ce
1833: . ul
1834: PRIVATE
1835: . sp \}
1836: .el .sp 2
1837: .ie \\nA=2 \{\
1838: \t\(bs
1839: .sp .5i
1840: .if \w@\\*(}2@ \t\s16\f3\\*(}2\fP\s0
1841: 'br \}
1842: .el \{\
1843: .sp |4v
1844: .}z
1845: .br \}
1846: .rs
1847: .mk :2
1848: .sp |12v
1849: .in \\n(:Wu
1850: .ie \\nE \{\
1851: \f3\\*(DT\fP
1852: 'br \}
1853: .el \{\
1854: \\*(DT
1855: 'br \}
1856: .if \\n(:2u-\\n(nlu .sp |\\n(:2u
1857: .sp 2v
1858: .rm >x
1859: ..
1860: '\" >6: dump out memorandum style
1861: .de >6
1862: .rm >5 >x )Y
1863: .di ]t \" heading will be saved in ]t
1864: .if \\n(;n \{\
1865: . nr ;W \\nWu
1866: . nr W 6.5i
1867: . ll \\nWu
1868: . lt \\nWu \}
1869: .ta \\n(:Wu-6n
1870: .br
1871: .rs
1872: .sp 1
1873: .ie \\n(Pv \{\
1874: . ce
1875: . ul
1876: PRIVATE
1877: . sp \}
1878: .el .sp 2
1879: .if \\nA=2 \{\
1880: \t\(bs
1881: .sp .5i \}
1882: .ie \w@\\*(}2@ \t\s16\f3\\*(}2\fP\s0
1883: .el .sp2
1884: .sp 3
1885: .if \\n(;n .sp\"pre-printed form
1886: .mk :2
1887: .if !\\n(;n \{\s8subject:\s0
1888: . rt \\n(:2u
1889: . in \w'\s8subject:\s0'u+1n \}
1890: .}z
1891: .br
1892: .rt \\n(:2u
1893: .in \\n(:Wu
1894: .if \\n(;n .in 0n-8n*\\nWu/35n+\\nWu-100u
1895: .if !\\n(;n \{.ps 8
1896: . ti -6n
1897: date:
1898: . ps
1899: . rt \\n(:2u \}
1900: .ie \\nE \{\
1901: \f3\\*(DT\fP
1902: 'br \}
1903: .el \{\
1904: \\*(DT
1905: 'br \}
1906: .sp
1907: .if !\\n(;n \{.mk :2
1908: . ps 8
1909: . ti -6n
1910: from:
1911: . ps
1912: . rt \\n(:2u \}
1913: .if \\nE .ft 3
1914: .>z
1915: .if \\nE .ft
1916: .in \\n(:1u
1917: .in \\n(:1u
1918: .if \\n(;x \{.sp
1919: . mk :2
1920: . in \\n(:Wu
1921: . if \\n(;n .in 0n-8n*\\nWu/35n+\\nWu-100u
1922: . if \\nE .ft 3
1923: TM
1924: . rt \\n(:2u
1925: ' in +\w'TM 'u
1926: ' if \\nE 'ft
1927: . >8
1928: . in \\n(:1u \}
1929: .br
1930: .if \\n(:9u-\\n(;zu-2v-\\n(;xv .sp \\n(:9u-\\n(;zu-2v-\\n(;xv
1931: .sp 3
1932: .di
1933: .rs \" make sure spaces get out at top of first page
1934: '''\" produce abstract page conditionally, depending
1935: '''\" upon the existence of a abstract and whether
1936: '''\" or not ".AS 1" was specified.
1937: '''\" ".AS" or ".AS 0" puts abstract on page 1 and saves for CS
1938: '''\" ".AS 2" makes memo-style cover sheet with abstract
1939: .ie \\n(;3 \{\
1940: . ie \\n(:t=2 \{\
1941: . af !S \\gP \" save format of P register
1942: . af P i
1943: . ]t \"put out heading
1944: . in +\\n(:3u
1945: . >3 \"put out abstract
1946: . sp 3
1947: . )N \"put out copy to
1948: . in -\\n(:3u
1949: . wh 0 \"disable page-top trap
1950: . bp
1951: . nr P 1 \"necessary for tbl of cntnts
1952: . af P \\g(!S \" restore format of P register
1953: . ]t \"put out heading
1954: . wh 0 )h \"re-enable page top trap
1955: . if \\n(:G \{\
1956: . nr :s +1 \"put ftnt from cs -- increment cntr
1957: . da >y
1958: . >d
1959: \!. br
1960: . di
1961: ' nr dn +4v \" leave space for 2 blank lines and rule
1962: ' nr :o +\\n(dnu
1963: ' nr :O +\\n(dnu
1964: . nr dn 0
1965: '\" Move up footer trap, but not above current position on page,
1966: ' if !\\n(.pu-\\n(nlu-.5v-\\n(:ou 'nr :o \\n(.pu-\\n(nlu-.5v
1967: '\" or below :m!
1968: ' if !\\n(:ou-\\n(:mu 'nr :o \\n(:mu
1969: ' ch )f -\\n(:ou \" move footer trap
1970: ' br \}
1971: . rm CS \} \"can't have both kinds of cover sheet
1972: . el .ie \\n(:t=1 .]t \" just put out heading (no abstract)
1973: . el \{\
1974: . ]t \" put out heading
1975: . in +\\n(:3u
1976: . >3 \" put out abstract
1977: . sp 3
1978: . in -\\n(:3u \} \}
1979: .el .]t \"no abstract just put out heading
1980: .if \\n(;n \{\
1981: . nr W \\n(;Wu
1982: . ll \\nWu
1983: . lt \\nWu \}
1984: .ns
1985: .ne 10
1986: .ce
1987: .cu
1988: .ie !\\n(.$ MEMORANDUM FOR FILE
1989: .el .if \w@\\$1@ \\$1
1990: .SP 3 \" no effect if $1 is null (due to .ns above)
1991: .ce 0
1992: .cu 0
1993: .if !\\n(:t=2 .)X\"build memo style cover sheet
1994: .rm )X >6
1995: ..
1996: '\" >5: dump released paper style
1997: .de >5
1998: .rm >6 >x )X
1999: .br
2000: .rs
2001: .sp 1
2002: .ie \\n(Pv \{\
2003: . ce
2004: . ul
2005: PRIVATE
2006: . sp \}
2007: .el .sp 2
2008: .in 0
2009: .ds }H "Crawford Hill Laboratory
2010: .ds }A "South Plainfield, New Jersey 07080\"
2011: .ds PY "Piscataway, New Jersey 08854\"
2012: .ds MH "Murray Hill, New Jersey 07974\"
2013: .ds WH "Whippany, New Jersey 07981\"
2014: .ds HO "Holmdel, New Jersey 07733\"
2015: .ds RR "Piscataway, New Jersey 08854\"
2016: .ds }B Allentown, Pennsylvania 18103\"
2017: .ds AK Norcross, Georgia 30071\"
2018: .ds CP Piscataway, New Jersey 08854\"
2019: .ds CH Chester, New Jersey 07930\"
2020: .ds CB Columbus, Ohio 43213\"
2021: .ds DR Denver, Colorado 80234\"
2022: .ds IN Indianapolis, Indiana 46206\"
2023: .ds IH Naperville, Illinois 60566\"
2024: .ds MV North Andover, Maine 01845\"
2025: .ds }E Reading, Pennsylvania 19604\"
2026: .ds WB West Long Branch, New Jersey 07764\"
2027: .ds WV Warren, New Jersey 07060\"
2028: .ds HL Short Hills, New Jersey 07078\"
2029: '''.ll \\nWu-20n
2030: .ll \\nWu
2031: .fi
2032: .na
2033: .nh
2034: .di >6
2035: .>T
2036: .br
2037: .di
2038: .ll \\nWu
2039: .nf
2040: .ce 1000
2041: .ul 1000
2042: .>6
2043: .nr :2 0
2044: .if \w@\\$1@ .nr :2 1
2045: .ul 0
2046: .>4
2047: .br\"required!!
2048: .if !\\n(:2 .sp
2049: .if !\\n(:2 \\*(}2
2050: .if !\\n(:2 .if \\n(:H \\*(}H
2051: .if !\\n(:2 \\*(}z
2052: .ce 0
2053: .sp
2054: '\" if abstract (;3 non zero), output according to flag :t
2055: .if \\n(;3 .if !\\n(:t .in +\\n(:3u
2056: .if \\n(;3 .if !\\n(:t .>3
2057: .if \\n(;3 .if !\\n(:t .in -\\n(:3u
2058: .if \\n(;3 .if !\\n(:t .sp
2059: .ns
2060: .)Y\"build RP style cover sheet
2061: .rm )Y >6 PY MH WH HO RR }H WB }A }B }E HL
2062: .rm AK CP CH CB DR IN IH MV WV SG )N )M
2063: .de NS
2064: .br
2065: .di
2066: .di >Y
2067: \\..
2068: .de NE
2069: .br
2070: .di
2071: \\..
2072: .rm >5
2073: ..
2074: '\" )K: kill S/D/F stuff
2075: '\" throw away unneeded macros/strings
2076: '\" zero unneeded registers
2077: .de )K
2078: .if \\n(:D .ie !\\n(:t=2 .)D "check TL, AU, AS, AE, MT sequence"
2079: . el .)D "check TL, AU, AS, AE, NS, NE, MT sequence"
2080: .rm )X )Y >T >x >z >1 >2 >3 >4 >5 >6 >7 >8 >9 }2 }z
2081: .rr ;x ;y ;z :D :1 :2 :3 :9 ;0 ;1 ;n ;3
2082: .rm TL AU TM AF AS AE OK
2083: .rm )K
2084: ..
2085: '\" )X: build part of memo style cover sheet
2086: '\" some things currently known; other things must
2087: '\" be computed when >S called (in CS)
2088: .de )X
2089: .di >S
2090: \!.nr O 0\"get back default .po
2091: \!.po 0
2092: \!.nr W 6.5i\"get back default .ll
2093: \!.ll 6.5i
2094: \!.lt 6.5i
2095: \!.ll +.45i
2096: \!.lt +.45i
2097: \!.sp 2
2098: \!.tl 'Bell Laboratories''Cover Sheet for Technical Memorandum'
2099: \!\l@\\\\n(.lu@
2100: \!.br
2101: \!.fi
2102: \!The information contained herein is for the use of
2103: \!employees of Bell Laboratories
2104: \!and is not for publication
2105: \!(see GEI 13.9-3)\\\\p
2106: \!.nf
2107: \!.sp -.5v
2108: \!\l@\\\\n(.lu@
2109: \!.ll
2110: \!.lt
2111: \!.nf
2112: \!.sp 2
2113: \!.mk ;2
2114: \s9Title:\s0
2115: \!.rt -1
2116: \!.in \w'\s9Title:\s0'u+1n
2117: .>T
2118: .rm >T
2119: \!.in0
2120: \!.sp
2121: \s9Other\ Keywords:\s0
2122: \!.rt -1
2123: \!.in \w'\s9Other Keywords:\s0'u+1n
2124: .if \\nE .ft 3
2125: .>7
2126: .rm >7
2127: .if \\nE .ft
2128: \!.br
2129: \!.mk ;0
2130: \!.rt \\\\n(;2u
2131: \!.in \\\\nWu-1.4i
2132: \!.ti -6n
2133: \s9Date:\s0
2134: \!.rt -1
2135: .ie \\nE \{\
2136: \f3\\*(DT\fP
2137: 'br \}
2138: .el \{\
2139: \\*(DT
2140: 'br \}
2141: \!.sp
2142: \!.in \\\\nWu-1.4i
2143: \!.ti -6n
2144: \s9TM:\s0
2145: \!.rt -1
2146: .>8
2147: \!.in 0
2148: \!.br
2149: \!.if \\\\n(;0u-\\\\n(nlu .sp \\\\n(;0u-\\\\n(nlu
2150: \!.sp 2
2151: \!.ta 2i 3.2i
2152: \!.mk ;0
2153: \!.ul
2154: Author(s)\\tLocation\\tExtension
2155: .>A
2156: .rm >A
2157: \!.mk ;1
2158: \!.rt \\\\n(;0u
2159: .br
2160: .di
2161: ''\" go through TERRIBLE convolutions to get the case numbers
2162: ''\" in >1 and >2 into vertically stacked lists w/o commas
2163: ''\" biggest problem was that in contructing a macro call line
2164: ''\" within a diversion, a blank didn't stay as a blank
2165: .nf
2166: .de >7
2167: .di >A
2168: .tr ,+
2169: .tr |.
2170: .ie \\nE \{\
2171: |ds\ >8\ \f3\\\\$1+\\\\$2+\\\\$3+\\\\$4+\\\\$5+\\\\$6+\\\\$7+\\\\$8+\\\\$9\fP
2172: 'br \}
2173: .el \{\
2174: |ds\ >8\ \\\\$1+\\\\$2+\\\\$3+\\\\$4+\\\\$5+\\\\$6+\\\\$7+\\\\$8+\\\\$9
2175: 'br \}
2176: .br
2177: \!.br
2178: .tr ,,++||
2179: .di
2180: \\..
2181: .>7 \\*(>1
2182: .>A
2183: .rn >8 >1
2184: .>7 \\*(>2
2185: .>A
2186: .rn >8 >2
2187: .di >7
2188: .tr |.
2189: .tr +
2190: |>A\ \\*(>1
2191: |rn\ >T\ >1
2192: |>A\ \\*(>2
2193: |rn\ >T\ >2
2194: .br
2195: .tr ||++
2196: .di
2197: .de >A
2198: .de >T
2199: .if \\\\n(.$ \\\\$1
2200: .if \\\\n(.$-1 \\\\$2
2201: .if \\\\n(.$-2 \\\\$3
2202: .if \\\\n(.$-3 \\\\$4
2203: .if \\\\n(.$-4 \\\\$5
2204: .if \\\\n(.$-5 \\\\$6
2205: .if \\\\n(.$-6 \\\\$7
2206: .if \\\\n(.$-7 \\\\$8
2207: .if \\\\n(.$-8 \\\\$9
2208: \\\\..
2209: \\..
2210: .>7
2211: .rm >A >7 >T
2212: .da >S
2213: \!.ll +.45i
2214: \!.in \\\\nWu-5n
2215: \!.ti \\\\nWu-1.4i-6n
2216: \!.mk ;0
2217: \s9Charging\\\\ Case:\s0
2218: .br
2219: \!.br
2220: \!.rt -1
2221: \!.if \\nE .ft 3
2222: .>1
2223: \!.if \\nE .ft
2224: .rm>1
2225: .br
2226: \!.br
2227: \!.if \\\\n(nl=\\\\n(;0 .sp1v\"since >1 must have been empty
2228: \!.ti \\\\nWu-1.4i-6n
2229: \s9Filing\\\\ Case:\s0
2230: .br
2231: \!.br
2232: \!.rt -1
2233: \!.if \\nE .ft 3
2234: .>2
2235: \!.if \\nE .ft
2236: .rm>2
2237: .br
2238: \!.ll
2239: \!.br
2240: \!.if \\\\n(;1u-\\\\n(nlu .sp \\\\n(;1u-\\\\n(nlu
2241: \!.sp 3
2242: \!.in 0
2243: \!.ll \\\\nWu
2244: \!.in +\\n(:3u
2245: \!.po +(6.95i-\\\\n(!Wu)/2u
2246: .>3
2247: \!.in -\\n(:3u
2248: \!.po
2249: \!.nr ;0 0\" TM style cover sheet
2250: .br
2251: .di
2252: .di >b
2253: .nf
2254: .na
2255: .>c
2256: .br
2257: .di
2258: .if \\n(dn \{\
2259: .nr ;c \\n(.pu-\\n(:mu-\\n(dnu
2260: .da >S
2261: \!.ie \\n(;cu-\\\\n(nlu .sp \\n(;cu-\\\\n(nlu-2v
2262: \!.el .sp 1v
2263: .nr ;c 0
2264: \l'60p'
2265: .>c
2266: .di
2267: 'br \}
2268: ..
2269: '\" )Y: build part of cover sheet for released paper
2270: '\" some things currently known; other things must
2271: '\" be computed when >S called (in CS)
2272: .de )Y
2273: .di >S
2274: \!.sp 5
2275: \!.in 0
2276: \!.ce 1000
2277: \!.ul 1000
2278: .>6
2279: \!.ul 0
2280: \!.sp .5v
2281: .>4
2282: \!.br\"required!!
2283: \!.if \\n(:2=0 .sp.5v
2284: \!.if \\n(:2=0 \\*(}2
2285: \!.if \\n(:2=0 .if \\n(:H \\*(}H
2286: \!.if \\n(:2=0 \\*(}z
2287: \!.ce 0
2288: \!.sp
2289: \!.in 0
2290: \!.in +\\n(:3u
2291: .>3
2292: \!.in -\\n(:3u
2293: \!.nr ;0 1\"release paper cover sheet
2294: .di
2295: '\" Now calculate height of footnotes and attach to cover sheet.
2296: .di >b
2297: .nf
2298: .na
2299: .>c
2300: .br
2301: .di
2302: .if \\n(dn \{\
2303: .nr ;c \\n(.pu-\\n(:mu-\\n(dnu
2304: .da >S
2305: \!.ie \\n(;c-\\\\n(nlu .sp \\n(;cu-\\\\n(nlu-2v
2306: \!.el .sp 1v
2307: .nr ;c 0
2308: \l'60p'
2309: .>c
2310: .di
2311: 'br \}
2312: ..
2313: '''\" CS: generate cover sheet [0:6]
2314: '''\" .CS [pages] [other] [total] [figs] [tbls] [refs]
2315: .de CS
2316: .LC 0\"clean out lists
2317: .if \\n(:F .FE\"close dangling footnote
2318: .if \\n(:y .DE \" end dangling DS
2319: .if \\n(!N .NE \" end up dangling notation
2320: .)N \" flush stored NS/NE
2321: .)w \" flush floating keeps
2322: .if \\n(;R .RP 0 1 \" produce references page
2323: '\" kill off any page titles
2324: .if !\\nP-1 .if \\nN .if !\\nN-1 .rn }t }b\"only if N = 1
2325: .if !\\nP-1 .if \\nN .if !\\nN-1 .nr N 0
2326: .rm }t }e }o
2327: .wh 0 \" toss off header trap
2328: .br
2329: .rs
2330: .bp
2331: .rm }b }f }p
2332: .rn )f >z \" save footer def'n
2333: .rn >B >s \" save bottom block expander while moving it out
2334: .ch )n 15.1i \" move away footnote diverter
2335: .ch )b 15.2i \" move away bottom
2336: .de )f \" temp footer
2337: .)D "CS:cover sheet too long"
2338: \\..
2339: .ch )f -\\n(:Mu \" put footer to default-may have been moved by BS/BE
2340: .)R
2341: .ll \\nWu
2342: .in 0
2343: .br
2344: .nr !O \\nO \" save offset to restore for later .TC
2345: .nr !W \\nW \" save width to restore for later .TC
2346: .rs
2347: '\" do previous part of cover sheet
2348: .nf
2349: .>S
2350: .rm )f \" kill temp footer
2351: .ch )f 15.0i \" move away footer trap
2352: .sp \\n(.pu-\\n(nlu-7.5v
2353: '\" TM or Released Paper?
2354: .ie \\n(;0 .sp 7.5
2355: .el \{ .nr ;1 \\n(.lu+.45i
2356: \l@\\n(;1u\(ul@
2357: . ta 1.7i 3.3i
2358: . ie \\n(.$ \{ .ds ]1 \\$1
2359: . ie \w'\\$1' .nr !T +0\\$1
2360: . el .nr !T \\nP \}
2361: . el .nr !T \\nP
2362: . if \\n(.$-1 \{ .ds ]2 \\$2
2363: . nr !T +0\\$2 \}
2364: . if \\n(.$-2 .ds ]3 \\$3
2365: . if \\n(.$-3 .ds ]4 \\$4
2366: . if \\n(.$-4 .ds ]5 \\$5
2367: . if \\n(.$-5 .ds ]6 \\$6
2368: . if !\w'\\*(]1' .ds ]1 \\nP
2369: . if !\w'\\*(]2' .ds ]2 0
2370: . if !\w'\\*(]3' .ds ]3 \\n(!T
2371: . if !\w'\\*(]4' .ds ]4 \\n(Fg
2372: . if !\w'\\*(]5' .ds ]5 \\n(Tb
2373: . if !\w'\\*(]6' .ds ]6 \\n(Rf
2374: . sp .5v
2375: \s9Pages Text:\ \s0\\*(]1\t\s9Other:\ \s0\\*(]2\t\s9Total:\ \s0\\*(]3
2376: . sp 1v
2377: \s9No. Figures:\ \s0\\*(]4\t\s9No. Tables:\ \s0\\*(]5\t\s9No. Refs.:\ \s0\\*(]6
2378: . sp .5v
2379: \l@\\n(;1u\(ul@
2380: ' br \}
2381: .lt +1n
2382: .if !\\n(;0 .tl 'E-1932-U(3-76)'SEE REVERSE SIDE FOR DISTRIBUTION LIST''
2383: .lt -1n
2384: .nr O \\n(!O \" restore offset
2385: .nr W \\n(!W \" restore width
2386: .po \\nOu
2387: .ll \\nWu
2388: .lt \\nWu
2389: '\" put back traps
2390: .wh 0 )h
2391: .ch )n -\\n(:mu
2392: .rn >z )f \" regular footer def'n
2393: .rn >s >B \" put back bottom block expander
2394: .ch )f -\\n(:mu
2395: .ch )b -\\n(:ru
2396: .)R \" reset normal world
2397: .ta .8i 1.6i 2.4i 3.2i 4i 4.8i 5.6i 6.4i 7.2i 8i 8.8i 9.6i
2398: '\" clean up
2399: .rr ;0 ;1 ;2
2400: .rm >S
2401: ..
2402: '''\" FC: generate formal closing [0:1]
2403: '''\" .FC [arg]
2404: ''\" .FC (no arg) uses "Yours very truly," as closing
2405: ''\" .FC x uses x as formal closing
2406: .de FC
2407: .)w \" force out any floating keeps
2408: .in 0
2409: .nf
2410: .ls 1
2411: .in (\\n(.lu/2u) \" start closing at center of page
2412: .rs
2413: .ne \\n(:Vu+3v+.5p \" need .SG room + 2 lines
2414: .sp
2415: .ie \\n(.$ \\$1
2416: .el Yours very truly,
2417: .in
2418: .fi
2419: ..
2420: '''\" SG: generate signature line(s) [0:2]
2421: '''\" .SG [arg] [1]
2422: ''\" .SG (no arg) causes signature, but no reference data
2423: ''\" .SG "" causes signature, followed by reference data
2424: ''\" .SG x causes x to be added to reference data as typist's initials
2425: ''\" if 2nd arg, then ref data aligned with first joint author
2426: .de SG
2427: '\" error checks
2428: .if !\\n(:V .)D "SG:no authors"
2429: .if \\n(:F .)D "SG:missing FE"
2430: .if \\n(:y .)D "SG:missing DE"
2431: .LC 0 \" clean out any lists
2432: .)w \" force out any floating keeps
2433: .)R \" reset things
2434: .in 0
2435: .nf
2436: .ls 1
2437: .in (\\n(.lu/2u)
2438: .ne \\n(:Vu+1v+.5p
2439: .rs
2440: .mk
2441: .>v
2442: .in
2443: .if \w@\\$1@ .as }v -\\$1
2444: .if \\n(.$-1 .rt \" go to top of sig. if 2nd arg
2445: .if \\n(.$-1 .sp 3
2446: .if\\n(.$ .if !\\n(.$-1 .rt -1
2447: .if\\n(.$ \\*(}v
2448: .rm >v
2449: .fi
2450: ..
2451: '''\" NS: notation after .SG [0:1]
2452: '''\" .NS [arg]
2453: ' null,0 - 9 => various notations
2454: ' string => copy (string) to
2455: .de NS
2456: .if \\n(!N .di \"close diversion if multiple NS
2457: .if \\n(;M .br \"break only if following .MT
2458: .)R \" just in case
2459: .nr :D 1 \" indicate nofill, open diversion
2460: .ds }4 "Copy to\" default notation
2461: .nr ;0 0\\$1
2462: .if \w@\\$1@u-\w'\0\0'u .nr ;0 10\"arg value not over two digits
2463: .if \\n(;0 .ds }4 "Copy (with att.) to\"
2464: .if \\n(;0-1 .ds }4 "Copy (without att.) to\"
2465: .if \\n(;0-2 .ds }4 "Att.\"
2466: .if \\n(;0-3 .ds }4 "Atts.\"
2467: .if \\n(;0-4 .ds }4 "Enc.\"
2468: .if \\n(;0-5 .ds }4 "Encs.\"
2469: .if \\n(;0-6 .ds }4 "U.S.C.\"
2470: .if \\n(;0-7 .ds }4 "Letter to\"
2471: .if \\n(;0-8 .ds }4 "Memorandum to\"
2472: .if \\n(;0-9 .ds }4 "Copy (\\$1) to\"
2473: 'in \\n(;N \" indent the same amount as the abstract
2474: .if !\\n(!N .ds }5 \\*(}4 \"save initial copy-to string
2475: .if \\n(!N .da }C \"if not initial copy-to, continue }C
2476: .if !\\n(!N .di }C \" if initial copy-to, open }C
2477: .if \\n(!N .sp
2478: \!.ds }4 \\*(}4\"req'd for >Z macro inside )M
2479: \\*(}4
2480: .nf
2481: .nr !N 1 \"indicate presence of at least 1 NS
2482: ..
2483: ''\" )N: put out copy-to list(s)
2484: .de )N
2485: .br
2486: .rr !N \"indicate completion of a copy-to list
2487: .di ]v \" temp div to find size of copy to lst
2488: .}C
2489: .br
2490: .di
2491: .rm ]v
2492: .nr ;0 \\n(dn \" size of list
2493: .if \\n(;0 .)M \" output notations, if any
2494: ..
2495: ''\" )M - dump a notation list
2496: .de )M
2497: .nf
2498: .sp
2499: .ne 2v \" minimum size
2500: .if \\n(.tu<=2v \{\
2501: \&\\*(}5
2502: See next page
2503: 'br \}
2504: .nr !U \\n(;0>=\\n(.tu \" will list be continued?
2505: .if \\n(!U \{\
2506: . ds ]w Continued next page\" for footer
2507: . ds ]x \\\\*(}4\ \-\ contd.\" for header
2508: . ch )f -(\\n(:ou+1v) \} \" move footer up
2509: .}C \" output copy to list
2510: .if \\n(!U \{\
2511: . rm ]w ]x \" remove strings
2512: . ch )f -\\n(:ou \} \" put back footer
2513: .rm }C
2514: ..
2515: '''\" NE: notation end
2516: '''\" .NE
2517: .de NE
2518: .br
2519: .if \\n(!N .di
2520: .if \\n(;M .)N \"if post-MT, put out list immediately
2521: .)R \" reset normal world
2522: ..
2523: '''\" AV: generate approval line
2524: '''\" .AV "name"
2525: .de AV
2526: .ne 6v
2527: .in 0
2528: .nf
2529: .sp
2530: APPROVED:
2531: .sp 2
2532: '\" Draw 3 inch line then .3 inch space then 1.5 inch line
2533: \l'3i'\h'.3i\l'1.5i'
2534: '\" Arg is approver's name under 3" line then Date under 1.5" line
2535: \\$1\h'|4i-(\w'Da'u)'Date
2536: .in
2537: .fi
2538: ..
2539: '''\" ND: set new date [0:1]
2540: '''\" .ND date
2541: .de ND
2542: .if !\\n(.$ .)D "ND:missing arg"
2543: .ds DT "\\$1
2544: ..
2545: '''\" AF: Override Format of Bell Laboratories, Subject/Date/From
2546: '''\" .AF ["company"]
2547: ''\" .AF "company" replaces BTL by company
2548: ''\" .AF "" suppresses BTL only (so stamp) can be used
2549: '\" exists only to set ;n and }2 for .MT
2550: .de AF
2551: .if \\n(;y .>9 \" terminate .TL diversion
2552: .if !\\n(.$ \{\
2553: . nr ;n 1
2554: . nr O 1i
2555: . po \\nOu
2556: . nr W 5.8i
2557: . ev 0
2558: . ll \\nWu
2559: . lt \\nWu
2560: . ev
2561: . ev 1
2562: . ll \\nWu
2563: . lt \\nWu
2564: . ev
2565: . ev 2
2566: . ll \\nWu
2567: . lt \\nWu
2568: . ev
2569: ' br \}
2570: .ds }2 "\\$1
2571: ..
2572: '\" Header, Footer, Bottom of page and Footnotes
2573: '\" header/bottom of page use .ev 2
2574: '\" footnotes done in .ev 1
2575: '\" ;x flag set in .em to help flush any remaining footnotes
2576: '\" :o place that footer trap is moved at end of a footnote
2577: '\" :q size of diverted partial footnote
2578: '\" :m trap for partial footnote diverter and initial footer trap locn
2579: '\" :r bottom of page trap
2580: '\" :s counter of existing footnotes
2581: '\" :u flag set by .H to increment H1 (and p)
2582: '\" ;y amount of space left on page when footer called TEMP
2583: '\" ;z amt of space before expanding footnote TEMP
2584: '\" >x partial footnote text diverted here
2585: '\" >w entire footnote text diverted here
2586: '\" }y string used in line drawing func TEMP
2587: '\" !C test if PX outputs text TEMP
2588: '\" .)h
2589: '\" header macro
2590: .de )h
2591: 'ev 0
2592: 'nh
2593: 'if \\n(Hy 'hy 14
2594: 'ev
2595: 'ev 2
2596: .)R
2597: .nr P +1
2598: .if \\n(:Z \{.nr P \\n%
2599: . rr :Z \}
2600: '\" following may occur when new page is because of .H 1
2601: .if \\n(:u*\\n(:S .nr P 1 \" new section, restart to 1
2602: .if \\n(:u \{.nr H1 +1 \" section needs increment
2603: . nr :u 2 \}\" show )h incremented it, so .H knows
2604: 'sp \\n(!X \" extra spacing for top of page
2605: .TP\" user-redefinable macro
2606: .br\"force a break in header environment
2607: .)R
2608: 'ev
2609: .nr :I 2\"force indent on following .P & set flag for )y
2610: .nr :J \\n(nl\"mark spot for )y
2611: 'ns
2612: 'if \\n(:q .)l \" reprocess any leftover partial footnotes
2613: 'nr :q 0
2614: .mk ;r
2615: .mk ;m
2616: .nr !B 0 \" display width flag (set by )z)
2617: .if \\n(;d=0&\\n(:z>0 \{\
2618: '\" \" then process floating keeps
2619: ' ie \\n(Df>3 \{ ')z \"option 4: output at least one
2620: ' )s \} \" but as many as will fit
2621: ' el 'if \\n(Df>1 ')z \} \"option 2: output one keep only
2622: .nr !C \\n(.h \" save postition
2623: .PX \"user-definable page exit
2624: 'ns\"in case PX is non-empty
2625: .if !((\\n(!C=\\n(.h)&(\\n(!B=0)) .mk ;m \" set only if PX or wide display
2626: '\" print top part of multi-page table--see )1 macro
2627: .nr ;T 0 \" mark no table header output yet
2628: .if \\n(;A>0 \{.nr ;h \\n(.i
2629: . in0
2630: . >t
2631: . nr ;T 1 \" mark header (>t) output
2632: . in \\n(;hu \}
2633: .mk )c
2634: .nr :J \\n(nl\"mark spot for .P indent check
2635: .if !@\\*(]x@@ \\*(]x \" output message for NS/NE continued
2636: ..
2637: '\" .)f
2638: '\" footer macro
2639: .de )f
2640: .if !@\\*(]w@@ \\*(]w \" output message for NS/NE continued
2641: .nr !D 0 \" clear header position (for .P)
2642: '\" following cancels effect of .SP lying around
2643: .nr :N 0
2644: 'nr dn 0
2645: '\" print bottom part of boxed multi-page table
2646: .rn )f >u\"hide footer
2647: .if \\n(;A>0 \{.nr )P 1
2648: . if \\n(;f=0 .T# 1
2649: ' br \}
2650: .nr ;f 1
2651: .rn >u )f\"restore footer
2652: '\" compute amount of room left on the page
2653: 'nr ;y \\n(.pu-\\n(nlu-\\n(:mu-1v
2654: '\" if footnotes and there is room left, call footnote expander
2655: 'if \\n(:s \{'ie \\n(;y-4v .)o
2656: '\" if footnotes and no room left, save entire footnote text
2657: ' el .)m \}
2658: 'nr :s 0
2659: 'nr :o \\n(:mu
2660: 'nr :O \\n(:mu
2661: .ie \\n(;C=0 \{\
2662: '\" \" new page if not multi-column
2663: . if \\n(;e \&\c\" if end of input - leave a partial
2664: ' bp \} \"and start a new page
2665: .el .ie \\n(;C=2 .)2 \"end second column
2666: . el .)1 \"end first
2667: .rr ;f
2668: .ie @\\*(]w@@ 'ch )f -\\n(:ou \" reset footer trap location if not contd NS/NE
2669: .el 'ch )f -(\\n(:ou+1v) \" up one line if contd NS/NE
2670: ..
2671: '''\" page headings
2672: '\" }t string containing top title info
2673: '\" }e string containing even top title info
2674: '\" }o string containing odd top title info
2675: '\" }b string containing bottom title info
2676: '''\" PH: set page header [1]
2677: '''\" .PH arg
2678: .de PH
2679: .ds }t "\\$1\"
2680: ..
2681: '''\" EH: set even page header [1]
2682: '''\" .EH arg
2683: ''\" appears below .PH line
2684: .de EH
2685: .ds }e "\\$1\"
2686: ..
2687: '''\" OH: set odd page header [1]
2688: '''\" .OH arg
2689: ''\" appears below .PH line
2690: .de OH
2691: .ds }o "\\$1\"
2692: ..
2693: '''\" PF: set page footer [1]
2694: '''\" .PF arg
2695: .de PF
2696: .ds }b "\\$1\"
2697: ..
2698: '''\" EF: set even page footer [1]
2699: '''\" .EF arg
2700: ''\" appears above .PF line
2701: .de EF
2702: .ds }f "\\$1\"
2703: ..
2704: '''\" OF: set odd page footer [1]
2705: '''\" .OF arg
2706: ''\" appears above PF line
2707: .de OF
2708: .ds }p "\\$1\"
2709: ..
2710: '''\" TP: user redefinable top of page macro [0]
2711: '''\" .TP
2712: ''\" page titles (for top of page)
2713: .de TP
2714: 'sp
2715: .)K\" kill S/D/F macros when no .MT
2716: .af ;P \\gP \" save format
2717: .af P 1 \" normal format for next line
2718: .nr ;P \\nP \" must use different name for P (see .PH)
2719: .af P \\g(;P \" restore format to P
2720: .af ;P 1 \" and make the value register normal format
2721: .ie \\n(Pv \{\
2722: . ie (\\n(Pv=1)&(\\n(;P>1) 'sp 2
2723: . el \{\
2724: . ce
2725: . ul
2726: PRIVATE
2727: . sp \} \}
2728: .el 'sp 2
2729: .if !\\n(;P-1 .if \\nN 'sp
2730: .if !\\n(;P-1 .if \\n(:S .tl \\*(}t
2731: .if !\\n(;P-1 .if !\\nN .tl \\*(}t
2732: .if \\n(;P-1 .ie \w'\\*(]n' .tl '\\*(]n - \\nP'''
2733: . el .tl \\*(}t
2734: 'if !\\n(;P%2 'tl \\*(}e
2735: 'if \\n(;P%2 'tl \\*(}o
2736: 'sp 2
2737: ..
2738: '''\" PX: page heading exit
2739: '''\" user-definable macro
2740: '\" .de PX
2741: '\" ..
2742: '''\" .de PM [N:P:BP:BR:]
2743: '\" Disclosure notice macro.
2744: .de PM
2745: .if @\\$1@@ \{\
2746: . nr !K 0
2747: . nr :U 0-5v \}
2748: .if \w@\\$1@ \{\
2749: . ie @\\$1@P@ .nr !K 1
2750: . el .ie @\\$1@BP@ .nr !K 3
2751: . el .ie @\\$1@BR@ .nr !K 4
2752: . el .nr !K 2
2753: . nr :U 5v \} \" size of disclosure message
2754: .)G \" reserve bottom space
2755: ..
2756: '\" .)b
2757: '\" bottom of page titles
2758: .de )b
2759: 'ev 2
2760: .ie \\n(!K=1 \{\
2761: . tl @@\fBPRIVATE\fR@@
2762: . tl @@This information should not be disclosed to unauthorized persons.@@
2763: . tl @@It is meant solely for use by authorized Bell System employees.@@ \}
2764: .el .ie \\n(!K=3 \{\
2765: . tl @@\fBBELL LABORATORIES PROPRIETARY\fR@@
2766: . tl @@Not for use or disclosure outside Bell Laboratories except by@@
2767: . tl @@written approval of the director of the distributing organization.@@ \}
2768: .el .ie \\n(!K=4 \{\
2769: . tl @@\fBBELL LABORATORIES RESTRICTED\fR@@
2770: . tl @@The information herein is meant solely for use by authorized@@
2771: . tl @@Bell Laboratories employees and is not to be disclosed to others.@@ \}
2772: .el .if \\n(!K=2 \{\
2773: . tl @@\fBNOTICE\fR@@
2774: . tl @@Not for use or disclosure outside the@@
2775: . tl @@Bell System except under written agreement.@@ \}
2776: .if \\n(!K .tl @@@@
2777: .)R
2778: .af ;P \\gP \" save page number format
2779: .af P 1
2780: .nr ;P \\nP \" must use different name for P (see .PH)
2781: .af P \\g(;P \" return format
2782: .af ;P 1 \" make value usable
2783: .ie !\\n(;P%2 .tl \\*(}f
2784: .el .tl \\*(}p
2785: .ie \\n(;P=1 \{\
2786: . ie \\nN=1 .tl \\*(}t
2787: . el .tl \\*(}b \}
2788: .el .tl \\*(}b
2789: .if \\nC .tl \\*(]C
2790: .)R
2791: 'ev
2792: ..
2793: '\" )2: end second column
2794: .de )2
2795: .po \\nOu \" reset page offset
2796: .nr ;C 1 \"set col indicator
2797: .if \\n(;e \&\c\" always leave a partial line over page breaks when EOI
2798: 'bp \" force next page
2799: ..
2800: '\" )1: end first column
2801: .de )1
2802: .rt \\n(;mu
2803: .po +\\n(;ou \"advance page offset
2804: .nr ;C 2 \"set col indicator
2805: .nr :I 2\"force indent on following .P & set flag for )y
2806: .nr :J \\n(nl\"mark spot for )y
2807: 'ns
2808: 'if \\n(:q .)l \" reprocess any leftover partial footnotes
2809: 'nr :q 0
2810: 'if \\n(;d=0&\\n(:z>0 \{\
2811: '\" \" process floating keeps
2812: ' ie \\n(Df>3 \{ ')z \" option 4 (as many as will fit)
2813: ' )s \} \" (and at least one)
2814: ' el 'if \\n(Df>1 ')z \} \" option 2: only one
2815: '\" print top part of multi-page table--see )h macro
2816: .nr ;T 0 \" mark header not output on this page yet
2817: .if \\n(;A>0 \{.nr ;h \\n(.i
2818: . in0
2819: . >t
2820: . nr ;T 1 \" mark table header (>t) is output
2821: . in \\n(;hu \}
2822: .mk )c
2823: .nr :J \\n(nl\"mark spot for .P indent check
2824: ..
2825: '\" ;l new line length for each column
2826: '\" ;o page offset for 2nd column
2827: '\" ;C column indicator
2828: '\" ;m marked place (where 2nd col returns to)
2829: .de 2C \" begin 2 column stuff
2830: .if \\n(;C=0 \{\
2831: '\" \" a .2C after a .2C is a no-op
2832: .br
2833: .)R
2834: .nr ;C 1
2835: .if !\\n(.$ .nr ;l \\n(.lu*8u/17u \" new line length
2836: .if !\\n(.$ .nr ;o \\n(.lu*9u/17u \" 2nd col page offset
2837: .if \\n(.$ .nr ;l \\$1u*1.3n
2838: .if \\n(.$ .nr ;o \\nWu-\\n(;lu
2839: .ev 1
2840: .ll \\n(;lu
2841: .lt \\n(;lu
2842: .ev
2843: .ll \\n(;lu
2844: .lt \\n(;lu
2845: .nr :L \\nW\"save line length
2846: .nr W \\n(.lu
2847: .SP
2848: .ns
2849: .mk ;m \}
2850: ..
2851: .de 1C
2852: .if \\n(;C \{\
2853: '\" \" 1C no-ops if not in 2C mode
2854: .br
2855: .if \\n(;C>1 .sp |\\n(.hu \" move below high water mark on this page
2856: .po \\nOu \" reset page offset
2857: .)R
2858: .nr W \\n(:Lu
2859: .rr ;L ;C
2860: .ev1
2861: .ll \\nWu
2862: .lt \\nWu
2863: .ev
2864: .ll \\nWu
2865: .lt \\nWu
2866: .SP
2867: .ns \}
2868: ..
2869: '''\" WC: Width and Output Control for displays/footnotes in 1C/2C
2870: '''\" .WC [arg1] [arg2] ... [arg9]
2871: '''\" where each of argi is either N, [-]WD, [-]WF, [-]FF, [-]FB.
2872: ''\" N - set defaults (;a=;b=;j=0, ;p=1)
2873: ''\" WD - set wide display mode (;a=1) - all displays wide
2874: ''\" WF - set wide footnote mode (;b=1) - all footnotes wide
2875: ''\" FF - set footnotes follow mode (;j=1) - footnotes follow prev on page
2876: ''\" FB - set floaters break mode (;p=1) - fl keeps cause break on current page
2877: ''\" an optional '-' preceeding any of the latter 3 arguments willc clear
2878: ''\" the specified flag.
2879: ''\" this macro sets the internal flags from the command mnemonics
2880: .de WC
2881: .if \\n(.$ \{\
2882: . ie @\\$1@N@ \{ .nr ;a 0
2883: . nr ;b 0
2884: . nr ;j 0
2885: . nr ;p 1 \} \" set defaults
2886: . el .ie @\\$1@WD@ .nr ;a 1 \" set wide display mode
2887: . el .ie @\\$1@WF@ .nr ;b 1 \" set wide footnotes mode
2888: . el .ie @\\$1@FF@ .nr ;j 1 \" set footnotes follow mode
2889: . el .ie @\\$1@FB@ .nr ;p 1 \" set floaters cause break
2890: . el .ie @\\$1@-WD@ .nr ;a 0 \" clear wide display mode
2891: . el .ie @\\$1@-WF@ .nr ;b 0 \" clear wide footnote mode
2892: . el .ie @\\$1@-FF@ .nr ;j 0 \" clear footnotes follow mode
2893: . el .ie @\\$1@-FB@ .nr ;p 0 \" clear floaters cause break flag
2894: . el ')D "WC: unknown option"
2895: . if \\n(.$>1 .WC \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2896: ' br \}
2897: ..
2898: .de >W
2899: ''\" go to temporary wide mode for footnote or display
2900: .if \\n(;C \{\
2901: . ev 1 \" change only footnote/keep environment
2902: . ll \\n(:Lu
2903: . lt \\n(:Lu \" set long length
2904: . ev
2905: . nr W \\n(:Lu \" set width register
2906: . nr ;W 1 \} \" mark temporary wide mode
2907: ..
2908: .de >N
2909: ''\" go to temporary narrow mode for footnote or display
2910: .if (\\n(;l>0)&(\\n(;C=0) \{\
2911: . ev 1 \" change only footnote/keep environment
2912: . ll \\n(;lu \" set short length (calculated by 2C)
2913: . lt \\n(;lu
2914: . ev
2915: . nr W \\n(;lu
2916: . nr ;W 2 \} \" mark temporary narrow mode
2917: ..
2918: .de >R
2919: ''\" return from temporary wide or narrow mode
2920: .ie \\n(;W=1 .nr W \\n(;lu \" change back to narrow
2921: .el .if \\n(;W=2 .nr W \\n(;Lu \" back to wide
2922: .if \\n(;W \{\
2923: . ev 1
2924: . ll \\nWu \" reset line lengths
2925: . lt \\nWu
2926: . ev
2927: . nr ;W 0 \} \" clear temp mode flag
2928: ..
2929: .de )Q
2930: '\" called in second column to not overprint a long footnote
2931: '\" (called as a substitute to )f)
2932: .ch )Q 200v \" move away
2933: .rs
2934: 'sp 70 \" space over already printed footnotes
2935: ..
2936: '''\" BS: bottom start [0]
2937: '''\" .BS
2938: ''\" define a block of text to appear on
2939: ''\" the bottom of a page between the footnotes and
2940: ''\" the page footer
2941: .de BS
2942: .ev1
2943: .)R
2944: .di >K
2945: ..
2946: '''\" BE: bottom end [0]
2947: '''\" .BE
2948: ''\" end bottom block
2949: .de BE
2950: .br
2951: .di
2952: .)R
2953: .ev
2954: .nr :U \\n(dnu\"how big is new tail block
2955: .)W \" set bottom to size of :U
2956: .rn >K >D
2957: .nr :T \\n(:Uu\"save size of current tail block
2958: ..
2959: .de )W \" set bottom traps to a new bottom position
2960: .if (\\n(:Uu+\\n(:Mu)>(\\n(.pu-\\n(nlu-.5v) .SK\"new page if bigger than where we are now
2961: .ch )n -(\\n(:Mu+\\n(:Uu)\"move footnote diverter trap
2962: .nr :o +(\\n(:Uu-\\n(:Tu)
2963: .nr :O +(\\n(:Uu-\\n(:Tu)
2964: .ch )f -\\n(:ou\"move footer trap
2965: .nr :m \\n(:Mu+\\n(:Uu\"new place for footer to reside
2966: .ch >B -(\\n(:Mu+\\n(:Uu+\\n(!Y-1v) \"plant trap for tail mode expander
2967: ..
2968: '\" >B: bottom expander
2969: '\" layout block of text collected by BS/BE
2970: .de >B
2971: .ev2
2972: .)R
2973: .nf
2974: .>D
2975: .)R
2976: .ev
2977: ..
2978: '''\" VM - Vertical Margin control
2979: '\" .VM t b where t and b are the number of extra lines for top and bottom
2980: .de VM
2981: .ie 0\\$1>=0 .nr !X 0\\$1 \" legal value
2982: .el .nr !X 0 \" illegal value
2983: .ie 0\\$2>=0 .nr ;n 0\\$2 \" legal
2984: .el .nr ;n 0
2985: .if !@\\$2@@ \{\
2986: . nr :U \\n(;nv \" new bottom size (extra)
2987: . ie !\\n(!K .nr :M \\n(!V \" real bottom of page
2988: . el .nr :M \\n(!V+5v \" for disclosure
2989: . )G \} \" reserve new bottom
2990: ..
2991: ''\" )G - reserve new bottom margin - size is in :U
2992: .de )G
2993: .nr !Y \\n(:T \" save :T
2994: .nr :T 0
2995: .)W \" move traps, etc.
2996: .nr :M \\n(:m \" new 'real' bottom for BS/BE
2997: .ch )b -(\\n(:mu-2v) \" move footer headings too
2998: .nr :T \\n(!Y \" restore :T
2999: .rr !Y
3000: ..
3001: '''\" FS: footnote text start [0:1]
3002: '''\" .FS [flag]
3003: ''\" optional flag used as footnote label;
3004: ''\" if no argument, lay out a number derived from the
3005: ''\" \*F that appears in the text which auto increment
3006: ''\" a number register
3007: '\" set hyphenation and adjust according to :i and :j
3008: '\" set }y to the "label" -- either the argument
3009: '\" or the footnote numberer
3010: '\" if no indent, layout the label
3011: '\" if indent, determine the width of the standard indent (;z)
3012: '\" and the width of the label
3013: '\" indent by the standard amount
3014: '\" if the label is to be left justified, undent the
3015: '\" std amount; layout either the label
3016: '\" and enough space to make up the std
3017: '\" amt or the label (if it is bigger than the
3018: '\" amt); layout the label
3019: '\" if the label is to be right justified,
3020: '\" undent by the minimum of the std amt
3021: '\" and the width of the label
3022: '\" layout the label
3023: '\" !A - used to inhibit the output of footnotes in the second
3024: '\" column.
3025: .de FS
3026: 'nr :s +1 \" incr counter of existing footnotes
3027: .if \\n(:F .)D "FS:missing FE"\"error if existing footnote
3028: .if \\n(:F .FE\"end prior footnote
3029: .if \\n(:y .)D "FS:missing DE"\"error if existing keep
3030: .if \\n(:y .DE\"end prior keep
3031: .nr :F 1\"indicate FS begun
3032: .if !\\n(!F \{\
3033: . ie \\n(;C .nr !F 2 \" narrow
3034: . el .nr !F 1 \} \" go wide
3035: .ie (\\n(;C>0)&((\\n(;b=1):((\\n(;j=1)&(\\n(!F=1))) \{\
3036: . nr !F 1
3037: . >W \} \" go wide
3038: .el .if ((\\n(;C=0)&(\\n(;j=1)&(\\n(!F=2)) .>N \" go narrow
3039: 'ev 1
3040: 'di >b
3041: .nr :D 1
3042: .)R
3043: 'nh
3044: 'if \\n(:i 'hy 14
3045: 'ad
3046: 'if \\n(:j 'na
3047: 'sp \\n(Fs
3048: 'if \\n(.$ 'ds }y \\$1\ \"
3049: 'if !\\n(.$ 'ds }y \\*(]y.\ \"
3050: 'if \\n(:k \\*(}y\&\c
3051: 'if !\\n(:k 'nr ;v \w@\0\0.\ @
3052: 'if !\\n(:k 'nr ;u \w@\\*(}y@
3053: 'if !\\n(:k 'in +\\n(;vu
3054: 'if !\\n(:k 'if !\\n(:l 'ti -\\n(;vu
3055: 'if !\\n(:k 'if !\\n(:l 'if !\\n(;u-\\n(;v \\*(}y\h@\\n(;vu-\\n(;uu@\&\c\"}y now free
3056: 'if !\\n(:k 'if !\\n(:l 'if \\n(;u-\\n(;v \\*(}y\&\c
3057: 'if !\\n(:k 'if \\n(:l 'if \\n(;v-\\n(;u 'ti -\\n(;uu
3058: 'if !\\n(:k 'if \\n(:l 'if !\\n(;v-\\n(;u 'ti -\\n(;vu
3059: 'if !\\n(:k 'if \\n(:l \\*(}y\&\c
3060: ..
3061: '\" .FE - Footnote end
3062: .de FE
3063: .if !\\n(:F .)D "FE:no FS active"
3064: .br
3065: 'di
3066: .nr :D 0
3067: .if \\n(;c .nr :D \\n(;c
3068: 'in
3069: 'nf
3070: 'na
3071: '\" Does this footnote go on the cover sheet?
3072: .if !\\n% \{\
3073: ' da >c
3074: . >b
3075: \!. br
3076: ' di
3077: . if !(\\n(:D=3) \{\
3078: . nr :G 1 \" save footnt for reprint on P. 1 of .AS 2
3079: . da >d
3080: . >b
3081: \!. br
3082: . di
3083: ' br \}
3084: ' br \}
3085: '\" Does this footnote go on the bottom of the page?
3086: .if !((\\n%=0)*(\\n(:D=3)*(\\n(:t=1)) \{\
3087: ' da >y
3088: . >b
3089: \!. br
3090: ' di
3091: ' br \}
3092: .rm>b
3093: .)R
3094: 'ev
3095: .nr :F 0\"indicate footnote ended
3096: .>R \" if in temporary width mode - revert back to normal
3097: '\" If footnote on bottom of page, set spacing and traps.
3098: 'if !((\\n%=0)*(\\n(:D=3)*(\\n(:t=1)) \{\
3099: '\" add a space if this is the first footnote
3100: .if !((\\n(!A=1):((\\n(;C=2)&(\\n(!F=1))) \{\
3101: '\" \" no footnotes now if they are wide in 2nd col,
3102: '\" \" or there are already wide ones on this page.
3103: ' if !\\n(:s-1 'nr dn +4v \" leave space for 2 blank lines and rule
3104: ' nr :o +\\n(dnu
3105: ' nr :O +\\n(dnu
3106: . nr dn 0
3107: '\" Move up footer trap, but not above current position on page,
3108: ' if !\\n(.pu-\\n(nlu-.5v-\\n(:ou 'nr :o \\n(.pu-\\n(nlu-.5v
3109: '\" or below :m!
3110: ' if !\\n(:ou-\\n(:mu 'nr :o \\n(:mu
3111: ' ch )f -\\n(:ou \" move footer trap
3112: ' br \}\}
3113: ..
3114: '\" .)o
3115: '\" footnote expander, called via footer
3116: .de )o
3117: '\" if first column and wide footnotes - prepare for the second column
3118: .ie (\\n(!F=1)&(\\n(;C=1) \{\
3119: . nr !A 1 \} \" mark wide footnotes output
3120: .el .nr !A 0 \" else wont overprint footnotes
3121: 'ev 1
3122: .)R
3123: 'nf
3124: '\" leave 2 blank lines after text
3125: 'sp 2
3126: .ti 0
3127: '\" layout partial rule if new footnote
3128: '\" layout full line length rule if continued footnote
3129: .if !\\n(:n \l'72p'
3130: .if \\n(:n \l@\\n(.lu@
3131: 'nr :n 0
3132: .br
3133: .if \\n(!A .wh (\\n(nlu-2v) )Q \" set trap for later if footnotes in danger
3134: 'nr ;Z 1 \" signal )n to expect text
3135: 'nr dn 0
3136: '\" dump accumulated footnote text
3137: '\" long text may spring )n trap so the remaining partial
3138: '\" text may go into >x
3139: .>y
3140: .br
3141: 'di
3142: .if \\n(dn=1v .nr dn 0 \" ignore if only the blank line
3143: 'nr ;Z 0 \" clear footnotes being output flag
3144: .if !\\n(;C=1 \{\
3145: . rr !A \" if page over - clr long footnote flag
3146: . if \\n(dn=0 .rr !F \} \" clr footnote width if no partial
3147: 'rm >y
3148: 'nr :q \\n(dnu
3149: 'nr dn 0
3150: 'nr :s 0 \" zero counter of existing footnotes
3151: .)R
3152: 'ev
3153: ..
3154: '\" .)n
3155: '\" partial footnote text diverter
3156: '\" called via trap planted at -\n(:m
3157: '\" since the default footer trap is also at -n(:m,
3158: '\" this macro actually invoked when the footer trap
3159: '\" has been moved up due to footnote processing
3160: .de )n
3161: 'if \\n(;Z \{\
3162: ' di >x \" only if footnotes (set by )o)
3163: ' sp \\n(Fs \}
3164: ..
3165: '\" .)m
3166: '\" called from footer when the size of the footnote text
3167: '\" is greater than room left on the page
3168: '\" saves all the accumulated footnote text into >w
3169: .de )m
3170: 'ev 1
3171: .)R
3172: .nf
3173: 'di >w
3174: .>y
3175: .br
3176: 'di
3177: 'rm >y
3178: 'nr :q \\n(dn
3179: 'nr dn 0
3180: 'nr :s 0
3181: 'if \\n(:q 'nr :n 1
3182: .if !\\n(;C=1 .rr !A \" if page over - clr long footnotes flag
3183: .)R
3184: 'ev
3185: ..
3186: '\" .)l
3187: '\" reprocess any leftover partial footnotes and any
3188: '\" entire footnotes
3189: '\" called from .)h
3190: .de )l
3191: 'nr :s 1
3192: .nr :n 1
3193: 'di
3194: 'ev 1
3195: 'di >b
3196: .)R
3197: 'nh
3198: 'nf
3199: .>x
3200: .>w
3201: .nr :F 1\"pretend to be .FS
3202: .FE
3203: 'rm >x
3204: 'rm >w
3205: ..
3206: '''\" FD: set footnote default formatting [0:2]
3207: '''\" .FD [arg] [1] 0 <= arg <= 11
3208: ''\" arg=1 ==> hyphenate footnotes
3209: ''\" arg=2 ==> don't adjust footnotes
3210: ''\" arg=4 ==> footnotes flush left, no indent
3211: ''\" arg=8 ==> footnotes indented, stub flush right
3212: '\" (or any combination <_ 11 decimal).
3213: '\" arg=0, arg >11, or arg null ==> reset all defaults
3214: '\" defaults: no hyphenate, adjust, indent, no stub right
3215: '\" nroff defaults via .FD 10 (or plain .FD)
3216: '\" if 2nd arg, arrange that .H 1's reset fn ctr (set :C)
3217: .de FD
3218: '\" set defaults
3219: 'nr :i 0 \" hyphenate flag
3220: 'nr :j 0 \" no adjust flag
3221: 'nr :k 0 \" no-indent flag (on means no indent)
3222: 'nr :l 0 \" stub right flag
3223: 'nr ;z 0\"
3224: '\" no args or null 1st arg => set nroff default of .FD 10
3225: 'if !\\n(.$ 'nr ;z 10 \" nroff version only
3226: 'if \\n(.$ 'if !\w@\\$1@ 'nr ;z 10 \" nroff version only
3227: 'if \\n(.$ 'nr ;z \\$1\"
3228: 'if \\n(;z-11 'nr ;z 0\"
3229: 'if \\n(;z-7 'nr :l 1\"
3230: 'if \\n(;z-7 'nr ;z -8\"
3231: 'if \\n(;z-3 'nr :k 1\"
3232: 'if \\n(;z-3 'nr ;z -4\"
3233: 'if \\n(;z-1 'nr :j 1\"
3234: 'if \\n(;z-1 'nr ;z -2\"
3235: 'if \\n(;z 'nr :i 1\"
3236: 'if \\n(.$-1 .nr :C 1\"set flag for .H 1
3237: ..
3238: '\" Display mechanism
3239: '\" ?a text of stored floating keep (where a is a-z)
3240: '\" ?a size of stored floating keep (where a is a-z)
3241: '\" !a width of stored floating keeps (where a is a-z)
3242: '\" >0 store for initally diverted text
3243: '\" :0 size of initially diverted text
3244: '\" :z counter of floating keeps
3245: '\" :y flag indicating Display in progress
3246: '\" :x index of floating keep most recently expanded
3247: '\" :w index of floating keep most recently diverted
3248: '\" :v copy of value of :z (used in .)x)
3249: '\" :t register to pass fixed/float info to DE
3250: '\" ;z size of next to-be-expanded floating keep TEMP
3251: '''\" DS: start fixed display [0:2]
3252: '''\" .DS [arg1] [arg2]
3253: ''\" arg1: no indent (0 or L), indent (1 or I), center (2 or C),
3254: ''\" center block (3 or CB)
3255: ''\" arg2: no fill (0 or N), fill (1 or F)
3256: .de DS
3257: .nr :t 0
3258: .)J "\\$1" "\\$2" "\\$3"
3259: ..
3260: '''\" DF: start floating display [0:2]
3261: '''\" .DF [arg1] [arg2]
3262: ''\" arg1: no indent (0 or L), indent (1 or I), center (2 or C),
3263: ''\" center block (3 or CB)
3264: ''\" arg2: no fill (0 or N), fill (1 or F)
3265: .de DF
3266: .nr :t 1
3267: .)J "\\$1" "\\$2" "\\$3"
3268: ..
3269: '\" )J: real display start
3270: '\" take args from either DS or DF
3271: '\" :t set to indicate float (1) or fixed (0)
3272: '\" add 2 if centered
3273: .de )J
3274: .nr ;i \\n(.i \" save prevailing indent
3275: .nr ;q \\n(.u \" save prevailing fill/no-fill mode
3276: 'di
3277: .if \\n(:D>1 \{.ie \\n(:t=0 .)D "DS:illegal inside TL or AS"
3278: . el .)D "DF:illegal inside TL or AS" \}
3279: .if \\n(:F \{.ie \\n(:t=0 .)D "DS:missing FE"
3280: . el .)D "DF:missing FE"
3281: . FE \} \"close it
3282: .if \\n(:y \{.ie \\n(:t=0 .)D "DS:missing DE"
3283: . el .)D "DF:missing DE"
3284: . DE \} \" end the prev. DS
3285: .nr :y 1 \" set flag indicating Display
3286: .if (\\n(;C>0)&(\\n(;a=1) .>W \" go wide
3287: .ev 1 \" switch to keep/footnote environment
3288: .)R \" reset all things
3289: 'di >0
3290: .nr :D 1
3291: .nr ;z 0+0\\$1
3292: .if @\\$1@L@ .nr ;z 0 \"left-blocked
3293: .if @\\$1@I@ .nr ;z 1 \"indented
3294: .if @\\$1@C@ .nr ;z 2 \"center each line
3295: .if @\\$1@CB@ .nr ;z 3 \"center as a block
3296: .if \\n(;z>3 .nr ;z 3
3297: .nr :B \\n(;z \"set flag for type of display
3298: '\" shorten line length only if .DS 0 or .DS 1
3299: .if \\n(:t=0 .if \\n(;z<2 .ll -\\n(;iu
3300: .if \\n(;z=1 .in +\\n(Sin
3301: .if \\n(;z=2 \{.ce 9999
3302: . nr :t +2 \} \"centering flag
3303: .if \\n(:B=3 \{.nr :Y 1 \"initialize width-of-block register
3304: . nr :t +2
3305: . nr :X \\n(.i \"save existing indent
3306: . di >X \} \"begin second diversion
3307: .nr ;z 0+0\\$2
3308: .if @\\$2@N@ .nr ;z 0 \"No-fill mode
3309: .if @\\$2@F@ .nr ;z 1 \"fill mode
3310: .nf
3311: .if \\n(;z .fi
3312: .ll -0\\$3n
3313: ..
3314: '\" .)z
3315: '\" expand one floating keep here & now
3316: '\" dump it in keep/footnote env
3317: .de )z
3318: .nr ;w \\n(:x+1%26+1 \" get name of next queue element
3319: .if !((\\n(;C=2)&(\\n(!\\n(;w=1)) \{\
3320: '\" \" inhibit if wide display in 2nd col
3321: 'nr ;d 1 \" inhibit header's output of floating keeps
3322: .ev 1 \" footnote/keep environment
3323: .SP
3324: .)R \" reset all
3325: 'nf
3326: 'rs
3327: .nr :x \\n(:x+1%26 \" index of next in queue [0:25]
3328: .?\\n(;w \" lay out one keep
3329: .rm ?\\n(;w
3330: .rr ?\\n(;w !\\n(;w \" remove size regs
3331: .if \\n(!\\n(;w=1 .nr !B 1 \" mark wide display
3332: .)R
3333: .if \\n(De \{\
3334: . if \\n(;e \&\c\" eject - but leave a partial on EOI
3335: . bp
3336: . nr !B 0 \} \" clear wide column display flag
3337: .ie \\n(:I>1 \{\
3338: '\" \" no indent on following .P
3339: . if \\n(nl>\\n(:J .nr :I 0 \} \" unless just past )h
3340: .el .nr :I 0
3341: .SP
3342: .nr :J \\n(nl
3343: .ev
3344: 'nr :z -1 \" decrement queue count
3345: 'nr ;d 0 \}
3346: ..
3347: '\" .)y
3348: '\" expand floating keep only if it will fit on this page
3349: .de )y
3350: '\" get name of next floating display queue entry
3351: 'if \\n(:z \{\
3352: ' nr ;w \\n(:x+1%26+1 \"get index of next in queue
3353: ' nr ;z \\n(?\\n(;w \"get length of next queue element
3354: '\" - if there is room to expand the display - do so, then do a break
3355: '\" unless called from the header (:I=2) (and watch for the case
3356: '\" of header, then text, then a DF that fits).
3357: '\" the same test logic is used in )r. The if conditional consists
3358: '\" of thee major parts: (1) the test on :I tests whether we just
3359: '\" finished a header, (2) the next test tests whether the display will
3360: '\" fit on this page (distance to the next trap), and (3) is a multiple
3361: '\" test - it takes the value true when the display is too large to
3362: '\" fit on any one page, and we have used less than half of the current
3363: '\" page (meaning that the display can be output now).
3364: . if (\\n(:I=2):(\\n(;z<\\n(.t):\
3365: ((\\n(;z>(\\n(.p-\\n(;r-\\n(:m))&(\\n(nl<(\\n(.p-\\n(;r-\\n(:o/2u+\\n(;r))) \{\
3366: ' ie \\n(:I<2 .if \\n(;p .br \" break only if FB mode
3367: ' el .if \\n(:Ju<\\n(nlu .if \\n(;p .br
3368: ' )z \}\} \" output a DF
3369: ..
3370: '\" .)x
3371: '\" expand one floating keep here if it fits
3372: '\" else onto next page
3373: '\" called only via .)w
3374: .de )x
3375: 'nr :v \\n(:z \" count of keeps in queue
3376: ')y \" attempt to output one
3377: 'if \\n(:v=\\n(:z \{\
3378: ' nr ;d 1 \" don't let )h do the work
3379: ' if \\n(;e \&\c\" if no keep was output -
3380: ' SP \\n(.tu+1v \" then start a new page
3381: ' nr ;d 0
3382: ' )z \} \" and force output of one floating keep
3383: ..
3384: '\" .)w
3385: '\" expand all floating keeps
3386: '\" must be called via .em-called macro
3387: '\" should be called by other macros which cause
3388: '\" major breaks i.e. certain level headings
3389: .de )w
3390: 'if \\n(:z \{\
3391: ' )x \" output the next
3392: ' )w \} \" and do all
3393: ..
3394: '\" .)u
3395: '\" process floating keep for the current page
3396: '\" the action to be performed is controlled by the user-accessible
3397: '\" registers De and Df, which cause, respectively, a page eject after
3398: '\" each display, and specify the number of displays on each page.
3399: .de )u
3400: 'if \\n+(:z>25 ')D "DF: too many displays"
3401: 'nr :w \\n(:w+1%26 \" form the next queue element name
3402: 'nr ;w \\n(:w+1 \" get the index name [a:z]
3403: 'rn >0 ?\\n(;w \" put the display into the queue
3404: .nr !\\n(;w 1 \" mark full column width
3405: .if (\\n(;C>0)&(\\n(;a=0) .nr !\\n(;w 2 \" unless narrow
3406: .nr ?\\n(;w \\n(:0 \" put the size of text into parallel nr queue
3407: '\" \" if single DF and desired on current page, and not wide in two
3408: '\" \" columns, then try to fit it in.
3409: 'if !((\\n(;C>0)&(\\n(!\\n(;w=1)) 'if (\\n(:z=1)&((\\n(Df%2=1):(\\n(Df>5)) ')y
3410: ..
3411: '\" .)s
3412: '\" output as many floating keeps as will fit on this page
3413: .de )s
3414: 'nr :v \\n(:z \" mark the number of keeps now on queue
3415: 'nr ;Y \\n(:I \" save
3416: 'nr :I 2 \" from the header
3417: ')y \" try to output one
3418: 'ie \\n(:v>\\n(:z ')s \" and put them out while they fit
3419: 'el 'nr :I \\n(;Y \" reset
3420: ..
3421: '\" .)t
3422: '\" process a static display. If it is longer than one page and less
3423: '\" than half of the current page has been used, or the display will
3424: '\" fit on this page, output is begun immediately. Otherwise, a new
3425: '\" page is begun (which may cause output of a floating keep via )h)
3426: '\" and the static display is output then. If )h has output a floating
3427: '\" keep, then the tests for available space must be made again.
3428: .de )t
3429: .br
3430: .nr !L \\n()H \" save curr line spacing
3431: .ls 1 \" ls 1 for output
3432: .)r \" perform page/display length tests and leave setup
3433: .ti \\n(.iu \" preserve against .ti of .H
3434: .nf
3435: .if \\n(:t>1 .in -\\n(;iu \" go to zero indent for centering
3436: .rs
3437: .nr ;d 1 \" prevent )h from outputting a floating keep
3438: .>0 \" expand display
3439: .)R
3440: .nr ;d 0
3441: .ie \\n(:I>1 \{\
3442: . if \\n(nl>\\n(:J .nr :I 0 \} \" mark indent flag
3443: .el .nr :I 0
3444: .ls \\n(!L \" restore line spacing
3445: .in \\n(;iu \" restore prevailing indent
3446: .if !\\n(;q .nf \" restore no-fill if necessary
3447: .if \\n(Ds .SP
3448: .nr :J \\n(nl
3449: ..
3450: '\" .)r
3451: '\" Control page orientation of static displays.
3452: '\" Static displays are output as soon after their definition as
3453: '\" feasible. The following rules are used:
3454: '\" 1. if the display will fit on the current page, output it there.
3455: '\" 2. if the display won't fit on any page, and we have used less than
3456: '\" half of the current page, then output the display on the
3457: '\" current page.
3458: '\" 3. skip to the next page. If this causes a floating display (or
3459: '\" more than one) to be output, then start again with rule
3460: '\" 1, otherwise, just output the display.
3461: .de )r
3462: .if \\n(Ds .SP \" initial spacing
3463: '\" The following if condition tests: (1) if the display is too large to
3464: '\" fit on the current page and either (2) it will fit on an unused page
3465: '\" or (3) we have already used more than half of the current page. (the
3466: '\" three conditions are grouped in the form 1 & (2 : 3)). If this
3467: '\" total condition is true, then a page is ejected and the display output
3468: '\" on the next page. (see )y for a similar construction).
3469: .if (\\n(:0>=\\n(.t)&((\\n(:0<(\\n(.p-\\n(;r-\\n(:m)):\
3470: (\\n(nl>(\\n(.p-\\n(;r-\\n(:o/2u+\\n(;r))) \{\
3471: '\" \" conditions not met - force a new page
3472: . if \\n(;e \&\c\" save a partial
3473: . ne \\n(.tu+1v \" spring the trap
3474: . if \\n(:I<2 .)r \} \" verify room if a floating keep was output
3475: ..
3476: '''\" DE: display end
3477: '''\" .DE
3478: '\" :t=0=>fixed; :t=1=>float; +2 for centering
3479: .de DE
3480: .if !\\n(:y .)D "DE:no DS or DF active"
3481: .if \\n(:B=3 \{.br
3482: . di \"if centered block, end diversion into >X
3483: . if \\n(dl>\\n(:Y .nr :Y \\n(dl
3484: . if \\n(:Y<\\n(.l .in (\\n(.lu-\\n(:Yu)/2u \"indent by half of white-space
3485: . nf
3486: . >X
3487: . fi
3488: . rm >X
3489: . in \\n(:Xu
3490: . rr :X \}
3491: .ce 0
3492: .br
3493: 'di
3494: .rr :D ;D ;E :B
3495: .)R \" reset all things
3496: .ll \\nWu \"including line length
3497: .ev
3498: 'nr :0 \\n(dn \" get size of keep
3499: 'nr dn 0
3500: .nr ;x \\n(:t
3501: .if \\n(:t-1 .nr ;x -2
3502: .>R \" revert from possible temp width
3503: .if !\\n(;x .)t \" process fixed style
3504: .if \\n(;x .)u \" process floating keep
3505: .nr :y 0 \" flag indicating DE
3506: .nr :Y 0 \"clear width-of-block register
3507: ..
3508: '\" .)R
3509: '\" reset all things
3510: .de )R
3511: 'fi
3512: 'na\" reset default adjustment (see .SA)
3513: .if \\n(:h 'ad
3514: 'nh
3515: 'if \\n(Hy 'hy 14
3516: 'in 0
3517: 'ti 0
3518: ..
3519: '''\" RS: reference text start [0:1]
3520: '''\" .RS [stringname]
3521: ''\" optional stringname used to store number for later reference
3522: ''\" preceding \*(Rf in text generates new number from :R
3523: ''\" ]r is string version of :r -- ;R flag indicates
3524: ''\" that there are references which have not been printed on
3525: ''\" references page yet (set to 2 by .RS and to 1 by .RF)
3526: .de RS
3527: .if \\n(;R=2 .)D "RS:missing RF"\"error if existing reference
3528: .nr ;R 2 \" indicate a reference exists and is currently in progress
3529: .nr Rf +1 \" total reference count for CS
3530: .if \\n(.$ .ds \\$1 \u[\\n(:R]\d
3531: .ev 2
3532: .)R
3533: 'in \w@\0\0.\ @u
3534: 'ti -\w@\\*(]r.\ @u
3535: .nr :D 1
3536: .da >r
3537: \!.ne 2
3538: \\*(]r.\ \&\c
3539: ..
3540: '''\" RF: reference text finish
3541: '''\" .RF
3542: ''\" completes reference text diversion - set ;R to 1 that reference ready
3543: .de RF
3544: .if !(\\n(;R=2) .)D "RF: no RS active"
3545: .nr ;R 1
3546: .br
3547: \!.if \\\\n(Ls .sp
3548: .di
3549: 'in
3550: .nr :D 0
3551: .ev
3552: ..
3553: '''\" RP: lays out references page [0:2]
3554: '''\" .RP [arg1] [arg2]
3555: ''\" called by TC, CS, and )q or explicitly by user
3556: ''\" first arg 0 means restart numbering
3557: ''\" second arg 0 means do a .SK following references page
3558: .de RP
3559: .if \\n(;R=2 .)D "RP: missing RF"
3560: .if \\n(;R \{\
3561: .nr ;R 0 \" turn off references flag
3562: .if !(0\\$1) .nr :R 0 1 \" restart counter
3563: .)R
3564: .ie (0\\$2=2):(0\\$2=3) \{\
3565: .if \\n(;e \&\c
3566: 'ne 8
3567: .sp 1 \}
3568: .el \{\
3569: .ie \\n(;e .SK
3570: .el \{\
3571: \&\c
3572: .bp \" can't use .SK when called from )q
3573: 'br \} \}
3574: .ce 1
3575: .ul
3576: \\*(Rp
3577: .if \w@\\*(Rp@ \{
3578: .am >C
3579: .)T 1 1 "" "\\*(Rp" \\nP
3580: \\..
3581: 'br \}
3582: .sp 2v
3583: .nf
3584: .>r
3585: .br
3586: .rm >r
3587: .)R
3588: .if (0\\$2=0):(0\\$2=2) .SK
3589: 'br \}
3590: ..
3591: '\" .)q
3592: '\" called via .em request
3593: '\" set flag for footnotes and flush keep/releases
3594: .de )q
3595: .br\"force out partial line
3596: .LC 0\"clean out lists
3597: .nr ;e 1 \" flag that the end of input text (EOI) has been reached
3598: .if \\n(:F .FE\"close dangling footnote
3599: .if \\n(:y .DE \" end dangling DS
3600: .if \\n(!N .NE \" end up dangling notation
3601: .)N \" flush stored NS/NE
3602: .nr ;x 0 \" flag for footnotes
3603: .if \\n(;R .RP 0 1 \" produce references page
3604: \&\c
3605: .if (\\n(;C>0)&(\\n(:z>0) 'bp \" new page for keeps in 2C
3606: .)w \" flush floating keeps
3607: \&
3608: '\" if footnotes remain and there is no room
3609: '\" on this page, or if diverted footnote text
3610: '\" remains, be sure to begin another page
3611: 'nr :0 \\n(.pu+1v-\\n(nlu-\\n(:Ou
3612: 'if \\n(:s 'if (\\n(:0<=0):((\\n(;C=2)&(\\n(!F=1)) 'nr ;x 1
3613: 'if \\n(:q 'nr ;x 1
3614: '\" if ;x set, force out footnotes
3615: 'if \\n(;x \&\c
3616: 'if \\n(;x 'bp
3617: 'if \\n(;x \&
3618: .nr ;e 0 \" prevent extra pages
3619: ..
3620: '\" REQUIRED INITIALIZATIONS
3621: '\" initialize various regs
3622: .nr :r 6v \" bottom of page
3623: .nr :m 8v \" initial footer place and partial footnote diverter trap
3624: .nr :n 0 \" flag for continuation footnote rule
3625: .nr :p 0 1 \" in-text footnote numberer
3626: .nr :o 0 \" register for footer trap location (set via .FE)
3627: .nr :z 0 1 \" counter for floating keeps in progress
3628: .nr :y 0 \" flag indicating Display in progress
3629: .nr :x 0 \" index for name of expanded floating keep
3630: .af ;w a \" number to letter converter register
3631: .nr :w 0 \" index for name of diverted floating keep
3632: .nr :F 0\" flag indicating FS in progress
3633: .nr :R 0 1 \" in-text reference numberer
3634: .ds ]r \\n(:R
3635: .ds ]y \\n(:p
3636: '\" INITIAL SET UP
3637: 'wh 0 )h
3638: .nr :o \n(:mu \" initial footer trap location on a page
3639: .nr :O \n(:mu \" high water mark of :o (needed by )q)
3640: 'wh -\n(:mu )f
3641: 'ch )f 15i
3642: 'wh -\n(:mu )n \" trap for partial footnote diverter
3643: 'ch )f -\n(:mu
3644: 'wh -\n(:ru )b
3645: .nr :M \n(:mu
3646: .nr !V \n(:mu \" save real bottom (VM)
3647: .wh -(\n(:Mu-1v) >B\"initial trap for bottom expander
3648: '\".FD 10\"initial footnote defaults
3649: '\"Setting the registers as if .FD 10 were involked
3650: 'nr :i 0
3651: 'nr :j 1
3652: 'nr :k 0
3653: 'nr :l 1
3654: 'nr ;z 0
3655: .SA 0\"initial adjustment default
3656: '''>S>NOCOMPACT<<name>>
3657: .if @\*(]Z@MM DEFINED@ \{\
3658: . tm ERROR: MM package read twice
3659: . ab \}
3660: .ds ]Z MM DEFINED
3661: '\" ***INTERNAL NUMBER REGISTERS***
3662: '\" *** SET=UPS FOR CERTAIN DEVICES
3663: '\" parms set here may be explicitly overriden
3664: '\" by options on command line
3665: '\" -rT1: gsi at 12 pitch
3666: '\" -rT2: versatec printer
3667: .if \nT=1 \{.if \nW=0 .nr W 80\"GSI at 12-pitch
3668: . if \nO=0 .nr O 3 \}
3669: .if \nT=2 \{.nr L 84\"Versatec printer
3670: . ds BU o
3671: . rm ul
3672: . rm cu \}
3673: '''\" E : emboldening for s/d/f etc.
3674: ''\" 0=no bold (default for nroff)
3675: ''\" 1=bold (default for troff)
3676: .if !\w'\gE' .nr E 0
3677: '''\" L : length of page
3678: ''\" settable via -rLn
3679: .ie \nL .nr L \nLv
3680: .el .nr L 11i
3681: .pl \nLu
3682: '''\" N : numbering style [0:3] default = 0; set via -rNn
3683: ''\" 0/1 normal; 2/3 sect-page; if 1 or 3 special footer for P=1
3684: '''\" O : initial page offset, normally = 0, but can be overridden from
3685: ''\" command line (via -rOvalue)
3686: .ie \w'\gO' .nr O \nOn
3687: .el .ie \nA .nr O 1i
3688: .el .nr O .75i
3689: .po\nOu
3690: '''\" P : Page number (internally managed), initially = 0
3691: ''\" if :S = 0, same as %, but reset to 1 by each .H 1 when :S = 1
3692: .if \nP .nr P -1
3693: .nr P \nP 1
3694: '''\" S : default point size, initially 10
3695: .if !\nS .nr S 10
3696: '''\" U : Underline headings (0 ==> cu when possible, 1 ==> ul)
3697: '''\" W : Width of page (line length and length of title)
3698: ''\" settable via -rWn from command line
3699: .ie \nW .nr W \nWn
3700: .el .ie \nA .nr W 5.8i
3701: .el .nr W 6.0i
3702: '\" W will be used in environment initializations later in file
3703: '\" REQUIRED INITIALIZATIONS
3704: '\" load date into DT string
3705: .if \n(mo-0 .ds DT January
3706: .if \n(mo-1 .ds DT February
3707: .if \n(mo-2 .ds DT March
3708: .if \n(mo-3 .ds DT April
3709: .if \n(mo-4 .ds DT May
3710: .if \n(mo-5 .ds DT June
3711: .if \n(mo-6 .ds DT July
3712: .if \n(mo-7 .ds DT August
3713: .if \n(mo-8 .ds DT September
3714: .if \n(mo-9 .ds DT October
3715: .if \n(mo-10 .ds DT November
3716: .if \n(mo-11 .ds DT December
3717: .as DT " \n(dy, 19\n(yr
3718: '\" INITIALIZE ALL THREE ENVIRONMENTS
3719: .S D D\"set up point size
3720: 'ev 0
3721: .)R
3722: .ll \nWu
3723: .lt \nWu
3724: 'ev
3725: 'ev 1
3726: .)R
3727: .ll \nWu
3728: .lt \nWu
3729: 'ev
3730: 'ev 2
3731: .)R
3732: .ll \nWu
3733: .lt \nWu
3734: 'ev
3735: '\" INITIAL SET UP
3736: .PH "''- \\\\nP -''
3737: '\" set up type of copy
3738: .if \nC=3 \{.ds ]C @@D\ R\ A\ F\ T@@
3739: . PF "''\\\\*(DT'' \} \" set footer when DRAFT
3740: .if \nC=4 \{.ds ]C @@D\ R\ A\ F\ T@@
3741: . PF "''\\\\*(DT'' \" set footer when DRAFT
3742: . ls 2 \" double-spacing
3743: . nr Pt 1 \" indent paragraphs
3744: . nr Pi 10 \} \" use 10 space indent
3745: .if \nC=2 .ds ]C ''DATE FILE COPY''
3746: .if \nC=1 .ds ]C ''OFFICIAL FILE COPY''
3747: '\" set defaults for sect-page numbering scheme
3748: .if (\nN=3):(\nN=5) \{.nr :S 1
3749: . PF "''\\\\n(H1-\\\\nP''"
3750: . PH \}
3751: .if \nN=4 \{.PH\"inhibit default page numbering
3752: . nr N 0 \}
3753: .if \nD .PH "'\\*(RE line # \\\\n(.c'- \\\\nP -''
3754: .if \nA=1 \{ .nr ;n 1\" for use with preprinted forms
3755: . ds }2
3756: ' br \}
3757: 'em )q \" end macro
3758: '''>E>NOCOMPACT<<name>>
3759: '\" accents are at end of file so that grave accent string doesn't
3760: '\" mess up commenting conventions
3761: '\" NROFF ACCENTS (` ' ^ ~ cedilla and 2 umlauts)
3762: '\" Used precisely like the TROFF accents, q.v.
3763: '\" All the strings below contain backspaces.
3764: '\" The two umlauts don't work too well in column 1, because
3765: '\" they (like neqn) try to backspace over it.
3766: '\" The two umlauts don't work at all through various filters, such
3767: '\" 300, 450, etc. They really only work with the -T300, -T330s, and
3768: '\" -T300s options of NROFF.
3769: '\" For terminals without partial line motions, use " for umlauts.
3770: '\" The whole thing is VERY dependent on each individual terminal,
3771: '\" and the "play" in each individual platen or forms tractor.
3772: '\" Grave accent -- [aeou]\*`
3773: .ds ' '
3774: '\" Acute accent -- [aeou]\*'
3775: .ds ` `
3776: '\" Circumflex -- [aeou]\*^
3777: .ds ^ ^
3778: '\" Tilde -- n\*~ (But watch out for ".tr ~")
3779: .ds ~ ~
3780: '\" Cedilla -- c\*,
3781: .ds , ,
3782: '\" Lower-case umlaut -- [aeou]\*:
3783: .ds : \[email protected]@\[email protected]@.\[email protected]@.\[email protected]@\[email protected]@
3784: '\" Upper-case umlaut -- [AEOU]\*;
3785: .ds ; \[email protected]@\[email protected]@.\[email protected]@.\[email protected]@\[email protected]@
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.