![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.e CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac|
Return to tmac.e CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac |
1.1 root 1: .nr _0 \n(.c
2: .\"**********************************************************************
3: .\"* *
4: .\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *
5: .\"* *
6: .\"* Produced for your edification and enjoyment by: *
7: .\"* Eric Allman *
8: .\"* Electronics Research Laboratory *
9: .\"* U.C. Berkeley. *
10: .\"* *
11: .\"* VERSION 2.9 First Release: 11 Sept 1978 *
12: .\"* See file \*(||/revisions for revision history *
13: .\"* *
14: .\"* Documentation is available. *
15: .\"* *
16: .\"**********************************************************************
17: .\"
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.
23: .if !\n(.V .ex
24: .if \n(pf \
25: . nx \*(||/null.me
26: .de @C
27: .nr _S \\n(.s
28: .nr _V \\n(.v
29: .nr _F \\n(.f
30: .nr _I \\n(.i
31: .ev \\$1
32: .ps \\n(_Su
33: .vs \\n(_Vu
34: .ft \\n(_F
35: 'in \\n(_Iu
36: .xl \\n($lu
37: .lt \\n($lu
38: .rr _S
39: .rr _V
40: .rr _F
41: .rr _I
42: .ls 1
43: 'ce 0
44: ..
45: .de @D
46: .ds |p "\\$3
47: .nr _d \\$1
48: .ie "\\$2"C" \
49: . nr _d 1
50: .el .ie "\\$2"L" \
51: . nr _d 2
52: .el .ie "\\$2"I" \
53: . nr _d 3
54: .el .ie "\\$2"M" \
55: . nr _d 4
56: .el \
57: . ds |p "\\$2
58: ..
59: .de @z
60: .if !"\\n(.z"" \
61: \{\
62: . tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
63: . di
64: . ex
65: .\}
66: .if \\n(?a \
67: . bp
68: .rm bp
69: .rm @b
70: .if t \
71: . wh -1p @m
72: .br
73: ..
74: .de @I
75: .rm th
76: .rm ac
77: .rm lo
78: .rm sc
79: .rm @I
80: ..
81: .de he
82: .ie !\\n(.$ \
83: \{\
84: . rm |4
85: . rm |5
86: .\}
87: .el \
88: \{\
89: . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
90: . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
91: .\}
92: ..
93: .de eh
94: .ie !\\n(.$ \
95: . rm |4
96: .el \
97: . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
98: ..
99: .de oh
100: .ie !\\n(.$ \
101: . rm |5
102: .el \
103: . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
104: ..
105: .de fo
106: .ie !\\n(.$ \
107: \{\
108: . rm |6
109: . rm |7
110: .\}
111: .el \
112: \{\
113: . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
114: . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
115: .\}
116: ..
117: .de ef
118: .ie !\\n(.$ \
119: . rm |6
120: .el \
121: . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
122: ..
123: .de of
124: .ie !\\n(.$ \
125: . rm |7
126: .el \
127: . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
128: ..
129: .de ep
130: .if \\n(nl>0 \
131: \{\
132: . wh 0
133: . rs
134: . @b
135: .\}
136: ..
137: .de @h
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
142: .nr ?h \\n(?H
143: .rr ?H
144: .nr ?c \\n(?C
145: .rr ?C
146: .rn |4 |0
147: .rn |5 |1
148: .rn |6 |2
149: .rn |7 |3
150: .nr _w 0
151: .nr ?W 0
152: .nr ?I 1
153: .ev 2
154: .rs
155: .if t .@m
156: .if \\n(hm>0 \
157: . sp |\\n(hmu
158: .if \\n($T=2 \\!.
159: .@t $h
160: .if \\n(tm<=0 \
161: . nr tm \n(.Vu
162: .sp |\\n(tmu
163: .ev
164: .mk _k
165: .if \\n(?n .nm 1
166: .nr $c 1
167: .ie \\n(?s \
168: \{\
169: . rr ?s
170: . rs
171: ' @b
172: .\}
173: .el \
174: . @n
175: ..
176: .de @m
177: .@O 0
178: .lt 7.5i
179: .tl '\(rn''\(rn'
180: .@O
181: .lt
182: ..
183: .de @n
184: .if \\n(bm<=0 \
185: . nr bm \\n(.Vu
186: .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
187: \{\
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
191: . nr _b +\\n(bmu
192: .\}
193: .nr _B \\n(_bu
194: .ch @f
195: .wh -\\n(_bu @f
196: .nr ?f 0
197: .if \\n(?o \
198: \{\
199: . (f _
200: . nf
201: . |o
202: . fi
203: . )f
204: . rm |o
205: .\}
206: .nr ?o 0
207: .if \\n(?T \
208: \{\
209: . nr _i \\n(.i
210: . in \\n($iu
211: . |h
212: . in \\n(_iu
213: . rr _i
214: . mk #T
215: . ns
216: .\}
217: .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
218: \{\
219: . nr ?a 0
220: . @k |t
221: . if \\n(?w \
222: . mk _k
223: . nr ?w 0
224: .\}
225: .os
226: .$H
227: .ns
228: ..
229: .de @f
230: .ec
231: .if \\n(?T \
232: \{\
233: . nr T. 1
234: . T# 1
235: . br
236: .\}
237: .ev 2
238: .ce 0
239: .if \\n(?b \
240: \{\
241: . nr ?b 0
242: . @k |b
243: .\}
244: .if \\n(?f \
245: . @o
246: .ie \\n($c<\\n($m \
247: . @c
248: .el \
249: . @e
250: .ev
251: ..
252: .de @o
253: .nf
254: .ls 1
255: .in 0
256: .wh -\\n(_Bu @r
257: .|f
258: .fi
259: .if \\n(?o \
260: . di
261: . if \\n(dn=0 \
262: \{\
263: . rm |o
264: . nr ?o 0
265: . \}
266: . nr dn \\n(_D
267: . rr _D
268: .\}
269: .rm |f
270: .ch @r
271: ..
272: .de @c
273: .rs
274: .sp |\\n(_ku
275: .@O +\\n($lu+\\n($su
276: .nr $c +1
277: .@n
278: ..
279: .de @e
280: .@O \\n(_ou
281: .rs
282: .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
283: .@t $f
284: .nr ?h 0
285: .bp
286: ..
287: .de @t
288: .if !\\n(?h \
289: \{\
290: . sz \\n(tp
291: . @F \\n(tf
292: . lt \\n(_Lu
293: . nf
294: . \\$1
295: . br
296: .\}
297: ..
298: .de $h
299: .rm |z
300: .if !\\n(?c \
301: \{\
302: . if e .ds |z "\\*(|0
303: . if o .ds |z "\\*(|1
304: .\}
305: .if !\(ts\\*(|z\(ts\(ts \
306: ' tl \\*(|z
307: .rm |z
308: ..
309: .de $f
310: .rm |z
311: .if \\n(?c \
312: \{\
313: . if e .ds |z "\\*(|0
314: . if o .ds |z "\\*(|1
315: .\}
316: .if \(ts\\*(|z\(ts\(ts \
317: \{\
318: . if e .ds |z "\\*(|2
319: . if o .ds |z "\\*(|3
320: .\}
321: .if !\(ts\\*(|z\(ts\(ts \
322: ' tl \\*(|z
323: .rm |z
324: ..
325: .de @r
326: .di |o
327: .nr ?o 1
328: .nr _D \\n(dn
329: .ns
330: ..
331: .rn bp @b
332: .de bp
333: .nr $c \\n($m
334: .ie \\n(nl>0 \
335: . @b \\$1
336: .el \
337: \{\
338: . if \\n(.$>0 \
339: . pn \\$1
340: . if \\n(?I \
341: . @h
342: .\}
343: .br
344: .wh 0 @h
345: ..
346: .rn ll xl
347: .de ll
348: .xl \\$1
349: .lt \\$1
350: .nr $l \\n(.l
351: .if (\\n($m<=1):(\\n($l>\\n(_L) \
352: . nr _L \\n(.l
353: ..
354: .rn po @O
355: .de po
356: .@O \\$1
357: .nr _o \\n(.o
358: ..
359: .de hx
360: .nr ?H 1
361: ..
362: .de ix
363: 'in \\$1
364: ..
365: .de bl
366: .br
367: .ne \\$1
368: .rs
369: .sp \\$1
370: ..
371: .de n1
372: .nm 1
373: .xl -\w'0000'u
374: .nr ?n 1
375: ..
376: .de n2
377: .nm \\$1
378: .ie \\n(.$ \
379: . xl -\w'0000'u
380: .el \
381: . xl \\n($lu
382: ..
383: .de pa
384: .bp \\$1
385: ..
386: .de ro
387: .af % i
388: ..
389: .de ar
390: .af % 1
391: ..
392: .de m1
393: .nr _0 \\n(hmu
394: .nr hm \\$1v
395: .nr tm +\\n(hmu-\\n(_0u
396: .rr _0
397: ..
398: .de m2
399: .nr tm \\n(hmu+\\n(tpp+\\$1v
400: ..
401: .de m3
402: .nr bm \\n(fmu+\\n(tpp+\\$1v
403: ..
404: .de m4
405: .nr _0 \\n(fmu
406: .nr fm \\$1v
407: .nr bm +\\n(fmu-\\n(_0u
408: ..
409: .de sk
410: .if \\n(.$>0 \
411: . tm Line \\n(c. -- I cannot skip multiple pages
412: .nr ?s 1
413: ..
414: .de re
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
416: ..
417: .if t .ig
418: .de re
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
420: ..
421: .de ba
422: .ie \\n(.$ \
423: . nr $i \\$1n
424: .el \
425: . nr $i \\n(siu*\\n($0u
426: ..
427: .de hl
428: .br
429: \l'\\n(.lu-\\n(.iu'
430: .sp
431: ..
432: .de pp
433: .lp \\n(piu
434: ..
435: .de lp
436: .@p
437: .if \\n(.$ \
438: . ti +\\$1
439: .nr $p 0 1
440: ..
441: .de ip
442: .if (\\n(ii>0)&(\\n(ii<1n) \
443: . nr ii \\n(iin
444: .nr _0 \\n(ii
445: .if \\n(.$>1 \
446: . nr _0 \\$2n
447: .@p \\n(_0u
448: .if \\w"\\$1" \
449: \{\
450: . ti -\\n(_0u
451: . ie \\w"\\$1">=\\n(_0 \
452: \{\
453: \&\\$1
454: . br
455: . \}
456: . el \&\\$1\h'|\\n(_0u'\c
457: .\}
458: .rr _0
459: ..
460: .de np
461: .nr $p +1
462: .ip (\\n($p)
463: ..
464: .de @p
465: .@I
466: .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
467: .in \\n($iu+\\n(pou
468: .if \\n(.$ \
469: . in +\\$1n
470: .ce 0
471: .fi
472: .@F \\n(pf
473: .sz \\n(ppu
474: .sp \\n(psu
475: .ne \\n(.Lv+\\n(.Vu
476: .ns
477: ..
478: .de sh
479: .rn sh @T
480: .so \\*(||/sh.me
481: .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
482: .rm @T
483: ..
484: .de $p
485: .if (\\n(si>0)&(\\n(.$>2) \
486: . nr $i \\$3*\\n(si
487: .in \\n($iu
488: .ie !"\\$1\\$2"" \
489: \{\
490: . sp \\n(ssu
491: . ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
492: . ie \\n(.$>2 \
493: . ti -(\\n(siu-\\n(sou)
494: . el \
495: . ti +\\n(sou
496: . @F \\n(sf
497: . sz \\n(spu
498: . if \\$3>0 \
499: . $\\$3
500: . if \w"\\$2">0 \\$2.
501: . if \w"\\$1">0 \\$1\f1\ \ \"
502: .\}
503: .el \
504: . sp \\n(psu
505: .@F \\n(pf
506: .sz \\n(ppu
507: ..
508: .de uh
509: .rn uh @T
510: .so \\*(||/sh.me
511: .uh "\\$1"
512: .rm @T
513: ..
514: .de 2c
515: .br
516: .if \\n($m>1 \
517: . 1c
518: .nr $c 1
519: .nr $m 2
520: .if \\n(.$>1 \
521: . nr $m \\$2
522: .if \\n(.$>0 \
523: . nr $s \\$1n
524: .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
525: .xl \\n($lu
526: .mk _k
527: .ns
528: ..
529: .de 1c
530: .br
531: .nr $c 1
532: .nr $m 1
533: .ll \\n(_Lu
534: .sp |\\n(.hu
535: .@O \\n(_ou
536: ..
537: .de bc
538: .sp 24i
539: ..
540: .de (z
541: .rn (z @V
542: .so \\*(||/float.me
543: .(z \\$1 \\$2
544: .rm @V
545: ..
546: .de )z
547: .tm Line \\n(c. -- unmatched .)z
548: ..
549: .de (t
550: .(z \\$1 \\$2
551: ..
552: .de )t
553: .)z \\$1 \\$2
554: ..
555: .de (b
556: .br
557: .@D 3 \\$1 \\$2
558: .sp \\n(bsu
559: .@(
560: ..
561: .de )b
562: .br
563: .@)
564: .if (\\n(bt=0):(\\n(.t<\\n(bt) \
565: . ne \\n(dnu
566: .ls 1
567: .nf
568: .|k
569: .ec
570: .fi
571: .in 0
572: .xl \\n($lu
573: .ev
574: .rm |k
575: .sp \\n(bsu+\\n(.Lv-1v
576: ..
577: .de @(
578: .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
579: .@M
580: .di |k
581: \!'rs
582: ..
583: .de @M
584: .nr ?k 1
585: .@C 1
586: .@F \\n(df
587: .vs \\n(.su*\\n($Ru
588: .nf
589: .if "\\*(|p"F" \
590: . fi
591: .if \\n(_d=4 \
592: . in 0
593: .if \\n(_d=3 \
594: \{\
595: . in +\\n(biu
596: . xl -\\n(biu
597: .\}
598: .if \\n(_d=1 \
599: . ce 10000
600: ..
601: .de @)
602: .br
603: .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
604: .nr ?k 0
605: .di
606: .in 0
607: .ce 0
608: ..
609: .de (c
610: .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
611: .di |c
612: ..
613: .de )c
614: .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
615: .br
616: .di
617: .ev 1
618: .ls 1
619: .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
620: .nf
621: .|c
622: .ec
623: .in
624: .ls
625: .ev
626: .rm |c
627: ..
628: .de (q
629: .br
630: .@C 1
631: .fi
632: .sp \\n(qsu
633: .in +\\n(qiu
634: .xl -\\n(qiu
635: .sz \\n(qp
636: ..
637: .de )q
638: .br
639: .ev
640: .sp \\n(qsu+\\n(.Lv-1v
641: .nr ?k 0
642: ..
643: .de (l
644: .br
645: .sp \\n(bsu
646: .@D 3 \\$1 \\$2
647: .@M
648: ..
649: .de )l
650: .br
651: .ev
652: .sp \\n(bsu+\\n(.Lv-1v
653: .nr ?k 0
654: ..
655: .de EQ
656: .rn EQ @T
657: .so \\*(||/eqn.me
658: .EQ \\$1 \\$2
659: .rm @T
660: ..
661: .de TS
662: .rn TS @W
663: .so \\*(||/tbl.me
664: .TS \\$1 \\$2
665: .rm @W
666: ..
667: .de sz
668: .ps \\$1
669: .vs \\n(.su*\\n($ru
670: .bd S B \\n(.su/3u
671: ..
672: .de r
673: .nr _F \\n(.f
674: .ul 0
675: .ft 1
676: .if \\n(.$ \&\\$1\f\\n(_F\\$2
677: .rr _F
678: ..
679: .de i
680: .nr _F \\n(.f
681: .ul 0
682: .ft 2
683: .if \\n(.$ \&\\$1\f\\n(_F\\$2
684: .rr _F
685: ..
686: .de b
687: .nr _F \\n(.f
688: .ul 0
689: .ie t \
690: . ft 3
691: .el \
692: . ul 10000
693: .if \\n(.$ \&\\$1\f\\n(_F\\$2
694: .if \\n(.$ \
695: . ul 0
696: .rr _F
697: ..
698: .de rb
699: .nr _F \\n(.f
700: .ul 0
701: .ft 3
702: .if \\n(.$ \&\\$1\f\\n(_F\\$2
703: .rr _F
704: ..
705: .de u
706: \&\\$1\l'|0\(ul'\\$2
707: ..
708: .de q
709: \&\\*(lq\\$1\\*(rq\\$2
710: ..
711: .de bi
712: .ft 2
713: .ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
714: .el \&\\$1\fP\\$2
715: ..
716: .de bx
717: .ie \\n($T \&\f2\\$1\fP\\$2
718: .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
719: ..
720: .de @F
721: .nr ~ \\$1
722: .if \\n~>0 \
723: \{\
724: . ul 0
725: . ie \\n~>4 \
726: \{\
727: . if n .ul 10000
728: . if t .ft 3
729: . \}
730: . el \
731: . ft \\n~
732: .\}
733: .rr ~
734: ..
735: .de (f
736: .rn (f @U
737: .so \\*(||/footnote.me
738: .(f \\$1 \\$2
739: .rm @U
740: ..
741: .de )f
742: .tm Line \\n(c. -- unmatched .)f
743: ..
744: .de $s
745: \l'2i'
746: .if n \
747: . sp 0.3
748: ..
749: .de (d
750: .rn (d @U
751: .so \\*(||/deltext.me
752: .(d \\$1 \\$2
753: .rm @U
754: ..
755: .de )d
756: .tm Line \\n(c. -- unmatched .)d
757: ..
758: .de (x
759: .rn (x @U
760: .so \\*(||/index.me
761: .(x \\$1 \\$2
762: .rm @U
763: ..
764: .de )x
765: .tm Line \\n(c. -- unmatched .)x
766: ..
767: .de th
768: .so \\*(||/thesis.me
769: .rm th
770: ..
771: .de +c
772: .ep
773: .if \\n(?o:\\n(?a \
774: \{\
775: . bp
776: . rs
777: . ep
778: .\}
779: .nr ?C 1
780: .nr $f 1 1
781: .ds * \\*[1\\*]\k*
782: .if \\n(?R \
783: . pn 1
784: .bp
785: .in \\n($iu
786: .rs
787: .ie \\n(.$ \
788: . $c "\\$1"
789: .el \
790: . sp 3
791: ..
792: .de ++
793: .nr _0 0
794: .if "\\$1"C" \
795: . nr _0 1
796: .if "\\$1"RC" \
797: . nr _0 11
798: .if "\\$1"A" \
799: . nr _0 2
800: .if "\\$1"RA" \
801: . nr _0 12
802: .if "\\$1"P" \
803: . nr _0 3
804: .if "\\$1"B" \
805: . nr _0 4
806: .if "\\$1"AB" \
807: . nr _0 5
808: .if \\n(_0=0 \
809: . tm Line \\n(c. -- Bad mode to .++
810: .nr ?R 0
811: .if \\n(_0>10 \
812: .\{
813: . nr ?R 1
814: . nr _0 -10
815: .\}
816: .nr ch 0 1
817: .if (\\n(_0=3):(\\n(_0=5) \
818: . pn 1
819: .ep
820: .if \\n(_0=1 \
821: \{\
822: . af ch 1
823: . af % 1
824: .\}
825: .if \\n(_0=2 \
826: \{\
827: . af ch A
828: . af % 1
829: .\}
830: .if \\n(_0=3 \
831: . af % i
832: .if \\n(_0=4 \
833: . af % 1
834: .if \\n(_0=5 \
835: . af % 1
836: .if \\n(.$>1 \
837: . he \\$2
838: .if !\\n(_0=\\n(_M .if \\n(_M=3 \
839: . pn 1
840: .nr _M \\n(_0
841: .rr _0
842: ..
843: .de $c
844: .sz 12
845: .ft B
846: .ce 1000
847: .if \\n(_M<3 \
848: . nr ch +1
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
852: .if \w"\\$1" \\$1
853: .if (\\n(_M<3):(\w"\\$1") \
854: . sp 4-\\n(.L
855: .ce 0
856: .ft
857: .sz
858: .ie \\n(_M=1 \
859: . $C Chapter \\n(ch "\\$1"
860: .el .if \\n(_M=2 \
861: . $C Appendix \\n(ch "\\$1"
862: ..
863: .de tp
864: .hx
865: .bp
866: .br
867: .rs
868: .pn \\n%
869: ..
870: .de ac
871: .rn ac @T
872: .so \\*(||/acm.me
873: .ac "\\$1" "\\$2"
874: .rm @T
875: ..
876: .de lo
877: .so \\*(||/local.me
878: .rm lo
879: ..
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, 19\n(yr
900: .if (1m<0.1i)&(\nx!=0) \
901: . vs 9p
902: .rr x
903: .nr $r \n(.v/\n(.s
904: .nr $R \n($r
905: .nr hm 4v
906: .nr tm 7v
907: .nr bm 6v
908: .nr fm 3v
909: .nr tf 3
910: .nr tp 10
911: .hy 14
912: .nr bi 4n
913: .nr pi 5n
914: .nr pf 1
915: .nr pp 10
916: .nr qi 4n
917: .nr qp -1
918: .nr ii 5n
919: .nr $m 1
920: .nr $s 4n
921: .ds || /usr/lib/tmac/me
922: .bd S B 3
923: .ds [ \u\x'-0.25v'
924: .ds ] \d
925: .ds < \d\x'0.25v'
926: .ds > \u
927: .ds - --
928: .if t \
929: \{\
930: . ds [ \v'-0.4m'\x'-0.2m'\s-3
931: . ds ] \s0\v'0.4m'
932: . ds < \v'0.4m'\x'0.2m'\s-3
933: . ds > \s0\v'-0.4m'
934: . ds - \-
935: . nr fi 0.3i
936: .\}
937: .if n \
938: \{\
939: . nr fi 3n
940: .\}
941: .nr _o \n(.o
942: .if n .po 1i
943: .if \n(.V=1v \
944: . nr $T 2
945: .if \n(.T=0 \
946: . nr $T 1
947: .if t \
948: \{\
949: . nr $T 0
950: . po -0.5i
951: .\}
952: .if \nv \
953: . po 1i
954: .if \n($T \
955: \{\
956: . if \n($T=1 \
957: . po 0
958: . ds [ [
959: . ds ] ]
960: . ds < <
961: . ds > >
962: .\}
963: .nr ps 0.5v
964: .if \n($T \
965: . nr ps 1v
966: .if t .nr ps 0.35v
967: .nr bs \n(ps
968: .nr qs \n(ps
969: .nr zs 1v
970: .nr xs 0.2v
971: .nr fs 0.2v
972: .if \n($T \
973: . nr fs 0
974: .if n .nr es 1v
975: .if t .nr es 0.5v
976: .wh 0 @h
977: .nr $l \n(.lu
978: .nr _L \n(.lu
979: .nr $c 1
980: .nr $f 1 1
981: .ds * \*[1\*]\k*\"
982: .nr $d 1 1
983: .ds # [1]\k#\"
984: .nr _M 1
985: .ds lq \&"\"
986: .ds rq \&"\"
987: .if t \
988: . ds lq ``
989: .if t \
990: . ds rq ''
991: .em @z
992: .de sc
993: .so \\*(||/chars.me
994: .rm sc
995: ..
996: .ll 6.0i
997: .lt 6.0i
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.