2 .\"**********************************************************************
4 .\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *
6 .\"* Produced for your edification and enjoyment by: *
8 .\"* Electronics Research Laboratory *
11 .\"* VERSION 2.9 First Release: 11 Sept 1978 *
12 .\"* See file \*(||/revisions for revision history *
14 .\"* Documentation is available. *
16 .\"**********************************************************************
18 .\" @(#)tmac.e 2.9 12/10/80
19 .\" This version has had comments stripped; an unstripped version is available.
20 .if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
21 .if !\n(.V .tm This macro package works only on the version seven
22 .if !\n(.V .tm release of NROFF and TROFF.
62 . tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
89 . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
90 . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
97 . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
103 . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
113 . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
114 . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
121 . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
127 . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
138 .if (\\n(.i+\\n(.o)>=\\n(.l \
139 . tm Line \\n(c. -- Offset + indent exceeds line length
140 .if t .if (\\n(.l+\\n(.o)>7.75i \
141 . tm Line \\n(c. -- Offset + line length exceeds paper width
186 .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
188 . nr _b (\\n(ppu*\\n($ru)/2u
189 . if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
190 . nr _b (\\n(ppu*\\n($ru)-\n(.Vu
217 .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
282 .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
302 . if e .ds |z "\\*(|0
303 . if o .ds |z "\\*(|1
305 .if !\(ts\\*(|z\(ts\(ts \
313 . if e .ds |z "\\*(|0
314 . if o .ds |z "\\*(|1
316 .if \(ts\\*(|z\(ts\(ts \
318 . if e .ds |z "\\*(|2
319 . if o .ds |z "\\*(|3
321 .if !\(ts\\*(|z\(ts\(ts \
351 .if (\\n($m<=1):(\\n($l>\\n(_L) \
395 .nr tm +\\n(hmu-\\n(_0u
399 .nr tm \\n(hmu+\\n(tpp+\\$1v
402 .nr bm \\n(fmu+\\n(tpp+\\$1v
407 .nr bm +\\n(fmu-\\n(_0u
411 . tm Line \\n(c. -- I cannot skip multiple pages
415 .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
419 .ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i
425 . nr $i \\n(siu*\\n($0u
442 .if (\\n(ii>0)&(\\n(ii<1n) \
451 . ie \\w"\\$1">=\\n(_0 \
456 . el \&\\$1\h'|\\n(_0u'\c
466 .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
481 .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
485 .if (\\n(si>0)&(\\n(.$>2) \
491 . ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
493 . ti -(\\n(siu-\\n(sou)
500 . if \w"\\$2">0 \\$2.
501 . if \w"\\$1">0 \\$1\f1\ \ \"
524 .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
547 .tm Line \\n(c. -- unmatched .)z
564 .if (\\n(bt=0):(\\n(.t<\\n(bt) \
575 .sp \\n(bsu+\\n(.Lv-1v
578 .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
603 .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
610 .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
614 .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
619 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
640 .sp \\n(qsu+\\n(.Lv-1v
652 .sp \\n(bsu+\\n(.Lv-1v
676 .if \\n(.$ \&\\$1\f\\n(_F\\$2
683 .if \\n(.$ \&\\$1\f\\n(_F\\$2
693 .if \\n(.$ \&\\$1\f\\n(_F\\$2
702 .if \\n(.$ \&\\$1\f\\n(_F\\$2
709 \&\\*(lq\\$1\\*(rq\\$2
713 .ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
717 .ie \\n($T \&\f2\\$1\fP\\$2
718 .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
737 .so \\*(||/footnote.me
742 .tm Line \\n(c. -- unmatched .)f
751 .so \\*(||/deltext.me
756 .tm Line \\n(c. -- unmatched .)d
765 .tm Line \\n(c. -- unmatched .)x
809 . tm Line \\n(c. -- Bad mode to .++
817 .if (\\n(_0=3):(\\n(_0=5) \
838 .if !\\n(_0=\\n(_M .if \\n(_M=3 \
849 .ie \\n(_M=1 CHAPTER\ \ \\n(ch
850 .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
851 .if \w"\\$1" .sp 3-\\n(.L
853 .if (\\n(_M<3):(\w"\\$1") \
859 . $C Chapter \\n(ch "\\$1"
861 . $C Appendix \\n(ch "\\$1"
880 .if \n(mo=1 .ds mo January
881 .if \n(mo=2 .ds mo February
882 .if \n(mo=3 .ds mo March
883 .if \n(mo=4 .ds mo April
884 .if \n(mo=5 .ds mo May
885 .if \n(mo=6 .ds mo June
886 .if \n(mo=7 .ds mo July
887 .if \n(mo=8 .ds mo August
888 .if \n(mo=9 .ds mo September
889 .if \n(mo=10 .ds mo October
890 .if \n(mo=11 .ds mo November
891 .if \n(mo=12 .ds mo December
892 .if \n(dw=1 .ds dw Sunday
893 .if \n(dw=2 .ds dw Monday
894 .if \n(dw=3 .ds dw Tuesday
895 .if \n(dw=4 .ds dw Wednesday
896 .if \n(dw=5 .ds dw Thursday
897 .if \n(dw=6 .ds dw Friday
898 .if \n(dw=7 .ds dw Saturday
899 .ds td \*(mo \n(dy, 20\n(yr
900 .if (1m<0.1i)&(\nx!=0) \
921 .ds || /sys/lib/tmac/me
930 . ds [ \v'-0.4m'\x'-0.2m'\s-3
932 . ds < \v'0.4m'\x'0.2m'\s-3