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