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