![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.n CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / news / doc|
Return to tmac.n CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / news / doc |
1.1 root 1: .\" The News macro package
2: .\"
3: .\" This is the macro package that is used to format news documents. It
4: .\" was written because many sites do not have one of the -mm or -ms pack-
5: .\" ages that the documents use. This is NOT compatible with EITHER, but
6: .\" (I hope) will become the standard for all news documents (man pages
7: .\" excepted, since everyone seems to have -man.)
8: .\"
9: .\" This package was written using only the "NROFF/TROFF Users' Guide",
10: .\" and therefore if you can run NROFF/TROFF, you can legitimately use
11: .\" this package. However, because NROFF/TROFF are proprietary programs,
12: .\" I cannot place this package in the public domain. This should not
13: .\" matter, because if you legitimately have NROFF/TROFF, you have the
14: .\" documentation; if not, you can't run off the documentation anyway.
15: .\"
16: .\" This package may be circulated freely with the news documentation; it
17: .\" may not be sold, but is to be distributed with the unformatted news
18: .\" documents. However, the name of the author and the place at which it
19: .\" was written (in the author's own time, of course) are not to be
20: .\" removed from the package regardless of how it is modified or altered.
21: .\" Further, please do not distribute this package if you make any changes
22: .\" because I don't want to get bug reports of macros I haven't written;
23: .\" if you have a goodie you want me to add, send it to me and we'll talk.
24: .\" (I really do like feedback!) I'd really appreciate your cooperation.
25: .\"
26: .\" Author: Matt Bishop
27: .\" Research Institute for Advanced Computer Science
28: .\" Mail Stop 230-5
29: .\" NASA Ames Research Center
30: .\" Moffett Field, CA 94035
31: .\"
32: .\" version 1.0 September 28, 1985 [email protected]
33: .\" initial version
34: .\" version 1.1 October 25, 1985 [email protected]
35: .\" fixed an incredibly obscure footnote bug (that occurred twice in
36: .\" the news documentation!) which put footnoted words on one page
37: .\" and the footnote on the next if the word was in the next-to-last
38: .\" or last line; commented it, and generally cleaned up
39: .\" Version 1.2 October 27, 1985 [email protected]
40: .\" Added a few more comments and a check to keep footnotes lined up
41: .\" with the bottom margin.
42: .\" Version 1.3 February 12, 1986 [email protected]
43: .\" Added an error check to catch unmatched ef's and ed's
44: .\"
45: .\" **********
46: .\" these preserve and restore various things
47: .\" they are used to shorten other macros
48: .de yf \" restore fonts
49: .ft \\n(f2 \" previous font
50: .ft \\n(f1 \" current font
51: ..
52: .de yi \" restore indents
53: 'in \\n(i2u \" previous indent
54: 'in \\n(i1u \" current indent
55: ..
56: .de ys \" restore point sizes
57: .ps \\n(s2 \" previous point size
58: .ps \\n(s1 \" current point size
59: ..
60: .de yv \" restore vertical spacings
61: .vs \\n(v2u \" previous vertical spacing
62: .vs \\n(v1u \" current vertical spacing
63: ..
64: .de ya \" restore everything
65: .yf \" restore fonts
66: .yi \" restore indents
67: .ys \" restore point sizes
68: .yv \" restore vertical spacing
69: ..
70: .de zf \" preserve fonts
71: .nr f1 \\n(.f \" current font
72: .ft \" switch to previous font
73: .nr f2 \\n(.f \" previous font
74: .ft \" back to current font
75: ..
76: .de zi \" preserve indents
77: .nr i1 \\n(.iu \" current indent
78: 'in \" switch to previous indent
79: .nr i2 \\n(.iu \" previous indent
80: 'in \" back to current indent
81: ..
82: .de zs \" preserve point sizes
83: .nr s1 \\n(.su \" current point size
84: .ps \" switch to previous point size
85: .nr s2 \\n(.su \" previous point size
86: .ps \" back to current point size
87: ..
88: .de zv \" preserve vertical spacings
89: .nr v1 \\n(.vu \" current vertical spacing
90: .vs \" switch to previous vertical spacing
91: .nr v2 \\n(.vu \" previous vertical spacing
92: .vs \" back to current vertical spacing
93: ..
94: .de za \" save everything
95: .zf \" save fonts
96: .zi \" save indents
97: .zs \" save point sizes
98: .zv \" save vertical spacings
99: ..
100: .\" **********
101: .\" these actually print the header and footer titles
102: .\" they are defined separately from the "hd" and "fo" macros
103: .\" to make user redefinition easy
104: .de pt \" print header title
105: . \" omit header on first page
106: .if \\n%>1 \{\
107: ' sp |\\$1u \" move to proper position
108: . ft 1 \" change to default font
109: . ps \\n(ps \" change to default point size
110: . vs \\n(vs \" change to default spacing
111: . tl '\\*(h0'\\*(h1'\\*(h2' \" center title
112: . vs \" restore current vertical spacing
113: . ps \" restore current point size
114: . ft \" restore current font
115: .\}
116: ..
117: .de pf \" print footer title
118: .ft 1 \" change to default font
119: .ps \\n(ps \" change to default point size
120: .vs \\n(vs \" change to default spacing
121: .ie \\n%=1 .tl '\\*(h0'\\*(h1'\\*(h2' \" on first page, print the header here
122: .el .tl '\\*(f0'\\*(f1'\\*(f2' \" on other pages, print the footer
123: .vs \" restore current vertical spacing
124: .ps \" restore current point size
125: .ft \" restore current font
126: ..
127: .\" **********
128: .\" these are the top of page (header) and bottom of page (footer) macros
129: .\" they don't actually print anything, just call the right macros
130: .de hd \" header -- do top of page processing
131: .if t .if \\n(cm .tl '\(rn''' \" drop cut mark if needed
132: .pt \\n(ttu \" print header
133: .nr fc 0 1 \" init footnote count
134: .nr fs \\n(.pu-\\n(bmu-1u \" if any footnotes, start print here
135: .nr fp 0-\\n(bmu \" reset current footer place
136: .ch fo -\\n(bmu \" reset footer trap
137: .if \\n(dn .fz \" put leftover footnotes st bottom
138: .ya \" restore font, etc.
139: 'sp |\\n(tmu \" move to top of body
140: .ns \" don't allow any more space
141: ..
142: .de fo \" footer -- do bottom of page processing
143: .za \" save font, etc.
144: .rs \" you want motions here
145: .nr dn 0 \" clobber diversion size register
146: .if \\n(fc .fd \" now print the footnotes, if any
147: 'bp \" force out page
148: ..
149: .\" **********
150: .\" these are the footnote macros
151: .\" here's an overview:
152: .\" Footnotes are processed in environment #1, which is initialized
153: .\" at the bottom of this package. When "fn" is called, nroff/troff
154: .\" switches to this environment. The body of the footnote is saved
155: .\" in the diversion "tf" (for "temporary footnote"), so you will
156: .\" NEVER spring a trap during the first reading of a footnote. When
157: .\" "ef" ("end footnote" is called, the diversion is closed. If
158: .\" this is the first footnote on the page (ie, the number register
159: .\" "fc" is 1), and the footnote height (plus the height of 1 line)
160: .\" crosses the bottom margin, you get the footnoted word on one
161: .\" page and the footnote on the other. In this case we just call
162: .\" "fo" manually (taking case it cannot be re-invoked on the same
163: .\" page!) If this situation does not occur, we just adjust the
164: .\" footer trap's position upwards (we'll get to how far in a min-
165: .\" ute); if this puts the trap above the current line, we reposi-
166: .\" tion the trap just beneath the current line to be sure of trig-
167: .\" triggering it once the current line is forced out.
168: .\" To reposition the footer trap, we proceed as follows. Because
169: .\" the trap may be sprung in the middle of a line, it is possible
170: .\" that the footnote will not fit on the page (regardless of where
171: .\" on the page the footnoted word occurs -- really!) if we move the
172: .\" trap up by the size of the footnote diversion "tf". So, we
173: .\" fudge things a little bit -- for the first footnote on each page
174: .\" we move the footer trap up 1 extra line ("line" being 1v in env-
175: .\" ironment #0). Unless the point size and vertical spacing are
176: .\" increased between the first footnote and the footer trap's being
177: .\" sprung, this will keep the footnotes on the same page as the
178: .\" footnoted word. But as there may be now as much as 1v of space
179: .\" between the footnote and the bottom margin, which looks HIDEOUS,
180: .\" we use the number register "fs" to mark where the footer trap
181: .\" would REALLY go, and just space to it when it comes time to put
182: .\" out the footnotes.
183: .de fd \" dump footnotes
184: .nr gs 1v \" get a measure of 1 line in env #0
185: .ev 1 \" switch to footnote environment
186: .nr gs +2v \" min of 2 lines of footnotes
187: . \" if the number register ns > 0,
188: . \" the last text line may contain a
189: . \" footnote that is too big to fit;
190: . \" this checks for such a note and
191: . \" if so, forces the footnote into
192: . \" the "fy" diversion that carries
193: . \" it onto the next text page
194: .ie (\\n(nsu>0)&(\\n(gsu>=\\n(.tu) 'sp \\n(gsu \" be sure you can get it down
195: .el .if \\n(fsu>\\n(nlu 'sp \\n(fsu-\\n(nlu \" move to footnote start position
196: 'nf \" don't reprocess footnotes
197: 'in 0 \" don't indent them any more either
198: .tf \" drop text of footnotes
199: .rm tf
200: .if '\\n(.z'fy' .di \" end overflow diversion, if any
201: .nr fc 0 \" re-init footnote count
202: .ev \" return to usual environment
203: ..
204: .de fn \" start footnote
205: . \" look for nested footnotes -- ILLEGAL
206: .ie \\n(if>0 .er "footnote within footnote"
207: .el .da tf \" append footnote to footnote diversion
208: .nr if +1 \" increment level of footnoting
209: .nr fc +1 \" one more footnote on this page
210: .if \\n(fc=1 .nr fp -1v \" The reason for this "fudge factor"
211: . \" is that there is no way to force
212: . \" NROFF/TROFF to invoke a macro at
213: . \" the end of each line. At times,
214: . \" the trap boundary will not match up
215: . \" with the bottom of a line, so the
216: . \" "fo" trap which is set at 2320 may
217: . \" not be triggered until 2340 -- and
218: . \" then the footnote won't fit. This
219: . \" gives some slack so the footnote is
220: . \" more likely to fit. *sigh*
221: .ev 1 \" enter footnote environment
222: .if \\n(fc=1 .fs \" drop separator if first footnote
223: .br \" flush out any previous line in footnote
224: .fi \" process footnote in fill mode
225: ..
226: .de ef \" end footnote
227: .br \" flush out the line in footnote
228: .ie \\n(if<=0 .er "end footnote has no corresponding begin footnote"
229: .el \{\
230: . nr if -1 \" decrement level of footnoting
231: . nr fg 2v \" remember this for repositioning fo
232: . ev \" back to usual environment
233: . if \\n(if=0 \{\
234: . di \" end of footnote proper
235: . nr fp -\\n(dnu \" "fo" will be moved at least up this far
236: . nr fs -\\n(dnu \" increase size of footnote
237: . ch fo \\n(fpu \" reposition "fo" trap (first guess)
238: . \" the first part of the "ie" clause
239: . \" is taken in the special case
240: . \" described above
241: . ie (\\n(fc=1)&((\\n(nlu+1v+\\n(fgu)>=(\\n(.pu-\\n(bmu)) \{\
242: . nr ns \\n(dnu \" suppress footnote separator
243: . \" since this footnote contains it
244: . \" keep "fo" from being invoked twice
245: . ch fo \\n(.pu+1i
246: . fo \" force the page out AT ONCE
247: . nr ns 0 \" re-enable footnote separator
248: . \}
249: . \" footnote won't fit completely
250: . el .if (\\n(nlu+1v)>=(\\n(.pu+\\n(fpu) .ch fo \\n(nlu+1u
251: . \}
252: .\}
253: ..
254: .de fs \" drop footnote separator
255: . \" only if not already dropped
256: .if \\n(ns=0 \l'1i'
257: .nr ns 0 \" in case footnotes are over 1 page long
258: ..
259: .de fx \" process footnote overflow
260: .if \\n(fc .di fy \" stuff them in the right place
261: ..
262: .de fz \" deposit footnote overflow
263: .fn \" treat it as a footnote
264: .nf \" it's already been processed
265: .in 0 \" and indented
266: .fy \" "fx" put it here
267: .ef \" end the footnote
268: ..
269: .\" **********
270: .\" the ones after here are user-invoked (like "fn" and "ef" above)
271: .\" title, author, etc.
272: .de mt \" main title
273: \&
274: .sp |\\n(mtu \" space
275: .ft 3 \" in bold
276: .ps \\n(ps+2p \" large point size and
277: .vs \\n(vs+2p \" vertical spacing
278: .ce 1000 \" center the title
279: .nr t2 1 \" space it
280: ..
281: .de au \" author
282: .nr t2 0 \" spacing here
283: .sp 2v \" space
284: .ft 2 \" in italics
285: .ps \\n(ps \" usual point size and
286: .vs \\n(vs \" vertical spacing
287: .ce 1000 \" center the name(s)
288: ..
289: .de ai \" author's institution
290: .if \\n(t2 .sp 2v \" space after a title
291: .nr t2 0 \" institution
292: .ft 2 \" in italics
293: .ps \\n(ps \" usual point size and
294: .vs \\n(vs \" vertical spacing
295: .ce 1000 \" center the name(s)
296: ..
297: .de bt \" begin text macro
298: .nr t2 0 \" hold it here
299: .nr it +1 \" mark as called
300: .ce 0 \" end any centering
301: .sn 3v \" a little bit of space
302: ..
303: .\" paragraph
304: .de si \" start indented section
305: .nr lo \\n(lm \" remember the current level
306: .nr lm +1 \" go to the next level
307: .ie '\\$1'' .nr l\\n(lm \\n(l\\n(lo+5n \" if no arg, indent 5n
308: .el .nr l\\n(lm \\$1n \" otherwise, indent that much
309: ..
310: .de ei \" end indent
311: .nr lm -1 \" down one level
312: .if \\n(lm<0 .nr lm 0 \" make sure you don't go too far
313: ..
314: .de pg \" plain old paragraph
315: .if !\\n(it .bt \" end the title and such
316: .sn \\n(pdu \" inter-paragraph spacing
317: .ft 1 \" reset a few things (paranoia)
318: . \" these ONLY if not in footnote
319: .ie \\n(if=0 \{\
320: . ps \\n(ps \" reset point size
321: . vs \\n(vs \" reset vertical spacing
322: . ne 1v+\\n(.Vu \" slightly more than 1 line
323: .\}
324: .el \{\
325: . ps \\n(ps-2p \" reset point size
326: . vs \\n(vs-2p \" reset vertical spacing
327: .\}
328: .in \\n(l\\n(lmu \" stop any indenting
329: .ce 0 \" stop any centering
330: .if !'\\$1'L' .if !'\\$1'l' .ti +\\n(piu \" indent the sucker
331: ..
332: .de lp \" labelled paragraph
333: .pg l \" reset paragraph
334: .if \\n(.$>1 .nr li \\$2n \" if indent given use it
335: .in +\\n(liu \" indent for paragraph
336: .ti -\\n(liu \" force first line NOT to indent
337: .ta +\\n(liu \" for the label
338: \&\\$1\t\c
339: .if \\w'\\$1'u>=(\\n(l\\n(lmu+\\n(liu) .br \" don't overwrite
340: ..
341: .\" section
342: .de hu \" header, unnumbered
343: .if !\\n(it .bt \" end the title and such
344: .br \" force out previous line
345: .b
346: .ps \\n(ps
347: .vs \\n(vs
348: .in \\n(l\\n(lmu \" stop any indenting
349: .sn \\n(hsu \" inter-section spacing
350: .ne 3v+\\n(.Vu \" slightly more than 3 lines
351: .fi \" process the text, too
352: ..
353: .de hn \" header, numbered
354: .hu
355: .ie !'\\$1'' .nr hn \\$1
356: .el .nr hn 1
357: .ie \\n(hn>0 .nr hn -1
358: .el .nr hn 0
359: .ie \\n(hn=0 \{\
360: . nr h0 +1 \" add 1 to main section header
361: . nr h1 0 \" zap remaining section numbers
362: . nr h2 0 \" zap remaining section numbers
363: . nr h3 0 \" zap remaining section numbers
364: \\n(h0.
365: .\}
366: .el .ie \\n(hn=1 \{\
367: . nr h1 +1 \" add 1 to the section header
368: . nr h2 0 \" zap remaining section numbers
369: . nr h3 0 \" zap remaining section numbers
370: \\n(h0.\\n(h1.
371: .\}
372: .el .ie \\n(hn=2 \{\
373: . nr h2 +1 \" add 1 to the section header
374: . nr h3 0 \" zap remaining section numbers
375: \\n(h0.\\n(h1.\\n(h2.
376: .\}
377: .el \{\
378: . nr h3 +1 \" add 1 to the section number
379: \\n(h0.\\n(h1.\\n(h2.\\n(h3.
380: .\}
381: .if \\n(.$=2 \\$2
382: ..
383: .\" displays (no floats, thank God!)
384: .de sd \" start display
385: . \" look for nested displays -- ILLEGAL
386: .ie \\n(id>0 .er "display within display"
387: .el \{\
388: . ie '\\$1'c' .nr sf 1 \" center the sucker
389: . el .nr sf 0 \" don't center it
390: .\}
391: .sn \\n(pdu \" a little bit of space
392: .ev 2 \" switch to display environment
393: .nf \" what you type is what you get
394: .if \\n(id=0 .di dd \" start saving text
395: .rs \" don't eat leading space
396: .nr id +1 \" increment level of display
397: ..
398: .de ed \" end display
399: .br \" flush line
400: .ie \\n(id<=0 .er "end display has no corresponding begin display"
401: .el \{\
402: . nr id -1 \" decrement level of display
403: . if \\n(id=0 \{\
404: . di \" end diversion
405: . fi \" resume filling
406: . in -\\n(piu \" dedent
407: . ev \" pop environment
408: . ne \\n(dnu \" be sure you have room
409: . nf \" don't reprocess display
410: . rs \" don't eat leading space
411: . zi \" save indents
412: . ie \\n(sf .in (\\n(llu-\\n(dlu)/2u \" center on the line length
413: . el .in +\\n(piu \" indent the sucker
414: . dd \" drop display
415: . yi \" restore indents
416: . \}
417: .\}
418: .fi \" resume filling
419: .sn \\n(pdu \" a little bit of space
420: ..
421: .\" **********
422: .\" fonts -- if argument(s), apply only to first
423: .de b \" bold (font 3)
424: .ie \\n(.$>0 \\&\\$3\\f3\\$1\\fP\\$2
425: .el .ft 3
426: ..
427: .de i \" italics (font 2)
428: .ie \\n(.$>0 \\&\\$3\\f2\\$1\\fP\\$2
429: .el .ft 2
430: ..
431: .de r \" roman (font 1)
432: .ft 1 \" just restore it
433: ..
434: .de bi \" bold italics (embolden font 2)
435: \\&\\$3\c
436: \\kb\\f2\\$1\\fP\\h'|\\nbu+2u'\\f2\\$1\\fP\\$2
437: ..
438: .\" **********
439: .\" point sizes -- if argument(s), apply only to first
440: .de sm \" reduce point size by 2
441: .ie \\n(.$>0 \\&\\$3\\s-2\\$1\\s0\\$2
442: .el .ps -2
443: ..
444: .de is \" increase point size by 2
445: .ie \\n(.$>0 \\&\\$3\\s+2\\$1\\s0\\$2
446: .el .ps +2
447: ..
448: .de nl \" return to normal size
449: .ps \\n(ps \" just reset the point size
450: ..
451: .\" **********
452: .\" handy force space/inhibit more space macros
453: .de sn \" space, then turn on nospace mode
454: .sp \\$1 \" space
455: .ns \" ignore any more space requests
456: ..
457: .de sr \" force out space
458: .rs \" turn on spacing mode
459: .sp \\$1 \" space
460: ..
461: .\" **********
462: .\" end of text and error macros
463: .de et \" end of text macro
464: .br \" flush out remaining line
465: .tf \" dump any footnotes
466: . \" check for open displays or footnotes
467: .if \\n(id>0 .er "unfinished display"
468: .if \\n(if>0 .er "unfinished footnote"
469: . \" this one means an -mn bug (*sigh*)
470: .if !'\\n(.z'' .er "diversion \\n(.z not closed"
471: ..
472: .de er \" print error message
473: . \" flag it as an error
474: .ds ws "** ERROR **
475: . \" if you have it, give the file name
476: .if !'\\*(.f'' .as ws " file \\*(.f,
477: . \" put out the line number
478: .as ws " line \\n(.c
479: . \" and finally the error message
480: .tm \\*(ws: \\$1
481: ..
482: .\" **********
483: .\" macros in this section are VERY specific to the news documentation
484: .de pa \" protocol appellation (darn names!)
485: \\&\\$3\\f2\\$1\\fP\\$2
486: ..
487: .de ng \" news group name
488: \\&\\$3\\f3\\$1\\fP\\$2
489: ..
490: .de cn \" computer name
491: \\&\\$3\\f2\\$1\\fP\\$2
492: ..
493: .de hf \" header field
494: \\&\\$3\\*(lq\\$1\\*(rq\\$2
495: ..
496: .de cf \" contents of field
497: \\&\\$3\\*(lq\\$1\\*(rq\\$2
498: ..
499: .de qc \" quote control char (command)
500: \\&\\$3\\f3<\\s-2\\$1\\s0>\\fP\\$2
501: ..
502: .de qp \" quote printing char (command)
503: \\&\\$3\\f3\\$1\\fP\\$2
504: ..
505: .de op \" option
506: \\&\\$3\\f3\\$1\\fP\\$2
507: ..
508: .\" **********
509: .\" trademarked names
510: .de pd \" print "PDP-11"
511: .ie \\n(p1 \\&\\$2\\s-1PDP\\s0-11\\$1
512: .el \{\
513: . nr p1 +1 \" mark footnote as dropped
514: \\&\\$2\\s-1PDP\\s0-11\\*(dg\\$1
515: . fn \" put out the footnote
516: \\&\\*(dgPDP-11 is a trademark of Digital Equipment Corporation.
517: . ef \" short and sweet ...
518: .\}
519: ..
520: .de ux \" print "UNIX"
521: .ie \\n(ux \\&\\$2\\s-1UNIX\\s0\\$1
522: .el \{\
523: . nr ux +1 \" mark footnote as dropped
524: \\&\\$2\\s-1UNIX\\s0\\*(dg\\$1
525: . fn \" put out the footnote
526: \\&\\*(dgUNIX is a trademark of AT&T Bell Laboratories.
527: . ef \" short and sweet ...
528: .\}
529: ..
530: .de vx \" print "VAX"
531: .ie \\n(vx \\&\\$2\\s-1VAX\\s0\\$1
532: .el \{\
533: . nr vx +1 \" mark footnote as dropped
534: \\&\\$2\\s-1VAX\\s0\\*(dg\\$1
535: . fn \" put out the footnote
536: \\&\\*(dgVAX is a trademark of Digital Equipment Corporation.
537: . ef \" short and sweet ...
538: .\}
539: ..
540: .\" **********
541: .\" set up string and number registers
542: . \" set up for the date
543: .if \n(mo=1 .ds mo January
544: .if \n(mo=2 .ds mo February
545: .if \n(mo=3 .ds mo March
546: .if \n(mo=4 .ds mo April
547: .if \n(mo=5 .ds mo May
548: .if \n(mo=6 .ds mo June
549: .if \n(mo=7 .ds mo July
550: .if \n(mo=8 .ds mo August
551: .if \n(mo=9 .ds mo September
552: .if \n(mo=10 .ds mo October
553: .if \n(mo=11 .ds mo November
554: .if \n(mo=12 .ds mo December
555: .ds dy "\*(mo \n(dy, 19\n(yr
556: .if \n(dw=1 .ds dw Sunday
557: .if \n(dw=2 .ds dw Monday
558: .if \n(dw=3 .ds dw Tuesday
559: .if \n(dw=4 .ds dw Wednesday
560: .if \n(dw=5 .ds dw Thursday
561: .if \n(dw=6 .ds dw Friday
562: .if \n(dw=7 .ds dw Saturday
563: . \" NROFF dependencies
564: .if n \{\
565: . \" string registers
566: . ds dg *
567: . ds lq ""
568: . ds rq ""
569: . ds f1 "\*(dy
570: . \" number registers
571: . nr hs 1v \" space before section header
572: . nr pd 1v \" inter-paragraph spacing
573: . nr bm 1.0i \" height of bottom margin
574: .\}
575: .if t \{\
576: . \" string registers
577: . ds dg \(dg
578: . ds lq ``
579: . ds rq ''
580: . \" number registers
581: . nr hs 1v \" space before section header
582: . nr pd 0.3v \" inter-paragraph spacing
583: . nr bm 1.0i+1v \" height of bottom margin (wacky laser)
584: .\}
585: . \" these are the same for [NT]ROFF
586: .ds vr "News Version B2.10.3
587: .ds h1 - % -
588: .nr bt 0.5i+1v \" bottom of page to footer
589: .nr cm 0 \" no cut marks
590: .nr fc 0 1 \" init footnote count
591: .nr fl 5.5i \" footnote line length
592: .nr fp 0-\n(bmu \" fo macro trap location
593: .nr h0 0 \" init section header level 0
594: .nr h1 0 \" init section header level 1
595: .nr h2 0 \" init section header level 2
596: .nr h3 0 \" init section header level 3
597: .nr id 0 \" 1 in display
598: .nr if 0 \" 1 in keep
599: .nr it 0 \" 1 when beyond title, etc.
600: .nr li 5n \" indent for labelled paragraph
601: .nr ll 6.5i \" line length
602: .nr lm 0 \" left margin
603: .nr l0 0 \" first indent level
604: .nr mt 1.5i+1v \" title goes down this far
605: .nr pi 5n \" regular paragraph indent
606: .nr po 1.0i \" page offset
607: .nr ps 10 \" point size
608: .nr tm 1.0i \" height of top margin
609: .nr tt 0.5i-0.5v \" top of page to header
610: .nr p1 0 \" no PDP-TM message yet
611: .nr ux 0 \" no UNIX-TM message yet
612: .nr vx 0 \" no VAX-TM message yet
613: .nr vs 12 \" vertical spacing
614: .\" set things up
615: .po \n(pou \" set page offset
616: .ps \n(ps \" set previous, current
617: .ps \n(ps \" point sizes
618: .vs \n(vs \" set previous, current
619: .vs \n(vs \" vertical spacings
620: .ll \n(llu \" set line length
621: .lt \n(llu \" set title line length
622: .ev 1 \" *** footnote environment
623: .ps \n(ps-2p \" set previous, current
624: .ps \n(ps-2p \" point sizes
625: .vs \n(vs-2p \" set previous, current
626: .vs \n(vs-2p \" vertical spacings
627: .ll \n(flu \" set line length
628: .lt \n(flu \" set title line length
629: .ev \" *** pop environment
630: .ev 2 \" *** footnote environment
631: .ps \n(ps \" set previous, current
632: .ps \n(ps \" point sizes
633: .vs \n(vs \" set previous, current
634: .vs \n(vs \" vertical spacings
635: .ll \n(llu \" set line length
636: .lt \n(llu \" set title line length
637: .ev \" *** pop environment
638: .\" install traps
639: .wh 0i hd \" position header trap
640: .wh -\n(bmu fo \" position footer trap
641: .wh \n(.pu+1i fx \" put footnote overflow trap here
642: .ch fx -\n(bmu \" move it over fo
643: .wh -\n(btu pf \" print the bottom margin here
644: .em et \" at end of file, call et
645: .\" couple of miscellaneous requests
646: .bd S 3 3 \" embolden special font chars if B
647: .hy 2 \" don't hyphenate last lines
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.