tmac/tmac.e

   1 .\"     @(#)tmac.e      2.31 (Berkeley) 5/21/88
   2 .\"     Modified by James Clark for use with groff.
   3 .\"
   4 .\" Copyright (c) 1988 Regents of the University of California.
   5 .\" All rights reserved.
   6 .\"
   7 .\" Redistribution and use in source and binary forms are permitted
   8 .\" provided that this notice is preserved and that due credit is given
   9 .\" to the University of California at Berkeley. The name of the University
  10 .\" may not be used to endorse or promote products derived from this
  11 .\" software without specific prior written permission. This software
  12 .\" is provided ``as is'' without express or implied warranty.
  13 .\"     %beginstrip%
  14 .\"
  15 .\"**********************************************************************
  16 .\"*                                                                    *
  17 .\"*    ******  - M E   N R O F F / T R O F F   M A C R O S  ******     *
  18 .\"*                                                                    *
  19 .\"*    Produced for your edification and enjoyment by:                 *
  20 .\"*            Eric Allman                                             *
  21 .\"*            Electronics Research Laboratory                         *
  22 .\"*            U.C. Berkeley.                                          *
  23 .\"*    current address:                                                *
  24 .\"*            Britton-Lee, Inc.                                       *
  25 .\"*            1919 Addison Street Suite 105                           *
  26 .\"*            Berkeley, California  94704                             *
  27 .\"*                                                                    *
  28 .\"*    VERSION 2.31    First Release: 11 Sept 1978                     *
  29 .\"*                                                                    *
  30 .\"*    Documentation is available.                                     *
  31 .\"*                                                                    *
  32 .\"**********************************************************************
  33 .\"
  34 .\"     Code on .de commands:
  35 .\"             ***     a user interface macro.
  36 .\"             &&&     a user interface macro which is redefined
  37 .\"                     when used to be the real thing.
  38 .\"             $$$     a macro which may be redefined by the user
  39 .\"                     to provide variant functions.
  40 .\"             ---     an internal macro.
  41 .\"
  42 .if !\n(.g .ig
  43 .de @R                  \" --- initialize number register to 0, if undefined
  44 .if !r\\$1 .nr \\$1 0
  45 ..
  46 .@R pf
  47 .if \n(pf .nx
  48 .if !\n(.g .ig
  49 .de @S                  \" --- initialize string/macro to empty, if undefined
  50 .if !d\\$1 .ds \\$1 \" empty
  51 ..
  52 .@R @\"                 \" debugging level
  53 .\"             *** INTERNAL GP MACROS ***
  54 .de @C                  \" --- change ev's, taking info with us
  55 .nr _S \\n(.s
  56 .nr _V \\n(.v
  57 .nr _F \\n(.f
  58 .do ds _A \\n[.fam]
  59 .nr _I \\n(.i
  60 .ev \\$1
  61 .ps \\n(_S
  62 .vs \\n(_Vu
  63 .ft \\n(_F
  64 .do @fam \\*(_A
  65 'in \\n(_Iu
  66 .xl \\n($lu
  67 .lt \\n($lu
  68 .rr _S
  69 .rr _V
  70 .rr _F
  71 .rr _I
  72 .ls 1
  73 'ce 0
  74 ..
  75 .de @D                  \" --- determine display type (Indent, Left, Center)
  76 .ds |p "\\$3
  77 .nr _d 0
  78 .if "\\$2"C" \
  79 .       nr _d 1
  80 .if "\\$2"L" \
  81 .       nr _d 2
  82 .if "\\$2"I" \
  83 .       nr _d 3
  84 .if "\\$2"M" \
  85 .       nr _d 4
  86 .if !\\n(_d \{\
  87 .       nr _d \\$1
  88 .       ds |p "\\$2
  89 .\}
  90 ..
  91 .de @z                  \" --- end macro
  92 .if \n@>1 .tm >> @z, .z=\\n(.z ?a=\\n(?a
  93 .if !"\\n(.z"" \
  94 \{\
  95 .       tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
  96 .       di
  97 .       ex
  98 .\}
  99 .if \\n(?a \
 100 .       bp                      \" force out final table
 101 .ds bp
 102 .ds @b\"                        \" don't start another page
 103 .br
 104 .if \n@>1 .tm << @z
 105 ..
 106 .\"             *** STANDARD HEADERS AND FOOTERS ***
 107 .ie \n(.g .ds $* \\\\$*
 108 .el .ds $* \\\\$1 \\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7 \\\\$8 \\\\$9
 109 .de he                  \" *** define header
 110 .ie !\\n(.$ \
 111 \{\
 112 .       rm |4
 113 .       rm |5
 114 .\}
 115 .el \
 116 \{\
 117 .       ds |4 "\*($*
 118 .       ds |5 "\*($*
 119 .\}
 120 ..
 121 .de eh                  \" *** define even header
 122 .ie !\\n(.$ \
 123 .       rm |4
 124 .el \
 125 .       ds |4 "\*($*
 126 ..
 127 .de oh                  \" *** define odd header
 128 .ie !\\n(.$ \
 129 .       rm |5
 130 .el \
 131 .       ds |5 "\*($*
 132 ..
 133 .de fo                  \" *** define footer
 134 .ie !\\n(.$ \
 135 \{\
 136 .       rm |6
 137 .       rm |7
 138 .\}
 139 .el \
 140 \{\
 141 .       ds |6 "\*($*
 142 .       ds |7 "\*($*
 143 .\}
 144 ..
 145 .de ef                  \" *** define even foot
 146 .ie !\\n(.$ \
 147 .       rm |6
 148 .el \
 149 .       ds |6 "\*($*
 150 ..
 151 .de of                  \" *** define odd footer
 152 .ie !\\n(.$ \
 153 .       rm |7
 154 .el \
 155 .       ds |7 "\*($*
 156 ..
 157 .de ep                  \" *** end page (must always be followed by a .bp)
 158 .if \\n(nl>0 \
 159 \{\
 160 .       wh 0
 161 .       rs
 162 .       @b
 163 .\}
 164 ..
 165 .\"             *** INTERNAL HEADER AND FOOTER MACROS ***
 166 .de @h                  \" --- header
 167 .if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w
 168 .if (\\n(.i+\\n(.o)>=\\n(.l \
 169 .       tm Line \\n(c. -- Offset + indent exceeds line length
 170 .\" initialize a pile of junk
 171 .nr ?h \\n(?H                   \" transfer "next page" to "this page"
 172 .nr ?H 0
 173 .nr ?c \\n(?C
 174 .nr ?C 0
 175 .rn |4 |0
 176 .rn |5 |1
 177 .rn |6 |2
 178 .rn |7 |3
 179 .nr _w 0                        \" reset max footnote width
 180 .nr ?W 0                        \" no wide floats this page (yet)
 181 .nr ?I 1
 182 .\" begin actual header stuff
 183 .ev 2
 184 .rs
 185 .if \\n(hm>0 \
 186 .       sp |\\n(hmu             \" move to header position
 187 .@t $h                          \" output header title
 188 .if \\n(tm<=0 \
 189 .       nr tm \n(.Vu
 190 .sp |\\n(tmu                    \" move to top of text
 191 .ev
 192 .mk _k                          \" for columned output
 193 .if \\n(?n .nm 1                \" restore line numbering if n1 mode
 194 .nr $c 1                        \" set first column
 195 .if \n@>4 .tm -- @h >> .ns nl=\\n(nl %=\\n% _k=\\n(_k tm=\\n(tm
 196 .ie \\n(?s \
 197 \{\
 198 .       nr ?s 0
 199 .       rs
 200 '       @b
 201 .\}
 202 .el \
 203 .       @n                      \" begin the column
 204 .if \n@>2 .tm << @h
 205 ..
 206 .de @n                  \" --- new column or page
 207 .if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
 208 .if \\n(bm<=0 \
 209 .       nr bm \\n(.Vu
 210 .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
 211 \{\
 212 .       nr _b (\\n(ppp*\\n($vu)/200u    \" compute fudge factor (must be < 1P)
 213 .       if \\n(_bu>((\\n(bmu-\\n(fmu-((\\n(tpp*\\n($vu)/100u))/2u) \
 214 .               nr _b (\\n(ppp*\\n($vu)/100u-\n(.Vu
 215 .       nr _b +\\n(bmu
 216 .\}
 217 .nr _B \\n(_bu
 218 .ch @f
 219 .wh -\\n(_bu @f
 220 .nr _b +(\\n(ppp*\\n($vu)/100u \" add 1 paragraph v in case of sweep past
 221 .if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B
 222 .nr ?f 0                        \" reset footnote flag
 223 .if \\n(?o \
 224 \{\
 225 .       (f _                    \" reprocess footnotes which run off page
 226 .       nf
 227 .       |o
 228 .       fi
 229 .       )f
 230 .       rm |o
 231 .\}
 232 .nr ?o 0
 233 .if \\n(?T \
 234 \{\
 235 .       nr _i \\n(.i
 236 .       in 0
 237 .       |h                      \" output the table header
 238 .       in \\n(_iu
 239 .       rr _i
 240 .       mk #T                   \" for tbl commands
 241 .       ns
 242 .\}
 243 .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
 244 \{\
 245 .       nr ?a 0                 \" output floating keep
 246 .       @k |t
 247 .       if \\n(?w \
 248 .               mk _k           \" don't overstrike wide keeps
 249 .       nr ?w 0
 250 .\}
 251 .os
 252 .$H                             \" special column header macro
 253 .ns
 254 ..
 255 .de @f                  \" --- footer
 256 .if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f
 257 .if \n@>2 .nr VL \\n(.pu-\\n(nlu
 258 .if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL
 259 .ec
 260 .if \\n(?T \
 261 \{\
 262 .       nr T. 1                 \" for tbl commands (to output bottom line)
 263 .       T# 1                    \" output the sides and bottom lines
 264 .       br
 265 .\}
 266 .ev 2
 267 .ce 0
 268 .if \\n(?b \
 269 \{\
 270 .       nr ?b 0
 271 .       @k |b\"                 \" output bottom of page tables
 272 .\}
 273 .if \\n(?f \
 274 .       @o                      \" output footnote if present
 275 .ie \\n($c<\\n($m \
 276 .       @c                      \" handle new column
 277 .el \
 278 .       @e                      \" new page
 279 .ev
 280 .if \n@>2 .tm << @f
 281 ..
 282 .de @o                  \" --- output footnote
 283 .nf
 284 .ls 1
 285 .in 0
 286 .if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B
 287 .wh -\\n(_Bu @r
 288 .|f
 289 .fi
 290 .if \n@>2 .tm @o triggered @r (?o) = \\n(?o
 291 .if \\n(?o \
 292 \{\
 293 .       di                      \" just in case triggered @r
 294 .       if \\n(dn=0 \
 295 \{\
 296 .               rm |o
 297 .               nr ?o 0
 298 .       \}
 299 .       nr dn \\n(_D
 300 .       rr _D
 301 .\}
 302 .rm |f
 303 .ch @r
 304 ..
 305 .de @c                  \" --- new column
 306 .if \n@>2 .tm   >> @c %=\\n%
 307 .rs
 308 .sp |\\n(_ku
 309 .@O +\\n($lu+\\n($su
 310 .nr $c +1
 311 .@n
 312 ..
 313 .de @e                  \" --- end page
 314 .if \n@>2 .tm   >> @e
 315 .@O \\n(_ou
 316 .rs
 317 .sp |\\n(.pu-\\n(fmu-((\\n(tpp*\\n($vu)/100u)   \" move to footer position
 318 .@t $f                          \" output footer title
 319 .nr ?h 0
 320 .bp
 321 ..
 322 .de @t                  \" --- output header or footer title
 323 .if !\\n(?h \
 324 \{\
 325 .       sz \\n(tp               \" set header/footer type fonts, etc.
 326 .       @F \\n(tf
 327 .       lt \\n(_Lu              \" make title span entire page
 328 .       nf
 329 .       \\$1
 330 .       br
 331 .\}
 332 ..
 333 .de $h                  \" $$$ print header
 334 .ds |z
 335 .if !\\n(?c \
 336 \{\
 337 .       if e .ds |z "\\*(|0
 338 .       if o .ds |z "\\*(|1
 339 .\}
 340 .if !\(ts\\*(|z\(ts\(ts \
 341 '       tl \\*(|z
 342 .rm |z
 343 ..
 344 .de $f                  \" $$$ print footer
 345 .ds |z
 346 .if \\n(?c \
 347 \{\
 348 .       if e .ds |z "\\*(|0
 349 .       if o .ds |z "\\*(|1
 350 .\}
 351 .if \(ts\\*(|z\(ts\(ts \
 352 \{\
 353 .       if e .ds |z "\\*(|2
 354 .       if o .ds |z "\\*(|3
 355 .\}
 356 .if !\(ts\\*(|z\(ts\(ts \
 357 '       tl \\*(|z
 358 .rm |z
 359 ..
 360 .de @r                  \" --- reprocess overflow footnotes
 361 .if \n@>3 .tm           >> @r .z=\\n(.z ?f=\\n(?f ?a=\\n(?a ?b=\\n(?b _b=\\n(_b
 362 .di |o                          \" save overflow footnote
 363 .nr ?o 1
 364 .nr _D \\n(dn
 365 .ns
 366 ..
 367 .\"             *** COMMANDS WITH VARIANT DEFINITIONS ***
 368 .rn bp @b               \" --- begin page
 369 .de bp                  \" *** begin new page (overrides columns)
 370 .nr $c \\n($m                   \" force new page, not new column
 371 .ie \\n(nl>0 \
 372 .       @b \\$1
 373 .el \
 374 \{\
 375 .       if \\n(.$>0 \
 376 .               pn \\$1
 377 .       if \\n(?I \
 378 .               @h              \" 'spring' the header trap
 379 .\}
 380 .br
 381 .wh 0 @h                        \" reset header
 382 ..
 383 .rn ll xl               \" *** special line length (local)
 384 .de ll                  \" *** line length (global to environments)
 385 .xl \\$1
 386 .lt \\$1
 387 .nr $l \\n(.l
 388 .if (\\n($m<=1):(\\n($l>\\n(_L) \
 389 .       nr _L \\n(.l
 390 ..
 391 .rn po @O               \" --- local page offset
 392 .de po                  \" *** page offset
 393 .@O \\$1
 394 .nr _o \\n(.o
 395 ..
 396 .\" Redefine the fam request to set the family in
 397 .\" environment 2 as well as the current environment.
 398 .if !\n(.g .ig
 399 .do rn fam @fam         \" --- set family in current environment
 400 .do de fam              \" *** set font family in ev 2 and current ev
 401 .do @fam \\$1
 402 .ev 2
 403 .do @fam \\$1
 404 .ev
 405 ..
 406 .\"             *** MISCELLANEOUS ROFF COMMANDS ***
 407 .de hx                  \" *** suppress headers and footers next page
 408 .nr ?H 1
 409 ..
 410 .de ix                  \" *** indent, no break
 411 'in \\$1
 412 ..
 413 .de bl                  \" *** contiguous blank lines
 414 .br
 415 .ne \\$1
 416 .rs
 417 .sp \\$1
 418 ..
 419 .de n1                  \" *** line numbering 1
 420 .nm 1
 421 .xl -\w'0000'u
 422 .nr ?n 1
 423 ..
 424 .de n2                  \" *** line numbering 2
 425 .nm \\$1
 426 .ie \\n(.$ \
 427 .       xl -\w'0000'u
 428 .el \
 429 .       xl \\n($lu
 430 ..
 431 .de pa                  \" *** new page
 432 .bp \\$1
 433 ..
 434 .de ro                  \" *** roman page numbers
 435 .af % i
 436 ..
 437 .de ar                  \" *** arabic page numbers
 438 .af % 1
 439 ..
 440 .de m1                  \" *** position one space
 441 .nr _0 \\n(hmu
 442 .nr hm \\$1v
 443 .nr tm +\\n(hmu-\\n(_0u
 444 .rr _0
 445 ..
 446 .de m2                  \" *** position two space
 447 .nr tm \\n(hmu+\\n(tpp+\\$1v
 448 ..
 449 .de m3                  \" *** position three space
 450 .nr bm \\n(fmu+\\n(tpp+\\$1v
 451 ..
 452 .de m4                  \" *** position four space
 453 .nr _0 \\n(fmu
 454 .nr fm \\$1v
 455 .nr bm +\\n(fmu-\\n(_0u
 456 ..
 457 .de sk                  \" *** leave a blank page (next page)
 458 .if \\n(.$>0 \
 459 .       tm Line \\n(c. -- I cannot skip multiple pages
 460 .nr ?s 1
 461 ..
 462 .\"             *** MISCELLANEOUS USER SUPPORT COMMANDS ***
 463 .if !\n(.g .ig
 464 .de re                  \" *** reset tabs (TROFF defines 15 stops default)
 465 .ta T 0.5i
 466 ..
 467 .if \n(.g .ig
 468 .de re
 469 .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
 470 ..
 471 .de ba                  \" *** set base indent
 472 .ie \\n(.$ \
 473 .       nr $i \\$1n
 474 .el \
 475 .       nr $i \\n(siu*\\n($0u
 476 ..
 477 .de hl                  \" *** draw horizontal line
 478 .br
 479 .ie \n(.g .do nr _I \\n[.in]
 480 .el .nr _I \\n(.i
 481 \l'\\n(.lu-\\n(_Iu'
 482 .sp
 483 ..
 484 .\"             *** PARAGRAPHING ***
 485 .de pp                  \" *** paragraph
 486 .lp \\n(piu
 487 ..
 488 .de lp                  \" *** left aligned paragraph
 489 .@p
 490 .if \\n(.$ \
 491 .       ti +\\$1
 492 .nr $p 0 1
 493 ..
 494 .de ip                  \" *** indented paragraph w/ optional tag
 495 .if (\\n(ii>0)&(\\n(ii<1n) \
 496 .       nr ii \\n(iin
 497 .nr _0 \\n(ii
 498 .if \\n(.$>1 \
 499 .       nr _0 \\$2n
 500 .@p \\n(_0u
 501 .nr _I \\n(.iu
 502 .in 0
 503 .di |i
 504 \&\\$1
 505 .br
 506 .di
 507 .in \\n(_Iu
 508 .ds |j \\*(|i\\
 509 .if \\w"\\*(|j" \
 510 \{\
 511 .       ti -\\n(_0u
 512 .       ie \\w"\\*(|j">=\\n(_0 \
 513 \{\
 514 \\*(|j
 515 .               br
 516 .       \}
 517 .       el \\*(|j\h'|\\n(_0u'\c
 518 .\}
 519 .rr _0
 520 .rm |i |j
 521 ..
 522 .de np                  \" *** numbered paragraph
 523 .\" use string comparison in case user has changed format of $p
 524 .if '\\n($p'-1' \
 525 .       nr $p 0                 \" reset number after .bu
 526 .nr $p +1                       \" increment paragraph number
 527 .@p \w'\0(000)\0'u
 528 .ti -\w'\0(000)\0'u
 529 \0(\\n($p)\h'|\w'\0(000)\0'u'\c
 530 ..
 531 .de bu                  \" *** bulleted paragraph
 532 .br
 533 .\" use string comparison in case user has changed format of $p
 534 .if '\\n($p'-1' \
 535 .       ns                      \" don't space between .bu paragraphs
 536 .nr $p 0-1                      \" mark "bulleted paragraph" mode
 537 .@p \w'\0\(bu\0'u
 538 .ti -\w'\0\(bu\0'u
 539 \0\(bu\0\c
 540 ..
 541 .de @p                  \" --- initialize for paragraph
 542 .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
 543 .in \\n($iu+\\n(pou
 544 .if \\n(.$ \
 545 .       in +\\$1n
 546 .ce 0
 547 .fi
 548 .@F \\n(pf
 549 .sz \\n(pp
 550 .sp \\n(psu
 551 .ne \\n(.Lv+\\n(.Vu
 552 .ns
 553 ..
 554 .\"             *** SECTION HEADINGS ***
 555 .de sh                  \" *** section heading
 556 .fi
 557 .if (\\n(si>0)&(\\n(si<1n) \
 558 .       nr si \\n(sin
 559 .ce 0
 560 .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
 561 .if !"\\$2"_" \
 562 \{\
 563 .       ds |n \&\\$2
 564 .       $p "\\*(|n" "\\*($n" \\n($0
 565 .       $0 "\\*(|n" "\\*($n" \\n($0
 566 .       rm |n
 567 .\}
 568 .nr $p 0 1                      \" reset .np count
 569 ..
 570 .de @d                  \" --- change section depth
 571 .if !""\\$1" \
 572 .       nr $0 \\$1
 573 .if \\n($0&(\\n(.$>1) \
 574 .       nr $\\n($0 \\$2
 575 .ds $n \&\"
 576 .ie \\n($0>=1 \
 577 \{\
 578 .       if '\\n($1'0' \
 579 .               nr $1 1
 580 .       if (\\n(.$>=3) .if !"\\$3"-" \
 581 .               nr $1 \\$3
 582 .       as $n \\n($1
 583 .\}
 584 .el \
 585 .       nr $1 0
 586 .ie \\n($0>=2 \
 587 \{\
 588 .       if '\\n($2'0' \
 589 .               nr $2 1
 590 .       if (\\n(.$>=4) .if !"\\$4"-" \
 591 .               nr $2 \\$4
 592 .       as $n .\\n($2
 593 .\}
 594 .el \
 595 .       nr $2 0
 596 .ie \\n($0>=3 \
 597 \{\
 598 .       if '\\n($3'0' \
 599 .               nr $3 1
 600 .       if (\\n(.$>=5) .if !"\\$5"-" \
 601 .               nr $3 \\$5
 602 .       as $n .\\n($3
 603 .\}
 604 .el \
 605 .       nr $3 0
 606 .ie \\n($0>=4 \
 607 \{\
 608 .       if '\\n($4'0' \
 609 .               nr $4 1
 610 .       if (\\n(.$>=6) .if !"\\$6"-" \
 611 .               nr $4 \\$6
 612 .       as $n .\\n($4
 613 .\}
 614 .el \
 615 .       nr $4 0
 616 .ie \\n($0>=5 \
 617 \{\
 618 .       if '\\n($5'0' \
 619 .               nr $5 1
 620 .       if (\\n(.$>=7) .if !"\\$7"-" \
 621 .               nr $5 \\$7
 622 .       as $n .\\n($5
 623 .\}
 624 .el \
 625 .       nr $5 0
 626 .ie \\n($0>=6 \
 627 \{\
 628 .       if '\\n($6'0' \
 629 .               nr $6 1
 630 .       if (\\n(.$>=8) .if !"\\$8"-" \
 631 .               nr $6 \\$8
 632 .       as $n .\\n($6
 633 .\}
 634 .el \
 635 .       nr $6 0
 636 ..
 637 .de sx                  \" *** heading up, no increment (2.1.1 -> 2.1)
 638 .ce 0
 639 .ul 0
 640 .nr _0 \\n($0-1
 641 .if \\n(.$ .nr _0 +1
 642 .if \\n(.$ .nr _0 \\$1
 643 .@d \\n(_0
 644 .rr _0
 645 .$p "" "" \\n($0
 646 .nr $p 0 1                      \" reset .np count
 647 ..
 648 .de uh                  \" *** unnumbered section heading
 649 .$p "\\$1"
 650 .$0 "\\$1"
 651 ..
 652 .de $p                  \" $$$ print section heading
 653 .if (\\n(si>0)&(\\n(.$>2) \
 654 .       nr $i \\$3*\\n(si
 655 .in \\n($iu
 656 .ie !"\\$1\\$2"" \
 657 \{\
 658 .       sp \\n(ssu              \" one of them is non-null
 659 .       ne \\n(.Lv+\\n(.Vu+\\n(psu+((\\n(spp*\\n($vu*\\n(.Lu)/100u)
 660 .       \" exdent if \\$3 > 0
 661 .       ie 0\\$3 \
 662 .               ti -(\\n(siu-\\n(sou)
 663 .       el \
 664 .               ti +\\n(sou
 665 .       @F \\n(sf
 666 .       sz \\n(sp
 667 .       if 0\\$3 \
 668 .               $\\$3
 669 .       if \w"\\$2">0 \\$2.
 670 .       if \w"\\$1">0 \\$1\f1\ \ \&
 671 .\}
 672 .el \
 673 .       sp \\n(psu
 674 .@F \\n(pf
 675 .sz \\n(pp
 676 ..
 677 .\"             *** COLUMNNED OUTPUT ***
 678 .de 2c                  \" *** double columned output
 679 .br
 680 .if \\n($m>1 \
 681 .       1c                      \" revert to 1c if already 2c
 682 .nr $c 1
 683 .nr $m 2
 684 .if \\n(.$>1 \
 685 .       nr $m \\$2
 686 .if \\n(.$>0 \
 687 .       nr $s \\$1n             \" param 1: column seperation
 688 .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
 689 .xl \\n($lu
 690 .mk _k
 691 .ns
 692 ..
 693 .de 1c                  \" *** single columned output
 694 .br
 695 .nr $c 1
 696 .nr $m 1
 697 .ll \\n(_Lu                     \" return to normal output
 698 .sp |\\n(.hu
 699 .@O \\n(_ou
 700 ..
 701 .de bc                  \" *** begin column
 702 .sp 24i
 703 ..
 704 .\"             *** FLOATING TABLES AND NONFLOATING BLOCKS ***
 705 .de (z                  \" *** begin floating keep
 706 .if \n@>4 .tm >> (z, .z=\n(.z
 707 .@D 4 \\$1 \\$2
 708 .@(
 709 ..
 710 .de )z                  \" *** end floating keep
 711 .if \n@>4 .tm >> )z, .z=\n(.z
 712 .sp \\n(zsu
 713 .@)
 714 .if \n@>4 .tm -- )z << @), .z=\n(.z
 715 .rr _0
 716 .if !\\n(?b \
 717 .       nr dn +(\\n(ppp*\\n($vu)/200u+\\n(zsu
 718 .nr dl -\n(.H                   \" fudge factor necessary to make it work
 719 .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
 720 \{\
 721 .       nr ?a 1
 722 .       if (\\n(dl>\\n($l)&(\\n($m>1) \
 723 .               nr ?w 1         \" mark wider than one column (top)
 724 .       ds |x |t
 725 .\}
 726 .el \
 727 \{\
 728 .       nr ?b 1
 729 .       if (\\n(dl>\\n($l)&(\\n($m>1) \
 730 .               nr ?W 1         \" mark wider than one column (bottom)
 731 .       nr _b +\\n(dnu
 732 .       \" avoid moving @f back past the current position
 733 .       if \\n(.p-\\n(nl-\n(.V<\\n(_b \
 734 .               nr _b \\n(.p-\\n(nl-\n(.V
 735 .       ch @f -\\n(_bu
 736 .       ds |x |b
 737 .\}
 738 .da \\*(|x                      \" copy to save macro
 739 .nf
 740 .ls 1
 741 .nr ?k 1
 742 .if \n@>4 .tm -- )z >> \\*(|x
 743 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
 744 .|k\"                           \" and the body
 745 .ec
 746 .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
 747 .nr ?k 0
 748 .rm |k\"                        \" remove the temp macro
 749 .da
 750 .in 0
 751 .ls 1
 752 .xl \\n($lu
 753 .ev
 754 .if \n@>4 .tm << )z, .z=\\n(.z
 755 ..
 756 .de @k                  \" --- output floating keep
 757 .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
 758 .ev 1
 759 .nf
 760 .ls 1
 761 .in 0
 762 .sp \\n(zsu
 763 .\\$1
 764 .ec
 765 .br
 766 .rm \\$1
 767 .ev
 768 ..
 769 .de (t                  \" XXX temp ref to (z
 770 .(z \\$1 \\$2
 771 ..
 772 .de )t                  \" XXX temp ref to )t
 773 .)z \\$1 \\$2
 774 ..
 775 .de (b                  \" *** begin block
 776 .br
 777 .@D 3 \\$1 \\$2
 778 .sp \\n(bsu
 779 .@(
 780 ..
 781 .de )b                  \" *** end block
 782 .br
 783 .@)
 784 .if (\\n(bt=0):(\\n(.t<\\n(bt) \
 785 .       ne \\n(dnu              \" make it all on one page
 786 .ls 1
 787 .nf
 788 .|k
 789 .ec
 790 .fi
 791 .in 0
 792 .xl \\n($lu
 793 .ev
 794 .rm |k
 795 .sp \\n(bsu+\\n(.Lv-1v
 796 ..
 797 .de @(                  \" --- begin keep
 798 .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
 799 .@M
 800 .di |k
 801 \!'rs
 802 ..
 803 .de @M                  \" --- set modes for display
 804 .nr ?k 1
 805 .@C 1
 806 .@F \\n(df
 807 .if \\n($R .@V
 808 .vs \\n(.sp*\\n($Vu/100u
 809 .nf
 810 .if "\\*(|p"F" \
 811 .       fi                      \" set fill mode if "F" parameter
 812 .if \\n(_d=4 \
 813 .       in 0
 814 .if \\n(_d=3 \
 815 \{\
 816 .       in +\\n(biu
 817 .       xl -\\n(biu
 818 .\}
 819 .if \\n(_d=1 \
 820 .       ce 10000
 821 ..
 822 .de @)                  \" --- end keep
 823 .br
 824 .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
 825 .nr ?k 0
 826 .di
 827 .in 0
 828 .ce 0
 829 ..
 830 .de (c                  \" *** begin block centered text
 831 .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
 832 .di |c
 833 ..
 834 .de )c                  \" *** end block centered text
 835 .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
 836 .br                             \" force out final line
 837 .di
 838 .if \n@>4 .tm >> .)c .l=\\n(.l .i=\\n(.i $i=\\n($i dl=\\n(dl
 839 .ev 1
 840 .ls 1
 841 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
 842 .if \n@>4 .tm -- .)c << .in .l=\\n(.l .i=\\n(.i dl=\\n(dl
 843 .nf
 844 .|c
 845 .ec
 846 .in
 847 .ls
 848 .ev
 849 .rm |c
 850 ..
 851 .\"             *** BLOCK QUOTES (OR WHATEVER) AND LISTS ***
 852 .de (q                  \" *** begin block quote
 853 .br
 854 .@C 1
 855 .fi
 856 .sp \\n(qsu
 857 .in +\\n(qiu
 858 .xl -\\n(qiu
 859 .sz \\n(qp
 860 ..
 861 .de )q                  \" *** end block quote
 862 .br
 863 .ev
 864 .sp \\n(qsu+\\n(.Lv-1v
 865 .nr ?k 0
 866 ..
 867 .de (l                  \" *** begin list
 868 .br
 869 .sp \\n(bsu
 870 .@D 3 \\$1 \\$2
 871 .@M
 872 ..
 873 .de )l                  \" *** end list
 874 .br
 875 .ev
 876 .sp \\n(bsu+\\n(.Lv-1v
 877 .nr ?k 0
 878 ..
 879 .\"             *** PREPROCESSOR SUPPORT ***
 880 .\"
 881 .\"     EQN
 882 .\"
 883 .de EQ                  \" *** equation start
 884 .ec
 885 .if !\\n(?e \
 886 \{\
 887 .       if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
 888 .       @D 1 "\\$1" "\\$2"
 889 .       @C 2
 890 .       di |e
 891 .\}
 892 .ls 1
 893 .in 0
 894 .nf
 895 ..
 896 .de EN                  \" *** equation end
 897 .br
 898 .ie "\\$1"C" \
 899 \{\
 900 .       nr ?e 1
 901 .       sp \\n(esu
 902 .\}
 903 .el \
 904 \{\
 905 .       nr ?e 0
 906 .       di
 907 .       if \\n(dn \
 908 .               @q              \" actual equation output
 909 .       rm |e
 910 .       ev
 911 .\}
 912 ..
 913 .de @q                  \" --- equation output
 914 .nr _Q \\n(dnu
 915 .ev
 916 .sp \\n(esu                     \" output rest of preceeding text
 917 .if !"\\n(.z"" \!.ne \\n(_Qu
 918 .ne \\n(_Qu+\n(.Vu              \" keep it on one page
 919 .@C 2                           \" .ev 2 may be jumbled from header
 920 .if \\n(_d=1 \
 921 .       in (\\n(.lu+\\n($iu-\\n(dlu)/2u
 922 .if \\n(_d=2 \
 923 .       in \\n($iu
 924 .if \\n(_d=3 \
 925 .       in \\n(biu+\\n($iu
 926 .if \\n(_d=4 \
 927 .       in 0
 928 .mk _q
 929 .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
 930 .if !"\\*(|p"" \
 931 \{\
 932 .       rs
 933 .       sp (\\n(_Qu-\\n(.vu)/2u
 934 .       tl """\\*(|p"
 935 .       rt \\n(_qu
 936 .\}
 937 .|e
 938 .sp |\\n(_qu+\\n(_Qu
 939 .sp \\n(esu+\\n(.Lv-1v
 940 .rr _q
 941 .rr _Q
 942 ..
 943 .\"
 944 .\"     TBL
 945 .\"
 946 .de TS                  \" *** table start
 947 .sp \\n(bsu
 948 .@C 1
 949 .fi                             \" drop into fill mode for text boxes
 950 .if "\\$1"H" \
 951 \{\
 952 .       di |h                   \" save header part
 953 .       nr ?T 1
 954 .\}
 955 .ls 1
 956 .ch @f -(\\n(_bu+1v)            \" set pseudo-trap for bottom line
 957 .if \\n(.p-\\n(_b-1v<=\\n(nl \
 958 .       ch @f \\n(nlu+\n(.Vu
 959 ..
 960 .de TH                  \" *** end header part of table
 961 .nr T. 0
 962 .T# 0
 963 .di
 964 .nr _T \\n(?T
 965 .nr ?T 0
 966 .ne \\n(dnu+1v
 967 .nr ?T \\n(_T
 968 .nr _i \\n(.i
 969 .in 0
 970 .|h                             \" put in the initial header
 971 .in \\n(_iu
 972 .rr _i
 973 .mk #T
 974 ..
 975 .de TE                  \" *** table end
 976 .nr ?T 0
 977 .ch @f -\\n(_bu                 \" reset pseudo-trap
 978 .if \\n(.p-\\n(_b<=\\n(nl \
 979 .       ch @f \\n(nlu+\n(.Vu
 980 .ev
 981 .sp \\n(bsu+\\n(.Lv-1v
 982 .re
 983 ..
 984 .\"
 985 .\"     REFER
 986 .\"
 987 .de ][                          \" *** refer output
 988 .if \\$1>5 .tm Bad arg to []
 989 .[\\$1
 990 ..
 991 .de [0                          \" --- other
 992 .(f
 993 .ip "\\*([F.\0"
 994 .if !"\\*([A"" \\*([A,
 995 .if !"\\*([T"" \\f2\\*([T\\f1\c
 996 .if !"\\*([T"" .if !"\\*([O"" ,\
 997 .ie !"\\*([O"" \\*([O
 998 .el .if !"\\*([T"" \&.
 999 .if !"\\*([D"" \\*([D.
1000 .@p
1001 .)f
1002 ..
1003 .de [1                          \" --- journal article
1004 .(f
1005 .ip "\\*([F.\0"
1006 \\*([A,
1007 .if !"\\*([T"" \\*(lq\\*([T,\\*(rq
1008 .if "\\*([V"" \\f2\\*([J\\f1,
1009 .if !"\\*([V"" \\f2\\*([J\\f1
1010 .if !"\\*([V"" \\f3\\*([V\\f1\c
1011 .if !"\\*([N"" (\\*([N)\c
1012 .if !"\\*([P"" \
1013 \{\
1014 .       ie \\n([P>0 \ pp.\&
1015 .       el \ p.\&
1016 \\*([P
1017 .\}
1018 .if !"\\*([I"" .if "\\*([R"" \\*([I,
1019 (\\*([D).
1020 .if !"\\*([O"" \\*([O
1021 .)f
1022 ..
1023 .de [2                          \" --- book
1024 .(f
1025 .ip "\\*([F.\0"
1026 \\*([A, \\f2\\*([T,\\f1
1027 \\*([I\c
1028 .if !"\\*([C"" , \\*([C\c
1029  (\\*([D).
1030 .if !"\\*([G"" Gov't. ordering no. \\*([G
1031 .if !"\\*([O"" \\*([O
1032 .)f
1033 ..
1034 .de [3                          \" --- article in book
1035 .(f
1036 .ip "\\*([F.\0"
1037 \\*([A, \\*(lq\\*([T,\\*(rq
1038 .if !"\\*([P"" pp. \\*([P
1039 in \\f2\\*([B\\f1, \c
1040 .if !"\\*([E"" ed. \\*([E, \c
1041 .if !"\\*([I"" \\*([I\c
1042 .if !"\\*([C"" , \\*([C\c
1043  (\\*([D).
1044 .if !"\\*([O"" \\*([O
1045 .)f
1046 ..
1047 .de [4                          \" --- report
1048 .(f
1049 .ip "\\*([F.\0"
1050 \\*([A, \\*(lq\\*([T,\\*(rq
1051 \\*([R\c
1052 .if !"\\*([G"" \& (\\*([G)\c
1053 .if !"\\*([I"" , \\*([I\c
1054 .if !"\\*([C"" , \\*([C\c
1055  (\\*([D).
1056 .if !"\\*([O"" \\*([O
1057 .)f
1058 ..
1059 .de [5                          \" --- tm style
1060 .(f
1061 .ip "\\*([F.\0"
1062 \\*([A, \\f2\\*([T\\f1,
1063 .ie \\n(TN \\*([M.
1064 .el Bell Laboratories internal memorandum (\\*([D).
1065 .)f
1066 ..
1067 .de ]<
1068 .$p References
1069 .lp
1070 .rm (f )f
1071 ..
1072 .de ]>
1073 .sp
1074 ..
1075 .de ]-
1076 .rm [V [P [A [T [N [C [B [O [R [I [E [D
1077 ..
1078 .ie \n(.V<1v \
1079 \{\
1080 .       ds [. \s-2\v'-.4m'\f1
1081 .       ds .] \v'.4m'\s+2\fP
1082 .\}
1083 .el \
1084 \{\
1085 .       ds [. " [
1086 .       ds .] ]
1087 .\}
1088 .\"
1089 .\"     IDEAL
1090 .\"
1091 .de IS                  \" *** start ideal picture
1092 .nr g7 \\n(.u
1093 .ls 1
1094 ..
1095 .de IF
1096 .if \\n(g7 .fi
1097 .ls
1098 ..
1099 .de IE                  \" *** end ideal picture
1100 .if \\n(g7 .fi
1101 .ls
1102 ..
1103 .\"
1104 .\"     PIC
1105 .\"
1106 .de PS          \" *** start picture: $1=height, $2=width in units or inches
1107 .sp 0.3
1108 .nr g7 \\$2
1109 .in (\\n(.lu-\\n(g7u)/2u
1110 .ne \\$1u
1111 .nr g7 \\n(.u
1112 .ls 1
1113 ..
1114 .de PE                  \" *** end picture
1115 .ls
1116 .in
1117 .if \\n(g7 .fi
1118 .sp .6
1119 ..
1120 .\"
1121 .\"     GREMLIN
1122 .\"
1123 .de GS                  \" *** start gremlin picture
1124 .nr g7 (\\n(.lu-\\n(g1u)/2u
1125 .if "\\$1"L" .nr g7 \\n(.iu
1126 .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
1127 .in \\n(g7u
1128 .nr g7 \\n(.u
1129 .ls 1
1130 .nf
1131 .ne \\n(g2u
1132 ..
1133 .de GE                  \" *** end gremlin picture
1134 .GF
1135 .sp .6
1136 ..
1137 .de GF                  \" *** finish gremlin picture; stay at top
1138 .ls
1139 .in
1140 .if \\n(g7 .fi
1141 ..
1142 .\"             *** FONT AIDS ***
1143 .de sz                  \" *** set point size and vertical spacing
1144 .ps \\$1
1145 .if \\n($r .@v
1146 .vs \\n(.sp*\\n($vu/100u        \" default vs at pointsize + 20%
1147 ..
1148 .de @v                  \" --- possibly set $v from $r
1149 .if (1i>=240u)&(1p<=\\n($r)&(\\n($r<=4p) .nr $v \\n($r00/1p
1150 ..
1151 .de @V                  \" --- possibly set $V from $R
1152 .if (1i>=240u)&(1p<=\\n($R)&(\\n($R<=4p) .nr $V \\n($R00/1p
1153 ..
1154 .de @E                  \" --- store in _F argument to \f for restoring font
1155 .ie \\n(.f<10 \
1156 .       ds _F \\n(.f
1157 .el \
1158 \{\
1159 .       ie \\n(.f<100&\n(.g \
1160 .               ds _F (\\n(.f
1161 .       el \
1162 .               ds _F P
1163 .\}
1164 ..
1165 .de r                   \" *** enter roman font
1166 .@E
1167 .ft 1
1168 .if \\n(.$ \&\\$1\f\\*(_F\\$2
1169 ..
1170 .de i                   \" *** enter italic
1171 .@E
1172 .ft 2
1173 .if \\n(.$ \&\\$1\f\\*(_F\\$2
1174 ..
1175 .de b                   \" *** enter boldface
1176 .@E
1177 .ft 3
1178 .if \\n(.$ \&\\$1\f\\*(_F\\$2
1179 ..
1180 .de rb                  \" *** enter real boldface
1181 .@E
1182 .ft 3
1183 .if \\n(.$ \&\\$1\f\\*(_F\\$2
1184 ..
1185 .de bi                  \" *** enter bold italic
1186 .@E
1187 .ft 4
1188 .if \\n(.$ \&\\$1\f\\*(_F\\$2
1189 ..
1190 .de u                   \" *** enter underlined word
1191 \&\\$1\l'|0\(ul'\\$2
1192 ..
1193 .\" a better version of u
1194 .if !\n(.g .ig
1195 .de u
1196 \Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
1197 ..
1198 .de q                   \" *** enter quoted word
1199 \&\\*(lq\\$1\\*(rq\\$2
1200 ..
1201 .de bx                  \" *** enter boxed word
1202 \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
1203 ..
1204 .de sm                  \" *** print in smaller font
1205 \s-1\\$1\\s0\\$2
1206 ..
1207 .de @F                  \" --- change font (0 -> no change)
1208 .nr ~ \\$1
1209 .if \\n~>0 \
1210 .       ft \\n~
1211 .rr ~
1212 ..
1213 .\"             *** FOOTNOTING ***
1214 .de (f                  \" *** begin footnote
1215 .ec
1216 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
1217 .ie "\\n(.z"" \
1218 \{\
1219 .       nr _D \\n(dn
1220 .       nr _0 1v+\\n(nlu
1221 .       ev 2
1222 .       da |f
1223 .       in 0
1224 .       xl \\n($lu-\\n(fuu
1225 .       @F \\n(ff
1226 .       sz \\n(fp
1227 .       vs \\n(.sp*\\n($Vu/100u
1228 .       if !\\n(?f \
1229 \{\
1230 .               nr _b +1v       \" allow space for $s
1231 .               $s
1232 .       \}
1233 .       br
1234 .       if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
1235 \{\
1236 .               da\"            \" won't fit on page at all
1237 .               bc
1238 .               if !\\n(?f \
1239 .                       rm |f
1240 .               da |f
1241 .\" next five lines could be dropped if headers had their own environment
1242 .               in 0            \" reset everything from .bc
1243 .               xl \\n($lu-\\n(fuu
1244 .               @F \\n(ff
1245 .               sz \\n(fp
1246 .               vs \\n(.sp*\\n($Vu/100u
1247 .               if !\\n(?f \
1248 .                       $s
1249 .               br
1250 .       \}
1251 .       rr _0
1252 .       sp \\n(fsu
1253 .       nr ?f 1
1254 .       fi
1255 .       if !"\\$1"_" \
1256 .               ti \\n(fiu
1257 .       if \n@>2 .tm    << (f $f=\\n($f
1258 .\}
1259 .el \
1260 \{\
1261 .       ev 2
1262 .       in 0
1263 .       xl \\n($lu-\\n(fuu
1264 .       @F \\n(ff
1265 .       sz \\n(fp
1266 .       vs \\n(.sp*\\n($Vu/100u
1267 .       fi
1268 \!.(f \\$1
1269 \!.@N
1270 .\}
1271 ..
1272 .de @N                  \" --- set no fill mode in the top-level diversion
1273 .ie "\\n(.z"" .nf
1274 .el \!.@N
1275 ..
1276 .de )f                  \" *** end footnote
1277 .ie "\\n(.z"|f" \
1278 \{\
1279 .       if \\n* \
1280 .               nr $f +1
1281 .       ds * \\*{\\n($f\\*}\k*
1282 .       nr * 0
1283 .       in 0
1284 .       da
1285 .       ev
1286 .       if \\n(_w<\\n(dl \
1287 .               nr _w \\n(dl    \" compute maximum fn width
1288 .       nr _b +\\n(dn
1289 .       ch @f -\\n(_bu
1290 .       if \\n(.p-\\n(_b<=\\n(nl \
1291 .               ch @f \\n(nlu+\n(.Vu
1292 .       nr dn \\n(_D
1293 .       rr _D
1294 .\}
1295 .el \
1296 \{\
1297 .       br
1298 \!.)f
1299 .       ev
1300 .\}
1301 ..
1302 .@R ff
1303 .if \n(ff<=0 \
1304 .       nr ff 1                 \" footnote font: Times Roman
1305 .@R fp
1306 .if \n(fp<=0 \
1307 .       nr fp 8                 \" footnote pointsize
1308 .de $s                  \" $$$ footnote separator
1309 \l'2i'
1310 ..
1311 .\"             *** DELAYED TEXT ***
1312 .de (d                  \" *** begin delayed text
1313 .am |d )d
1314 .sp \\n(bsu
1315 ..
1316 .de )d                  \" *** end delayed text
1317 .if \\n# \
1318 .       nr $d +1
1319 .ds # [\\n($d]\k#
1320 .rr #
1321 ..
1322 .de pd                  \" *** print delayed text
1323 .|d
1324 .rm |d
1325 .nr $d 1 1
1326 .ds # [1]\k#
1327 ..
1328 .\"             *** INDEXES (TABLE OF CONTENTS) ***
1329 .nr _x 0 1
1330 .af _x a
1331 .de (x                  \" *** begin index entry
1332 .if \n@>4 .tm >> (x, .z=\\n(.z
1333 .ds |X x
1334 .if \\n(.$>0 \
1335 .       ds |X \\$1
1336 .ie "\\n(.z"" \
1337 .       nr _z 0
1338 .el \
1339 .       nr _z 1
1340 .@\\n(_z
1341 ..
1342 .de @0                  \" --- finish (x if no current diversion
1343 .am %\\*(|X )x
1344 .sp \\n(xsu
1345 .ti -\\n(piu
1346 ..
1347 .de @1                  \" --- finish (x if current diversion
1348 .if "\\n(_x"z" .nr _x 0
1349 .de =\\n+(_x )x
1350 ..
1351 .de )x                  \" *** end index entry
1352 .if \n@>4 .tm >> )x, .z=\\n(.z
1353 .ie "\\n(.z"" \
1354 \{\
1355 .       ds |x \\n%
1356 .       if \\n(.$>0 \
1357 .               ds |x \\$1
1358 .       if "\\*(|x"_" \
1359 .               ig ..
1360 .       am %\\*(|X ..
1361 .       if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
1362 .               ti +\\n(xuu
1363 \\\\a\\\\t\\$2\\*(|x
1364 ...
1365 .       rm |x
1366 .       rm |X
1367 .\}
1368 .el \
1369 \{\
1370 \!.(x \\*(|X
1371 \!\\\\*(=\\n(_x\\\\
1372 \!.)x \\$1 \\$2
1373 \!.rm =\\n(_x
1374 .\}
1375 ..
1376 .de xp                  \" *** print the index
1377 .br
1378 .@C 2
1379 .ls 1
1380 .vs \\n(.sp*\\n($Vu/100u
1381 .fi
1382 .in +\\n(piu
1383 .ds |X x
1384 .if \\n(.$>0 \
1385 .       ds |X \\$1
1386 .xl -(\\n(xuu+\w'...'u)
1387 .di |x
1388 .%\\*(|X
1389 .br
1390 .di
1391 .rm %\\*(|X
1392 .xl \\n($lu
1393 .rm |X
1394 .ev
1395 .nf
1396 .in 0
1397 .ta \\n(.lu-\\n(xuuR \\n(.luR
1398 .|x
1399 .fi
1400 .in
1401 .rm |x
1402 ..
1403 .de +c                  \" *** begin chapter
1404 .ep                             \" force out footnotes
1405 .if \\n(?o:\\n(?a \
1406 \{\
1407 .       bp                      \" force out a table or more footnote
1408 .       rs
1409 .       ep
1410 .\}
1411 .nr ?C 1
1412 .nr $f 1 1
1413 .ds * \\*{1\\*}\k*
1414 .if \\n(?R \
1415 .       pn 1
1416 .bp
1417 .in \\n($iu                     \" reset the indent
1418 .rs
1419 .ie \\n(.$ \
1420 .       $c "\\$1"
1421 .el \
1422 .       sp 3
1423 ..
1424 .de ++                  \" *** declare chapter type
1425 .nr _0 0
1426 .if "\\$1"C" \
1427 .       nr _0 1                 \" chapter
1428 .if "\\$1"RC" \
1429 .       nr _0 11                \" renumbered chapter
1430 .if "\\$1"A" \
1431 .       nr _0 2                 \" appendix
1432 .if "\\$1"RA" \
1433 .       nr _0 12                \" renumbered appendix
1434 .if "\\$1"P" \
1435 .       nr _0 3                 \" preliminary material
1436 .if "\\$1"B" \
1437 .       nr _0 4                 \" bibliographic material
1438 .if "\\$1"AB" \
1439 .       nr _0 5                 \" abstract
1440 .if \\n(_0=0 \
1441 .       tm Line \\n(c. -- Bad mode to .++
1442 .nr ?R 0
1443 .if \\n(_0>10 \
1444 .\{
1445 .       nr ?R 1
1446 .       nr _0 -10
1447 .\}
1448 .nr ch 0 1
1449 .if (\\n(_0=3):(\\n(_0=5) \
1450 .       pn 1                    \" must do before .ep
1451 .if !\\n(_0=\\n(_M .if \\n(_M=3 \
1452 .       pn 1                    \" must do before .ep
1453 .ep                             \" end page for correct page number types
1454 .if \\n(_0=1 \
1455 \{\
1456 .       af ch 1
1457 .       af % 1
1458 .\}
1459 .if \\n(_0=2 \
1460 \{\
1461 .       af ch A
1462 .       af % 1
1463 .\}
1464 .if \\n(_0=3 \
1465 .       af % i
1466 .if \\n(_0=4 \
1467 .       af % 1
1468 .if \\n(_0=5 \
1469 .       af % 1
1470 .if \\n(.$>1 \
1471 .       he \\$2
1472 .nr _M \\n(_0
1473 .rr _0
1474 ..
1475 .de $c                  \" $$$ print chapter title
1476 .sz 12
1477 .ft 3
1478 .ce 1000
1479 .if \\n(_M<3 \
1480 .       nr ch +1
1481 .ie \\n(_M=1 CHAPTER\ \ \\n(ch
1482 .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
1483 .if \w"\\$1" .sp 3-\\n(.L
1484 .if \w"\\$1" \\$1
1485 .if (\\n(_M<3):(\w"\\$1") \
1486 .       sp 4-\\n(.L
1487 .ce 0
1488 .ft
1489 .sz
1490 .ie \\n(_M=1 \
1491 .       $C Chapter \\n(ch "\\$1"
1492 .el .if \\n(_M=2 \
1493 .       $C Appendix \\n(ch "\\$1"
1494 ..
1495 .de tp                  \" *** title page
1496 .hx
1497 .bp
1498 .br
1499 .rs
1500 .pn \\n%
1501 ..
1502 .\"             *** DATES ***
1503 .if \n(mo=1 .ds mo January
1504 .if \n(mo=2 .ds mo February
1505 .if \n(mo=3 .ds mo March
1506 .if \n(mo=4 .ds mo April
1507 .if \n(mo=5 .ds mo May
1508 .if \n(mo=6 .ds mo June
1509 .if \n(mo=7 .ds mo July
1510 .if \n(mo=8 .ds mo August
1511 .if \n(mo=9 .ds mo September
1512 .if \n(mo=10 .ds mo October
1513 .if \n(mo=11 .ds mo November
1514 .if \n(mo=12 .ds mo December
1515 .if \n(dw=1 .ds dw Sunday
1516 .if \n(dw=2 .ds dw Monday
1517 .if \n(dw=3 .ds dw Tuesday
1518 .if \n(dw=4 .ds dw Wednesday
1519 .if \n(dw=5 .ds dw Thursday
1520 .if \n(dw=6 .ds dw Friday
1521 .if \n(dw=7 .ds dw Saturday
1522 .nr y2 \n(yr%100
1523 .af y2 00
1524 .nr y4 \n(yr+1900
1525 .ds td \*(mo \n(dy, \n(y4
1526 .\"             *** PARAMETRIC INITIALIZATIONS ***
1527 .rr x
1528 .nr $v \n(.v00+\n(.sp-1/\n(.sp  \" vs as percentage of ps for .sz request
1529 .nr $V \n($v                    \" same for displays & footnotes
1530 .nr hm 4v                       \" header margin
1531 .nr tm 7v                       \" top margin
1532 .nr bm 6v                       \" bottom margin
1533 .nr fm 3v                       \" footer margin
1534 .nr tf 3                        \" title font: (real) Times Bold
1535 .nr tp 10                       \" title point size
1536 .hy 14
1537 .nr bi 4m                       \" indent for blocks
1538 .nr pi 5n                       \" indent for paragraphs
1539 .nr pf 1                        \" normal text font
1540 .nr pp 10                       \" normal text point size
1541 .nr qi 4n                       \" indent for quotes
1542 .nr qp -1                       \" down one point
1543 .nr ii 5n                       \" indent for .ip's and .np's
1544 .nr $m 1                        \" max number of columns
1545 .nr $s 4n                       \" column separation
1546 .nr sf 3                        \" section font -- Times Bold
1547 .nr sp 10                       \" section title pointsize
1548 .nr ss 12p                      \" section prespacing
1549 .nr si 0                        \" section indent
1550 .\"             *** OTHER INITIALIZATION ***
1551 .\" GNU pic sets this register to 1, to indicate that \x should not be used.
1552 .@R 0x
1553 .ds { \v'-0.4m'\x'\\n(0x=0*-0.2m'\s-3
1554 .ds } \s0\v'0.4m'
1555 .\" for compatibility with traditional -me
1556 .\" (the first will work only in compatibility mode)
1557 .ds [ \*{
1558 .ds ] \*}
1559 .ds < \v'0.4m'\x'\\n(0x=0*0.2m'\s-3
1560 .ds > \s0\v'-0.4m'
1561 .ds - \(em
1562 .\" Avoid warnings from groff -ww.
1563 .@S |0
1564 .@S |1
1565 .@S |2
1566 .@S |3
1567 .@S $H
1568 .@S $0
1569 .@S $1
1570 .@S $2
1571 .@S $3
1572 .@S $4
1573 .@S $5
1574 .@S $6
1575 .@S $7
1576 .@S $8
1577 .@S $9
1578 .@S ..
1579 .@R po\"                        \" simulated page offset
1580 .@R $0\"                        \" section depth
1581 .@R $i\"                        \" paragraph base indent
1582 .@R $p\"                        \" numbered paragraph number
1583 .@R $r\"                        \" ratio of vs to ps (may override $v)
1584 .@R $R\"                        \" same for displays (may override $V)
1585 .@R df\"                        \" display font: same as surrounding text
1586 .@R so\"                        \" additional section title offset
1587 .@R fu\"                        \" footnote undent
1588 .@R bt\"                        \" block keep threshold
1589 .@R *\"                         \" has \** been referenced?
1590 .@R ?a\"                        \" pending floating keep at page top?
1591 .@R ?b\"                        \" pending floating keep at page bottom?
1592 .@R ?C\"                        \" at chapter header?
1593 .@R ?e\"                        \" in equation?
1594 .@R ?H\"                        \" suppress headers and footers next page?
1595 .@R ?I\"                        \" has the header trap been sprung?
1596 .@R ?n\"                        \" n1 mode?
1597 .@R ?o\"                        \" footnote overflow?
1598 .@R ?R\"                        \" renumbered chapter?
1599 .@R ?s\"                        \" skip next page?
1600 .@R ?T\"                        \" inside .TS H?
1601 .@R ?W\"                        \" wide floating keep at page bottom?
1602 .@R ?w\"                        \" wide floating keep at page top?
1603 .nr fi 0.3i
1604 .nr _o \n(.o
1605 .nr $b 3                        \" bold
1606 .nr ps 0.35v
1607 .if \n(ps<\n(.V .nr ps \n(.V
1608 .nr bs \n(ps                    \" block pre/post spacing
1609 .nr qs \n(ps                    \" quote pre/post spacing
1610 .nr zs 1v                       \" float-block pre/postspacing
1611 .nr xs 0.2v                     \" index prespacing
1612 .nr xu 0.5i                     \" index undent
1613 .nr fs 0.2v                     \" footnote prespacing
1614 .nr es 0.5v                     \" equation pre/postspacing
1615 .if \n(es<\n(.V .nr es \n(.V
1616 .wh 0 @h                        \" set header
1617 .nr $l \n(.lu                   \" line length
1618 .nr _L \n(.lu                   \" line length of page
1619 .nr $c 1                        \" current column number
1620 .nr $f 1 1                      \" footnote number
1621 .ds * \*{1\*}\k*\"              \" footnote "name"
1622 .nr $d 1 1                      \" delayed text number
1623 .ds # [1]\k#\"                  \" delayed text "name"
1624 .nr _M 1                        \" chapter mode is chapter
1625 .ds lq \(lq\"                   \" left quote
1626 .ds rq \(rq\"                   \" right quote
1627 .em @z
1628 .\"             *** FOREIGN LETTERS AND SPECIAL CHARACTERS ***
1629 .ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
1630 .ds #v 0.6m
1631 .\"                     \" accents
1632 .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\(aa\h'|\\n_u'
1633 .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\(ga\h'|\\n_u'
1634 .\"                     \" umlaut
1635 .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m)'\v'-\*(#v'\z.\h'0.2m'.\h'|\\n_u'\v'\*(#v'
1636 .\"                     \" circumflex and tilde
1637 .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'^\h'|\\n_u'
1638 .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'~\h'|\\n_u'
1639 .\"                     \" cedilla and czech
1640 .ds , \k_\h'-(\\n(.wu)',\h'|\\n_u'
1641 .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\s-4v\s0\v'\*(#v'\h'|\\n_u'
1642 .\"                     \" Norwegian A or angstrom
1643 .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\z\(de\v'0.4n'\h'|\\n_u'
1644 .\"                     \" there exists, for all
1645 .ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
1646 .ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
1647 .rm #h #v
1648 .ll 6.0i
1649 .lt 6.0i
1650 .de @U
1651 .tm The \\$1 macro has been removed from this version of the -me macros.
1652 ..
1653 .de lo
1654 .@U lo
1655 ..
1656 .de th
1657 .@U th
1658 ..
1659 .de ac
1660 .@U ac
1661 ..