File: tmac.n

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