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