1 13f7391e 2004-05-15 devnull .nr _0 \n(.c
2 13f7391e 2004-05-15 devnull .\"**********************************************************************
4 13f7391e 2004-05-15 devnull .\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *
6 13f7391e 2004-05-15 devnull .\"* Produced for your edification and enjoyment by: *
7 13f7391e 2004-05-15 devnull .\"* Eric Allman *
8 13f7391e 2004-05-15 devnull .\"* Electronics Research Laboratory *
9 13f7391e 2004-05-15 devnull .\"* U.C. Berkeley. *
11 13f7391e 2004-05-15 devnull .\"* VERSION 2.9 First Release: 11 Sept 1978 *
12 13f7391e 2004-05-15 devnull .\"* See file \*(||/revisions for revision history *
14 13f7391e 2004-05-15 devnull .\"* Documentation is available. *
16 13f7391e 2004-05-15 devnull .\"**********************************************************************
18 13f7391e 2004-05-15 devnull .\" @(#)tmac.e 2.9 12/10/80
19 13f7391e 2004-05-15 devnull .\" This version has had comments stripped; an unstripped version is available.
20 13f7391e 2004-05-15 devnull .if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
21 13f7391e 2004-05-15 devnull .if !\n(.V .tm This macro package works only on the version seven
22 13f7391e 2004-05-15 devnull .if !\n(.V .tm release of NROFF and TROFF.
23 13f7391e 2004-05-15 devnull .if !\n(.V .ex
24 13f7391e 2004-05-15 devnull .if \n(pf \
25 13f7391e 2004-05-15 devnull . nx \*(||/null.me
27 13f7391e 2004-05-15 devnull .nr _S \\n(.s
28 13f7391e 2004-05-15 devnull .nr _V \\n(.v
29 13f7391e 2004-05-15 devnull .nr _F \\n(.f
30 13f7391e 2004-05-15 devnull .nr _I \\n(.i
32 13f7391e 2004-05-15 devnull .ps \\n(_Su
33 13f7391e 2004-05-15 devnull .vs \\n(_Vu
34 13f7391e 2004-05-15 devnull .ft \\n(_F
35 13f7391e 2004-05-15 devnull 'in \\n(_Iu
36 13f7391e 2004-05-15 devnull .xl \\n($lu
37 13f7391e 2004-05-15 devnull .lt \\n($lu
46 13f7391e 2004-05-15 devnull .ds |p "\\$3
47 13f7391e 2004-05-15 devnull .nr _d \\$1
48 13f7391e 2004-05-15 devnull .ie "\\$2"C" \
49 13f7391e 2004-05-15 devnull . nr _d 1
50 13f7391e 2004-05-15 devnull .el .ie "\\$2"L" \
51 13f7391e 2004-05-15 devnull . nr _d 2
52 13f7391e 2004-05-15 devnull .el .ie "\\$2"I" \
53 13f7391e 2004-05-15 devnull . nr _d 3
54 13f7391e 2004-05-15 devnull .el .ie "\\$2"M" \
55 13f7391e 2004-05-15 devnull . nr _d 4
57 13f7391e 2004-05-15 devnull . ds |p "\\$2
60 13f7391e 2004-05-15 devnull .if !"\\n(.z"" \
62 13f7391e 2004-05-15 devnull . tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
66 13f7391e 2004-05-15 devnull .if \\n(?a \
71 13f7391e 2004-05-15 devnull . wh -1p @m
82 13f7391e 2004-05-15 devnull .ie !\\n(.$ \
89 13f7391e 2004-05-15 devnull . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
90 13f7391e 2004-05-15 devnull . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
94 13f7391e 2004-05-15 devnull .ie !\\n(.$ \
97 13f7391e 2004-05-15 devnull . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
100 13f7391e 2004-05-15 devnull .ie !\\n(.$ \
103 13f7391e 2004-05-15 devnull . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
106 13f7391e 2004-05-15 devnull .ie !\\n(.$ \
113 13f7391e 2004-05-15 devnull . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
114 13f7391e 2004-05-15 devnull . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
118 13f7391e 2004-05-15 devnull .ie !\\n(.$ \
121 13f7391e 2004-05-15 devnull . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
124 13f7391e 2004-05-15 devnull .ie !\\n(.$ \
127 13f7391e 2004-05-15 devnull . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
130 13f7391e 2004-05-15 devnull .if \\n(nl>0 \
138 13f7391e 2004-05-15 devnull .if (\\n(.i+\\n(.o)>=\\n(.l \
139 13f7391e 2004-05-15 devnull . tm Line \\n(c. -- Offset + indent exceeds line length
140 13f7391e 2004-05-15 devnull .if t .if (\\n(.l+\\n(.o)>7.75i \
141 13f7391e 2004-05-15 devnull . tm Line \\n(c. -- Offset + line length exceeds paper width
142 13f7391e 2004-05-15 devnull .nr ?h \\n(?H
144 13f7391e 2004-05-15 devnull .nr ?c \\n(?C
146 13f7391e 2004-05-15 devnull .rn |4 |0
147 13f7391e 2004-05-15 devnull .rn |5 |1
148 13f7391e 2004-05-15 devnull .rn |6 |2
149 13f7391e 2004-05-15 devnull .rn |7 |3
150 13f7391e 2004-05-15 devnull .nr _w 0
151 13f7391e 2004-05-15 devnull .nr ?W 0
152 13f7391e 2004-05-15 devnull .nr ?I 1
155 13f7391e 2004-05-15 devnull .if t .@m
156 13f7391e 2004-05-15 devnull .if \\n(hm>0 \
157 13f7391e 2004-05-15 devnull . sp |\\n(hmu
158 13f7391e 2004-05-15 devnull .if \\n($T=2 \\!.
160 13f7391e 2004-05-15 devnull .if \\n(tm<=0 \
161 13f7391e 2004-05-15 devnull . nr tm \n(.Vu
162 13f7391e 2004-05-15 devnull .sp |\\n(tmu
165 13f7391e 2004-05-15 devnull .if \\n(?n .nm 1
166 13f7391e 2004-05-15 devnull .nr $c 1
167 13f7391e 2004-05-15 devnull .ie \\n(?s \
178 13f7391e 2004-05-15 devnull .lt 7.5i
179 13f7391e 2004-05-15 devnull .tl '\(rn''\(rn'
184 13f7391e 2004-05-15 devnull .if \\n(bm<=0 \
185 13f7391e 2004-05-15 devnull . nr bm \\n(.Vu
186 13f7391e 2004-05-15 devnull .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
188 13f7391e 2004-05-15 devnull . nr _b (\\n(ppu*\\n($ru)/2u
189 13f7391e 2004-05-15 devnull . if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
190 13f7391e 2004-05-15 devnull . nr _b (\\n(ppu*\\n($ru)-\n(.Vu
191 13f7391e 2004-05-15 devnull . nr _b +\\n(bmu
193 13f7391e 2004-05-15 devnull .nr _B \\n(_bu
195 13f7391e 2004-05-15 devnull .wh -\\n(_bu @f
196 13f7391e 2004-05-15 devnull .nr ?f 0
197 13f7391e 2004-05-15 devnull .if \\n(?o \
206 13f7391e 2004-05-15 devnull .nr ?o 0
207 13f7391e 2004-05-15 devnull .if \\n(?T \
209 13f7391e 2004-05-15 devnull . nr _i \\n(.i
210 13f7391e 2004-05-15 devnull . in \\n($iu
212 13f7391e 2004-05-15 devnull . in \\n(_iu
217 13f7391e 2004-05-15 devnull .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
219 13f7391e 2004-05-15 devnull . nr ?a 0
221 13f7391e 2004-05-15 devnull . if \\n(?w \
223 13f7391e 2004-05-15 devnull . nr ?w 0
231 13f7391e 2004-05-15 devnull .if \\n(?T \
233 13f7391e 2004-05-15 devnull . nr T. 1
239 13f7391e 2004-05-15 devnull .if \\n(?b \
241 13f7391e 2004-05-15 devnull . nr ?b 0
244 13f7391e 2004-05-15 devnull .if \\n(?f \
246 13f7391e 2004-05-15 devnull .ie \\n($c<\\n($m \
256 13f7391e 2004-05-15 devnull .wh -\\n(_Bu @r
259 13f7391e 2004-05-15 devnull .if \\n(?o \
261 13f7391e 2004-05-15 devnull . if \\n(dn=0 \
264 13f7391e 2004-05-15 devnull . nr ?o 0
266 13f7391e 2004-05-15 devnull . nr dn \\n(_D
274 13f7391e 2004-05-15 devnull .sp |\\n(_ku
275 13f7391e 2004-05-15 devnull .@O +\\n($lu+\\n($su
276 13f7391e 2004-05-15 devnull .nr $c +1
280 13f7391e 2004-05-15 devnull .@O \\n(_ou
282 13f7391e 2004-05-15 devnull .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
284 13f7391e 2004-05-15 devnull .nr ?h 0
288 13f7391e 2004-05-15 devnull .if !\\n(?h \
290 13f7391e 2004-05-15 devnull . sz \\n(tp
291 13f7391e 2004-05-15 devnull . @F \\n(tf
292 13f7391e 2004-05-15 devnull . lt \\n(_Lu
300 13f7391e 2004-05-15 devnull .if !\\n(?c \
302 13f7391e 2004-05-15 devnull . if e .ds |z "\\*(|0
303 13f7391e 2004-05-15 devnull . if o .ds |z "\\*(|1
305 13f7391e 2004-05-15 devnull .if !\(ts\\*(|z\(ts\(ts \
306 13f7391e 2004-05-15 devnull ' tl \\*(|z
311 13f7391e 2004-05-15 devnull .if \\n(?c \
313 13f7391e 2004-05-15 devnull . if e .ds |z "\\*(|0
314 13f7391e 2004-05-15 devnull . if o .ds |z "\\*(|1
316 13f7391e 2004-05-15 devnull .if \(ts\\*(|z\(ts\(ts \
318 13f7391e 2004-05-15 devnull . if e .ds |z "\\*(|2
319 13f7391e 2004-05-15 devnull . if o .ds |z "\\*(|3
321 13f7391e 2004-05-15 devnull .if !\(ts\\*(|z\(ts\(ts \
322 13f7391e 2004-05-15 devnull ' tl \\*(|z
327 13f7391e 2004-05-15 devnull .nr ?o 1
328 13f7391e 2004-05-15 devnull .nr _D \\n(dn
331 13f7391e 2004-05-15 devnull .rn bp @b
333 13f7391e 2004-05-15 devnull .nr $c \\n($m
334 13f7391e 2004-05-15 devnull .ie \\n(nl>0 \
335 13f7391e 2004-05-15 devnull . @b \\$1
338 13f7391e 2004-05-15 devnull . if \\n(.$>0 \
339 13f7391e 2004-05-15 devnull . pn \\$1
340 13f7391e 2004-05-15 devnull . if \\n(?I \
344 13f7391e 2004-05-15 devnull .wh 0 @h
346 13f7391e 2004-05-15 devnull .rn ll xl
348 13f7391e 2004-05-15 devnull .xl \\$1
349 13f7391e 2004-05-15 devnull .lt \\$1
350 13f7391e 2004-05-15 devnull .nr $l \\n(.l
351 13f7391e 2004-05-15 devnull .if (\\n($m<=1):(\\n($l>\\n(_L) \
352 13f7391e 2004-05-15 devnull . nr _L \\n(.l
354 13f7391e 2004-05-15 devnull .rn po @O
356 13f7391e 2004-05-15 devnull .@O \\$1
357 13f7391e 2004-05-15 devnull .nr _o \\n(.o
360 13f7391e 2004-05-15 devnull .nr ?H 1
363 13f7391e 2004-05-15 devnull 'in \\$1
367 13f7391e 2004-05-15 devnull .ne \\$1
369 13f7391e 2004-05-15 devnull .sp \\$1
373 13f7391e 2004-05-15 devnull .xl -\w'0000'u
374 13f7391e 2004-05-15 devnull .nr ?n 1
377 13f7391e 2004-05-15 devnull .nm \\$1
378 13f7391e 2004-05-15 devnull .ie \\n(.$ \
379 13f7391e 2004-05-15 devnull . xl -\w'0000'u
381 13f7391e 2004-05-15 devnull . xl \\n($lu
384 13f7391e 2004-05-15 devnull .bp \\$1
393 13f7391e 2004-05-15 devnull .nr _0 \\n(hmu
394 13f7391e 2004-05-15 devnull .nr hm \\$1v
395 13f7391e 2004-05-15 devnull .nr tm +\\n(hmu-\\n(_0u
399 13f7391e 2004-05-15 devnull .nr tm \\n(hmu+\\n(tpp+\\$1v
402 13f7391e 2004-05-15 devnull .nr bm \\n(fmu+\\n(tpp+\\$1v
405 13f7391e 2004-05-15 devnull .nr _0 \\n(fmu
406 13f7391e 2004-05-15 devnull .nr fm \\$1v
407 13f7391e 2004-05-15 devnull .nr bm +\\n(fmu-\\n(_0u
410 13f7391e 2004-05-15 devnull .if \\n(.$>0 \
411 13f7391e 2004-05-15 devnull . tm Line \\n(c. -- I cannot skip multiple pages
412 13f7391e 2004-05-15 devnull .nr ?s 1
415 13f7391e 2004-05-15 devnull .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
417 13f7391e 2004-05-15 devnull .if t .ig
419 13f7391e 2004-05-15 devnull .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
422 13f7391e 2004-05-15 devnull .ie \\n(.$ \
423 13f7391e 2004-05-15 devnull . nr $i \\$1n
425 13f7391e 2004-05-15 devnull . nr $i \\n(siu*\\n($0u
429 13f7391e 2004-05-15 devnull \l'\\n(.lu-\\n(.iu'
433 13f7391e 2004-05-15 devnull .lp \\n(piu
437 13f7391e 2004-05-15 devnull .if \\n(.$ \
438 13f7391e 2004-05-15 devnull . ti +\\$1
439 13f7391e 2004-05-15 devnull .nr $p 0 1
442 13f7391e 2004-05-15 devnull .if (\\n(ii>0)&(\\n(ii<1n) \
443 13f7391e 2004-05-15 devnull . nr ii \\n(iin
444 13f7391e 2004-05-15 devnull .nr _0 \\n(ii
445 13f7391e 2004-05-15 devnull .if \\n(.$>1 \
446 13f7391e 2004-05-15 devnull . nr _0 \\$2n
447 13f7391e 2004-05-15 devnull .@p \\n(_0u
448 13f7391e 2004-05-15 devnull .if \\w"\\$1" \
450 13f7391e 2004-05-15 devnull . ti -\\n(_0u
451 13f7391e 2004-05-15 devnull . ie \\w"\\$1">=\\n(_0 \
456 13f7391e 2004-05-15 devnull . el \&\\$1\h'|\\n(_0u'\c
461 13f7391e 2004-05-15 devnull .nr $p +1
462 13f7391e 2004-05-15 devnull .ip (\\n($p)
466 13f7391e 2004-05-15 devnull .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
467 13f7391e 2004-05-15 devnull .in \\n($iu+\\n(pou
468 13f7391e 2004-05-15 devnull .if \\n(.$ \
469 13f7391e 2004-05-15 devnull . in +\\$1n
472 13f7391e 2004-05-15 devnull .@F \\n(pf
473 13f7391e 2004-05-15 devnull .sz \\n(ppu
474 13f7391e 2004-05-15 devnull .sp \\n(psu
475 13f7391e 2004-05-15 devnull .ne \\n(.Lv+\\n(.Vu
479 13f7391e 2004-05-15 devnull .rn sh @T
480 13f7391e 2004-05-15 devnull .so \\*(||/sh.me
481 13f7391e 2004-05-15 devnull .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
485 13f7391e 2004-05-15 devnull .if (\\n(si>0)&(\\n(.$>2) \
486 13f7391e 2004-05-15 devnull . nr $i \\$3*\\n(si
487 13f7391e 2004-05-15 devnull .in \\n($iu
488 13f7391e 2004-05-15 devnull .ie !"\\$1\\$2"" \
490 13f7391e 2004-05-15 devnull . sp \\n(ssu
491 13f7391e 2004-05-15 devnull . ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
492 13f7391e 2004-05-15 devnull . ie \\n(.$>2 \
493 13f7391e 2004-05-15 devnull . ti -(\\n(siu-\\n(sou)
495 13f7391e 2004-05-15 devnull . ti +\\n(sou
496 13f7391e 2004-05-15 devnull . @F \\n(sf
497 13f7391e 2004-05-15 devnull . sz \\n(spu
498 13f7391e 2004-05-15 devnull . if \\$3>0 \
500 13f7391e 2004-05-15 devnull . if \w"\\$2">0 \\$2.
501 13f7391e 2004-05-15 devnull . if \w"\\$1">0 \\$1\f1\ \ \"
504 13f7391e 2004-05-15 devnull . sp \\n(psu
505 13f7391e 2004-05-15 devnull .@F \\n(pf
506 13f7391e 2004-05-15 devnull .sz \\n(ppu
509 13f7391e 2004-05-15 devnull .rn uh @T
510 13f7391e 2004-05-15 devnull .so \\*(||/sh.me
511 13f7391e 2004-05-15 devnull .uh "\\$1"
516 13f7391e 2004-05-15 devnull .if \\n($m>1 \
518 13f7391e 2004-05-15 devnull .nr $c 1
519 13f7391e 2004-05-15 devnull .nr $m 2
520 13f7391e 2004-05-15 devnull .if \\n(.$>1 \
521 13f7391e 2004-05-15 devnull . nr $m \\$2
522 13f7391e 2004-05-15 devnull .if \\n(.$>0 \
523 13f7391e 2004-05-15 devnull . nr $s \\$1n
524 13f7391e 2004-05-15 devnull .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
525 13f7391e 2004-05-15 devnull .xl \\n($lu
531 13f7391e 2004-05-15 devnull .nr $c 1
532 13f7391e 2004-05-15 devnull .nr $m 1
533 13f7391e 2004-05-15 devnull .ll \\n(_Lu
534 13f7391e 2004-05-15 devnull .sp |\\n(.hu
535 13f7391e 2004-05-15 devnull .@O \\n(_ou
541 13f7391e 2004-05-15 devnull .rn (z @V
542 13f7391e 2004-05-15 devnull .so \\*(||/float.me
543 13f7391e 2004-05-15 devnull .(z \\$1 \\$2
547 13f7391e 2004-05-15 devnull .tm Line \\n(c. -- unmatched .)z
550 13f7391e 2004-05-15 devnull .(z \\$1 \\$2
553 13f7391e 2004-05-15 devnull .)z \\$1 \\$2
557 13f7391e 2004-05-15 devnull .@D 3 \\$1 \\$2
558 13f7391e 2004-05-15 devnull .sp \\n(bsu
564 13f7391e 2004-05-15 devnull .if (\\n(bt=0):(\\n(.t<\\n(bt) \
565 13f7391e 2004-05-15 devnull . ne \\n(dnu
572 13f7391e 2004-05-15 devnull .xl \\n($lu
575 13f7391e 2004-05-15 devnull .sp \\n(bsu+\\n(.Lv-1v
578 13f7391e 2004-05-15 devnull .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
584 13f7391e 2004-05-15 devnull .nr ?k 1
586 13f7391e 2004-05-15 devnull .@F \\n(df
587 13f7391e 2004-05-15 devnull .vs \\n(.su*\\n($Ru
589 13f7391e 2004-05-15 devnull .if "\\*(|p"F" \
591 13f7391e 2004-05-15 devnull .if \\n(_d=4 \
593 13f7391e 2004-05-15 devnull .if \\n(_d=3 \
595 13f7391e 2004-05-15 devnull . in +\\n(biu
596 13f7391e 2004-05-15 devnull . xl -\\n(biu
598 13f7391e 2004-05-15 devnull .if \\n(_d=1 \
599 13f7391e 2004-05-15 devnull . ce 10000
603 13f7391e 2004-05-15 devnull .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
604 13f7391e 2004-05-15 devnull .nr ?k 0
610 13f7391e 2004-05-15 devnull .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
614 13f7391e 2004-05-15 devnull .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
619 13f7391e 2004-05-15 devnull .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
632 13f7391e 2004-05-15 devnull .sp \\n(qsu
633 13f7391e 2004-05-15 devnull .in +\\n(qiu
634 13f7391e 2004-05-15 devnull .xl -\\n(qiu
635 13f7391e 2004-05-15 devnull .sz \\n(qp
640 13f7391e 2004-05-15 devnull .sp \\n(qsu+\\n(.Lv-1v
641 13f7391e 2004-05-15 devnull .nr ?k 0
645 13f7391e 2004-05-15 devnull .sp \\n(bsu
646 13f7391e 2004-05-15 devnull .@D 3 \\$1 \\$2
652 13f7391e 2004-05-15 devnull .sp \\n(bsu+\\n(.Lv-1v
653 13f7391e 2004-05-15 devnull .nr ?k 0
656 13f7391e 2004-05-15 devnull .rn EQ @T
657 13f7391e 2004-05-15 devnull .so \\*(||/eqn.me
658 13f7391e 2004-05-15 devnull .EQ \\$1 \\$2
662 13f7391e 2004-05-15 devnull .rn TS @W
663 13f7391e 2004-05-15 devnull .so \\*(||/tbl.me
664 13f7391e 2004-05-15 devnull .TS \\$1 \\$2
668 13f7391e 2004-05-15 devnull .ps \\$1
669 13f7391e 2004-05-15 devnull .vs \\n(.su*\\n($ru
670 13f7391e 2004-05-15 devnull .bd S B \\n(.su/3u
673 13f7391e 2004-05-15 devnull .nr _F \\n(.f
676 13f7391e 2004-05-15 devnull .if \\n(.$ \&\\$1\f\\n(_F\\$2
680 13f7391e 2004-05-15 devnull .nr _F \\n(.f
683 13f7391e 2004-05-15 devnull .if \\n(.$ \&\\$1\f\\n(_F\\$2
687 13f7391e 2004-05-15 devnull .nr _F \\n(.f
692 13f7391e 2004-05-15 devnull . ul 10000
693 13f7391e 2004-05-15 devnull .if \\n(.$ \&\\$1\f\\n(_F\\$2
694 13f7391e 2004-05-15 devnull .if \\n(.$ \
699 13f7391e 2004-05-15 devnull .nr _F \\n(.f
702 13f7391e 2004-05-15 devnull .if \\n(.$ \&\\$1\f\\n(_F\\$2
706 13f7391e 2004-05-15 devnull \&\\$1\l'|0\(ul'\\$2
709 13f7391e 2004-05-15 devnull \&\\*(lq\\$1\\*(rq\\$2
713 13f7391e 2004-05-15 devnull .ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
714 13f7391e 2004-05-15 devnull .el \&\\$1\fP\\$2
717 13f7391e 2004-05-15 devnull .ie \\n($T \&\f2\\$1\fP\\$2
718 13f7391e 2004-05-15 devnull .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
721 13f7391e 2004-05-15 devnull .nr ~ \\$1
722 13f7391e 2004-05-15 devnull .if \\n~>0 \
725 13f7391e 2004-05-15 devnull . ie \\n~>4 \
727 13f7391e 2004-05-15 devnull . if n .ul 10000
728 13f7391e 2004-05-15 devnull . if t .ft 3
731 13f7391e 2004-05-15 devnull . ft \\n~
736 13f7391e 2004-05-15 devnull .rn (f @U
737 13f7391e 2004-05-15 devnull .so \\*(||/footnote.me
738 13f7391e 2004-05-15 devnull .(f \\$1 \\$2
742 13f7391e 2004-05-15 devnull .tm Line \\n(c. -- unmatched .)f
747 13f7391e 2004-05-15 devnull . sp 0.3
750 13f7391e 2004-05-15 devnull .rn (d @U
751 13f7391e 2004-05-15 devnull .so \\*(||/deltext.me
752 13f7391e 2004-05-15 devnull .(d \\$1 \\$2
756 13f7391e 2004-05-15 devnull .tm Line \\n(c. -- unmatched .)d
759 13f7391e 2004-05-15 devnull .rn (x @U
760 13f7391e 2004-05-15 devnull .so \\*(||/index.me
761 13f7391e 2004-05-15 devnull .(x \\$1 \\$2
765 13f7391e 2004-05-15 devnull .tm Line \\n(c. -- unmatched .)x
768 13f7391e 2004-05-15 devnull .so \\*(||/thesis.me
773 13f7391e 2004-05-15 devnull .if \\n(?o:\\n(?a \
779 13f7391e 2004-05-15 devnull .nr ?C 1
780 13f7391e 2004-05-15 devnull .nr $f 1 1
781 13f7391e 2004-05-15 devnull .ds * \\*[1\\*]\k*
782 13f7391e 2004-05-15 devnull .if \\n(?R \
785 13f7391e 2004-05-15 devnull .in \\n($iu
787 13f7391e 2004-05-15 devnull .ie \\n(.$ \
788 13f7391e 2004-05-15 devnull . $c "\\$1"
793 13f7391e 2004-05-15 devnull .nr _0 0
794 13f7391e 2004-05-15 devnull .if "\\$1"C" \
795 13f7391e 2004-05-15 devnull . nr _0 1
796 13f7391e 2004-05-15 devnull .if "\\$1"RC" \
797 13f7391e 2004-05-15 devnull . nr _0 11
798 13f7391e 2004-05-15 devnull .if "\\$1"A" \
799 13f7391e 2004-05-15 devnull . nr _0 2
800 13f7391e 2004-05-15 devnull .if "\\$1"RA" \
801 13f7391e 2004-05-15 devnull . nr _0 12
802 13f7391e 2004-05-15 devnull .if "\\$1"P" \
803 13f7391e 2004-05-15 devnull . nr _0 3
804 13f7391e 2004-05-15 devnull .if "\\$1"B" \
805 13f7391e 2004-05-15 devnull . nr _0 4
806 13f7391e 2004-05-15 devnull .if "\\$1"AB" \
807 13f7391e 2004-05-15 devnull . nr _0 5
808 13f7391e 2004-05-15 devnull .if \\n(_0=0 \
809 13f7391e 2004-05-15 devnull . tm Line \\n(c. -- Bad mode to .++
810 13f7391e 2004-05-15 devnull .nr ?R 0
811 13f7391e 2004-05-15 devnull .if \\n(_0>10 \
813 13f7391e 2004-05-15 devnull . nr ?R 1
814 13f7391e 2004-05-15 devnull . nr _0 -10
816 13f7391e 2004-05-15 devnull .nr ch 0 1
817 13f7391e 2004-05-15 devnull .if (\\n(_0=3):(\\n(_0=5) \
820 13f7391e 2004-05-15 devnull .if \\n(_0=1 \
822 13f7391e 2004-05-15 devnull . af ch 1
823 13f7391e 2004-05-15 devnull . af % 1
825 13f7391e 2004-05-15 devnull .if \\n(_0=2 \
827 13f7391e 2004-05-15 devnull . af ch A
828 13f7391e 2004-05-15 devnull . af % 1
830 13f7391e 2004-05-15 devnull .if \\n(_0=3 \
831 13f7391e 2004-05-15 devnull . af % i
832 13f7391e 2004-05-15 devnull .if \\n(_0=4 \
833 13f7391e 2004-05-15 devnull . af % 1
834 13f7391e 2004-05-15 devnull .if \\n(_0=5 \
835 13f7391e 2004-05-15 devnull . af % 1
836 13f7391e 2004-05-15 devnull .if \\n(.$>1 \
837 13f7391e 2004-05-15 devnull . he \\$2
838 13f7391e 2004-05-15 devnull .if !\\n(_0=\\n(_M .if \\n(_M=3 \
840 13f7391e 2004-05-15 devnull .nr _M \\n(_0
846 13f7391e 2004-05-15 devnull .ce 1000
847 13f7391e 2004-05-15 devnull .if \\n(_M<3 \
848 13f7391e 2004-05-15 devnull . nr ch +1
849 13f7391e 2004-05-15 devnull .ie \\n(_M=1 CHAPTER\ \ \\n(ch
850 13f7391e 2004-05-15 devnull .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
851 13f7391e 2004-05-15 devnull .if \w"\\$1" .sp 3-\\n(.L
852 13f7391e 2004-05-15 devnull .if \w"\\$1" \\$1
853 13f7391e 2004-05-15 devnull .if (\\n(_M<3):(\w"\\$1") \
854 13f7391e 2004-05-15 devnull . sp 4-\\n(.L
858 13f7391e 2004-05-15 devnull .ie \\n(_M=1 \
859 13f7391e 2004-05-15 devnull . $C Chapter \\n(ch "\\$1"
860 13f7391e 2004-05-15 devnull .el .if \\n(_M=2 \
861 13f7391e 2004-05-15 devnull . $C Appendix \\n(ch "\\$1"
868 13f7391e 2004-05-15 devnull .pn \\n%
871 13f7391e 2004-05-15 devnull .rn ac @T
872 13f7391e 2004-05-15 devnull .so \\*(||/acm.me
873 13f7391e 2004-05-15 devnull .ac "\\$1" "\\$2"
877 13f7391e 2004-05-15 devnull .so \\*(||/local.me
880 13f7391e 2004-05-15 devnull .if \n(mo=1 .ds mo January
881 13f7391e 2004-05-15 devnull .if \n(mo=2 .ds mo February
882 13f7391e 2004-05-15 devnull .if \n(mo=3 .ds mo March
883 13f7391e 2004-05-15 devnull .if \n(mo=4 .ds mo April
884 13f7391e 2004-05-15 devnull .if \n(mo=5 .ds mo May
885 13f7391e 2004-05-15 devnull .if \n(mo=6 .ds mo June
886 13f7391e 2004-05-15 devnull .if \n(mo=7 .ds mo July
887 13f7391e 2004-05-15 devnull .if \n(mo=8 .ds mo August
888 13f7391e 2004-05-15 devnull .if \n(mo=9 .ds mo September
889 13f7391e 2004-05-15 devnull .if \n(mo=10 .ds mo October
890 13f7391e 2004-05-15 devnull .if \n(mo=11 .ds mo November
891 13f7391e 2004-05-15 devnull .if \n(mo=12 .ds mo December
892 13f7391e 2004-05-15 devnull .if \n(dw=1 .ds dw Sunday
893 13f7391e 2004-05-15 devnull .if \n(dw=2 .ds dw Monday
894 13f7391e 2004-05-15 devnull .if \n(dw=3 .ds dw Tuesday
895 13f7391e 2004-05-15 devnull .if \n(dw=4 .ds dw Wednesday
896 13f7391e 2004-05-15 devnull .if \n(dw=5 .ds dw Thursday
897 13f7391e 2004-05-15 devnull .if \n(dw=6 .ds dw Friday
898 13f7391e 2004-05-15 devnull .if \n(dw=7 .ds dw Saturday
899 13f7391e 2004-05-15 devnull .ds td \*(mo \n(dy, 20\n(yr
900 13f7391e 2004-05-15 devnull .if (1m<0.1i)&(\nx!=0) \
903 13f7391e 2004-05-15 devnull .nr $r \n(.v/\n(.s
904 13f7391e 2004-05-15 devnull .nr $R \n($r
905 13f7391e 2004-05-15 devnull .nr hm 4v
906 13f7391e 2004-05-15 devnull .nr tm 7v
907 13f7391e 2004-05-15 devnull .nr bm 6v
908 13f7391e 2004-05-15 devnull .nr fm 3v
909 13f7391e 2004-05-15 devnull .nr tf 3
910 13f7391e 2004-05-15 devnull .nr tp 10
912 13f7391e 2004-05-15 devnull .nr bi 4n
913 13f7391e 2004-05-15 devnull .nr pi 5n
914 13f7391e 2004-05-15 devnull .nr pf 1
915 13f7391e 2004-05-15 devnull .nr pp 10
916 13f7391e 2004-05-15 devnull .nr qi 4n
917 13f7391e 2004-05-15 devnull .nr qp -1
918 13f7391e 2004-05-15 devnull .nr ii 5n
919 13f7391e 2004-05-15 devnull .nr $m 1
920 13f7391e 2004-05-15 devnull .nr $s 4n
921 218dae27 2004-05-17 devnull .ds || #9/tmac/me
922 13f7391e 2004-05-15 devnull .bd S B 3
923 13f7391e 2004-05-15 devnull .ds [ \u\x'-0.25v'
924 13f7391e 2004-05-15 devnull .ds ] \d
925 13f7391e 2004-05-15 devnull .ds < \d\x'0.25v'
926 13f7391e 2004-05-15 devnull .ds > \u
927 13f7391e 2004-05-15 devnull .ds - --
930 13f7391e 2004-05-15 devnull . ds [ \v'-0.4m'\x'-0.2m'\s-3
931 13f7391e 2004-05-15 devnull . ds ] \s0\v'0.4m'
932 13f7391e 2004-05-15 devnull . ds < \v'0.4m'\x'0.2m'\s-3
933 13f7391e 2004-05-15 devnull . ds > \s0\v'-0.4m'
934 13f7391e 2004-05-15 devnull . ds - \-
935 13f7391e 2004-05-15 devnull . nr fi 0.3i
939 13f7391e 2004-05-15 devnull . nr fi 3n
941 13f7391e 2004-05-15 devnull .nr _o \n(.o
942 13f7391e 2004-05-15 devnull .if n .po 1i
943 13f7391e 2004-05-15 devnull .if \n(.V=1v \
944 13f7391e 2004-05-15 devnull . nr $T 2
945 13f7391e 2004-05-15 devnull .if \n(.T=0 \
946 13f7391e 2004-05-15 devnull . nr $T 1
949 13f7391e 2004-05-15 devnull . nr $T 0
950 13f7391e 2004-05-15 devnull . po -0.5i
952 13f7391e 2004-05-15 devnull .if \nv \
954 13f7391e 2004-05-15 devnull .if \n($T \
956 13f7391e 2004-05-15 devnull . if \n($T=1 \
958 13f7391e 2004-05-15 devnull . ds [ [
959 13f7391e 2004-05-15 devnull . ds ] ]
960 13f7391e 2004-05-15 devnull . ds < <
961 13f7391e 2004-05-15 devnull . ds > >
963 13f7391e 2004-05-15 devnull .nr ps 0.5v
964 13f7391e 2004-05-15 devnull .if \n($T \
965 13f7391e 2004-05-15 devnull . nr ps 1v
966 13f7391e 2004-05-15 devnull .if t .nr ps 0.35v
967 13f7391e 2004-05-15 devnull .nr bs \n(ps
968 13f7391e 2004-05-15 devnull .nr qs \n(ps
969 13f7391e 2004-05-15 devnull .nr zs 1v
970 13f7391e 2004-05-15 devnull .nr xs 0.2v
971 13f7391e 2004-05-15 devnull .nr fs 0.2v
972 13f7391e 2004-05-15 devnull .if \n($T \
973 13f7391e 2004-05-15 devnull . nr fs 0
974 13f7391e 2004-05-15 devnull .if n .nr es 1v
975 13f7391e 2004-05-15 devnull .if t .nr es 0.5v
976 13f7391e 2004-05-15 devnull .wh 0 @h
977 13f7391e 2004-05-15 devnull .nr $l \n(.lu
978 13f7391e 2004-05-15 devnull .nr _L \n(.lu
979 13f7391e 2004-05-15 devnull .nr $c 1
980 13f7391e 2004-05-15 devnull .nr $f 1 1
981 13f7391e 2004-05-15 devnull .ds * \*[1\*]\k*\"
982 13f7391e 2004-05-15 devnull .nr $d 1 1
983 13f7391e 2004-05-15 devnull .ds # [1]\k#\"
984 13f7391e 2004-05-15 devnull .nr _M 1
985 13f7391e 2004-05-15 devnull .ds lq \&"\"
986 13f7391e 2004-05-15 devnull .ds rq \&"\"
988 13f7391e 2004-05-15 devnull . ds lq ``
990 13f7391e 2004-05-15 devnull . ds rq ''
993 13f7391e 2004-05-15 devnull .so \\*(||/chars.me
996 13f7391e 2004-05-15 devnull .ll 6.0i
997 13f7391e 2004-05-15 devnull .lt 6.0i