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