| blob | e36c3e2eca63cda2c40bc191a9e1be35c90dda25 |
1 .\" -*- nroff -*-
2 .ig
4 s.tmac
6 Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002
7 Free Software Foundation, Inc.
8 Written by James Clark (jjc@jclark.com)
10 This file is part of groff.
12 groff is free software; you can redistribute it and/or modify it under
13 the terms of the GNU General Public License as published by the Free
14 Software Foundation; either version 2, or (at your option) any later
15 version.
17 groff is distributed in the hope that it will be useful, but WITHOUT ANY
18 WARRANTY; without even the implied warranty of MERCHANTABILITY or
19 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 for more details.
22 You should have received a copy of the GNU General Public License along
23 with groff; see the file COPYING. If not, write to the Free Software
24 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25 ..
26 .if !\n(.g .ab These ms macros require groff.
27 .if \n(.C \
28 . ab The groff ms macros do not work in compatibility mode.
29 .\" Enable warnings (only if none are given on the command line).
30 .\" You can delete this if you want.
31 .if (\n[.warn] == 65543) .warn
32 .\" See if already loaded.
33 .if r GS .nx
34 .nr GS 1
35 .de @error
36 .tm \\n(.F:\\n(.c: macro error: \\$*
37 ..
38 .de @warning
39 .tm \\n(.F:\\n(.c: macro warning: \\$*
40 ..
41 .de @fatal
42 .ab \\n(.F:\\n(.c: fatal macro error: \\$*
43 ..
44 .de @not-implemented
45 .@error sorry, \\$0 not implemented
46 .als \\$0 @nop
47 ..
48 .als TM @not-implemented
49 .als CT @not-implemented
50 .de @nop
51 ..
52 .de @init
53 .nr PO \\n(.o
54 .\" a non-empty environment
55 .ev ne
56 \c
57 .ev
58 .ev nf
59 'nf
60 .ev
61 ..
62 .ds REFERENCES References
63 .ds ABSTRACT ABSTRACT
64 .ds TOC Table of Contents
65 .ds MONTH1 January
66 .ds MONTH2 February
67 .ds MONTH3 March
68 .ds MONTH4 April
69 .ds MONTH5 May
70 .ds MONTH6 June
71 .ds MONTH7 July
72 .ds MONTH8 August
73 .ds MONTH9 September
74 .ds MONTH10 October
75 .ds MONTH11 November
76 .ds MONTH12 December
77 .ds MO \\*[MONTH\n[mo]]
78 .ds DY \n[dy] \*[MO] \n[year]
79 .de ND
80 .if \\n[.$] .ds DY "\\$*
81 ..
82 .de DA
83 .if \\n[.$] .ds DY "\\$*
84 .ds CF \\*[DY]
85 ..
86 .\" indexing
87 .de IX
88 .tm \\$1\t\\$2\t\\$3\t\\$4 ... \\n[PN]
89 ..
90 .\" print an error message and then try to recover
91 .de @error-recover
92 .@error \\$@ (recovering)
93 .nr *pop-count 0
94 .while !'\\n(.z'' \{\
95 . \"@warning automatically terminating diversion \\n(.z
96 . ie d @div-end!\\n(.z .@div-end!\\n(.z
97 . el .*div-end-default
98 . nr *pop-count +1
99 . \" ensure that we don't loop forever
100 . if \\n[*pop-count]>20 .@fatal recovery failed
101 .\}
102 .while !'\\n[.ev]'0' .ev
103 .par@reset-env
104 .par@reset
105 ..
106 .de *div-end-default
107 .ds *last-div \\n(.z
108 .br
109 .di
110 .ev nf
111 .\\*[*last-div]
112 .ev
113 ..
114 .\" ****************************
115 .\" ******** module cov ********
116 .\" ****************************
117 .\" Cover sheet and first page.
118 .de cov*err-not-after-first-page
119 .@error \\$0 is not allowed after the first page has started
120 ..
121 .de cov*err-not-before-tl
122 .@error \\$0 is not allowed before TL
123 ..
124 .de cov*err-not-again
125 .@error \\$0 is not allowed more than once
126 ..
127 .de cov*err-not-after-ab
128 .@error \\$0 is not allowed after first AB, LP, PP, IP, SH or NH
129 ..
130 .als AU cov*err-not-before-tl
131 .als AI cov*err-not-before-tl
132 .als AB cov*err-not-before-tl
133 .de cov*first-page-init
134 .rm cov*first-page-init
135 .par@init
136 .als RP cov*err-not-after-first-page
137 .@init
138 .ie \\n[cov*rp-format] \{\
139 . pg@cs-top
140 . als FS cov*FS
141 . als FE cov*FE
142 .\}
143 .el \{\
144 . pg@top
145 . als FS @FS
146 . als FE @FE
147 .\}
148 .wh 0 pg@top
149 .CHECK-FOOTER-AND-KEEP
150 ..
151 .wh 0 cov*first-page-init
152 .\" This handles the case where FS occurs before TL or LP.
153 .de FS
154 .br
155 \\*[FS]\\
156 ..
157 .nr cov*rp-format 0
158 .nr cov*rp-no 0
159 .\" released paper format
160 .de RP
161 .nr cov*rp-format 1
162 .if \\n[.$] .if '\\$1'no' .nr cov*rp-no 1
163 .pn 0
164 ..
165 .de TL
166 .br
167 .als TL cov*err-not-again
168 .rn @AB AB
169 .rn @AU AU
170 .rn @AI AI
171 .if !'\*(.T'html' .di cov*tl-div
172 .par@reset
173 .ft B
174 .ps +2
175 .vs +3p
176 .ll (u;\\n[LL]*5/6)
177 .nr cov*n-au 0
178 .HTML-TAG ".tl"
179 ..
180 .de @AU
181 .par@reset
182 .if !'\\n(.z'' \{\
183 . br
184 . di
185 .\}
186 .nr cov*n-au +1
187 .di cov*au-div!\\n[cov*n-au]
188 .nf
189 .ft I
190 .ps \\n[PS]
191 ..
192 .de @AI
193 .if !'\*(.T'html' .par@reset
194 .if !'\\n(.z'' \{\
195 . br
196 . di
197 .\}
198 .ie !\\n[cov*n-au] .@error AI before AU
199 .el \{\
200 . di cov*ai-div!\\n[cov*n-au]
201 . nf
202 . ft R
203 . ps \\n[PS]
204 .\}
205 ..
206 .de LP
207 .if !'\\n[.z]'' \{\
208 . br
209 . di
210 .\}
211 .br
212 .cov*ab-init
213 .cov*print
214 \\*[\\$0]\\
215 ..
216 .als IP LP
217 .als PP LP
218 .als XP LP
219 .als QP LP
220 .als RS LP
221 .als NH LP
222 .als SH LP
223 .als MC LP
224 .als RT LP
225 .als XS LP
226 .de cov*ab-init
227 .als cov*ab-init @nop
228 .als LP @LP
229 .als IP @IP
230 .als PP @PP
231 .als XP @XP
232 .als RT @RT
233 .als XS @XS
234 .als SH @SH
235 .als NH @NH
236 .als QP @QP
237 .als RS @RS
238 .als RE @RE
239 .als QS @QS
240 .als QE @QE
241 .als MC @MC
242 .als EQ @EQ
243 .als EN @EN
244 .als TS @TS
245 .als AB cov*err-not-after-ab
246 .als AU par@AU
247 .als AI par@AI
248 .als TL par@TL
249 ..
250 .de @AB
251 .if !'\\n(.z'' \{\
252 . br
253 . di
254 .\}
255 .cov*ab-init
256 .if !'\*(.T'html' .di cov*ab-div
257 .par@ab-indent
258 .par@reset
259 .if !'\\$1'no' \{\
260 . ft I
261 . ce 1
262 \\*[ABSTRACT]
263 . sp
264 . ft R
265 .\}
266 .ns
267 .@PP
268 .if '\*(.T'html' \{\
269 . cov*tl-au-print
270 . als cov*tl-au-print @nop
271 . par@reset-env
272 . par@reset
273 . cov*print
274 .\}
275 ..
276 .de AE
277 .ie '\*(.T'html' \{\
278 . als AE cov*err-not-again
279 .\}
280 .el \{\
281 . ie '\\n(.z'cov*ab-div' \{\
282 . als AE cov*err-not-again
283 . br
284 . di
285 .\" nr cov*ab-height \\n[dn]
286 . par@reset-env
287 . par@reset
288 . cov*print
289 . \}
290 . el .@error AE without AB
291 .\}
292 ..
293 .de @div-end!cov*ab-div
294 .AE
295 ..
296 .de cov*print
297 .als cov*print @nop
298 .ie d cov*tl-div \{\
299 . ie \\n[cov*rp-format] .cov*rp-print
300 . el .cov*draft-print
301 .\}
302 .el \{\
303 . if \\n[cov*rp-format] \{\
304 . @warning RP format but no TL
305 . bp 1
306 . als FS @FS
307 . als FE @FE
308 . CHECK-FOOTER-AND-KEEP
309 . \}
310 . br
311 .\}
312 ..
313 .de cov*rp-print
314 .nr cov*page-length \\n[.p]
315 .pl 1000i
316 .cov*tl-au-print
317 .sp 3
318 .if d cov*ab-div \{\
319 . if !'\*(.T'html' . nf
320 . cov*ab-div
321 .\}
322 .sp 3
323 .par@reset
324 \\*[DY]
325 .br
326 .if \\n[cov*fn-height] \{\
327 . sp |(u;\\n[cov*page-length]-\\n[FM]\
328 -\\n[cov*fn-height]-\\n[fn@sep-dist]>?\\n[nl])
329 . fn@print-sep
330 . ev nf
331 . cov*fn-div
332 . ev
333 . ie \\n[cov*rp-no] .rm cov*fn-div
334 . el \{\
335 . rn cov*fn-div fn@overflow-div
336 . nr fn@have-overflow 1
337 . \}
338 .\}
339 .als FS @FS
340 .als FE @FE
341 .CHECK-FOOTER-AND-KEEP
342 .\" If anything was printed below where the footer line is normally printed,
343 .\" then that's an overflow.
344 .if -\\n[FM]/2+1v+\\n[cov*page-length]<\\n[nl] .@error cover sheet overflow
345 .pl \\n[cov*page-length]u
346 .bp 1
347 .if !\\n[cov*rp-no] .cov*tl-au-print
348 .rs
349 .sp 1
350 ..
351 .de cov*draft-print
352 .cov*tl-au-print
353 .if d cov*ab-div \{\
354 . nf
355 . sp 2
356 . cov*ab-div
357 .\}
358 .sp 1
359 ..
360 .de cov*tl-au-print
361 .par@reset
362 .nf
363 .rs
364 .sp 3
365 .ce 9999
366 .if d cov*tl-div .cov*tl-div
367 .nr cov*i 1
368 .nr cov*sp 1v
369 .while \\n[cov*i]<=\\n[cov*n-au] \{\
370 . sp \\n[cov*sp]u
371 . cov*au-div!\\n[cov*i]
372 . ie d cov*ai-div!\\n[cov*i] \{\
373 . sp .5v
374 . cov*ai-div!\\n[cov*i]
375 . nr cov*sp 1v
376 . \}
377 . el .nr cov*sp .5v
378 . nr cov*i +1
379 .\}
380 .ce 0
381 ..
382 .nr cov*fn-height 0
383 .nr cov*in-fn 0
384 .\" start of footnote on cover
385 .de cov*FS
386 .if \\n[cov*in-fn] \{\
387 . @error nested FS
388 . FE
389 .\}
390 .nr cov*in-fn 1
391 .ev fn
392 .par@reset-env
393 .da cov*fn-div
394 .if !\\n[cov*fn-height] .ns
395 .ie \\n[.$] .FP "\\$1" no
396 .el .@LP
397 ..
398 .de @div-end!cov*fn-div
399 .cov*FE
400 ..
401 .\" end of footnote on cover
402 .de cov*FE
403 .ie '\\n(.z'cov*fn-div' \{\
404 . br
405 . ev
406 . di
407 . nr cov*in-fn 0
408 . nr cov*fn-height +\\n[dn]
409 .\}
410 .el .@error FE without matching FS
411 ..
412 .\" ***************************
413 .\" ******** module pg ********
414 .\" ***************************
415 .\" Page-level formatting.
416 .\" > 0 if we have a footnote on the current page
417 .nr pg@fn-flag 0
418 .nr pg@colw 0
419 .nr pg@fn-colw 0
420 .nr HM 1i
421 .nr FM 1i
422 .ds LF
423 .ds CF
424 .ds RF
425 .ds LH
426 .ds CH -\\n[PN]-
427 .ds RH
428 .ds pg*OH '\\*[LH]'\\*[CH]'\\*[RH]'
429 .ds pg*EH '\\*[LH]'\\*[CH]'\\*[RH]'
430 .ds pg*OF '\\*[LF]'\\*[CF]'\\*[RF]'
431 .ds pg*EF '\\*[LF]'\\*[CF]'\\*[RF]'
432 .de OH
433 .ds pg*\\$0 "\\$*
434 ..
435 .als EH OH
436 .als OF OH
437 .als EF OH
438 .de PT
439 .ie \\n%=1 .if \\n[pg*P1] .tl \\*[pg*OH]
440 .el \{\
441 . ie o .tl \\*[pg*OH]
442 . el .tl \\*[pg*EH]
443 .\}
444 ..
445 .de BT
446 .ie o .tl \\*[pg*OF]
447 .el .tl \\*[pg*EF]
448 ..
449 .nr pg*P1 0
450 .de P1
451 .nr pg*P1 1
452 ..
453 .wh -\n[FM]u pg@bottom
454 .wh -\n[FM]u/2u pg*footer
455 .nr MINGW 2n
456 .nr pg@ncols 1
457 .de @MC
458 .if !'\\n(.z'' .error-recover MC while diversion open
459 .br
460 .ie \\n[pg@ncols]>1 .pg@super-eject
461 .el \{\
462 . \" flush out any floating keeps
463 . while \\n[kp@tail]>\\n[kp@head] \{\
464 . rs
465 . bp
466 . \}
467 .\}
468 .ie !\\n(.$ \{\
469 . nr pg@colw \\n[LL]*7/15
470 . nr pg*gutw \\n[LL]-(2*\\n[pg@colw])
471 . nr pg@ncols 2
472 .\}
473 .el \{\
474 . nr pg@colw (n;\\$1)<?\\n[LL]
475 . ie \\n[.$]<2 .nr pg*gutw \\n[MINGW]
476 . el .nr pg*gutw (n;\\$2)
477 . nr pg@ncols \\n[LL]-\\n[pg@colw]/(\\n[pg@colw]+\\n[pg*gutw])+1
478 . ie \\n[pg@ncols]>1 \
479 . nr pg*gutw \\n[LL]-(\\n[pg@ncols]*\\n[pg@colw])/(\\n[pg@ncols]-1)
480 . el .nr pg*gutw 0
481 .\}
482 .HTML-TAG ".mc \\n[pg@ncols] \\n[pg@colw] \\n[pg*gutw]"
483 .mk pg*col-top
484 .ns
485 .nr pg*col-num 0
486 .nr pg@fn-colw \\n[pg@colw]*5/6
487 .par@reset
488 ..
489 .de 2C
490 .MC
491 ..
492 .de 1C
493 .MC \\n[LL]u
494 ..
495 .\" top of page macro
496 .de pg@top
497 .ch pg*footer -\\n[FM]u/2u
498 .nr PN \\n%
499 .nr pg*col-num 0
500 .nr pg@fn-bottom-margin 0
501 .nr pg*saved-po \\n[PO]
502 .po \\n[PO]u
503 .ev h
504 .par@reset
505 .sp (u;\\n[HM]/2)
506 .PT
507 .sp |\\n[HM]u
508 .if d HD .HD
509 .mk pg@header-bottom
510 .ev
511 .mk pg*col-top
512 .pg*start-col
513 ..
514 .de pg*start-col
515 .\" Handle footnote overflow before floating keeps, because the keep
516 .\" might contain an embedded footnote.
517 .fn@top-hook
518 .kp@top-hook
519 .tbl@top-hook
520 .ns
521 ..
522 .de pg@cs-top
523 .sp \\n[HM]u
524 .\" move pg@bottom and pg*footer out of the way
525 .ch pg@bottom \\n[.p]u*2u
526 .ch pg*footer \\n[.p]u*2u
527 .ns
528 ..
529 .de pg@bottom
530 .tbl@bottom-hook
531 .if \\n[pg@fn-flag] .fn@bottom-hook
532 .nr pg*col-num +1
533 .ie \\n[pg*col-num]<\\n[pg@ncols] .pg*end-col
534 .el .pg*end-page
535 ..
536 .de pg*end-col
537 'sp |\\n[pg*col-top]u
538 .po (u;\\n[pg*saved-po]+(\\n[pg@colw]+\\n[pg*gutw]*\\n[pg*col-num]))
539 .\"po +(u;\\n[pg@colw]+\\n[pg*gutw])
540 .pg*start-col
541 ..
542 .de pg*end-page
543 .po \\n[pg*saved-po]u
544 .\" Make sure we don't exit if there are still floats or footnotes left-over.
545 .ie \\n[kp@head]<\\n[kp@tail]:\\n[fn@have-overflow] \{\
546 . \" Switching environments ensures that we don't get an unnecessary
547 . \" blank line at the top of the page.
548 . ev ne
549 ' bp
550 . ev
551 .\}
552 .el \{\
553 . \" If the text has ended and there are no more footnotes or keeps, exit.
554 . if \\n[pg@text-ended] .ex
555 . if r pg*next-number \{\
556 . pn \\n[pg*next-number]
557 . rr pg*next-number
558 . if d pg*next-format \{\
559 . af PN \\*[pg*next-format]
560 . rm pg*next-format
561 . \}
562 . \}
563 ' bp
564 .\}
565 ..
566 .\" pg@begin number format
567 .de pg@begin
568 .ie \\n[.$]>0 \{\
569 . nr pg*next-number (;\\$1)
570 . ie \\n[.$]>1 .ds pg*next-format \\$2
571 . el .rm pg*next-format
572 .\}
573 .el .rr pg*next-number
574 .pg@super-eject
575 ..
576 .\" print the footer line
577 .de pg*footer
578 .ev h
579 .par@reset
580 .BT
581 .ev
582 ..
583 .\" flush out any keeps or footnotes
584 .de pg@super-eject
585 .br
586 .if !'\\n(.z'' .@error-recover diversion open while ejecting page
587 .\" Make sure we stay in the end macro while there is still footnote overflow
588 .\" left, or floating keeps.
589 .while \\n[kp@tail]>\\n[kp@head]:\\n[pg@fn-flag] \{\
590 . rs
591 . bp
592 .\}
593 .bp
594 ..
595 .nr pg@text-ended 0
596 .de pg@end-text
597 .br
598 .nr pg@text-ended 1
599 .pg@super-eject
600 ..
601 .em pg@end-text
602 .\" ***************************
603 .\" ******** module fn ********
604 .\" ***************************
605 .\" Footnotes.
606 .nr fn@sep-dist 8p
607 .ev fn
608 .\" Round it vertically
609 .vs \n[fn@sep-dist]u
610 .nr fn@sep-dist \n[.v]
611 .ev
612 .nr fn*text-num 0 1
613 .nr fn*note-num 0 1
614 .ds * \\*[par@sup-start]\En+[fn*text-num]\\*[par@sup-end]
615 .nr fn*open 0
616 .\" normal FS
617 .de @FS
618 .ie \\n[.$] .fn*do-FS "\\$1" no
619 .el \{\
620 . ie \\n[fn*text-num]>\\n[fn*note-num] .fn*do-FS \\n+[fn*note-num]
621 . el .fn*do-FS
622 .\}
623 ..
624 .\" Second argument of `no' means don't embellish the first argument.
625 .de fn*do-FS
626 .if \\n[fn*open] .@error-recover nested FS
627 .nr fn*open 1
628 .if \\n[.u] \{\
629 . \" Ensure that the first line of the footnote is on the same page
630 . \" as the reference. I think this is minimal.
631 . ev fn
632 . nr fn*need 1v
633 . ev
634 . ie \\n[pg@fn-flag] .nr fn*need +\\n[fn:PD]
635 . el .nr fn*need +\\n[fn@sep-dist]
636 . ne \\n[fn*need]u+\\n[.V]u>?0
637 .\}
638 .ev fn
639 .par@reset-env
640 .fn*start-div
641 .par@reset
642 .ie \\n[.$] .FP \\$@
643 .el .@LP
644 ..
645 .de @FE
646 .ie !\\n[fn*open] .@error FE without FS
647 .el \{\
648 . nr fn*open 0
649 . br
650 . ev
651 . fn*end-div
652 .\}
653 ..
654 .nr fn@have-overflow 0
655 .\" called at the top of each column
656 .de fn@top-hook
657 .nr fn*max-width 0
658 .nr fn*page-bottom-pos 0-\\n[FM]-\\n[pg@fn-bottom-margin]
659 .ch pg@bottom \\n[fn*page-bottom-pos]u
660 .if \\n[fn@have-overflow] \{\
661 . nr fn@have-overflow 0
662 . fn*start-div
663 . ev nf
664 . fn@overflow-div
665 . ev
666 . fn*end-div
667 .\}
668 ..
669 .\" This is called at the bottom of the column if pg@fn-flag is set.
670 .de fn@bottom-hook
671 .nr pg@fn-flag 0
672 .nr fn@have-overflow 0
673 .nr fn@bottom-pos \\n[.p]-\\n[FM]-\\n[pg@fn-bottom-margin]+\\n[.v]
674 .ev fn
675 .nr fn@bottom-pos -\\n[.v]
676 .ev
677 .ie \\n[nl]+\\n[fn@sep-dist]+\n[.V]>\\n[fn@bottom-pos] \{\
678 . rn fn@div fn@overflow-div
679 . nr fn@have-overflow 1
680 .\}
681 .el \{\
682 . if \\n[pg@ncols]>1 \
683 . if \\n[fn*max-width]>\\n[pg@fn-colw] \
684 . nr pg@fn-bottom-margin \\n[.p]-\\n[FM]-\\n[nl]+1v
685 . wh \\n[fn@bottom-pos]u fn*catch-overflow
686 . fn@print-sep
687 . ev nf
688 . fn@div
689 . rm fn@div
690 . ev
691 . if '\\n(.z'fn@overflow-div' \{\
692 . di
693 . nr fn@have-overflow \\n[dn]>0
694 . \}
695 . ch fn*catch-overflow
696 .\}
697 ..
698 .de fn*catch-overflow
699 .di fn@overflow-div
700 ..
701 .nr fn*embed-count 0
702 .de @div-end!fn@div
703 .br
704 .if '\\n[.ev]'fn' .ev
705 .fn*end-div
706 .nr fn*open 0
707 ..
708 .als @div-end!fn*embed-div @div-end!fn@div
709 .de fn*start-div
710 .ie '\\n(.z'' \{\
711 . da fn@div
712 . if !\\n[pg@fn-flag] .ns
713 .\}
714 .el .di fn*embed-div
715 ..
716 .de fn*end-div
717 .ie '\\n(.z'fn@div' \{\
718 . di
719 . nr fn*page-bottom-pos -\\n[dn]
720 . nr fn*max-width \\n[fn*max-width]>?\\n[dl]
721 . if !\\n[pg@fn-flag] .nr fn*page-bottom-pos -\\n[fn@sep-dist]
722 . nr pg@fn-flag 1
723 . nr fn*page-bottom-pos \\n[nl]-\\n[.p]+\n[.V]>?\\n[fn*page-bottom-pos]
724 . ch pg@bottom \\n[fn*page-bottom-pos]u
725 .\}
726 .el \{\
727 . ie '\\n(.z'fn*embed-div' \{\
728 . di
729 . rn fn*embed-div fn*embed-div!\\n[fn*embed-count]
730 \!. fn*embed-start \\n[fn*embed-count]
731 . rs
732 ' sp (u;\\n[dn]+\\n[fn@sep-dist]+\\n[.V])
733 \!. fn*embed-end
734 . nr fn*embed-count +1
735 . \}
736 . el \{\
737 . ev fn
738 . @error-recover unclosed diversion within footnote
739 . \}
740 .\}
741 ..
742 .de fn*embed-start
743 .ie '\\n(.z'' \{\
744 . fn*start-div
745 . ev nf
746 . fn*embed-div!\\$1
747 . rm fn*embed-div!\\$1
748 . ev
749 . fn*end-div
750 . di fn*null
751 .\}
752 .el \{\
753 \!. fn*embed-start \\$1
754 . rs
755 .\}
756 ..
757 .de fn*embed-end
758 .ie '\\n(.z'fn*null' \{\
759 . di
760 . rm fn*null
761 .\}
762 .el \!.fn*embed-end
763 ..
764 .\" It's important that fn@print-sep use up exactly fn@sep-dist vertical space.
765 .de fn@print-sep
766 .ev fn
767 .in 0
768 .vs \\n[fn@sep-dist]u
769 \D'l 1i 0'
770 .br
771 .ev
772 ..
773 .\" ***************************
774 .\" ******** module kp ********
775 .\" ***************************
776 .\" Keeps.
777 .de KS
778 .br
779 .di kp*div
780 ..
781 .de KF
782 .if !'\\n(.z'' .@error-recover KF while open diversion
783 .di kp*fdiv
784 .ev k
785 .par@reset-env
786 .par@reset
787 ..
788 .de KE
789 .ie '\\n(.z'kp*div' .kp*end
790 .el \{\
791 . ie '\\n(.z'kp*fdiv' .kp*fend
792 . el .@error KE without KS or KF
793 .\}
794 ..
795 .de @div-end!kp*div
796 .kp*end
797 ..
798 .de @div-end!kp*fdiv
799 .kp*fend
800 ..
801 .de kp*need
802 .ie '\\n(.z'' .ds@need \\$1
803 .el \!.kp*need \\$1
804 ..
805 .\" end non-floating keep
806 .de kp*end
807 .br
808 .di
809 .kp*need \\n[dn]
810 .ev nf
811 .kp*div
812 .ev
813 .rm kp*div
814 ..
815 .\" Floating keeps.
816 .nr kp@head 0
817 .nr kp@tail 0
818 .\" end floating keep
819 .de kp*fend
820 .br
821 .ev
822 .di
823 .ie \\n[.t]-(\\n[.k]>0*1v)>\\n[dn] \{\
824 . br
825 . ev nf
826 . kp*fdiv
827 . rm kp*fdiv
828 . ev
829 .\}
830 .el \{\
831 . rn kp*fdiv kp*div!\\n[kp@tail]
832 . nr kp*ht!\\n[kp@tail] 0\\n[dn]
833 . nr kp@tail +1
834 .\}
835 ..
836 .\" top of page processing for KF
837 .nr kp*doing-top 0
838 .de kp@top-hook
839 .if !\\n[kp*doing-top] \{\
840 . nr kp*doing-top 1
841 . kp*do-top
842 . nr kp*doing-top 0
843 .\}
844 ..
845 .de kp*do-top
846 .\" If the first keep won't fit, only force it out if we haven't had a footnote
847 .\" and we're at the top of the page.
848 .nr kp*force \\n[pg@fn-flag]=0&(\\n[nl]<=\\n[pg@header-bottom])
849 .nr kp*fits 1
850 .while \\n[kp@tail]>\\n[kp@head]&\\n[kp*fits] \{\
851 . ie \\n[.t]>\\n[kp*ht!\\n[kp@head]]:\\n[kp*force] \{\
852 . nr kp*force 0
853 . \" It's important to advance kp@head before bringing
854 . \" back the keep, so that if the last line of the
855 . \" last keep springs the bottom of page trap, a new
856 . \" page will not be started unnecessarily.
857 . rn kp*div!\\n[kp@head] kp*temp
858 . nr kp@head +1
859 . ev nf
860 . kp*temp
861 . ev
862 . rm kp*temp
863 . \}
864 . el .nr kp*fits 0
865 .\}
866 ..
867 .\" ***************************
868 .\" ******** module ds ********
869 .\" ***************************
870 .\" Displays and non-floating keeps.
871 .de DE
872 .ds*end!\\n[\\n[.ev]:ds-type]
873 .nr \\n[.ev]:ds-type 0
874 ..
875 .de ds@auto-end
876 .if \\n[\\n[.ev]:ds-type] \{\
877 . @error automatically terminating display
878 . DE
879 .\}
880 ..
881 .de @div-end!ds*div
882 .ie \\n[\\n[.ev]:ds-type] .DE
883 .el .ds*end!2
884 ..
885 .de ds*end!0
886 .@error DE without DS, ID, CD, LD or BD
887 ..
888 .de LD
889 .br
890 .nr \\n[.ev]:ds-type 1
891 .par@reset
892 .nf
893 .sp \\n[DD]u
894 ..
895 .de ID
896 .LD
897 .ie \\n[.$] .in +(n;\\$1)
898 .el .in +\\n[DI]u
899 ..
900 .de CD
901 .LD
902 .ce 9999
903 ..
904 .de RD
905 .LD
906 .rj 9999
907 ..
908 .de ds*common-end
909 .par@reset
910 .sp \\n[DD]u
911 ..
912 .als ds*end!1 ds*common-end
913 .de BD
914 .LD
915 .nr \\n[.ev]:ds-type 2
916 .di ds*div
917 ..
918 .de ds*end!2
919 .br
920 .ie '\\n(.z'ds*div' \{\
921 . di
922 . nf
923 . in (u;\\n[.l]-\\n[dl]/2>?0)
924 . ds*div
925 . rm ds*div
926 . ds*common-end
927 .\}
928 .el .@error-recover mismatched DE
929 ..
930 .de DS
931 .br
932 .di ds*div
933 .ie '\\$1'B' \{\
934 . LD
935 . nr \\n[.ev]:ds-type 4
936 .\}
937 .el \{\
938 . ie '\\$1'L' .LD
939 . el \{\
940 . ie '\\$1'C' .CD
941 . el \{\
942 . ie '\\$1'R' .RD
943 . el \{\
944 . ie '\\$1'I' .ID \\$2
945 . el .ID \\$1
946 . \}
947 . \}
948 . \}
949 . nr \\n[.ev]:ds-type 3
950 .\}
951 ..
952 .de ds@need
953 .if '\\n(.z'' \{\
954 . while \\n[.t]<=(\\$1)&(\\n[nl]>\\n[pg@header-bottom]) \{\
955 . rs
956 ' sp \\n[.t]u
957 . \}
958 .\}
959 ..
960 .de ds*end!3
961 .br
962 .ie '\\n(.z'ds*div' \{\
963 . di
964 . ds@need \\n[dn]
965 . ev nf
966 . ds*div
967 . ev
968 . rm ds*div
969 . ds*common-end
970 .\}
971 .el .@error-recover mismatched DE
972 ..
973 .de ds*end!4
974 .ie '\\n(.z'ds*div' \{\
975 . br
976 . di
977 . nf
978 . in (u;\\n[.l]-\\n[dl]/2>?0)
979 . ds@need \\n[dn]
980 . ds*div
981 . rm ds*div
982 . ds*common-end
983 .\}
984 .el .@error-recover mismatched DE
985 ..
986 .\" ****************************
987 .\" ******** module par ********
988 .\" ****************************
989 .\" Paragraph-level formatting.
990 .\" Load time initialization.
991 .de par@load-init
992 .\" PS and VS might have been set on the command-line
993 .if !rPS .nr PS 10
994 .if !rLL .nr LL 6i
995 .ll \\n[LL]u
996 .\" don't set LT so that it can be defaulted from LL
997 .ie rLT .lt \\n[LT]u
998 .el .lt \\n[LL]u
999 .ps \\n[PS]
1000 .\" don't set VS so that it can be defaulted from PS
1001 .ie rVS .par*vs \\n[VS]
1002 .el .par*vs \\n[PS]+2
1003 .if dFAM .fam \\*[FAM]
1004 .if !rHY .nr HY 14
1005 .hy \\n[HY]
1006 .TA
1007 .CHECK-FOOTER-AND-KEEP
1008 ..
1009 .de par*vs
1010 .\" If it's too big to be in points, treat it as units.
1011 .ie (p;\\$1)>=40p .vs (u;\\$1)
1012 .el .vs (p;\\$1)
1013 ..
1014 .de par@ab-indent
1015 .nr 0:li (u;\\n[LL]/12)
1016 .nr 0:ri \\n[0:li]
1017 ..
1018 .de par*env-init
1019 .aln \\n[.ev]:PS PS
1020 .aln \\n[.ev]:VS VS
1021 .aln \\n[.ev]:LL LL
1022 .aln \\n[.ev]:MCLL LL
1023 .aln \\n[.ev]:LT LT
1024 .aln \\n[.ev]:MCLT LT
1025 .aln \\n[.ev]:PI PI
1026 .aln \\n[.ev]:PD PD
1027 .ad \\n[par*adj]
1028 .par@reset-env
1029 ..
1030 .\" happens when the first page begins
1031 .de par@init
1032 .if !rLT .nr LT \\n[LL]
1033 .if !rFL .nr FL \\n[LL]*5/6
1034 .if !rVS .nr VS \\n[PS]+2
1035 .if !rDI .nr DI .5i
1036 .if !rFPS .nr FPS \\n[PS]-2
1037 .if !rFVS .nr FVS \\n[FPS]+2
1038 .\" don't change environment 0
1039 .ev h
1040 .ps \\n[PS]
1041 .if !rQI .nr QI 5n
1042 .if !rPI .nr PI 5n
1043 .par*vs \\n[VS]
1044 .if !rPD .nr PD .3v>?\n(.V
1045 .if !rDD .nr DD .5v>?\n(.V
1046 .if !rFI .nr FI 2n
1047 .if !rFPD .nr FPD \\n[PD]/2
1048 .ev
1049 .if !dFAM .ds FAM \\n[.fam]
1050 .nr par*adj \\n[.j]
1051 .par*env-init
1052 .ev h
1053 .par*env-init
1054 .ev
1055 .ev fn
1056 .par*env-init
1057 .ev
1058 .ev k
1059 .par*env-init
1060 .ev
1061 .aln 0:MCLL pg@colw
1062 .aln 0:MCLT pg@colw
1063 .aln k:MCLL pg@colw
1064 .aln k:MCLT pg@colw
1065 .aln fn:PS FPS
1066 .aln fn:VS FVS
1067 .aln fn:LL FL
1068 .aln fn:LT FL
1069 .aln fn:PI FI
1070 .aln fn:PD FPD
1071 .aln fn:MCLL pg@fn-colw
1072 .aln fn:MCLT pg@fn-colw
1073 ..
1074 .de par@reset-env
1075 .nr \\n[.ev]:il 0
1076 .nr \\n[.ev]:li 0
1077 .nr \\n[.ev]:ri 0
1078 .nr \\n[.ev]:ai \\n[\\n[.ev]:PI]
1079 .nr \\n[.ev]:pli 0
1080 .nr \\n[.ev]:pri 0
1081 .nr \\n[.ev]:ds-type 0
1082 ..
1083 .\" par@reset
1084 .de par@reset
1085 .br
1086 .ce 0
1087 .rj 0
1088 .ul 0
1089 .fi
1090 .ie \\n[pg@ncols]>1 \{\
1091 . ll (u;\\n[\\n[.ev]:MCLL]-\\n[\\n[.ev]:ri]-\\n[\\n[.ev]:pri])
1092 . lt \\n[\\n[.ev]:MCLT]u
1093 .\}
1094 .el \{\
1095 . ll (u;\\n[\\n[.ev]:LL]-\\n[\\n[.ev]:ri]-\\n[\\n[.ev]:pri])
1096 . lt \\n[\\n[.ev]:LT]u
1097 .\}
1098 .in (u;\\n[\\n[.ev]:li]+\\n[\\n[.ev]:pli])
1099 .ft 1
1100 .fam \\*[FAM]
1101 .ps \\n[\\n[.ev]:PS]
1102 .par*vs \\n[\\n[.ev]:VS]
1103 .ls 1
1104 .TA
1105 .hy \\n[HY]
1106 ..
1107 .de @RT
1108 .nr \\n[.ev]:pli 0
1109 .nr \\n[.ev]:pri 0
1110 .par@reset
1111 ..
1112 .\" This can be redefined by the user.
1113 .de TA
1114 .ta T 5n
1115 ..
1116 .de par*start
1117 .ds@auto-end
1118 .nr \\n[.ev]:pli \\$1
1119 .nr \\n[.ev]:pri \\$2
1120 .par@reset
1121 .sp \\n[\\n[.ev]:PD]u
1122 .ne 1v+\\n(.Vu
1123 ..
1124 .de par@finish
1125 .nr \\n[.ev]:pli 0
1126 .nr \\n[.ev]:pri 0
1127 .par@reset
1128 ..
1129 .\" normal LP
1130 .de @LP
1131 .par*start 0 0
1132 .nr \\n[.ev]:ai \\n[\\n[.ev]:PI]
1133 ..
1134 .de @PP
1135 .par*start 0 0
1136 .nr \\n[.ev]:ai \\n[\\n[.ev]:PI]
1137 .if !'\*(.T'html' .ti +\\n[\\n[.ev]:ai]u
1138 ..
1139 .de @QP
1140 .nr \\n[.ev]:ai \\n[\\n[.ev]:PI]
1141 .par*start \\n[QI] \\n[QI]
1142 ..
1143 .de @XP
1144 .par*start \\n[\\n[.ev]:PI] 0
1145 .ti -\\n[\\n[.ev]:PI]u
1146 ..
1147 .de @IP
1148 .if \\n[.$]>1 .nr \\n[.ev]:ai (n;\\$2)
1149 .par*start \\n[\\n[.ev]:ai] 0
1150 .if !'\\$1'' \{\
1151 . \" Divert the label so as to freeze any spaces.
1152 . di par*label
1153 . par*push-tag-env
1154 \&\\$1
1155 . par*pop-tag-env
1156 . di
1157 . chop par*label
1158 . ti -\\n[\\n[.ev]:ai]u
1159 . ie \\n[dl]+1n<=\\n[\\n[.ev]:ai] \\*[par*label]\h'|\\n[\\n[.ev]:ai]u'\c
1160 . el \{\
1161 \\*[par*label]
1162 . br
1163 . \}
1164 . rm par*label
1165 .\}
1166 ..
1167 .de @IP-html
1168 .if \\n[.$]>1 .nr \\n[.ev]:ai (n;\\$2)
1169 .par*start \\n[\\n[.ev]:ai] 0
1170 .if !'\\$1'' \{\
1171 . \" Divert the label so as to freeze any spaces.
1172 . di par*label
1173 . par*push-tag-env
1174 \&\\$1
1175 . par*pop-tag-env
1176 . di
1177 . chop par*label
1178 . ti -\\n[\\n[.ev]:ai]u
1179 . ie \\n[dl]+1n<=\\n[\\n[.ev]:ai] \{\
1180 . HTML-TAG-NS ".col 1"
1181 \\$1\h'|\\n[\\n[.ev]:ai]u'\c
1182 . HTML-TAG-NS ".col 2"
1183 . \}
1184 . el \{\
1185 \\$1
1186 . br
1187 . \}
1188 . rm par*label
1189 .\}
1190 ..
1191 .\" We don't want margin characters to be attached when we divert
1192 .\" the tag. Since there's no way to save and restore the current
1193 .\" margin character, we have to switch to a new environment, taking
1194 .\" what we need of the old environment with us.
1195 .de par*push-tag-env
1196 .nr par*saved-font \\n[.f]
1197 .nr par*saved-size \\n[.s]z
1198 .nr par*saved-ss \\n[.ss]
1199 .ds par*saved-fam \\n[.fam]
1200 .ev par
1201 .nf
1202 .TA
1203 .ft \\n[par*saved-font]
1204 .ps \\n[par*saved-size]u
1205 .ss \\n[par*saved-ss]
1206 .fam \\*[par*saved-fam]
1207 ..
1208 .de par*pop-tag-env
1209 .ev
1210 ..
1211 .de @RS
1212 .br
1213 .nr \\n[.ev]:li!\\n[\\n[.ev]:il] \\n[\\n[.ev]:li]
1214 .nr \\n[.ev]:ri!\\n[\\n[.ev]:il] \\n[\\n[.ev]:ri]
1215 .nr \\n[.ev]:ai!\\n[\\n[.ev]:il] \\n[\\n[.ev]:ai]
1216 .nr \\n[.ev]:pli!\\n[\\n[.ev]:il] \\n[\\n[.ev]:pli]
1217 .nr \\n[.ev]:pri!\\n[\\n[.ev]:il] \\n[\\n[.ev]:pri]
1218 .nr \\n[.ev]:il +1
1219 .nr \\n[.ev]:li +\\n[\\n[.ev]:ai]
1220 .nr \\n[.ev]:ai \\n[\\n[.ev]:PI]
1221 .par@reset
1222 ..
1223 .de @RE
1224 .br
1225 .ie \\n[\\n[.ev]:il] \{\
1226 . nr \\n[.ev]:il -1
1227 . nr \\n[.ev]:ai \\n[\\n[.ev]:ai!\\n[\\n[.ev]:il]]
1228 . nr \\n[.ev]:li \\n[\\n[.ev]:li!\\n[\\n[.ev]:il]]
1229 . nr \\n[.ev]:ri \\n[\\n[.ev]:ri!\\n[\\n[.ev]:il]]
1230 . nr \\n[.ev]:pli \\n[\\n[.ev]:pli!\\n[\\n[.ev]:il]]
1231 . nr \\n[.ev]:pri \\n[\\n[.ev]:pri!\\n[\\n[.ev]:il]]
1232 .\}
1233 .el .@error unbalanced \\$0
1234 .par@reset
1235 ..
1236 .de @QS
1237 .br
1238 .nr \\n[.ev]:li!\\n[\\n[.ev]:il] \\n[\\n[.ev]:li]
1239 .nr \\n[.ev]:ri!\\n[\\n[.ev]:il] \\n[\\n[.ev]:ri]
1240 .nr \\n[.ev]:ai!\\n[\\n[.ev]:il] \\n[\\n[.ev]:ai]
1241 .nr \\n[.ev]:pli!\\n[\\n[.ev]:il] \\n[\\n[.ev]:pli]
1242 .nr \\n[.ev]:pri!\\n[\\n[.ev]:il] \\n[\\n[.ev]:pri]
1243 .nr \\n[.ev]:il +1
1244 .nr \\n[.ev]:li +\\n[QI]
1245 .nr \\n[.ev]:ri +\\n[QI]
1246 .nr \\n[.ev]:ai \\n[\\n[.ev]:PI]
1247 .par@reset
1248 ..
1249 .als @QE @RE
1250 .\" start boxed text
1251 .de B1
1252 .br
1253 .HTML-IMAGE
1254 .di par*box-div
1255 .nr \\n[.ev]:li +1n
1256 .nr \\n[.ev]:ri +1n
1257 .nr par*box-in \\n[.in]
1258 .\" remember what 1n is, just in case the point size changes
1259 .nr par*box-n 1n
1260 .in +1n
1261 .ll -1n
1262 .lt -1n
1263 .ti \\n[par*box-in]u+1n
1264 ..
1265 .de @div-end!par*box-div
1266 .B2
1267 ..
1268 .\" end boxed text
1269 .\" Postpone the drawing of the box until we're in the top-level diversion,
1270 .\" in case there's a footnote inside the box.
1271 .de B2
1272 .ie '\\n(.z'par*box-div' \{\
1273 . br
1274 . if \n[.V]>.25m .sp
1275 . di
1276 . if \n[.V]>.25m .sp
1277 . ds@need \\n[dn]
1278 . par*box-mark-top
1279 . ev nf
1280 . par*box-div
1281 . ev
1282 . nr \\n[.ev]:ri -\\n[par*box-n]
1283 . nr \\n[.ev]:li -\\n[par*box-n]
1284 . in -\\n[par*box-n]u
1285 . ll +\\n[par*box-n]u
1286 . lt +\\n[par*box-n]u
1287 . par*box-draw \\n[.i]u \\n[.l]u-(\\n[.H]u==1n*1n)
1288 .\}
1289 .el .@error B2 without B1
1290 .HTML-IMAGE-END
1291 ..
1292 .de par*box-mark-top
1293 .ie '\\n[.z]'' \{\
1294 . rs
1295 . mk par*box-top
1296 .\}
1297 .el \!.par*box-mark-top
1298 ..
1299 .de par*box-draw
1300 .ie '\\n[.z]'' \{\
1301 . nr par*box-in \\n[.i]
1302 . nr par*box-ll \\n[.l]
1303 . nr par*box-vpt \\n[.vpt]
1304 . nr par*box-ad \\n[.j]
1305 . ad l
1306 . vpt 0
1307 . in \\$1
1308 . ll \\$2
1309 \v'-1v+.25m'\
1310 \D'l (u;\\n[.l]-\\n[.i]) 0'\
1311 \D'l 0 |\\n[par*box-top]u'\
1312 \D'l -(u;\\n[.l]-\\n[.i]) 0'\
1313 \D'l 0 -|\\n[par*box-top]u'
1314 . br
1315 . sp -1
1316 . in \\n[par*box-in]u
1317 . ll \\n[par*box-ll]u
1318 . vpt \\n[par*box-vpt]
1319 . ad \\n[par*box-ad]
1320 .\}
1321 .el \!.par*box-draw \\$1 \\$2
1322 ..
1323 .de @SH
1324 .par@finish
1325 .\" Keep together the heading and the first two lines of the next paragraph.
1326 .ne 3v+\\n[\\n[.ev]:PD]u+\\n(.Vu
1327 .sp 1
1328 .ft B
1329 .HTML-TAG ".SH 1"
1330 ..
1331 .\" TL, AU, and AI are aliased to these in cov*ab-init.
1332 .de par@TL
1333 .par@finish
1334 .sp 1
1335 .ft B
1336 .ps +2
1337 .vs +3p
1338 .ce 9999
1339 .HTML-TAG ".tl"
1340 ..
1341 .de par@AU
1342 .par@finish
1343 .sp 1
1344 .ft I
1345 .ce 9999
1346 ..
1347 .de par@AI
1348 .par@finish
1349 .sp .5
1350 .ce 9999
1351 ..
1352 .\" In paragraph macros.
1353 .de NL
1354 .ps \\n[\\n[.ev]:PS]
1355 ..
1356 .de SM
1357 .ps -2
1358 ..
1359 .de LG
1360 .ps +2
1361 ..
1362 .de R
1363 .ft R
1364 ..
1365 .\" par*define-font-macro macro font
1366 .de par*define-font-macro
1367 .de \\$1
1368 .ie \\\\n[.$] \{\
1369 . nr par*prev-font \\\\n[.f]
1370 \&\\\\$3\f[\\$2]\\\\$1\f[\\\\n[par*prev-font]]\\\\$2
1371 .\}
1372 .el .ft \\$2
1373 \\..
1374 ..
1375 .par*define-font-macro B B
1376 .par*define-font-macro I I
1377 .par*define-font-macro BI BI
1378 .par*define-font-macro CW CR
1379 .\" underline a word
1380 .de UL
1381 \Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
1382 ..
1383 .\" box a word
1384 .de BX
1385 .nr par*bxw \w'\\$1'+.4m
1386 \Z'\v'.25m'\D'l 0 -1m'\D'l \\n[par*bxw]u 0'\D'l 0 1m'\D'l -\\n[par*bxw]u 0''\
1387 \Z'\h'.2m'\\$1'\
1388 \h'\\n[par*bxw]u'
1389 ..
1390 .\" The first time UX is used, put a registered mark after it.
1391 .ds par*ux-rg \(rg
1392 .de UX
1393 \s[\\n[.s]*8u/10u]UNIX\s0\\$1\\*[par*ux-rg]
1394 .ds par*ux-rg
1395 ..
1396 .ds par@sup-start \v'-.9m\s'\En[.s]*7u/10u'+.7m'
1397 .als { par@sup-start
1398 .ds par@sup-end \v'-.7m\s0+.9m'
1399 .als } par@sup-end
1400 .\" footnote paragraphs
1401 .\" FF is the footnote format
1402 .nr FF 0
1403 .\" This can be redefined. It gets a second argument of `no' if the first
1404 .\" argument was supplied by the user, rather than automatically.
1405 .de FP
1406 .br
1407 .if !d par*fp!\\n[FF] \{\
1408 . @error unknown footnote format `\\n[FF]'
1409 . nr FF 0
1410 .\}
1411 .ie '\\$2'no' .par*fp!\\n[FF]-no "\\$1"
1412 .el .par*fp!\\n[FF] "\\$1"
1413 ..
1414 .de par*fp!0
1415 .@PP
1416 \&\\*[par@sup-start]\\$1\\*[par@sup-end]\ \c
1417 ..
1418 .de par*fp!0-no
1419 .@PP
1420 \&\\$1\ \c
1421 ..
1422 .de par*fp!1
1423 .@PP
1424 \&\\$1.\ \c
1425 ..
1426 .de par*fp!1-no
1427 .@PP
1428 \&\\$1\ \c
1429 ..
1430 .de par*fp!2
1431 .@LP
1432 \&\\$1.\ \c
1433 ..
1434 .de par*fp!2-no
1435 .@LP
1436 \&\\$1\ \c
1437 ..
1438 .de par*fp!3
1439 .@IP "\\$1." (u;\\n[\\n[.ev]:PI]*2)
1440 ..
1441 .de par*fp!3-no
1442 .@IP "\\$1" (u;\\n[\\n[.ev]:PI]*2)
1443 ..
1444 .\" ***************************
1445 .\" ******** module nh ********
1446 .\" ***************************
1447 .\" Numbered headings.
1448 .\" nh*hl is the level of the last heading
1449 .nr nh*hl 0
1450 .\" numbered heading
1451 .de @NH
1452 .HTML-TAG ".NH \\$1"
1453 .ie '\\$1'S' \{\
1454 . shift
1455 . nr nh*hl 0
1456 . while \\n[.$] \{\
1457 . nr nh*hl +1
1458 . nr H\\n[nh*hl] 0\\$1
1459 . shift
1460 . \}
1461 . if !\\n[nh*hl] \{\
1462 . nr H1 1
1463 . nr nh*hl 1
1464 . @error missing arguments to .NH S
1465 . \}
1466 .\}
1467 .el \{\
1468 . nr nh*ohl \\n[nh*hl]
1469 . ie \\n[.$] \{\
1470 . nr nh*hl 0\\$1
1471 . ie \\n[nh*hl]<=0 \{\
1472 . nr nh*ohl 0
1473 . nr nh*hl 1
1474 . \}
1475 . el \{\
1476 . if \\n[nh*hl]-\\n[nh*ohl]>1 \
1477 . @warning .NH \\n[nh*ohl] followed by .NH \\n[nh*hl]
1478 . \}
1479 . \}
1480 . el .nr nh*hl 1
1481 . while \\n[nh*hl]>\\n[nh*ohl] \{\
1482 . nr nh*ohl +1
1483 . nr H\\n[nh*ohl] 0
1484 . \}
1485 . nr H\\n[nh*hl] +1
1486 .\}
1487 .ds SN
1488 .nr nh*i 0
1489 .while \\n[nh*i]<\\n[nh*hl] \{\
1490 . nr nh*i +1
1491 . as SN \\n[H\\n[nh*i]].
1492 .\}
1493 .SH
1494 \\*[SN]
1495 ..
1496 .\" ****************************
1497 .\" ******** module toc ********
1498 .\" ****************************
1499 .\" Table of contents generation.
1500 .de @XS
1501 .da toc*div
1502 .ev h
1503 .ie \\n[.$] .XA "\\$1"
1504 .el .XA
1505 ..
1506 .de @div-end!toc*div
1507 .XE
1508 ..
1509 .de XA
1510 .ie '\\n(.z'toc*div' \{\
1511 . if d toc*num .toc*end-entry
1512 . ie \\n[.$] \{\
1513 . ie '\\$1'no' .ds toc*num
1514 . el .ds toc*num "\\$1
1515 . \}
1516 . el .ds toc*num \\n[PN]
1517 . br
1518 . par@reset
1519 . na
1520 . ll -8n
1521 . in (n;0\\$2)
1522 .\}
1523 .el .@error XA without XS
1524 ..
1525 .de XE
1526 .ie '\\n(.z'toc*div' \{\
1527 . if d toc*num .toc*end-entry
1528 . ev
1529 . di
1530 .\}
1531 .el .@error XS without XE
1532 ..
1533 .de toc*end-entry
1534 \\a\\t\\*[toc*num]
1535 .br
1536 .rm toc*num
1537 ..
1538 .de PX
1539 .1C
1540 .if !'\\$1'no' \{\
1541 . ce 1
1542 . ps \\n[PS]+2
1543 . ft B
1544 \\*[TOC]
1545 . ft
1546 . ps
1547 .\}
1548 .nf
1549 .char \[toc*leader-char] .\h'1m'
1550 .lc \[toc*leader-char]
1551 .ta (u;\\n[.l]-\\n[.i]-\w'000') (u;\\n[.l]-\\n[.i])R
1552 .sp 2
1553 .toc*div
1554 .par@reset
1555 ..
1556 .\" print the table of contents on page i
1557 .de TC
1558 .P1
1559 .pg@begin 1 i
1560 .PX \\$1
1561 ..
1562 .\" ****************************
1563 .\" ******** module eqn ********
1564 .\" ****************************
1565 .\" Eqn support.
1566 .de EQ
1567 ..
1568 .de EN
1569 ..
1570 .de @EQ
1571 .br
1572 .ds eqn*num "\\$2
1573 .ie '\\$1'L' .nr eqn*type 0
1574 .el \{\
1575 . ie '\\$1'I' .nr eqn*type 1
1576 . el \{\
1577 . nr eqn*type 2
1578 . if !'\\$1'C' .ds eqn*num "\\$1
1579 . \}
1580 .\}
1581 .di eqn*div
1582 .in 0
1583 .if \\n[eqn*type]=0 .HTML-IMAGE-LEFT
1584 .if \\n[eqn*type]=1 \{\
1585 . if '\*(.T'html' .RS
1586 . HTML-IMAGE-INLINE
1587 .\}
1588 .if \\n[eqn*type]=2 .HTML-IMAGE
1589 .if !'\*(.T'html' .nf
1590 ..
1591 .de @div-end!eqn*div
1592 .@EN
1593 ..
1594 .\" Note that geqn mark and lineup work correctly in centered equations.
1595 .de @EN
1596 .ie !'\\n(.z'eqn*div' .@error-recover mismatched EN
1597 .el \{\
1598 . br
1599 . di
1600 . nr eqn*have-num 0
1601 . if !'\\*[eqn*num]'' .nr eqn*have-num 1
1602 . ie \\n[dl]:\\n[eqn*have-num] \{\
1603 . if !'\*(.T'html' .sp \\n[DD]u
1604 . par@reset
1605 . ds eqn*tabs \\n[.tabs]
1606 . nf
1607 . ie \\n[dl] \{\
1608 .\" --fixme-- this really should not be necessary
1609 .\" and indicates that there is extra space creeping into
1610 .\" an equation when ps4html is enabled..
1611 . ie r ps4html .ds@need \\n[dn]u-1v+\n[.V]u+1i
1612 . el .ds@need \\n[dn]u-1v+\n[.V]u
1613 . chop eqn*div
1614 . ie \\n[eqn*type]=0 \{\
1615 . ta (u;\\n[.l]-\\n[.i])R
1616 \\*[eqn*div]\t\\*[eqn*num]
1617 . \}
1618 . el \{\
1619 . ie \\n[eqn*type]=1 .ta \\n[DI]u \
1620 (u;\\n[.l]-\\n[.i])R
1621 . el .ta (u;\\n[.l]-\\n[.i]/2)C \
1622 (u;\\n[.l]-\\n[.i])R
1623 \t\\*[eqn*div]\t\\*[eqn*num]
1624 . \}
1625 . \}
1626 . el \{\
1627 . ta (u;\\n[.l]-\\n[.i])R
1628 \t\\*[eqn*num]
1629 . \}
1630 . if !'\*(.T'html' .sp \\n[DD]u
1631 . ta \\*[eqn*tabs]
1632 . \}
1633 . el \{
1634 .\" must terminate empty equations in html and ps4html as they contain
1635 .\" the HTML-IMAGE-END suppression nodes
1636 . if \\n[dl] .chop eqn*div
1637 . if '\*(.T'html' \\*[eqn*div]
1638 . if r ps4html \\*[eqn*div]
1639 . \}
1640 . if !'\*(.T'html' .fi
1641 . if \\n[eqn*type]=0 .HTML-IMAGE-END
1642 . if \\n[eqn*type]=1 \{\
1643 . HTML-IMAGE-END
1644 . if '\*(.T'html' .RE
1645 . \}
1646 . if \\n[eqn*type]=2 .HTML-IMAGE-END
1647 .\}
1648 ..
1649 .\" ****************************
1650 .\" ******** module tbl ********
1651 .\" ****************************
1652 .\" Tbl support.
1653 .nr tbl*have-header 0
1654 .\" This gets called if TS occurs before the first paragraph.
1655 .de TS
1656 .LP
1657 .\" cov*ab-init aliases TS to @TS
1658 \\*[TS]\\
1659 ..
1660 .de @TS
1661 .sp \\n[DD]u
1662 .\" .if !'\*(.T'html' .sp \\n[DD]u
1663 .if '\\$1'H' .di tbl*header-div
1664 .HTML-IMAGE
1665 ..
1666 .de tbl@top-hook
1667 .if \\n[tbl*have-header] \{\
1668 . ie \\n[.t]-\\n[tbl*header-ht]-1v .tbl*print-header
1669 . el .sp \\n[.t]u
1670 .\}
1671 ..
1672 .de tbl*print-header
1673 .ev nf
1674 .tbl*header-div
1675 .ev
1676 .mk #T
1677 ..
1678 .de TH
1679 .ie '\\n[.z]'tbl*header-div' \{\
1680 . nr T. 0
1681 . T#
1682 . br
1683 . di
1684 . ie \\n[dn]+\\n[FM]+\\n[HM]+2v>=\\n[.p] \{\
1685 . @error ridiculously long table header
1686 . ds@need \\n[dn]
1687 . tbl*print-header
1688 . \}
1689 . el \{\
1690 . nr tbl*header-ht \\n[dn]
1691 . ds@need \\n[dn]u+1v
1692 . tbl*print-header
1693 . nr tbl*have-header 1
1694 . \}
1695 .\}
1696 .el .@error-recover .TH without .TS H
1697 ..
1698 .de @div-end!tbl*header-div
1699 .TH
1700 .TE
1701 ..
1702 .de TE
1703 .ie '\\n(.z'tbl*header-div' .@error-recover .TS H but no .TH before .TE
1704 .el \{\
1705 . nr tbl*have-header 0
1706 . if !'\*(.T'html' .sp \\n[DD]u
1707 .\}
1708 . HTML-IMAGE-END
1709 .\" reset tabs
1710 .TA
1711 ..
1712 .de tbl@bottom-hook
1713 .if \\n[tbl*have-header] \{\
1714 . nr T. 1
1715 . T#
1716 .\}
1717 ..
1718 .de T&
1719 ..
1720 .\" ****************************
1721 .\" ******** module pic ********
1722 .\" ****************************
1723 .\" Pic support.
1724 .\" PS height width
1725 .de PS
1726 .br
1727 .sp \\n[DD]u
1728 .ie \\n[.$]<2 .@error bad arguments to PS (not preprocessed with pic?)
1729 .el \{\
1730 . ds@need (u;\\$1)+1v
1731 . in +(u;\\n[.l]-\\n[.i]-\\$2/2>?0)
1732 .\}
1733 .HTML-IMAGE
1734 ..
1735 .de PE
1736 .HTML-IMAGE-END
1737 .par@reset
1738 .sp \\n[DD]u+.5m
1739 ..
1740 .\" ****************************
1741 .\" ******** module ref ********
1742 .\" ****************************
1743 .\" Refer support.
1744 .de ]-
1745 .rm [A [B [C [D [E [G [I [J [N [O [P [Q [R [S [T [V
1746 .rm ref*string
1747 ..
1748 .\" Other
1749 .ds ref*spec!0 Q A T1 S V N P I C D O
1750 .\" Journal article
1751 .ds ref*spec!1 Q A T2 J S V N P I C D O
1752 .\" Book
1753 .ds ref*spec!2 Q A T1 S V P I C D O
1754 .\" Article within book
1755 .ds ref*spec!3 Q A T2 B E S V P I C D O
1756 .\" Tech report
1757 .ds ref*spec!4 Q A T2 R G P I C D O
1758 .\" ][ type
1759 .de ][
1760 .if r [T \{\
1761 . als [T1 [T
1762 . als [T2 [T
1763 .\}
1764 .ie d ref*spec!\\$1 .ref*build \\*[ref*spec!\\$1]
1765 .el \{\
1766 . @error unknown reference type `\\$1'
1767 . ref*build \\*[ref*spec!0]
1768 .\}
1769 .ref*print
1770 .rm ref*string
1771 .rm [F [T1 [T2
1772 ..
1773 .\" start of reference number
1774 .ds [. \\*[par@sup-start]
1775 .\" end of reference number
1776 .ds .] \\*[par@sup-end]
1777 .\" period before reference
1778 .ds <. .
1779 .\" period after reference
1780 .ds >. \" empty
1781 .\" comma before reference
1782 .ds <, ,
1783 .\" comma after reference
1784 .ds >, \" empty
1785 .\" start collected references
1786 .de ]<
1787 .als ref*print ref*end-print
1788 .SH
1789 \&\\*[REFERENCES]
1790 .par@reset
1791 ..
1792 .\" end collected references
1793 .de ]>
1794 .par@finish
1795 .als ref*print ref*normal-print
1796 ..
1797 .de ref*normal-print
1798 .ie d [F .FS "\\*([.\\*([F\\*(.]"
1799 .el .FS \&
1800 \\*[ref*string]
1801 .FE
1802 ..
1803 .de ref*end-print
1804 .ie d [F .IP "\\*([F."
1805 .el .XP
1806 \\*[ref*string]
1807 ..
1808 .als ref*print ref*normal-print
1809 .de ref*build
1810 .rm ref*string ref*post-punct
1811 .nr ref*suppress-period 1
1812 .while \\n[.$] \{\
1813 . if d [\\$1 \{\
1814 . ie d ref*add-\\$1 .ref*add-\\$1
1815 . el .ref*add-dflt \\$1
1816 . \}
1817 . shift
1818 .\}
1819 .\" now add a final period
1820 .ie d ref*string \{\
1821 . if !\\n[ref*suppress-period] .as ref*string .
1822 . if d ref*post-punct \{\
1823 . as ref*string "\\*[ref*post-punct]
1824 . rm ref*post-punct
1825 . \}
1826 .\}
1827 .el .ds ref*string
1828 ..
1829 .de ref*add-T1
1830 .ref*field T , "\fI" "" "\fP"
1831 .if r [T .nr ref*suppress-period \\n([T
1832 ..
1833 .de ref*add-T2
1834 .ref*field T , "\\*Q" "" "\\*U"
1835 .if r [T .nr ref*suppress-period \\n([T
1836 ..
1837 .de ref*add-P
1838 .ie \\n([P>0 .ref*field P , "pp. "
1839 .el .ref*field P , "p. "
1840 ..
1841 .de ref*add-J
1842 .ref*field J , \fI "" \fP
1843 ..
1844 .de ref*add-D
1845 .ref*field D "" ( )
1846 ..
1847 .de ref*add-E
1848 .ref*field E , "ed. "
1849 ..
1850 .de ref*add-G
1851 .ref*field G "" ( )
1852 ..
1853 .de ref*add-B
1854 .ref*field B "" "in \fI" "" \fP
1855 ..
1856 .de ref*add-O
1857 .ref*field O .
1858 .ie r [O .nr ref*suppress-period \\n([O
1859 .el .nr ref*suppress-period 1
1860 ..
1861 .de ref*add-A
1862 .ref*field A ,
1863 .if r [A .nr ref*suppress-period \\n([A
1864 ..
1865 .de ref*add-dflt
1866 .ref*field \\$1 ,
1867 ..
1868 .\" First argument is the field letter.
1869 .\" Second argument is the punctuation character to use to separate this field
1870 .\" from the previous field.
1871 .\" Third argument is a string with which to prefix this field.
1872 .\" Fourth argument is a string with which to postfix this field.
1873 .\" Fifth argument is a string to add after the punctuation character supplied
1874 .\" by the next field.
1875 .de ref*field
1876 .if d ref*string \{\
1877 . ie d ref*post-punct \{\
1878 . as ref*string "\\$2\\*[ref*post-punct] \"
1879 . rm ref*post-punct
1880 . \}
1881 . el .as ref*string "\\$2 \"
1882 .\}
1883 .as ref*string "\\$3\\*([\\$1\\$4
1884 .if \\n[.$]>4 .ds ref*post-punct "\\$5
1885 .nr ref*suppress-period 0
1886 ..
1887 .\" ****************************
1888 .\" ******** module acc ********
1889 .\" ****************************
1890 .\" Accents and special characters.
1891 .ds Q \(lq
1892 .ds U \(rq
1893 .ds - \(em
1894 .\" Characters
1895 .\" The idea of this definition is for the top of the 3 to be at the x-height.
1896 .if !c\[yogh] .char \[yogh] \Z'\v'\w'x'*0-\En[rst]u'\s[\En[.s]*8u/10u]\
1897 \v'\w'3'*0+\En[rst]u'3\s0'\h'\w'\s[\En[.s]*8u/10u]3'u'
1898 .\" Accents
1899 .de acc*over-def
1900 .ds \\$1 \Z'\v'(u;\w'x'*0+\En[rst]-\En[.cht])'\
1901 \h'(u;-\En[skw]+(-\En[.w]-\w'\\$2'/2)+\En[.csk])'\\$2'
1902 ..
1903 .de acc*under-def
1904 .ds \\$1 \Z'\v'\En[.cdp]u'\h'(u;-\En[.w]-\w'\\$2'/2)'\\$2'
1905 ..
1906 .de acc*slash-def
1907 .ds \\$1 \Z'\h'(u;-\En[.w]-\w'\\$2'/2)'\
1908 \v'(u;\En[.cdp]-\En[.cht]+\En[rst]+\En[rsb]/2)'\\$2'
1909 ..
1910 .de acc*prefix-def
1911 .ds \\$1 \Z'\h'(u;\w'x'-\w'\\$2'/2)'\\$2'
1912 ..
1913 .acc*prefix-def ' \'
1914 .acc*prefix-def ` \`
1915 .acc*prefix-def ^ ^
1916 .acc*prefix-def , \(ac
1917 .acc*prefix-def : \(ad
1918 .acc*prefix-def ~ ~
1919 .\" improved accent marks
1920 .de AM
1921 .acc*over-def ' \'
1922 .acc*over-def ` \`
1923 .acc*over-def ^ ^
1924 .acc*over-def ~ ~
1925 .acc*over-def : \(ad
1926 .acc*over-def v \(ah
1927 .acc*over-def _ \(a-
1928 .acc*over-def o \(ao
1929 .acc*under-def , \(ac
1930 .acc*under-def . \s[\En[.s]*8u/10u]\v'.2m'.\v'-.2m'\s0
1931 .acc*under-def hook \(ho
1932 .acc*slash-def / /
1933 .char \[hooko] o\\\\*[hook]
1934 .ds q \[hooko]
1935 .ds 3 \[yogh]
1936 .ds D- \(-D\" Icelandic uppercase eth
1937 .ds d- \(Sd\" Icelandic lowercase eth
1938 .ds Th \(TP\" Icelandic uppercase thorn
1939 .ds th \(Tp\" Icelandic lowercase thorn
1940 .ds 8 \(ss\" German double s
1941 .ds Ae \(AE\" AE ligature
1942 .ds ae \(ae\" ae ligature
1943 .ds Oe \(OE\" OE ligature
1944 .ds oe \(oe\" oe ligature
1945 .ds ? \(r?\" upside down ?
1946 .ds ! \(r!\" upside down !
1947 ..
1948 .de CHECK-FOOTER-AND-KEEP
1949 .\" it might be better to als FS -> B1 and FE -> B2
1950 .\" however this produced wierd results, so I've moved back to a more reliable
1951 .\" but less interesting solution --fixme--
1952 . if '\*(.T'html' \{\
1953 . rm KF
1954 . als KF KS
1955 . rm FS
1956 . de FS
1957 . br
1958 . HTML-IMAGE
1959 \\..
1960 . rm FE
1961 . de FE
1962 . br
1963 . HTML-IMAGE-END
1964 \\..
1965 . \}
1966 . if r ps4html \{\
1967 . rm FS
1968 . de FS
1969 . br
1970 . HTML-IMAGE
1971 \\..
1972 . rm FE
1973 . de FE
1974 . br
1975 . HTML-IMAGE-END
1976 \\..
1977 . \}
1978 ..
1979 .par@load-init
1980 .if '\*(.T'html' \{\
1981 . rm @IP
1982 . als @IP @IP-html
1983 .\}
1984 .\" Make sure that no blank lines creep in at the end of this file.