tmac/tmac.doc

   1 .\" Copyright (c) 1991 The Regents of the University of California.
   2 .\" All rights reserved.
   3 .\"
   4 .\" Redistribution and use in source and binary forms, with or without
   5 .\" modification, are permitted provided that the following conditions
   6 .\" are met:
   7 .\" 1. Redistributions of source code must retain the above copyright
   8 .\"    notice, this list of conditions and the following disclaimer.
   9 .\" 2. Redistributions in binary form must reproduce the above copyright
  10 .\"    notice, this list of conditions and the following disclaimer in the
  11 .\"    documentation and/or other materials provided with the distribution.
  12 .\" 3. All advertising materials mentioning features or use of this software
  13 .\"    must display the following acknowledgement:
  14 .\"     This product includes software developed by the University of
  15 .\"     California, Berkeley and its contributors.
  16 .\" 4. Neither the name of the University nor the names of its contributors
  17 .\"    may be used to endorse or promote products derived from this software
  18 .\"    without specific prior written permission.
  19 .\"
  20 .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  21 .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22 .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23 .\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  24 .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25 .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26 .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27 .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28 .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30 .\" SUCH DAMAGE.
  31 .\"
  32 .\"     @(#)doc 5.8 (Berkeley) 8/5/91
  33 .\" Modified by jjc@jclark.com as follows: the doc-* files are assumed to be
  34 .\" installed as mdoc/doc-* rather than tmac.doc-* (the filename
  35 .\" `tmac.doc-common' would be too long); when using groff, the doc-* files
  36 .\" are loaded using the `mso' request.
  37 .\"
  38 .\" .mdoc-parse - attempt to parse troff request arguments
  39 .\"     %beginstrip%
  40 .if \n(.g \{\
  41 .cp 0
  42 .ftr C CR
  43 .\}
  44 .if \n(.g .ig
  45 .de sO
  46 .so /usr/share/tmac/\\$1
  47 ..
  48 .if !\n(.g .ig
  49 .de sO
  50 .mso mdoc/\\$1
  51 ..
  52 .if t \{\
  53 .       sO doc-ditroff
  54 .\}
  55 .if n \{\
  56 .       sO doc-nroff
  57 .\}
  58 .sO doc-common
  59 .sO doc-syms
  60 .\" NS Db macro - start/stop DEBUG MODE
  61 .\" NS Db register DEBUG MODE
  62 .\" NS iN register DEBUG MODE (inline if 1, to stderr if 0 (default))
  63 .nr Db 0
  64 .de Db
  65 .ie \\n(.$==0 \{\
  66 .       ie \\n(Db==0 \{\
  67 .tm DEBUGGING ON
  68 .               nr Db 1
  69 .       \}
  70 .       el \{\
  71 .tm DEBUGGING OFF
  72 .               nr Db 0
  73 .       \}
  74 .\}
  75 .el \{\
  76 .       if "\\$1"on" \{\
  77 .tm DEBUGGING ON
  78 .               nr Db 1
  79 .       \}
  80 .       if "\\$1"off" \{\
  81 .tm DEBUGGING OFF
  82 .               nr Db 0
  83 .       \}
  84 .\}
  85 ..
  86 .\" NS aV macro - parse argument vector (recursive) (.aV arg ... )
  87 .\" NS fV macro - parse argument vector (recursive) (.fV)
  88 .\" NS aC register argument counter (aV/fV)
  89 .\" NS fV register argument counter (must set to \\n(.$ prior to reuqest) (fV)
  90 .\" NS A[0-9] argument vector (aV/fV)
  91 .\" NS C[0-9] reg. arg type(1=macro, 2=arg, 3=punct-suf, 4=punct-pre) (aV/fV)
  92 .\" NS S[0-9] space vector (sV)
  93 .\" NS aP register argument pointer (aV)
  94 .\" NS yU local string used for debugging
  95 .\" NS iI local register (indent for inline debug mode)
  96 .\" NS mN name of calling request (set in each user requestable macro)
  97 .de aV
  98 .nr aC \\n(aC+1
  99 .ie "\\$1"|" \{\
 100 .       if "\\*(mN"Op" .ds A\\n(aC \fR\\$1\fP
 101 .       if "\\*(mN"Ar" .ds A\\n(aC \fR\\$1\fP
 102 .       if "\\*(mN"Fl" .ds A\\n(aC \fR\\$1\fP
 103 .       if "\\*(mN"Cm" .ds A\\n(aC \fR\\$1\fP
 104 .       if "\\*(mN"It" .ds A\\n(aC \fR\\$1\fP
 105 .\}
 106 .el .ds A\\n(aC \\$1
 107 .aU \\n(aC
 108 .nr C\\n(aC \\n(aT
 109 .s\\n(aT
 110 .if \\n(Db \{\
 111 .       if \\n(aT==1 .ds yU Executable
 112 .       if \\n(aT==2 .ds yU String
 113 .       if \\n(aT==3 .ds yU Closing Punctuation or suffix
 114 .       if \\n(aT==4 .ds yU Opening Punctuation or prefix
 115 .       if \\n(iN==1 \{\
 116 .               br
 117 .               nr iI \\n(.iu
 118 .               in -\\n(iIu
 119 .               if \\n(aC==1 \{\
 120 \&\fBDEBUG(argv) MACRO:\fP `.\\*(mN' \fBLine #:\fP \\n(.c
 121 .               \}
 122 \&\t\fBArgc:\fP \\n(aC  \fBArgv:\fP `\\*(A\\n(aC'  \fBLength:\fP \\n(sW
 123 \&\t\fBSpace:\fP `\\*(S\\n(aC'  \fBClass:\fP \\*(yU
 124 .       \}
 125 .       if \\n(iN==0 \{\
 126 .               if \\n(aC==1 \{\
 127 .                       tm DEBUG(argv) MACRO: `.\\*(mN'  Line #: \\n(.c
 128 .               \}
 129 .               tm \tArgc: \\n(aC  Argv: `\\*(A\\n(aC'  Length: \\n(sW
 130 .               tm \tSpace: `\\*(S\\n(aC'  Class: \\*(yU
 131 .       \}
 132 .\}
 133 .ie \\n(.$==1 \{\
 134 .       nr aP 0
 135 .       ie \\n(dZ==1 \{\
 136 .               if \\n(oM>1 .as b1 \\*(S0
 137 .       \}
 138 .       el \{\
 139 .               if \\n(oM>0 \{\
 140 .                       if \\n(fC==0 .as b1 \\*(S0
 141 .               \}
 142 .       \}
 143 .       ds S0 \\*(S\\n(aC
 144 .       if \\n(Db \{\
 145 .               if \\n(iN==1 \{\
 146 \&MACRO REQUEST: \t.\\*(mN \\*(A1 \\*(A2 \\*(A3 \\*(A4 \\*(A5 \\*(A6 \\*(A7 \\*(A8 \\*(A9
 147 .                       br
 148 .                       in \\n(iIu
 149 .               \}
 150 .               if \\n(iN==0 \{\
 151 .tm \tMACRO REQUEST: .\\*(mN \\*(A1 \\*(A2 \\*(A3 \\*(A4 \\*(A5 \\*(A6 \\*(A7 \\*(A8 \\*(A9
 152 .               \}
 153 .       \}
 154 .\}
 155 .el .aV \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 156 ..
 157 .de fV
 158 .nr aC \\n(aC+1
 159 .if "\\*(A\\n(aC"|" \{\
 160 .       if "\\*(mN"Op" .ds A\\n(aC \fR\\*(A\\n(aC\fP
 161 .       if "\\*(mN"Ar" .ds A\\n(aC \fR\\*(A\\n(aC\fP
 162 .       if "\\*(mN"Fl" .ds A\\n(aC \fR\&\\*(A\\n(aC\fP
 163 .       if "\\*(mN"Cm" .ds A\\n(aC \fR\\*(A\\n(aC\fP
 164 .       if "\\*(mN"It" .ds A\\n(aC \fR\\*(A\\n(aC\fP
 165 .\}
 166 .aU \\n(aC
 167 .nr C\\n(aC \\n(aT
 168 .s\\n(aT
 169 .if \\n(Db \{\
 170 .       if \\n(aT==1 .ds yU Executable
 171 .       if \\n(aT==2 .ds yU String
 172 .       if \\n(aT==3 .ds yU Closing Punctuation or suffix
 173 .       if \\n(aT==4 .ds yU Opening Punctuation or prefix
 174 .       if \\n(iN==1 \{\
 175 .               br
 176 .               nr iI \\n(.iu
 177 .               in -\\n(iIu
 178 .               if \\n(aC==1 \{\
 179 \&\fBDEBUG(fargv) MACRO:\fP `.\\*(mN'  \fBLine #:\fP \\n(.c
 180 .               \}
 181 \&\t\fBArgc:\fP \\n(aC  \fBArgv:\fP `\\*(A\\n(aC'  \fBLength:\fP \\n(sW
 182 \&\t\fBSpace:\fP `\\*(S\\n(aC'  \fBClass:\fP \\*(yU
 183 .       \}
 184 .       if \\n(iN==0 \{\
 185 .               if \\n(aC==1 \{\
 186 .                       tm DEBUG(fargv) MACRO: `.\\*(mN'  Line #: \\n(.c
 187 .               \}
 188 .               tm \tArgc: \\n(aC  Argv: `\\*(A\\n(aC'  Length: \\n(sW
 189 .               tm \tSpace: `\\*(S\\n(aC'  Class: \\*(yU
 190 .       \}
 191 .\}
 192 .ie \\n(fV==1 \{\
 193 .       nr aP 0
 194 .       ie \\n(dZ==1 \{\
 195 .               if \\n(oM>1 .as b1 \\*(S0
 196 .       \}
 197 .       el \{\
 198 .               if \\n(oM>0 \{\
 199 .                       if \\n(fC==0 .as b1 \\*(S0
 200 .               \}
 201 .       \}
 202 .       ds S0 \\*(S\\n(aC
 203 .       nr fV 0
 204 .       if \\n(Db \{\
 205 .               ie \\n(iN \{\
 206 \&\tMACRO REQUEST: .\\*(mN \\*(A1 \\*(A2 \\*(A3 \\*(A4 \\*(A5 \\*(A6 \\*(A7 \\*(A8 \\*(A9
 207 .                       br
 208 .                       in \\n(iIu
 209 .               \}
 210 .               el \{\
 211 .tm \tMACRO REQUEST: .\\*(mN \\*(A1 \\*(A2 \\*(A3 \\*(A4 \\*(A5 \\*(A6 \\*(A7 \\*(A8 \\*(A9
 212 .               \}
 213 .       \}
 214 .\}
 215 .el \{\
 216 .       nr fV \\n(fV-1
 217 .       fV
 218 .\}
 219 ..
 220 .\" NS aX macro - stuff saved strings into `b1' (used by -diag list)
 221 .de aX
 222 .nr aP \\n(aP+1
 223 .as b1 \&\\*(A\\n(aP
 224 .ie \\n(fV==1 \{\
 225 .       nr aP 0
 226 .       nr fV 0
 227 .\}
 228 .el \{\
 229 .       as b1 \&\\*(sV
 230 .       nr fV \\n(fV-1
 231 .       aX
 232 .\}
 233 ..
 234 .\" NS aI macro - append arg to arg vector: .aI [arg] [type] (used by .En only)
 235 .de aI
 236 .ie \\n(aC<9 \{\
 237 .       nr aC \\n(aC+1
 238 .       ds A\\n(aC \\$1
 239 .       nr C\\n(aC \\$2
 240 .       s\\$2
 241 .       ds xV S\\n(aC
 242 .\}
 243 .el \{\
 244 .       tm Usage: Too many arguments (maximum of 8 accepted) (#\\n(.c)
 245 .       tm \\*(A1 \\*(A2 \\*(A3 \\*(A4 \\*(A5 \\*(A6 \\*(A7 \\*(A8 \\*(A9
 246 .\}
 247 ..
 248 .\"
 249 .\" NS aZ macro - print buffer (pB) and clean up arg vectors (aY)
 250 .de aZ
 251 .pB
 252 .aY
 253 ..
 254 .\" NS aY macro - clean up arg vector
 255 .de aY
 256 .rm C0 C1 C2 C3 C4 C5 C6 C7 C8 C9
 257 .rm A0 A1 A2 A3 A4 A5 A6 A7 A8 A9
 258 .rm S1 S2 S3 S4 S5 S6 S7 S8 S9
 259 .nr aC 0
 260 .nr aP 0
 261 ..
 262 .\" NS pB macro - test for end of vector (eol) (print b1 buffer or divert)
 263 .de pB
 264 .ie \\n(dZ==1 \{\
 265 .       if \\n(oM==1 \{\&\\*(b1
 266 .               rm S0
 267 .               ds b1
 268 .       \}
 269 .       if \\n(oM==0 \{\
 270 .               x2
 271 .       \}
 272 .\}
 273 .el \{\
 274 .       ie \\n(oM==0 \{\&\\*(b1
 275 .               rm S0
 276 .               ds b1
 277 .       \}
 278 .       el \{\
 279 .               if ((\\n(sM==1)&(\\n(tP==0)) \{\
 280 .                       x1
 281 .               \}
 282 .       \}
 283 .\}
 284 .hy
 285 ..
 286 .\" NS x1 macro - save buffer and divert if tP flag set
 287 .\" NS eB diversion string
 288 .\" NS b2 string save of buffer
 289 .\" NS lK register count of lines read from input file
 290 .de x1
 291 .nr dZ \\n(dZ+1
 292 .ds b2 \\*(b1
 293 .ds b1
 294 .nr lK \\n(.c
 295 .ev 2
 296 .fi
 297 .di eB
 298 ..
 299 .\"
 300 .\" NS x2 macro - end diversion and print
 301 .\" NS b0 string local temporary
 302 .de x2
 303 .br
 304 .di
 305 .ev
 306 .ie (\\n(.c-\\n(lK>1) \{\
 307 .       ds b0 \&\\*(eB\\
 308 .       ds b1 \\*(b2\\*(b0\\*(b1
 309 .\}
 310 .el .ds b1 \\*(b2\\*(b1
 311 \&\\*(b1
 312 .rm eB b2 b0 b1
 313 .nr dZ \\n(dZ-1
 314 ..
 315 .\" NS Fl macro - flags (appends - and prints flags)
 316 .\" NS cF register save current font
 317 .\" NS cZ register save current font size
 318 .de Fl
 319 .as b1 \&\\*(fL
 320 .if \\n(aC==0 \{\
 321 .       ie \\n(.$==0 \{\
 322 .               as b1 \&\|\-\|\fP\s0
 323 .               pB
 324 .       \}
 325 .       el \{\
 326 .               ds mN Fl
 327 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 328 .       \}
 329 .\}
 330 .if \\n(aC>0 \{\
 331 .       ie (\\n(aC-\\n(aP)==0 \{\
 332 .               as b1 \&\|\-\fP\s0
 333 .               aZ
 334 .       \}
 335 .       el \{\
 336 .               nr aP \\n(aP+1
 337 .               ie \\n(C\\n(aP==1 \{\
 338 .                       as b1 \&\|\-\fP\s0
 339 .                       \\*(A\\n(aP
 340 .               \}
 341 .               el \{\
 342 .                       nr cF \\n(.f
 343 .                       nr cZ \\n(.s
 344 .                       if \\n(C\\n(aP==3 \{\
 345 .                               as b1 \&\|\-\|
 346 .                       \}
 347 .                       fR
 348 .               \}
 349 .       \}
 350 .\}
 351 ..
 352 .\"
 353 .\" NS fR macro - Fl flag recursion routine (special handling)
 354 .\" NS jM local register
 355 .\" NS jN local register
 356 .\"
 357 .de fR
 358 .hy 0
 359 .nr jM \\n(C\\n(aP
 360 .ie \\n(jM==1 \{\
 361 .       as b1 \&\fP\s0
 362 .       \\*(A\\n(aP
 363 .\}
 364 .el \{\
 365 .       nr jN \\n(aP
 366 .       ie \\n(jM==2 \{\
 367 .               ie !"\\*(A\\n(aP"\\*(Ba" \{\
 368 .                       ie !"\\*(A\\n(aP"\fR|\fP" \{\
 369 .                              ie "\\*(A\\n(aP"-" .as b1 \&\|\-\^\-\|
 370 .                              el .as b1 \&\|\-\\*(A\\n(aP
 371 .                       \}
 372 .                       el .as b1 \&\\*(A\\n(aP
 373 .               \}
 374 .               el .as b1 \&\\*(A\\n(aP
 375 .       \}
 376 .       el .as b1 \&\f\\n(cF\s\\n(cZ\\*(A\\n(aP\fP\s0
 377 .       ie \\n(aC==\\n(aP \{\
 378 .               if \\n(jM==4 .as b1 \&\|\-
 379 .               as b1 \&\fP\s0
 380 .               aZ
 381 .       \}
 382 .       el \{\
 383 .               nr aP \\n(aP+1
 384 .               ie ((\\n(C\\n(aP==3)&(\\n(C\\n(jN==4)) .as b1 \&\|\-
 385 .               el .as b1 \&\\*(S\\n(jN
 386 .               fR \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 387 .       \}
 388 .\}
 389 .rr jM jN
 390 ..
 391 .\"
 392 .\" NS nR macro - general name recursion routine
 393 .\" NS jM local register
 394 .\" NS jN local register
 395 .de nR
 396 .hy 0
 397 .nr jM \\n(C\\n(aP
 398 .ie \\n(jM==1 \{\
 399 .       as b1 \&\f\\n(cF\s\\n(cZ
 400 .       \\*(A\\n(aP
 401 .\}
 402 .el \{\
 403 .       nr jN \\n(aP
 404 .       ie \\n(jM==2 .as b1 \&\\*(A\\n(aP
 405 .       el .as b1 \&\f\\n(cF\s\\n(cZ\\*(A\\n(aP\fP\s0
 406 .       ie \\n(aC==\\n(aP \{\
 407 .               as b1 \&\f\\n(cF\s\\n(cZ
 408 .               aZ
 409 .       \}
 410 .       el \{\
 411 .               nr aP \\n(aP+1
 412 .               as b1 \&\\*(S\\n(jN
 413 .               nR
 414 .       \}
 415 .\}
 416 .rr jM jN
 417 ..
 418 .\" NS Ar macro - command line `argument' macro
 419 .\"
 420 .de Ar
 421 .as b1 \\*(aR
 422 .if \\n(aC==0 \{\
 423 .       ie \\n(.$==0 \{\
 424 .               as b1 file\ ...\fP\s0
 425 .               pB
 426 .       \}
 427 .       el \{\
 428 .               ds mN Ar
 429 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 430 .       \}
 431 .\}
 432 .if \\n(aC>0 \{\
 433 .       ie (\\n(aC-\\n(aP)==0 \{\
 434 .               as b1 \&file\ ...\fP\s0
 435 .               aZ
 436 .       \}
 437 .       el \{\
 438 .               nr aP \\n(aP+1
 439 .               ie \\n(C\\n(aP==1 \{\
 440 .                       as b1 \&file\ ...\fP\s0
 441 .                       \\*(A\\n(aP
 442 .               \}
 443 .               el \{\
 444 .                       nr cF \\n(.f
 445 .                       nr cZ \\n(.s
 446 .                       if \\n(C\\n(aP==3 \{\
 447 .                               as b1 \&file\ ...
 448 .                       \}
 449 .                       nR
 450 .               \}
 451 .       \}
 452 .\}
 453 ..
 454 .\" NS Ad macro - Addresses
 455 .de Ad
 456 .if \\n(aC==0 \{\
 457 .       ie \\n(.$==0 .tm Usage: .Ad address ... \\*(Pu (#\\n(.c)
 458 .       el \{\
 459 .               ds mN Ad
 460 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 461 .       \}
 462 .\}
 463 .if \\n(aC>\\n(aP \{\
 464 .       as b1 \\*(aD
 465 .       nr aP \\n(aP+1
 466 .       nr cF \\n(.f
 467 .       nr cZ \\n(.s
 468 .       nR
 469 .\}
 470 ..
 471 .\" NS Cd macro - Config declaration (for section 4 SYNOPSIS) (not callable)
 472 .\" needs work - not very translatable
 473 .de Cd
 474 .if \\n(aC==0 \{\
 475 .       ie \\n(.$==0 .tm Usage: .Cd Configuration file declaration (#\\n(.c)
 476 .       el \{\
 477 .               ds mN Cd
 478 .               ds A1 \\$1
 479 .               ds A2 \\$2
 480 .               ds A3 \\$3
 481 .               ds A4 \\$4
 482 .               ds A5 \\$5
 483 .               ds A6 \\$6
 484 .               ds A7 \\$7
 485 .               ds A8 \\$8
 486 .               ds A9 \\$9
 487 .               nr fV \\n(.$
 488 .               fV
 489 .       \}
 490 .\}
 491 .br
 492 .if \\n(aC>\\n(aP \{\
 493 .       as b1 \\*(nM
 494 .       nr aP \\n(aP+1
 495 .       nr cF \\n(.f
 496 .       nr cZ \\n(.s
 497 .       ie \\n(nS \{\
 498 .               if "\\*(mN"Cd" \{\
 499 .                       rs
 500 .                       ie \\n(nS>1 .br
 501 .                       el \{\
 502 .                               if \\n(iS==0 .nr iS \\n(Dsu
 503 .                       \}
 504 .                       in +\\n(iSu
 505 .                       ti -\\n(iSu
 506 .                       nr nS \\n(nS+1
 507 .               \}
 508 .       nR
 509 .       in -\\n(iSu
 510 .       \}
 511 .       el .nR
 512 .\}
 513 ..
 514 .\" NS Cm macro - Interactive command modifier (flag)
 515 .de Cm
 516 .if \\n(aC==0 \{\
 517 .       ie \\n(.$==0 .tm Usage: .Cm Interactive command modifier ... \\*(Pu (#\\n(.c)
 518 .       el \{\
 519 .               ds mN Cm
 520 .               ds A1 \\$1
 521 .               ds A2 \\$2
 522 .               ds A3 \\$3
 523 .               ds A4 \\$4
 524 .               ds A5 \\$5
 525 .               ds A6 \\$6
 526 .               ds A7 \\$7
 527 .               ds A8 \\$8
 528 .               ds A9 \\$9
 529 .               nr fV \\n(.$
 530 .               fV
 531 .       \}
 532 .\}
 533 .if \\n(aC>\\n(aP \{\
 534 .       as b1 \\*(cM
 535 .       nr aP \\n(aP+1
 536 .       nr cF \\n(.f
 537 .       nr cZ \\n(.s
 538 .       nR
 539 .\}
 540 ..
 541 .\" NS Dv macro - define variable
 542 .de Dv
 543 .if \\n(aC==0 \{\
 544 .       ie \\n(.$==0 .tm Usage: .Dv define_variable ... \\*(Pu (#\\n(.c)
 545 .       el \{\
 546 .               ds mN Dv
 547 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 548 .       \}
 549 .\}
 550 .if \\n(aC>\\n(aP \{\
 551 .       as b1 \\*(eR
 552 .       nr aP \\n(aP+1
 553 .       nr cF \\n(.f
 554 .       nr cZ \\n(.s
 555 .       nR
 556 .\}
 557 ..
 558 .\" NS Em macro - Emphasis
 559 .de Em
 560 .if \\n(aC==0 \{\
 561 .       ie \\n(.$==0 \{\
 562 .               tm Usage: .Em text ... \\*(Pu (#\\n(.c)
 563 .       \}
 564 .       el \{\
 565 .               ds mN Em
 566 .               ds A1 \\$1
 567 .               ds A2 \\$2
 568 .               ds A3 \\$3
 569 .               ds A4 \\$4
 570 .               ds A5 \\$5
 571 .               ds A6 \\$6
 572 .               ds A7 \\$7
 573 .               ds A8 \\$8
 574 .               ds A9 \\$9
 575 .               nr fV \\n(.$
 576 .               fV
 577 .       \}
 578 .\}
 579 .if \\n(aC>\\n(aP \{\
 580 .       as b1 \\*(eM
 581 .       nr aP \\n(aP+1
 582 .       nr cF \\n(.f
 583 .       nr cZ \\n(.s
 584 .       nR
 585 .\}
 586 ..
 587 .\" NS Er macro - Errnotype
 588 .de Er
 589 .if \\n(aC==0 \{\
 590 .       ie \\n(.$==0 .tm Usage: .Er ERRNOTYPE ... \\*(Pu (#\\n(.c)
 591 .       el \{\
 592 .               ds mN Er
 593 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 594 .       \}
 595 .\}
 596 .if \\n(aC>\\n(aP \{\
 597 .       as b1 \\*(eR
 598 .       nr aP \\n(aP+1
 599 .       nr cF \\n(.f
 600 .       nr cZ \\n(.s
 601 .       nR
 602 .\}
 603 ..
 604 .\" NS Ev macro - Environment variable
 605 .de Ev
 606 .if \\n(aC==0 \{\
 607 .       ie \\n(.$==0 .tm Usage: .Ev ENVIRONMENT_VARIABLE ... \\*(Pu (#\\n(.c)
 608 .       el \{\
 609 .               ds mN Ev
 610 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 611 .       \}
 612 .\}
 613 .if \\n(aC>\\n(aP \{\
 614 .       as b1 \\*(eV
 615 .       nr aP \\n(aP+1
 616 .       nr cF \\n(.f
 617 .       nr cZ \\n(.s
 618 .       nR
 619 .\}
 620 ..
 621 .\" NS Fd macro - function declaration - not callable (& no err check)
 622 .\" NS fD register subroutine test (in synopsis only)
 623 .\" NS fY register subroutine count (in synopsis only) (fortran only)
 624 .\" NS fZ register also subroutine count (in synopsis only)
 625 .de Fd
 626 .ds mN Fd
 627 .if \\n(nS>0 \{\
 628 .\"     if a variable type was the last thing given, want vertical space
 629 .       if \\n(fX>0 \{\
 630 .               Pp
 631 .               nr fX 0
 632 .       \}
 633 .\"     if a subroutine was the last thing given, want vertical space
 634 .       if \\n(fZ>0 \{\
 635 .               ie \\n(fD==0 \{\
 636 .                       Pp
 637 .                       rs
 638 .               \}
 639 .               el .br
 640 .       \}
 641 .       nr fD \\n(fD+1
 642 .\}
 643 .nr cF \\n(.f
 644 .nr cZ \\n(.s
 645 \&\\*(fD\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 646 .br
 647 .ft \\n(cF
 648 .fs \\n(cZ
 649 ..
 650 .\" NS Fr macro - function return value - not callable (at the moment)
 651 .de Fr
 652 .if \\n(aC==0 \{\
 653 .       ie \\n(.$==0 .tm Usage: .Fr Function_return_value... \\*(Pu (#\\n(.c)
 654 .       el \{\
 655 .               ds mN Fr
 656 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 657 .       \}
 658 .\}
 659 .if \\n(aC>\\n(aP \{\
 660 .       as b1 \\*(aR
 661 .       nr aP \\n(aP+1
 662 .       nr cF \\n(.f
 663 .       nr cZ \\n(.s
 664 .       nR
 665 .\}
 666 ..
 667 .\" NS Ic macro - Interactive command
 668 .de Ic
 669 .if \\n(aC==0 \{\
 670 .       ie \\n(.$==0 .tm Usage: .Ic Interactive command ... \\*(Pu (#\\n(.c)
 671 .       el \{\
 672 .               ds mN Ic
 673 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 674 .       \}
 675 .\}
 676 .if \\n(aC>\\n(aP \{\
 677 .       as b1 \\*(iC
 678 .       nr aP \\n(aP+1
 679 .       nr cF \\n(.f
 680 .       nr cZ \\n(.s
 681 .       nR
 682 .\}
 683 ..
 684 .\" NS Li macro - literals
 685 .de Li
 686 .if \\n(aC==0 \{\
 687 .       ie \\n(.$==0 .tm Usage .Li argument ... \\*(Pu (#\\n(.c)
 688 .       el \{\
 689 .               ds mN Li
 690 .               ds A1 \\$1
 691 .               ds A2 \\$2
 692 .               ds A3 \\$3
 693 .               ds A4 \\$4
 694 .               ds A5 \\$5
 695 .               ds A6 \\$6
 696 .               ds A7 \\$7
 697 .               ds A8 \\$8
 698 .               ds A9 \\$9
 699 .               nr fV \\n(.$
 700 .               fV
 701 .       \}
 702 .\}
 703 .if \\n(aC>\\n(aP \{\
 704 .       as b1 \\*(lI
 705 .       nr aP \\n(aP+1
 706 .       nr cF \\n(.f
 707 .       nr cZ \\n(.s
 708 .       nR
 709 .\}
 710 ..
 711 .\" NS Or macro - Pipe symbol (OR)
 712 .de Or
 713 .if \\n(aC==0 \{\
 714 .       ie \\n(.$==0 .tm Usage: .Or ... \\*(Pu (#\\n(.c)
 715 .       el \{\
 716 .               ds mN Or
 717 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 718 .       \}
 719 .\}
 720 .if \\n(aC>\\n(aP \{\
 721 .       as b1 \\*(iC
 722 .       nr aP \\n(aP+1
 723 .       nr cF \\n(.f
 724 .       nr cZ \\n(.s
 725 .       nR
 726 .\}
 727 ..
 728 .\" NS Ms macro - Math symbol
 729 .de Ms
 730 .if \\n(aC==0 \{\
 731 .       ie \\n(.$==0 .tm Usage: .Ms Math symbol ... \\*(Pu (#\\n(.c)
 732 .       el \{\
 733 .               ds mN Ms
 734 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 735 .       \}
 736 .\}
 737 .if \\n(aC>\\n(aP \{\
 738 .       as b1 \\*(sY
 739 .       nr aP \\n(aP+1
 740 .       nr cF \\n(.f
 741 .       nr cZ \\n(.s
 742 .       nR
 743 .\}
 744 ..
 745 .\" NS Nm macro - Name of command or page topic
 746 .\" NS n1 string - save first invocation of .Nm
 747 .\" NS iS register - indent second command line in a synopsis
 748 .de Nm
 749 .if \\n(aC==0 \{\
 750 .       ie \\n(.$==0 \{\
 751 .               ie "\\*(n1"" .tm Usage: .Nm Name(s) ... \\*(Pu (#\\n(.c)
 752 .               el \&\\*(nM\\*(n1\fP\s0
 753 .       \}
 754 .       el \{\
 755 .               ds mN Nm
 756 .               ds A1 \\$1
 757 .               ds A2 \\$2
 758 .               ds A3 \\$3
 759 .               ds A4 \\$4
 760 .               ds A5 \\$5
 761 .               ds A6 \\$6
 762 .               ds A7 \\$7
 763 .               ds A8 \\$8
 764 .               ds A9 \\$9
 765 .               nr fV \\n(.$
 766 .               fV
 767 .       \}
 768 .\}
 769 .if \\n(aC>0 \{\
 770 .       ie \\n(aC==\\n(aP \{\
 771 .               as b1 \&\\*(nM\\*(n1\fP\s0
 772 .               aZ
 773 .       \}
 774 .       el \{\
 775 .               as b1 \\*(nM
 776 .               nr aP \\n(aP+1
 777 .               ie \\n(C\\n(aP==1 \{\
 778 .                       as b1 \&\\*(n1\fP\s0
 779 .                       \\*(A\\n(aP
 780 .               \}
 781 .               el \{\
 782 .                       nr cF \\n(.f
 783 .                       nr cZ \\n(.s
 784 .                       if \\n(nS \{\
 785 .                               if "\\*(mN"Nm" \{\
 786 .                                       rs
 787 .                                       in -\\n(iSu
 788 .                                       ie \\n(nS>1 .br
 789 .                                       el \{\
 790 .                                               if \\n(iS==0 \{\
 791 .                                                       sw \\$1
 792 .                                       nr iS ((\\n(sWu+1)*\\n(fW)u
 793 .                                               \}
 794 .                                       \}
 795 .                                       in +\\n(iSu
 796 .                                       ti -\\n(iSu
 797 .                                       nr nS \\n(nS+1
 798 .                               \}
 799 .                       \}
 800 .                       if "\\*(n1"" .ds n1 \\*(A\\n(aP
 801 .                       nR
 802 .               \}
 803 .       \}
 804 .\}
 805 ..
 806 .\" NS Pa macro - Pathname
 807 .de Pa
 808 .if \\n(aC==0 \{\
 809 .       ie \\n(.$==0 \&\\*(pA~\fP\s0
 810 .       el \{\
 811 .               ds mN Pa
 812 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 813 .       \}
 814 .\}
 815 .if \\n(aC>\\n(aP \{\
 816 .       as b1 \\*(pA
 817 .       nr aP \\n(aP+1
 818 .       nr cF \\n(.f
 819 .       nr cZ \\n(.s
 820 .       nR
 821 .\}
 822 ..
 823 .\" NS Sy macro - Symbolics
 824 .de Sy
 825 .if \\n(aC==0 \{\
 826 .       ie \\n(.$==0 .tm Usage: .Sy symbolic_text ... \\*(Pu (#\\n(.c)
 827 .       el \{\
 828 .               ds mN Sy
 829 .               ds A1 \\$1
 830 .               ds A2 \\$2
 831 .               ds A3 \\$3
 832 .               ds A4 \\$4
 833 .               ds A5 \\$5
 834 .               ds A6 \\$6
 835 .               ds A7 \\$7
 836 .               ds A8 \\$8
 837 .               ds A9 \\$9
 838 .               nr fV \\n(.$
 839 .               fV
 840 .       \}
 841 .\}
 842 .if \\n(aC>\\n(aP \{\
 843 .       as b1 \\*(sY
 844 .       nr aP \\n(aP+1
 845 .       nr cF \\n(.f
 846 .       nr cZ \\n(.s
 847 .       nR
 848 .\}
 849 ..
 850 .\" NS Tn macro - Trade Name Macro
 851 .de Tn
 852 .if \\n(aC==0 \{\
 853 .       ie \\n(.$==0 .tm Usage: .Tn Trade_name(s) ... \\*(Pu (#\\n(.c)
 854 .       el \{\
 855 .               ds mN Tn
 856 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 857 .       \}
 858 .\}
 859 .if \\n(aC>\\n(aP \{\
 860 .       as b1 \\*(tN\\*(tF
 861 .       nr aP \\n(aP+1
 862 .       nr cF \\n(.f
 863 .       nr cZ \\n(.s
 864 .       nR
 865 .\}
 866 ..
 867 .\" NS nN macro - Trade Name Macro for inside of reference
 868 .de nN
 869 .if \\n(aC==0 \{\
 870 .       ie \\n(.$==0 .tm Usage: .Tn Trade_name(s) ... \\*(Pu (#\\n(.c)
 871 .       el \{\
 872 .               ds mN Tn
 873 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 874 .       \}
 875 .\}
 876 .if \\n(aC>\\n(aP \{\
 877 .       as b1 \\*(tN
 878 .       nr aP \\n(aP+1
 879 .       nr cF \\n(.f
 880 .       nr cZ \\n(.s
 881 .       rR
 882 .\}
 883 ..
 884 .\" NS Va macro - variable name macro
 885 .de Va
 886 .if \\n(aC==0 \{\
 887 .       ie \\n(.$==0 .tm Usage: .Va variable_name(s) ... \\*(Pu (#\\n(.c)
 888 .       el \{\
 889 .               ds mN Va
 890 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 891 .       \}
 892 .\}
 893 .if \\n(aC>\\n(aP \{\
 894 .       as b1 \\*(vA
 895 .       nr aP \\n(aP+1
 896 .       nr cF \\n(.f
 897 .       nr cZ \\n(.s
 898 .       nR
 899 .\}
 900 ..
 901 .\"
 902 .\" NS No macro - Normal text macro (default text style if mess up)
 903 .de No
 904 .as b1 \\*(nO
 905 .if \\n(aC==0 \{\
 906 .       ie \\n(.$==0 .tm Usage: .No must be called with arguments (#\\n(.c)
 907 .       el \{\
 908 .               ds mN No
 909 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 910 .       \}
 911 .\}
 912 .if \\n(aC>\\n(aP \{\
 913 .       nr aP \\n(aP+1
 914 .       ie \\n(C\\n(aP==1 \{\
 915 .               \\*(A\\n(aP
 916 .       \}
 917 .       el \{\
 918 .               nr cF \\n(.f
 919 .               nr cZ \\n(.s
 920 .               nR
 921 .       \}
 922 .\}
 923 ..
 924 .\"------------------------------------------------------------------------
 925 .\" NS Op macro - Option Expression
 926 .de Op
 927 .if \\n(aC==0 \{\
 928 .       ds mN Op
 929 .\}
 930 .\" .ds qL \&\\*(lO
 931 .\" .ds qR \&\\*(rO
 932 .ds qL \&\\*(lB
 933 .ds qR \&\\*(rB
 934 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
 935 ..
 936 .\" NS Aq macro - Enclose string in angle brackets
 937 .de Aq
 938 .if \\n(aC==0 .ds mN Aq
 939 .ds qL \&<
 940 .ds qR \&>
 941 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 942 ..
 943 .\" NS Bq macro - Enclose string in square brackets
 944 .de Bq
 945 .if \\n(aC==0 .ds mN Bq
 946 .ds qL \&\\*(lB
 947 .ds qR \&\\*(rB
 948 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 949 ..
 950 .\" NS Dq macro - Enclose string in double quotes
 951 .de Dq
 952 .if \\n(aC==0 .ds mN Dq
 953 .ds qL \&\\*(Lq
 954 .ds qR \&\\*(Rq
 955 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 956 ..
 957 .\" NS Eq macro - Enclose string in double quotes
 958 .de Eq
 959 .if \\n(aC==0 .ds mN Eq
 960 .ds qL \\$1
 961 .ds qR \\$2
 962 .En \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 963 ..
 964 .\" NS Pq macro - Enclose string in parenthesis
 965 .de Pq
 966 .if \\n(aC==0 .ds mN Pq
 967 .ds qL \&\\*(lP
 968 .ds qR \&\\*(rP
 969 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 970 ..
 971 .\" NS Ql macro - Quoted literal is in file mdoc-[dit|n|g]roff (too large
 972 .\" an if-else to carry along recursively for `if n ...')
 973 .\"
 974 .\" NS Sq macro - Enclose string in single quotes
 975 .de Qq
 976 .if \\n(aC==0 .ds mN Qq
 977 .ds qL \&\\*q
 978 .ds qR \&\\*q
 979 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 980 ..
 981 .\" NS Sq macro - Enclose string in single quotes
 982 .de Sq
 983 .if \\n(aC==0 .ds mN Sq
 984 .ds qL \&\\*(sL
 985 .ds qR \&\\*(sR
 986 .En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 987 ..
 988 .\"
 989 .\" NS Es macro - Set up strings for .En call
 990 .de Es
 991 .if \\n(aC==0 \{\
 992 .       ie \\n(.$>2 .aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 993 .       el \{\
 994 .               ds qL \\$1
 995 .               ds qR \\$2
 996 .       \}
 997 .\}
 998 .if \\n(aC>\\n(aP \{\
 999 .       nr aP \\n(aP+1
1000 .       ds qL \\*(A\\n(aP
1001 .       nr aP \\n(aP+1
1002 .       ds qR \\*(A\\n(aP
1003 .       ie \\n(aC>\\n(aP .c\\n(C\\n(aP
1004 .       el .aZ
1005 .\}
1006 ..
1007 .\" .tm En beg arg(A[\\n(aP])==\\*(A\\n(aP;
1008 .\" .tm En oM==\\n(oM; dZ==\\n(dZ; Xt==\\n(Xt; aC==\\n(aC
1009 .\" NS En macro - Enclose string with given args (eg [ and ] etc)
1010 .\" NS qL string variable set by calling macro
1011 .\" NS qR string variable set by calling macro
1012 .\" NS aJ register (for vR)
1013 .de En
1014 .ie \\n(aC==0 \{\
1015 .       ie \\n(.$==0 \{\
1016 .               as b1 \&\\*(qL\\*(qR
1017 .               pB
1018 .       \}
1019 .       el \{\
1020 .\".            as mN (En)
1021 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1022 .               as b1 \&\\*(qL
1023 .       \}
1024 .\}
1025 .el \{\
1026 .       as b1 \&\\*(qL
1027 .\}
1028 .if \\n(aC>0 \{\
1029 .       ie (\\n(aC-\\n(aP)==0 \{\
1030 .               as b1 \&\\*(qR
1031 .               aZ
1032 .       \}
1033 .       el \{\
1034 .               ie \\n(C\\n(aC==3 \{\
1035 .                       nr aJ \\n(aC-1
1036 .                       vR
1037 .                       nr aJ \\n(aJ+1
1038 .                       ds A\\n(aJ \&\\*(qR\\*(A\\n(aJ
1039 .                       nr aJ 0
1040 .               \}
1041 .               el .aI \&\\*(qR 3
1042 .               nr aP \\n(aP+1
1043 .               if \\n(C\\n(aP==1 .\\*(A\\n(aP
1044 .               if \\n(C\\n(aP>1 \{\
1045 .                       nr aP \\n(aP-1
1046 .                       No
1047 .               \}
1048 .       \}
1049 .\}
1050 ..
1051 .\" NS vR macro - vector routine (for En, trace backwards past trail punct)
1052 .de vR
1053 .if \\n(C\\n(aJ==3 \{\
1054 .       nr aJ \\n(aJ-1
1055 .       vR
1056 .\}
1057 ..
1058 .\"------------------------------------------------------------------------
1059 .\" NS Ao macro - Angle open
1060 .de Ao
1061 .if \\n(aC==0 .ds mN Ao
1062 .ds qL \&<
1063 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1064 ..
1065 .\" NS Ac macro - Angle close
1066 .de Ac
1067 .if \\n(aC==0 .ds mN Ac
1068 .ds qR \&>
1069 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1070 ..
1071 .\" NS Bo macro - Bracket open
1072 .de Bo
1073 .if \\n(aC==0 .ds mN Bo
1074 .ds qL \&[
1075 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1076 ..
1077 .\" NS Bc macro - Bracket close
1078 .de Bc
1079 .if \\n(aC==0 .ds mN Bc
1080 .ds qR \&]
1081 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1082 ..
1083 .\" NS Do macro - Double Quote open
1084 .de Do
1085 .if \\n(aC==0 .ds mN Do
1086 .ds qL \&\\*(Lq
1087 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1088 ..
1089 .\" NS Dc macro - Double Quote close
1090 .de Dc
1091 .if \\n(aC==0 .ds mN Dc
1092 .ds qR \&\\*(Rq
1093 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1094 ..
1095 .\" NS Eo macro - Enclose open
1096 .de Eo
1097 .if \\n(aC==0 .ds mN Eo
1098 .ds qL \\$1
1099 .eO \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1100 ..
1101 .\" NS Ec macro - Enclose close
1102 .de Ec
1103 .if \\n(aC==0 .ds mN Ec
1104 .ds qR \\$1
1105 .eC \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1106 ..
1107 .\" NS Oo macro - Option open
1108 .de Oo
1109 .if \\n(aC==0 .ds mN Oo
1110 .ds qL \&[
1111 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1112 ..
1113 .\" NS Oc macro - Option close
1114 .de Oc
1115 .if \\n(aC==0 .ds mN Oc
1116 .ds qR \&]
1117 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1118 ..
1119 .\" NS Po macro - Parenthesis open
1120 .de Po
1121 .if \\n(aC==0 .ds mN Po
1122 .ds qL \&(
1123 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1124 ..
1125 .\" NS Pc macro - Parenthesis close
1126 .de Pc
1127 .if \\n(aC==0 .ds mN Pc
1128 .ds qR \&)
1129 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1130 ..
1131 .\" NS Qo macro - Straight Double Quote open
1132 .de Qo
1133 .if \\n(aC==0 .ds mN Qo
1134 .ds qL \&\\*q
1135 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1136 ..
1137 .\" NS Qc macro - Straight Double Quote close
1138 .de Qc
1139 .if \\n(aC==0 .ds mN Qc
1140 .ds qR \&\\*q
1141 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1142 ..
1143 .\" NS So macro - Single Quote open
1144 .de So
1145 .if \\n(aC==0 .ds mN So
1146 .ds qL \&\\*(sL
1147 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1148 ..
1149 .\" NS Sc macro - Single Quote close
1150 .de Sc
1151 .if \\n(aC==0 .ds mN Sc
1152 .ds qR \&\\*(sR
1153 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1154 ..
1155 .\" NS Xo macro - Extend open (continue)
1156 .de Xo
1157 .if \\n(aC==0 .ds mN Xo
1158 .\" .nr mN 1
1159 .ds qL
1160 .eO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1161 ..
1162 .\" NS Xe macro - Extend close (end)
1163 .de Xc
1164 .\" .nr mN 0
1165 .if \\n(aC==0 .ds mN Xc
1166 .ds qR
1167 .eC \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1168 ..
1169 .\" NS eO macro - enclose string open
1170 .\" NS oM register (extension possible)
1171 .de eO
1172 .nr oM \\n(oM+1
1173 .\" .tm eO last arg==A[\\n(aC]==\\*(A\\n(aC; aP==\\n(aP; oM==\\n(oM; dZ==\\n(dZ;
1174 .ie \\n(aC==0 \{\
1175 .       ie \\n(.$>0 \{\
1176 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1177 .               as b1 \\*(qL
1178 .       \}
1179 .       el \{\
1180 .               as b1 \\*(qL
1181 .               if (\\n(dZ==0)&(\\n(sM==1) \{\
1182 .                       nr dZ \\n(dZ+1
1183 .                       ds b2 \\*(b1
1184 .                       ds b1
1185 .                       nr lK \\n(.c
1186 .                       ev 2
1187 .                       fi
1188 .                       di eB
1189 .               \}
1190 .       \}
1191 .\}
1192 .el \{\
1193 .       as b1 \\*(qL
1194 .\}
1195 .ie \\n(aC>0 \{\
1196 .       if \\n(aC>\\n(aP \{\
1197 .               nr aP \\n(aP+1
1198 .               ie \\n(C\\n(aP==1 .\\*(A\\n(aP
1199 .               el  \{\
1200 .                       nr aP \\n(aP-1
1201 .                       No
1202 .               \}
1203 .       \}
1204 .       if \\n(aC==\\n(aP \{\
1205 .               if \\n(tP==1 \{\
1206 .\" .tm SETTING Xt!!!
1207 .                       nr Xt 1
1208 .               \}
1209 .\".\" .                ds S0
1210 .\"CHANGED              ds S0 \\*(iV
1211 .               aY
1212 .       \}
1213 .\}
1214 .el \{\
1215 .       if \\n(oM>1 .as b1 \\*(sV
1216 .\}
1217 ..
1218 .\"
1219 .\" NS eC macro - enclose string close
1220 .\" NS aa local register
1221 .de eC
1222 .nr oM \\n(oM-1
1223 .\" tm eC last arg==A[\\n(aC]==\\*(A\\n(aC; aP==\\n(aP; oM==\\n(oM; dZ==\\n(dZ;
1224 .as b1 \\*(qR
1225 .if \\n(aC==0 \{\
1226 .       ie \\n(.$>0 \{\
1227 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1228 .       \}
1229 .       el \{\
1230 .               ie "\\*(xB"" \{\
1231 .                       pB
1232 .               \}
1233 .               el \{\
1234 .                       pB
1235 .\\*(L\\n(lC
1236 .                       nr Xt 0
1237 .                       ds xB
1238 .               \}
1239 .       \}
1240 .\}
1241 .if \\n(aC>0 \{\
1242 .       ie \\n(aC==\\n(aP \{\
1243 .               ie \\n(oM==0 \{\
1244 .                       aZ
1245 .               \}
1246 .               el .aY
1247 .       \}
1248 .       el \{\
1249 .               nr aa \\n(aP+1
1250 .               if \\n(C\\n(aa==2 .as b1 \\*(S\\n(aC
1251 .\" tm CURRENT arg (aP==\\*(A\\n(aP and ap+1==\\*(A\\n(aa) tP==\\n(tP Xt==\\n(Xt
1252 .               rr aa
1253 .               if \\n(tP>0 \{\
1254 .\" tm UNSETTING Xt==\\n(Xt!!!!
1255 .                       if \\n(Xt>0 .nr Xt \\n(Xt-1
1256 .\" tm NOW Xt==\\n(Xt!!!!
1257 .               \}
1258 .               No
1259 .       \}
1260 .\}
1261 ..
1262 .\"------------------------------------------------------------------------
1263 .\" NS Pf macro - Prefix (calls .pF)
1264 .de Pf
1265 .if \\n(aC==0 .ds mN Pf
1266 .ds qL \&\\$1
1267 .pF \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1268 ..
1269 .\" NS pF macro - Prefix (for prefixing open quotes, brackets etc)
1270 .de pF
1271 .ie \\n(aC==0 \{\
1272 .       as b1 \&\\*(qL
1273 .       ie \\n(.$<2 \{\
1274 .               tm Warning: Missing arguments - prefix .Pf)
1275 .               pB
1276 .       \}
1277 .       el .aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1278 .\}
1279 .el \{\
1280 .       ie (\\n(aC-\\n(aP)>1 \{\
1281 .               nr aP \\n(aP+1
1282 .               as b1 \&\\*(A\\n(aP
1283 .       \}
1284 .       el .tm Warning: .Pf: trailing prefix (#\\n(.c)
1285 .\}
1286 .if \\n(aC>0 \{\
1287 .       ie (\\n(aC-\\n(aP)==0 .aZ
1288 .       el \{\
1289 .               nr aP \\n(aP+1
1290 .               c\\n(C\\n(aP
1291 .       \}
1292 .\}
1293 ..
1294 .\" NS Ns macro - remove space (space remove done by .aV or .fV)
1295 .de Ns
1296 .if \\n(aC==0 \{\
1297 .       ds mN Ns
1298 .       ie \\n(.$>0 .aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1299 .       el .tm Usage: .Ns must be called with arguments (#\\n(.c)
1300 .\}
1301 .No
1302 ..
1303 .de Ap
1304 .if \\n(aC==0 \{\
1305 .       ds mN Ap
1306 .       tm Usage: Ap "cannot be first request on a line (no .Ap)" (#\\n(.c)
1307 .\}
1308 .as b1 \&'
1309 .No
1310 ..
1311 .\" NS Hv macro - Hard (unpaddable) Space vector
1312 .\" NS iV string inter-vector space
1313 .\" NS sV string inter-argument space
1314 .de Hv
1315 .ds iV \\*(sV
1316 .ds sV \\*(hV
1317 ..
1318 .\" NS Sv macro - Soft Space vector (troff limitation)
1319 .de Sv
1320 .ds sV \\*(iV
1321 ..
1322 .\" NS Tv macro - Tab Space vector
1323 .de Tv
1324 .ds sV \\*(tV
1325 ..
1326 .\" NS Sm macro - Space mode
1327 .\" NS sM register - default is one (space mode on)
1328 .nr sM 1
1329 .de Sm
1330 .if \\n(aC==0 \{\
1331 .       ie \\n(.$==0 .tm "Usage: .Sm [off | on]" (#\\n(.c)
1332 .       el \{\
1333 .               ds mN Sm
1334 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1335 .       \}
1336 .\}
1337 .if \\n(aC>0 \{\
1338 .       nr aP \\n(aP+1
1339 .       if "\\*(A\\n(aP"on" \{\
1340 .               ds sV \\*(iV
1341 .               nr sM 1
1342 .       \}
1343 .       if "\\*(A\\n(aP"off" \{\
1344 .               ds sV
1345 .               rm S0 S1 S2 S3 S4 S5 S6 S7 S8 S9
1346 .               nr sM 0
1347 .       \}
1348 .       ie \\n(aC>\\n(aP \{\
1349 .               No
1350 .       \}
1351 .       el .aY
1352 .\}
1353 ..
1354 .\"------------------------------------------------------------------------
1355 .\" Size and Argument type macros
1356 .\" NS aT macro - argument type
1357 .\" NS aU macro - argument type (same as .aT but uses A[1-9] strings
1358 .\" NS aT register argument type
1359 .if \n(.g \{\
1360 .de aT
1361 .nr aT 0
1362 .ie \\n(sW>2:(\A'\\$1'==0) \{\
1363 .       nr aT 2
1364 .\}
1365 .el \{\
1366 .       if \\n(sW==1 \{\
1367 .               ie \\n(z\\$1>2 \{\
1368 .                       nr aT \\n(z\\$1
1369 .               \}
1370 .               el .nr aT 2
1371 .       \}
1372 .       if \\n(sW==2 \{\
1373 .               ie \\n(\\$1 \{\
1374 .                       nr aT 1
1375 .               \}
1376 .               el .nr aT 2
1377 .       \}
1378 .\}
1379 ..
1380 .de aU
1381 .nr aT 0
1382 .aW \\$1
1383 .ie \\n(sW>2:(\A'\\*(A\\$1'==0) .nr aT 2
1384 .el \{\
1385 .       if \\n(sW==1 \{\
1386 .               ie \\n(z\\*(A\\$1>2 \{\
1387 .                       nr aT \\n(z\\*(A\\$1
1388 .               \}
1389 .               el .nr aT 2
1390 .       \}
1391 .       if \\n(sW==2 \{\
1392 .               ie (\\n(\\*(A\\$1) \{\
1393 .                       nr aT 1
1394 .               \}
1395 .               el .nr aT 2
1396 .       \}
1397 .\}
1398 ..
1399 .\}
1400 .if !\n(.g \{\
1401 .de aT
1402 .nr aT 0
1403 .ie \\n(sW>2 \{\
1404 .       nr aT 2
1405 .\}
1406 .el \{\
1407 .       if \\n(sW==1 \{\
1408 .               ie \\n(z\\$1>2 \{\
1409 .                       nr aT \\n(z\\$1
1410 .               \}
1411 .               el .nr aT 2
1412 .       \}
1413 .       if \\n(sW==2 \{\
1414 .               ie \\n(\\$1 \{\
1415 .                       nr aT 1
1416 .               \}
1417 .               el .nr aT 2
1418 .       \}
1419 .\}
1420 ..
1421 .de aU
1422 .nr aT 0
1423 .aW \\$1
1424 .ie \\n(sW>2 .nr aT 2
1425 .el \{\
1426 .       if \\n(sW==1 \{\
1427 .               ie \\n(z\\*(A\\$1>2 \{\
1428 .                       nr aT \\n(z\\*(A\\$1
1429 .               \}
1430 .               el .nr aT 2
1431 .       \}
1432 .       if \\n(sW==2 \{\
1433 .               ie (\\n(\\*(A\\$1) \{\
1434 .                       nr aT 1
1435 .               \}
1436 .               el .nr aT 2
1437 .       \}
1438 .\}
1439 ..
1440 .\}
1441 .\" NS s1 macro - set spacing for class type 1
1442 .\" NS s2 macro - set spacing for class type 2
1443 .\" NS s3 macro - set spacing for class type 3
1444 .\" NS s1 macro - set spacing for class type 1
1445 .\" NS s2 macro - set spacing for class type 2
1446 .\" NS s3 macro - set spacing for class type 3
1447 .\" NS s4 macro - set spacing for class type 4
1448 .\" NS S[0-9] string spacing
1449 .\" NS xX local register
1450 .\" NS aa local register
1451 .de s0
1452 .tm MDOC-ERROR: bogus type 0 (can't set space '\\*(A\\n(aC') (#\\n(.c)
1453 ..
1454 .de s1
1455 .if \\n(\\*(A\\n(aC==3 \{\
1456 .       nr xX \\n(aC-1
1457 .       rm S\\n(xX
1458 .       ds S\\n(aC \\*(sV
1459 .\}
1460 .if \\n(\\*(A\\n(aC==2 \{\
1461 .       nr xX \\n(aC-1
1462 .\" this kludge can probably go away, but need to double check first
1463 .       ie "\\*(A\\n(aC"Nb" .ds S\\n(xX \\*(hV
1464 .       el .rm S\\n(xX
1465 .\}
1466 ..
1467 .de s2
1468 .ds S\\n(aC \\*(sV
1469 ..
1470 .de s3
1471 .if \\n(aC>1 \{\
1472 .       nr xX \\n(aC-1
1473 .       rm S\\n(xX
1474 .\}
1475 .ds S\\n(aC \\*(sV
1476 ..
1477 .de s4
1478 .nr aa 0
1479 ..
1480 .\" Class switches (on current argument aP)
1481 .\" NS c0 macro - catch errors (non-existent class type 0)
1482 .\" NS c1 macro - call request if type 1
1483 .\" NS c2 macro - call .No if type 2
1484 .\" NS c3 macro - call .No if type 3
1485 .\" NS c4 macro - call .No if type 4
1486 .de c0
1487 .tm MDOC-ERROR: bogus class 0 (can't determine '\\*(A\\n(aC') (#\\n(.c)
1488 ..
1489 .de c1
1490 .\\*(A\\n(aP
1491 ..
1492 .de c2
1493 .nr aP \\n(aP-1
1494 .No
1495 ..
1496 .de c3
1497 .nr aP \\n(aP-1
1498 .No
1499 ..
1500 .de c4
1501 .nr aP \\n(aP-1
1502 .No
1503 ..
1504 .\" NS y1 macro - ignore if class 1
1505 .\" NS y2 macro - ignore if class 2
1506 .\" NS y3 macro - append if type 3
1507 .\" NS y4 macro - append if type 4
1508 .de y1
1509 .nr aa 1
1510 ..
1511 .de y2
1512 .nr aa 1
1513 ..
1514 .de y3
1515 .as b1 \\*(A\\n(aP
1516 .nr aP \\n(aP+1
1517 .n\\C\\n(aP
1518 ..
1519 .de y4
1520 .as b1 \\*(A\\n(aP
1521 .nr aP \\n(aP+1
1522 .n\\C\\n(aP
1523 ..
1524 .\"--------------------------------------------------------------------------
1525 .\" Ns Bf macro - Begin Font Mode (will be begin-mode/end-mode in groff & TeX)
1526 .\" Ns Ef macro - End Font Mode
1527 .de Bf
1528 .ds mN Bf
1529 .ie \\n(.$>0 \{\
1530 .       nr bF \\n(.f
1531 .       nr bZ \\n(.s
1532 .       if "\\$1"Em" \&\\*(eM\c
1533 .       if "\\$1"Li" \&\\*(lI\c
1534 .       if "\\$1"Sy" \&\\*(sY\c
1535 .       if "\\$1"-emphasis" \&\\*(eM\c
1536 .       if "\\$1"-literal" \&\\*(lI\c
1537 .       if "\\$1"-symbolic" \&\\*(sY\c
1538 .\}
1539 .el .tm Usage .Bf [Em | -emphasis | Li | -literal | Sy | -symbolic] (#\\n(.c)
1540 ..
1541 .de Ef
1542 .ds mN Ef
1543 .ie \\n(.$>0 .tm Usage .Ef (does not take arguments) (#\\n(.c)
1544 .el \&\f\\n(bF\s\\n(bZ
1545 ..
1546 .\" Ns Bk macro - Begin Keep
1547 .\" Ns Ek macro - End Keep
1548 .\" Ns kS string - keep type
1549 .de Bk
1550 .ds mN Bk
1551 .ie \\n(.$==0 \{\
1552 .tm Usage: .Bk [-lines | -words] (#\\n(.c)
1553 .\}
1554 .el \{\
1555 .       if !"\\*(kS"" .tm .Bk: nesting keeps not implemented yet. (#\\n(.c)
1556 .       if "\\$1"-lines" .tm .Bd -lines: Not implemented yet. (#\\n(.c)
1557 .       if "\\$1"-words" .Hv
1558 .       ds kS \\$1
1559 .\}
1560 ..
1561 .de Ek
1562 .ds mN Ek
1563 .ie \\n(.$>0 .tm Usage .Ek (does not take arguments) (#\\n(.c)
1564 .el \{\
1565 .       if "\\*(kS"-lines" .tm .Bd -lines: Not implemented yet. (#\\n(.c)
1566 .       if "\\*(kS"-words" .Sv
1567 .       rm kS
1568 .\}
1569 ..
1570 .\" NS Bd macro - Begin Display display-type [offset string]
1571 .\" NS Ed macro - end Display
1572 .\" NS O[0-9] registers - stack of indent
1573 .\" NS d[0-9] registers - display-type stack
1574 .de Bd
1575 .ds mN Bd
1576 .ie \\n(.$==0 \{\
1577 .tm Usage: .Bd [-literal | -filled | -ragged | -unfilled] [-offset [string]] [-compact] (#\\n(.c)
1578 .\}
1579 .el \{\
1580 .       ds aa
1581 .       nr bV 0
1582 .       nr iD 0
1583 .       nr dP \\n(dP+1
1584 .       if "\\$1"-literal" \{\
1585 .               nr iD \\n(iD+1
1586 .               ds d\\n(dP dL
1587 .               nr cF \\n(.f
1588 .               nr cZ \\n(.s
1589 .               ie t \{\&\\*(lI
1590 '                       ta 9n 18n 27n 36n 45n 54n 63n 72n
1591 .               \}
1592 .               el \{\
1593 '                       ta 8n 16n 24n 32n 40n 48n 56n 64n 72n
1594 .               \}
1595 .               nf
1596 .       \}
1597 .       if "\\$1"-filled" \{\
1598 .               nr iD \\n(iD+1
1599 .               ds d\\n(dP dF
1600 .               br
1601 .       \}
1602 .       if "\\$1"-ragged" \{\
1603 .               nr iD \\n(iD+1
1604 .               ds d\\n(dP dR
1605 .               na
1606 .       \}
1607 .       if "\\$1"-unfilled" \{\
1608 .               nr iD \\n(iD+1
1609 .               ds d\\n(dP dU
1610 .               nf
1611 .       \}
1612 .\" .tm Here is argc: \\n(.$ and here is iD \\n(iD
1613 .       if ((\\n(iD>=1)&(\\n(.$>\\n(iD)) \{\
1614 .               bV \\$2 \\$3 \\$4
1615 .       \}
1616 .       if \\n(O\\n(dP>0 'in \\n(.iu+\\n(O\\n(dPu
1617 .       if (\\n(bV==0) \{\
1618 .               if (\\n(nS==0) \{\
1619 .                       ie "\\*(d\\n(dP"dR" .sp \\n(dVu
1620 .                       el 'sp \\n(dVu
1621 .               \}
1622 .       \}
1623 .       if \\n(cR==0 .ne 2v
1624 .       nr bV 0
1625 .       nr iD 0
1626 .\}
1627 ..
1628 .\" NS bV macro - resolve remaining .Bd arguments
1629 .de bV
1630 .\" .tm in bV with args: \\$1 \\$2 \\$3
1631 .nr iD 1
1632 .ds bY
1633 .if "\\$1"-offset" \{\
1634 .       ds bY \\$2
1635 .       if "\\*(bY"left" \{\
1636 .               nr iD \\n(iD+1
1637 .               nr O\\n(dP 0
1638 .       \}
1639 .       if "\\*(bY"right" \{\
1640 .               nr iD \\n(iD+1
1641 .               nr O\\n(dP (\\n(.l/3)u
1642 .       \}
1643 .       if "\\*(bY"center" \{\
1644 .               nr iD \\n(iD+1
1645 .               nr O\\n(dP (\\n(.l-\\n(.i)/4u
1646 .       \}
1647 .       if "\\*(bY"indent" \{\
1648 .               nr iD \\n(iD+1
1649 .               nr O\\n(dP \\n(dIu
1650 .       \}
1651 .       if "\\*(bY"indent-two" \{\
1652 .               nr iD \\n(iD+1
1653 .               nr O\\n(dP \\n(dIu+\\n(dIu
1654 .       \}
1655 .       if \\n(iD==1 \{\
1656 .               nr iD \\n(iD+1
1657 .               sW "\\*(bY"
1658 .               ie \\n(sW>2 \{\
1659 .                       ie ((\\*(bY>9n)&(\\*(bY<100n)) \{\
1660 .                               nr O\\n(dP \\*(bY
1661 .                       \}
1662 .                       el .nr O\\n(dP (\\n(sW)*\\n(fWu
1663 .               \}
1664 .               el \{\
1665 .                       if \\n(sW==2 .aT \\*(bY
1666 .                       ie \\n(aT==1 \{\
1667 .                               nr O\\n(dP \\n(\\*(bY
1668 .                       \}
1669 .                       el .nr O\\n(dP \\*(bY
1670 .               \}
1671 .       \}
1672 .\}
1673 .if "\\$1"-compact" \{\
1674 .       nr bV 1
1675 .\}
1676 .if \\n(iD<\\n(.$ \{\
1677 .       ie "\\*(bY"" \{\
1678 .               bV \\$2 \\$3
1679 .       \}
1680 .       el \{\
1681 .               bV \\$3
1682 .       \}
1683 .\}
1684 ..
1685 .\" NS Ed macro - end display
1686 .de Ed
1687 .ds mN Ed
1688 .br
1689 .if \\n(dP==0 .tm mdoc: Extraneous .Ed
1690 .if "\\*(d\\n(dP"dL" \{\
1691 .       ft \\n(cF
1692 .       fz \\n(cZ
1693 .\}
1694 .in \\n(.iu-\\n(O\\n(dPu
1695 .rr O\\n(dP
1696 .rm d\\n(dP
1697 .nr dP \\n(dP-1
1698 .fi
1699 .if t .ad
1700 ..
1701 .\"--------------------------------------------------------------------------
1702 .\" NS Bl macro - begin list (.Bl list-type)
1703 .\" NS L[0-9] registers - stack of list types
1704 .de Bl
1705 .ie \\n(.$==0 \{\
1706 .tm Usage: .Bl [[-hang | -tag] [-width]] [ -item | -enum | -bullet | -diag] (#\\n(.c)
1707 .\}
1708 .el \{\
1709 .       ds mN Bl
1710 .       nr aP 0
1711 .       nr lC \\n(lC+1
1712 .       ds A1 \\$2
1713 .       ds A2 \\$3
1714 .       ds A3 \\$4
1715 .       ds A4 \\$5
1716 .       ds A5 \\$6
1717 .       ds A6 \\$7
1718 .       ds A7 \\$8
1719 .       ds A8 \\$9
1720 .       nr fV \\n(.$-1
1721 .       if "\\$1"-hang" \{\
1722 .               nr aP \\n(aP+1
1723 .               ds L\\n(lC hL
1724 .               nr w\\n(lC 6n
1725 .               nr tC  1
1726 .       \}
1727 .       if "\\$1"-tag" \{\
1728 .               nr aP \\n(aP+1
1729 .               ds L\\n(lC tL
1730 .               nr tC  1
1731 .       \}
1732 .       if "\\$1"-item" \{\
1733 .               nr aP \\n(aP+1
1734 .               ds L\\n(lC iT
1735 .               nr tC  1
1736 .       \}
1737 .       if "\\$1"-enum" \{\
1738 .               nr aP \\n(aP+1
1739 .               ds L\\n(lC nU
1740 .               nr w\\n(lC 3n
1741 .               nr tC  1
1742 .       \}
1743 .       if "\\$1"-bullet" \{\
1744 .               nr aP \\n(aP+1
1745 .               ds L\\n(lC bU
1746 .               nr w\\n(lC 2n
1747 .               nr tC  1
1748 .       \}
1749 .       if "\\$1"-dash" \{\
1750 .               nr aP \\n(aP+1
1751 .               ds L\\n(lC hU
1752 .               nr w\\n(lC 2n
1753 .               nr tC  1
1754 .       \}
1755 .       if "\\$1"-hyphen" \{\
1756 .               nr aP \\n(aP+1
1757 .               ds L\\n(lC hU
1758 .               nr w\\n(lC 2n
1759 .               nr tC  1
1760 .       \}
1761 .       if "\\$1"-inset" \{\
1762 .               nr aP \\n(aP+1
1763 .               ds L\\n(lC lL
1764 .               nr tC  1
1765 .       \}
1766 .       if "\\$1"-diag" \{\
1767 .               nr aP \\n(aP+1
1768 .               ds L\\n(lC mL
1769 .               nr mL 1
1770 .       \}
1771 .       if "\\$1"-ohang" \{\
1772 .               nr aP \\n(aP+1
1773 .               ds L\\n(lC oL
1774 .               nr tC 1
1775 .       \}
1776 .       if "\\$1"-column" \{\
1777 .               nr aP \\n(aP+1
1778 .               ds L\\n(lC cL
1779 .       \}
1780 .       ie \\n(aP==0 \{\
1781 .       tm \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
1782 .       tm Usage: .Bl [[-inset|-tag] -width] [-item|-enum|-bullet|-diag] (#\\n(.c)
1783 .       \}
1784 .       el \{\
1785 .               tY
1786 .               if (\\n(aP==1)&(\\n(aP<\\n(.$) \{\
1787 .                       nr aP 0
1788 .                       lV
1789 .                       if "\\*(L\\n(lC"cL" \{\
1790 .                               W\\n(wV
1791 .                               nr w\\n(lC 0
1792 '                               in -\\n(eWu
1793 .                               ie \\n(v\\n(lC==1 \{\
1794 .                                      nr aa 0
1795 .                               \}
1796 .                               el \{\
1797 .                                       sp \\n(dVu
1798 .                               \}
1799 .                               nf
1800 .                               nr wV 0
1801 .                       \}
1802 .               \}
1803 .       \}
1804 .       nr aP 0
1805 .\" .   ds b1
1806 .       aY
1807 .\" .tm Here is L[\\n(lC]==\\*(L\\n(lC
1808 .\}
1809 ..
1810 .if \n(.g \{\
1811 .       nr i 10
1812 .       while \ni<100 \{\
1813 .            nr num!\nin 1
1814 .            nr i +1
1815 .       \}
1816 .\}
1817 .\" NS lV macro - resolve remaining .Bl arguments
1818 .de lV
1819 .nr aP \\n(aP+1
1820 .if \\n(fV>=\\n(aP \{\
1821 .       nr iD 0
1822 .       if "\\*(A\\n(aP"-compact" \{\
1823 .               nr iD 1
1824 .               nr v\\n(lC 1
1825 .       \}
1826 .       if "\\*(A\\n(aP"-width" \{\
1827 .               nr iD 1
1828 .               nr aP \\n(aP+1
1829 .               nr tW 1
1830 .               ds t\\n(lC TagwidtH
1831 .               ds tS \\*(A\\n(aP
1832 .               aW \\n(aP
1833 .               ie \\n(sW>2 \{\
1834 .                       nr w\\n(lC (\\n(sW)*\\n(fWu
1835 .                       if \\n(sW==3 \{\
1836 .                               ie \\n(.g \{\
1837 .                                       if \A'\\*(tS' .if r num!\\*(tS \{\
1838 .                                               nr w\\n(lC \\*(tS
1839 .                                       \}
1840 .                               \}
1841 .                               el \{\
1842 .                                       if (\\*(tS>9n)&(\\*(tS<99n) \{\
1843 .                                               nr w\\n(lC \\*(tSu
1844 .                                       \}
1845 .                               \}
1846 .                       \}
1847 .               \}
1848 .               el \{\
1849 .                       aT \\*(tS
1850 .                       ie \\n(aT==1 \{\
1851 .                               nr w\\n(lC \\n(\\*(tS
1852 .                       \}
1853 .                       el \{\
1854 .                               nr w\\n(lC \\*(tSu
1855 .                       \}
1856 .               \}
1857 .       \}
1858 .       if "\\*(A\\n(aP"-offset" \{\
1859 .               nr iD 1
1860 .               nr aP \\n(aP+1
1861 .               ie "\\*(A\\n(aP"indent" \{\
1862 .                       nr o\\n(lC \\n(Dsu
1863 .               \}
1864 .               el \{\
1865 .                       ds tS \\*(A\\n(aP
1866 .                       aW \\n(aP
1867 .                       ie \\n(sW>2 \{\
1868 .                               nr o\\n(lC (\\n(sW)*\\n(fWu
1869 .                               ie \\n(.g \{\
1870 .                                       if \A'\\*(tS' .if r num!\\*(tS \{\
1871 .                                               nr o\\n(lC \\*(tS
1872 .                                       \}
1873 .                               \}
1874 .                               el \{\
1875 .                                       if (\\*(tS>9n)&(\\*(tS<100n) \{\
1876 .                                               nr o\\n(lC \\*(tS
1877 .                                       \}
1878 .                               \}
1879 .                       \}
1880 .                       el \{\
1881 .                               ie \\n(C\\n(aP==1 .nr o\\n(lC \\n(\\*(tS
1882 .                               el .nr o\\n(lC \\*(tS
1883 .                       \}
1884 .               \}
1885 .       \}
1886 .       if \\n(iD==0 \{\
1887 .               if "\\*(L\\n(lC"cL" \{\
1888 .                       nr wV \\n(wV+1
1889 .                       ds A\\n(wV \\*(A\\n(aP
1890 .               \}
1891 .       \}
1892 .       if \\n(fV>\\n(aP .lV
1893 .\}
1894 ..
1895 .\" NS El macro - end list
1896 .\" NS iD local register
1897 .de El
1898 .ie \\n(.$>0 \{\
1899 .       tm Usage: .El (#\\n(.c)
1900 .\}
1901 .el \{\
1902 .       ds mN El
1903 .       nr iD 0
1904 .       if "\\*(L\\n(lC"cL" \{\
1905 .               nr iD 1
1906 .               cC
1907 .       \}
1908 .       if "\\*(L\\n(lC"nU" \{\
1909 .               nr nU 0
1910 .       \}
1911 .       if \\n(mL>0 \{\
1912 .               nr iD 1
1913 .               nr mL 0
1914 .               tZ
1915 .               nr lC \\n(lC-1
1916 .               tY
1917 .       \}
1918 .       if "\\*(L\\n(lC"iT" \{\
1919 '               in \\n(.iu-\\n(o\\n(lCu
1920 .               tZ
1921 .               nr lC \\n(lC-1
1922 .               tY
1923 .               nr iD 1
1924 .       \}
1925 .       if "\\*(L\\n(lC"oL" \{\
1926 '               in \\n(.iu-\\n(o\\n(lCu
1927 .               tZ
1928 .               nr lC \\n(lC-1
1929 .               tY
1930 .               nr iD 1
1931 .       \}
1932 .       if "\\*(L\\n(lC"lL" \{\
1933 '               in \\n(.iu-\\n(o\\n(lCu
1934 .               tZ
1935 .               nr lC \\n(lC-1
1936 .               tY
1937 .               nr iD 1
1938 .       \}
1939 .       if \\n(iD==0 \{\
1940 .               lE
1941 .       \}
1942 .       br
1943 .       nr iD 0
1944 .\}
1945 ..
1946 .\" NS It macro - list item
1947 .\" NS iD local register
1948 .\" NS aA save pA font string for section FILES (no underline if nroff)
1949 .de It
1950 .if "\\*(L\\n(lC"" \{\
1951 .       tm Usage .Bl -list-type [-width [string] | -compact | -offset [string]] (#\\n(.c)
1952 .       tm .It \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
1953 .\}
1954 .\" .tm Here is L[\\n(lC]==\\*(L\\n(lC
1955 .ne 3v
1956 .ie \\n(.$>0 \{\
1957 .       ds mN It
1958 .       ds b1
1959 .       nr iD 0
1960 .       ds A1 \\$1
1961 .       ds A2 \\$2
1962 .       ds A3 \\$3
1963 .       ds A4 \\$4
1964 .       ds A5 \\$5
1965 .       ds A6 \\$6
1966 .       ds A7 \\$7
1967 .       ds A8 \\$8
1968 .       ds A9 \\$9
1969 .       nr fV \\n(.$
1970 .       if "\\*(L\\n(lC"mL" \{\
1971 .               nr iD 1
1972 .               nr aP 0
1973 .               aX
1974 .               \\*(L\\n(lC
1975 .       \}
1976 .       if "\\*(L\\n(lC"cL" \{\
1977 .               ds b1
1978 .               nr aP 0
1979 .               nr iD 1
1980 .               \\*(L\\n(lC
1981 .       \}
1982 .       if "\\*(L\\n(lC"iT" \{\
1983 .               nr aP 0
1984 .               nr iD 1
1985 .               \\*(L\\n(lC
1986 .       \}
1987 .       if \\n(iD==0 \{\
1988 .               fV
1989 .\" tm ------------------------------------------------------------------------
1990 .\" tm It list-type==\\*(L\\n(lC, aP==\\n(aP
1991 .\" tm It beg arg(A[1])==\\*(A1; oM==\\n(oM; dZ==\\n(dZ; Xt==\\n(Xt; aC==\\n(aC
1992 .               nr oM \\n(oM+1
1993 .               nr tP 1
1994 .               nr aP \\n(aP+1
1995 .               nr tX \\n(C\\n(aP
1996 .               ds tX \\*(A\\n(aP
1997 .               if \\n(nF==1 \{\
1998 .                       ds aA \\*(pA
1999 .                       if n .ds pA \\*(nO
2000 .               \}
2001 .               ie \\n(C\\n(aP==1 \{\
2002 .                       \\*(A\\n(aP
2003 .               \}
2004 .               el \{\
2005 .                       nr aP \\n(aP-1
2006 .                       No
2007 .               \}
2008 .\" tm in It here is b1==\\*(b1
2009 .\" tm It mid arg(A[1])==\\*(A1; oM==\\n(oM; dZ==\\n(dZ; Xt==\\n(Xt; aC==\\n(aC
2010 .               ie \\n(Xt==1 .ds xB \&\\*(L\\n(lC
2011 .               el .\\*(L\\n(lC
2012 .       \}
2013 .       nr iD 0
2014 .\}
2015 .el .\\*(L\\n(lC
2016 ..
2017 .\" NS lL macro - .It item of list-type inset
2018 .de lL
2019 .lY
2020 .br
2021 \&\\*(b1
2022 .nr oM \\n(oM-1
2023 .nr tP 0
2024 .ds b1
2025 .aY
2026 'fi
2027 ..
2028 .\" NS hL macro - .It item of list-type hanging label (as opposed to tagged)
2029 .de hL
2030 .lX
2031 .nr bb \\n(w\\n(lCu+\\n(lSu
2032 .ti -\\n(bbu
2033 .ie \w\a\\*(b1\au>=(\\n(w\\n(lCu) \&\\*(b1
2034 .el \&\\*(b1\h'|\\n(bbu'\c
2035 .nr oM \\n(oM-1
2036 .ds b1
2037 .nr tP 0
2038 .aY
2039 'fi
2040 ..
2041 .\" NS oL macro - .It item of list-type overhanging label
2042 .de oL
2043 .lY
2044 \&\\*(b1
2045 .br
2046 .nr oM \\n(oM-1
2047 .ds b1
2048 .nr tP 0
2049 .aY
2050 'fi
2051 ..
2052 .\" NS iT macro - .It item of list-type [empty label]
2053 .de iT
2054 .lY
2055 .br
2056 .\" .ds b1
2057 .aY
2058 'fi
2059 ..
2060 .\" NS nU macro - Enumerated list
2061 .\" NS nU register count
2062 .\" NS hU macro - Hyphen paragraph list (sub bullet list)
2063 .\" NS bU macro - Bullet paragraph list
2064 .de nU
2065 .nr oM \\n(oM+1
2066 .nr nU \\n(nU+1
2067 .ds b1 \&\\n(nU.
2068 .uL
2069 ..
2070 .de bU
2071 .nr oM \\n(oM+1
2072 .nr bU \\n(bU+1
2073 .ds b1 \&\\*(sY\&\(bu\fP
2074 .uL
2075 ..
2076 .de hU
2077 .nr oM \\n(oM+1
2078 .nr bU \\n(bU+1
2079 .ds b1 \&\\*(sY\&\-\fP
2080 .uL
2081 ..
2082 .\" NS uL macro - .It item of list-type enum/bullet/hyphen
2083 .de uL
2084 .lX
2085 .nr bb \\n(w\\n(lCu+\\n(lSu
2086 .ti -\\n(bbu
2087 .ie \w\a\\*(b1\au>=(\\n(w\\n(lCu) \&\\*(b1
2088 .el \&\\*(b1\h'|\\n(bbu'\c
2089 .nr oM \\n(oM-1
2090 .\" .nr dZ \\n(dZ+1
2091 .ds b1
2092 .nr tP 0
2093 .aY
2094 'fi
2095 ..
2096 .\" NS mL macro - .It item of list-type diagnostic-message
2097 .de mL
2098 .nr cF \\n(.f
2099 .nr cZ \\n(.s
2100 .ie \\n(mL==1 \{\
2101 .       nr zB \\n(.c
2102 .       ie (\\n(zB-\\n(zA)>1 .Pp
2103 .       el .br
2104 .       nr zA \\n(zB
2105 .       nr zB 0
2106 .\}
2107 .el \{\
2108 .       nr zA \\n(.c
2109 .       br
2110 .\}
2111 \&\\*(sY\\*(b1\f\\n(cF\s\\n(cZ\\*(lS\c
2112 .aY
2113 .ds b1
2114 'fi
2115 ..
2116 .\" NS tL macro - .It item of list-type "tag"
2117 .de tL
2118 .\" tm in tL here is b1==\\*(b1
2119 .if \\n(tW==0 .lW
2120 .lX
2121 .nr bb \\n(w\\n(lCu+\\n(lSu
2122 .ti -\\n(bbu
2123 .ie (\w\a\\*(b1\au)>(\\n(w\\n(lCu) \{\&\\*(b1
2124 .       br
2125 .\}
2126 .el \&\\*(b1\h'|\\n(bbu'\c
2127 .if \\n(nF==1 \{\
2128 .       if n .ds pA \\*(aA
2129 .\}
2130 .nr oM \\n(oM-1
2131 .nr tP 0
2132 .\" .nr dZ \\n(dZ+1
2133 .ds b1
2134 .aY
2135 'fi
2136 ..
2137 .\" NS lW macro - resolve unknown label/tag width (if .Bl [inset | tag] only)
2138 .de lW
2139 .if !"TagwidtH"\\*(t\\n(lC" \{\
2140 .       ie \\n(tX==1 \{\
2141 .               ds t\\n(lN \\*(tX
2142 .               nr w\\n(lN \\n(\\*(tX
2143 .       \}
2144 .       el \{\
2145 .               ds t\\n(lN No
2146 .               nr w\\n(lN \\n(No
2147 .       \}
2148 .       if !"\\*(t\\n(lC"\\*(t\\n(lN" .nr tC 1
2149 .\}
2150 ..
2151 .\" NS lX macro - set up vertical spacing (if compact) and offset+indent (all)
2152 .de lX
2153 .ie \\n(tC \{\
2154 .       nr tC 0
2155 .       nr tW 0
2156 .       if \\n(v\\n(lC==0 .sp \\n(dVu
2157 .       in \\n(.iu+\\n(w\\n(lCu+\\n(o\\n(lCu+\\n(lSu
2158 .\}
2159 .el \{\
2160 .       ie \\n(v\\n(lC==1 \{\
2161 .              nr aa 0
2162 .       \}
2163 .       el \{\
2164 .               sp \\n(dVu
2165 .       \}
2166 .\}
2167 .if !\\n(cR .ne 2v
2168 ..
2169 .\" NS lY macro - set up vertical spacing (if compact) and offset+indent (all)
2170 .de lY
2171 .ie \\n(tC \{\
2172 .       nr tC 0
2173 .       nr tW 0
2174 .       if \\n(v\\n(lC==0 .sp \\n(dVu
2175 .       in \\n(.iu+\\n(o\\n(lCu
2176 .\}
2177 .el \{\
2178 .       ie \\n(v\\n(lC==1 \{\
2179 .              nr aa 0
2180 .       \}
2181 .       el \{\
2182 .               sp \\n(dVu
2183 .       \}
2184 .\}
2185 .if !\\n(cR .ne 2v
2186 ..
2187 .\" NS tS temporary string
2188 .\" NS hL macro - hanging list function
2189 .\" NS tS temporary string
2190 .\" NS hL macro - hanging list function
2191 .\" NS lT macro - tagged list function
2192 .\" NS lE macro - list end function
2193 .\" NS tX string (initial string)
2194 .\" NS tX register (initial class)
2195 .\" NS tC parameter change flag
2196 .\" NS Xt save current list-type flag
2197 .\" NS lC register - list type stack counter
2198 .\" NS tP register tag flag (for diversions)
2199 .\" NS w[0-9] register tag stack (nested tags)
2200 .\" NS t[0-9] register tag string stack (nested tags)
2201 .\" NS o[0-9] register offset stack (nested tags)
2202 .\" NS v[0-9] register vertical tag break stack
2203 .\" NS h[0-9] register horizontal tag stack (continuous if 1, break if 0)
2204 .nr lC 0
2205 .nr wV 0
2206 .nr w1 0
2207 .nr o1 0
2208 .nr v1 0
2209 .nr h1 0
2210 .ds t\n(lC
2211 .de lE
2212 .\" IN lC o[\\n(lC]==\\n(o\\n(lC, w[\\n(lC]==\\n(w\\n(lC,
2213 .ie \\n(o\\n(lC>0 \{\
2214 '       in \\n(.iu-(\\n(w\\n(lCu)-(\\n(o\\n(lCu)-\\n(lSu
2215 .       rr o\\n(lC
2216 .\}
2217 .el 'in \\n(.iu-\\n(w\\n(lCu-\\n(lSu
2218 .if \\n(lC<=0 .tm Extraneous .El call (#\\n(.c)
2219 .tZ
2220 .nr lC \\n(lC-1
2221 .tY
2222 ..
2223 .\" NS tY macro - set up next block for list
2224 .\" NS tZ macro - decrement stack
2225 .\" NS tY register (next possible lC value)
2226 .de tY
2227 .nr tY (\\n(lC+1)
2228 .nr w\\n(tY 0
2229 .nr h\\n(tY 0
2230 .nr o\\n(tY 0
2231 .ds t\\n(tY \\*(t\\n(lC
2232 .ds L\\n(tY
2233 .nr v\\n(tY 0
2234 ..
2235 .de tZ
2236 .rm L\\n(tY
2237 .rr w\\n(tY
2238 .rr h\\n(tY
2239 .rr o\\n(tY
2240 .rm t\\n(tY
2241 .rr v\\n(tY
2242 .nr tY \\n(tY-1
2243 ..
2244 .\" initial values
2245 .nr w1 0
2246 .nr o1 0
2247 .nr h1 0
2248 .ds t1
2249 .nr v1 0
2250 .nr tY 1
2251 .\" NS Xr macro - cross reference (man page only)
2252 .de Xr
2253 .if \\n(aC==0 \{\
2254 .       ie \\n(.$==0 .tm Usage: .Xr manpage_name [section#] \\*(Pu (#\\n(.c)
2255 .       el \{\
2256 .               ds mN Xr
2257 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2258 .       \}
2259 .\}
2260 .if \\n(aC>\\n(aP \{\
2261 .       nr aP \\n(aP+1
2262 .       ie \\n(C\\n(aP==1 .tm Usage: .Xr manpage_name [section#] \\*(Pu (#\\n(.c)
2263 .       el \{\
2264 .               ie \\n(C\\n(aP>2 .y\\n(C\\n(aP
2265 .               el \{\
2266 .                       as b1 \&\\*(xR\\*(A\\n(aP\fP\s0
2267 .                       if \\n(aC>\\n(aP \{\
2268 .                               nr aP \\n(aP+1
2269 .                               if \\n(C\\n(aP==2 \{\
2270 .                                       as b1 \&(\\*(A\\n(aP)
2271 .                                       nr aP \\n(aP+1
2272 .                               \}
2273 .                               if \\n(aC>=\\n(aP \{\
2274 .                                       c\\n(C\\n(aP
2275 .                               \}
2276 .                       \}
2277 .               \}
2278 .               aZ
2279 .       \}
2280 .\}
2281 ..
2282 .\" NS Sx macro - cross section reference
2283 .de Sx
2284 .if \\n(aC==0 \{\
2285 .       ie \\n(.$==0 .tm Sx Usage: .Sx Section Header \\*(Pu (#\\n(.c)
2286 .       el \{\
2287 .               ds mN Sx
2288 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2289 .       \}
2290 .\}
2291 .\}
2292 .if \\n(aC>\\n(aP \{\
2293 .       nr aP \\n(aP+1
2294 .       as b1 \\*(sX
2295 .       nr cF \\n(.f
2296 .       nr cZ \\n(.s
2297 .       nR
2298 .\}
2299 ..
2300 .\" NS cC macro - column-list end-list
2301 .\" NS eW macro - column indent width
2302 .\" NS cI register - column indent width
2303 .\" NS W[1-5] macro - establish tabs for list-type column
2304 .de cC
2305 'in \\n(.iu-\\n(o\\n(lCu-\\n(w\\n(lCu
2306 .ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i
2307 .fi
2308 .tZ
2309 .nr lC \\n(lC-1
2310 .tY
2311 ..
2312 .de W1
2313 .ta \w\a\\*(A1    \au
2314 .nr eW \w\a\\*(A1    \au
2315 'in \\n(.iu+\\n(eWu+\\n(o\\n(lCu
2316 ..
2317 .de W2
2318 .ta \w\a\\*(A1    \au +\w\a\\*(A2    \au
2319 .nr eW \w\a\\*(A1    \au+\w\a\\*(A2    \au
2320 'in \\n(.iu+\\n(eWu+\\n(o\\n(lCu
2321 ..
2322 .de W3
2323 .ta \w\a\\*(A1    \au +\w\a\\*(A2    \au +\w\a\\*(A3    \au
2324 .nr eW \w\a\\*(A1    \au+\w\a\\*(A2    \au+\w\a\\*(A3    \au
2325 'in \\n(.iu+\\n(eWu+\\n(o\\n(lCu
2326 ..
2327 .de W4
2328 .ta \w\a\\*(A1    \au +\w\a\\*(A2    \au +\w\a\\*(A3    \au +\w\a\\*(A4    \au
2329 .nr eW \w\a\\*(A1    \au+\w\a\\*(A2    \au +\w\a\\*(A3    \au +\w\a\\*(A4    \au
2330 'in \\n(.iu+\\n(eWu+\\n(o\\n(lCu
2331 ..
2332 .de W5
2333 .ta \w\a\\*(A1   \au +\w\a\\*(A2   \au +\w\a\\*(A3   \au +\w\a\\*(A4   \au +\w\a\\*(A5   \au
2334 .nr eW \w\a\\*(A1   \au +\w\a\\*(A2   \au +\w\a\\*(A3   \au +\w\a\\*(A4   \au +\w\a\\*(A5   \au
2335 '       in \\n(.iu+\\n(eWu+\\n(o\\n(lCu
2336 ..
2337 .\" This is packed abnormally close, intercol width should be an option
2338 .de W6
2339 .ta \w\a\\*(A1 \au +\w\a\\*(A2 \au +\w\a\\*(A3 \au +\w\a\\*(A4 \au +\w\a\\*(A5 \au +\w\a\\*(A6
2340 .nr eW \w\a\\*(A1 \au +\w\a\\*(A2 \au +\w\a\\*(A3 \au +\w\a\\*(A4 \au +\w\a\\*(A5 \au +\w\a\\*(A6
2341 '       in \\n(.iu+\\n(eWu+\\n(o\\n(lCu
2342 ..
2343 .\" NS cL macro - column items
2344 .de cL
2345 .if \\n(w\\n(lC==0 .nr w\\n(lC \\n(eWu
2346 .if \\n(.u==0 \{\
2347 .       fi
2348 '       in \\n(.iu+\\n(eWu
2349 .\}
2350 .ti -\\n(eWu
2351 .fV
2352 .nr aP \\n(aP+1
2353 .ie \\n(aC>=\\n(aP  \{\
2354 .       if "\\*(A\\n(aP"Ta" \{\
2355 .               nr jJ \\n(aP-1
2356 .               rm S\\n(jJ
2357 .               rr jJ
2358 .       \}
2359 .       c\\n(C\\n(aP
2360 .\}
2361 .el .tm Usage: .It column_string [Ta [column_string ...] ] (#\\n(.c)
2362 ..
2363 .\" NS Ta macro - append tab (\t)
2364 .de Ta
2365 .ie \\n(aC>0 \{\
2366 .       nr aP \\n(aP+1
2367 .       ie \\n(aC>=\\n(aP \{\
2368 .               if "\\*(A\\n(aP"Ta" \{\
2369 .                       nr jJ \\n(aP-1
2370 .                       rm S\\n(jJ
2371 .                       rr jJ
2372 .               \}
2373 .               as b1 \\t
2374 .               c\\n(C\\n(aP
2375 .       \}
2376 .       el \{\
2377 .               as b1 \\t\\c
2378 .               rm S\\n(aP
2379 .               pB
2380 .               aY
2381 .\" .           ds b1
2382 .       \}
2383 .\}
2384 .el \{\
2385 .       tm Usage: Ta must follow column entry: e.g. (#\\n(.c)
2386 .       tm .It column_string [Ta [column_string ...] ]
2387 .\}
2388 ..
2389 .\"
2390 .\" NS Dl macro - display (one line) literal
2391 .de Dl
2392 'ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i
2393 .in \\n(.iu+\\n(Dsu
2394 .ie \\n(aC==0 \{\
2395 .       ie \\n(.$==0 \{\
2396 .               tm Usage: .Dl argument ... (#\\n(.c)
2397 .       \}
2398 .       el \{\
2399 .               ds mN Dl
2400 .               ds A1 \\$1
2401 .               ds A2 \\$2
2402 .               ds A3 \\$3
2403 .               ds A4 \\$4
2404 .               ds A5 \\$5
2405 .               ds A6 \\$6
2406 .               ds A7 \\$7
2407 .               ds A8 \\$8
2408 .               ds A9 \\$9
2409 .               nr fV \\n(.$
2410 .               fV
2411 .               Li
2412 .       \}
2413 .\}
2414 .el \{\
2415 .       tm Usage: .Dl not callable by other macros (#\\n(.c)
2416 .\}
2417 .in \\n(.iu-\\n(Dsu
2418 ..
2419 .\"
2420 .\" NS D1 macro - display (one line)
2421 .de D1
2422 'ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i
2423 .in \\n(.iu+\\n(Dsu
2424 .ie \\n(aC==0 \{\
2425 .       ie \\n(.$==0 \{\
2426 .               tm Usage: .D1 argument ... (#\\n(.c)
2427 .       \}
2428 .       el \{\
2429 .               ds mN D1
2430 .               ds A1 \\$1
2431 .               ds A2 \\$2
2432 .               ds A3 \\$3
2433 .               ds A4 \\$4
2434 .               ds A5 \\$5
2435 .               ds A6 \\$6
2436 .               ds A7 \\$7
2437 .               ds A8 \\$8
2438 .               ds A9 \\$9
2439 .               nr fV \\n(.$
2440 .               fV
2441 .               nr aP \\n(aP+1
2442 .               ie \\n(C\\n(aP==1 .\\*(A\\n(aP
2443 .               el .No
2444 .       \}
2445 .\}
2446 .el \{\
2447 .       tm Usage: .D1 not callable by other macros (#\\n(.c)
2448 .\}
2449 .in \\n(.iu-\\n(Dsu
2450 ..
2451 .\" NS Ex macro - DEFUNCT
2452 .de Ex
2453 .tm Ex defunct, Use .D1: \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2454 ..
2455 .\"
2456 .\" NS Ex macro - DEFUNCT
2457 .de Ex
2458 .tm Ex defunct, Use .D1: \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2459 ..
2460 .\"
2461 .\" NS Vt macro - Variable type (for forcing old style variable declarations)
2462 .\" this is not done in the same manner as .Ot for fortrash - clean up later
2463 .de Vt
2464 .\" if a function declaration was the last thing given, want vertical space
2465 .if \\n(fD>0 \{\
2466 .       Pp
2467 .       nr fD 0
2468 .\}
2469 .\"     if a subroutine was the last thing given, want vertical space
2470 .if \\n(fZ>0 \{\
2471 .       ie \\n(fX==0 \{\
2472 .               Pp
2473 .               rs
2474 .       \}
2475 .       el .br
2476 .\}
2477 .nr fX \\n(fX+1
2478 .nr cF \\n(.f
2479 .nr cZ \\n(.s
2480 \\*(fT\&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2481 .ie \\n(oT==0 .br
2482 .el \&\ \&
2483 .ft \\n(cF
2484 .fs \\n(cZ
2485 ..
2486 .\"
2487 .\" NS Ft macro - Function type
2488 .nr fZ 0
2489 .de Ft
2490 .if \\n(nS>0 \{\
2491 .       if \\n(fZ>0 \{\
2492 .               Pp
2493 .               nr fD 0
2494 .               nr fX 0
2495 .       \}
2496 .       if \\n(fD>0 \{\
2497 .               Pp
2498 .               nr fD 0
2499 .               nr fX 0
2500 .       \}
2501 .       if \\n(fX>0 \{\
2502 .               Pp
2503 .               nr fX 0
2504 .       \}
2505 .       nr fY 1
2506 .\}
2507 .nr cF \\n(.f
2508 .nr cZ \\n(.s
2509 \&\\*(fT\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2510 .ft \\n(cF
2511 .fs \\n(cZ
2512 .\" .br
2513 ..
2514 .\"
2515 .\" NS Ot macro - Old Function type (fortran - no newline)
2516 .\" Ns oT register
2517 .nr oT 0
2518 .de Ot
2519 .nr oT 1
2520 .if \\n(nS>0 \{\
2521 .       if \\n(fZ>0 \{\
2522 .               Pp
2523 .               nr fD 0
2524 .               nr fX 0
2525 .       \}
2526 .       if \\n(fD>0 \{\
2527 .               Pp
2528 .               nr fD 0
2529 .               nr fX 0
2530 .       \}
2531 .       if \\n(fX>0 \{\
2532 .               Pp
2533 .               nr fX 0
2534 .       \}
2535 .       nr fY 1
2536 .\}
2537 .if \\n(.$==4 .as b1 \&\\*(fT\&\\$1 \\$2 \\$3 \\$4
2538 .if \\n(.$==3 .as b1 \&\\*(fT\&\\$1 \\$2 \\$3
2539 .if \\n(.$==2 .as b1 \&\\*(fT\&\\$1 \\$2
2540 .if \\n(.$==1 .as b1 \&\\*(fT\&\\$1
2541 .as b1 \&\ \fP
2542 ..
2543 .\"
2544 .\" NS Fa macro - Function arguments
2545 .de Fa
2546 .if \\n(aC==0 \{\
2547 .       ie \\n(.$==0 .tm Usage: .Fa Function Arguments ... \\*(Pu (#\\n(.c)
2548 .       el \{\
2549 .               ds mN Fa
2550 .               ds A1 \\$1
2551 .               ds A2 \\$2
2552 .               ds A3 \\$3
2553 .               ds A4 \\$4
2554 .               ds A5 \\$5
2555 .               ds A6 \\$6
2556 .               ds A7 \\$7
2557 .               ds A8 \\$8
2558 .               ds A9 \\$9
2559 .               nr fV \\n(.$
2560 .               fV
2561 .       \}
2562 .\}
2563 .ie \\n(fC>0 \{\
2564 .       fC
2565 .\}
2566 .el \{\
2567 .       if \\n(aC>\\n(aP \{\
2568 .               as b1 \\*(fA
2569 .               nr aP \\n(aP+1
2570 .               nr cF \\n(.f
2571 .               nr cZ \\n(.s
2572 .               nR
2573 .               if \\n(nS>0 \{\
2574 .                       if \\n(fZ>0 .br
2575 .               \}
2576 .       \}
2577 .\}
2578 ..
2579 .\" NS fC macro - interal .Fa for .FO and .Fc
2580 .de fC
2581 .ie \\n(aC>\\n(aP \{\
2582 .       nr aP \\n(aP+1
2583 .\" .   nr aa \\n(aP
2584 .\" .   if \\n(nS>0 \{\
2585 .               ds Fb
2586 .               nr fB 0
2587 .               nr Fb 0
2588 .               fB \\*(A\\n(aP
2589 .               if \\n(fB>1 \{\
2590 .                       rm A\\n(aP
2591 .                       rn Fb A\\n(aP
2592 .               \}
2593 .\" .   \}
2594 .       if \\n(fC>1 \{\
2595 .               as b1 \&\f\\n(cF\s\\n(cZ,\\*(S\\n(aP\\*(fA\\*(A\\n(aP\fP\s0
2596 .\" .           as b1 \&\\,\\*(S\\n(aP\fP\s0\\*(fA\\*(A\\n(aP\fP\s0
2597 .       \}
2598 .       if \\n(fC==1 \{\
2599 .               as b1 \&\|\\*(fA\\*(A\\n(aP\fP\s0
2600 .       \}
2601 .       nr fC \\n(fC+1
2602 .       fC
2603 .\}
2604 .el  \{\
2605 .       aY
2606 .\}
2607 ..
2608 .\" NS Fn macro - functions
2609 .\" NS fY register - dick with old style function declarations (fortran)
2610 .\" NS fZ register - break a line when more than one function in a synopsis
2611 .\"
2612 .de Fn
2613 .if \\n(aC==0 \{\
2614 .       ie \\n(.$==0 .tm Usage: .Fn function_name function_arg(s) ... \\*(Pu (#\\n(.c)
2615 .       el \{\
2616 .               ds mN Fn
2617 .               ds A1 \\$1
2618 .               ds A2 \\$2
2619 .               ds A3 \\$3
2620 .               ds A4 \\$4
2621 .               ds A5 \\$5
2622 .               ds A6 \\$6
2623 .               ds A7 \\$7
2624 .               ds A8 \\$8
2625 .               ds A9 \\$9
2626 .               nr fV \\n(.$
2627 .               fV
2628 .       \}
2629 .\}
2630 .if \\n(nS>0 \{\
2631 .\" if there is/has been more than one subroutine declaration
2632 .       if \\n(fY==0 \{\
2633 .               if \\n(fZ>0 \{\
2634 .                       Pp
2635 .                       nr fX 0
2636 .                       nr fD 0
2637 .               \}
2638 .       \}
2639 .       if \\n(fY==1 \{\
2640 .               br
2641 .               nr fX 0
2642 .               nr fD 0
2643 .               nr fY 0
2644 .       \}
2645 .       if \\n(fD>0 \{\
2646 .               Pp
2647 .               nr fX 0
2648 .       \}
2649 .       if \\n(fX>0 \{\
2650 .               Pp
2651 .               nr fD 0
2652 .       \}
2653 .       nr fZ \\n(fZ+1
2654 .       nr fY 0
2655 .       rs
2656 .       ie \\n(nS>1 .br
2657 .       el \{\
2658 .               if \\n(iS==0 \{\
2659 .                       nr iS ((8)*\\n(fW)u
2660 .               \}
2661 .       \}
2662 .       in +\\n(iSu
2663 .       ti -\\n(iSu
2664 .       nr nS \\n(nS+1
2665 .\}
2666 .if \\n(aC>\\n(aP \{\
2667 .       nr aP \\n(aP+1
2668 .       nr cF \\n(.f
2669 .       nr cZ \\n(.s
2670 .       as b1 \\*(fN\\*(A\\n(aP\fP\s0\\*(lp
2671 .       ie \\n(aC>\\n(aP \{\
2672 .               as b1 \\*(fA
2673 .               nr aP \\n(aP+1
2674 .               f\\n(C\\n(aP
2675 .       \}
2676 .       el \{\
2677 .               as b1 \|\\*(rp
2678 .               aZ
2679 .       \}
2680 .       if \\n(nS>0 \{\
2681 .               in -\\n(iSu
2682 .       \}
2683 .\}
2684 ..
2685 .\"
2686 .\" NS f1 macro - class switch
2687 .\" NS f2 macro - handle function arguments
2688 .\" NS f3 macro - punctuation
2689 .\" NS f4 macro - write out function
2690 .de f1
2691 .as b1 \\*(rp\f\\n(cF\s\\n(cZ
2692 .\\*(A\\n(aP
2693 ..
2694 .de f2
2695 .if \\n(nS>0 \{\
2696 .       ds Fb
2697 .       nr fB 0
2698 .       nr Fb 0
2699 .       fB \\*(A\\n(aP
2700 .       if \\n(fB>1 \{\
2701 .               rm A\\n(aP
2702 .               rn Fb A\\n(aP
2703 .       \}
2704 .\}
2705 .as b1 \\*(A\\n(aP
2706 .ie \\n(aC>\\n(aP \{\
2707 .       nr aa \\n(aP
2708 .       nr aP \\n(aP+1
2709 .       if \\n(C\\n(aP==2 \{\
2710 .               as b1 \&\|\f\\n(cF\s\\n(cZ,\\*(S\\n(aa\fP\s0\|
2711 .       \}
2712 .       f\\n(C\\n(aP
2713 .\}
2714 .el  \{\
2715 .       as b1 \\*(rp\f\\n(cF\s\\n(cZ
2716 .       aZ
2717 .\}
2718 ..
2719 .de f3
2720 .as b1 \\*(rp\f\\n(cF\s\\n(cZ\\*(A\\n(aP
2721 .ie \\n(aC>\\n(aP \{\
2722 .       No
2723 .\}
2724 .el .aZ
2725 ..
2726 .de f4
2727 .as b1 \\*(rp\f\\n(cF\s\\n(cZ\\*(S\\n(aP\\*(A\\n(aP
2728 .ie \\n(aC>\\n(aP \{\
2729 .       nr aP \\n(aP+1
2730 .       No
2731 .\}
2732 .el .aZ
2733 ..
2734 .de Fo
2735 .hy 0
2736 .if \\n(aC==0 \{\
2737 .       ie \\n(.$==0 .tm Usage: .Fo function_name
2738 .       el \{\
2739 .               ds mN Fo
2740 .               ds A1 \\$1
2741 .               ds A2 \\$2
2742 .               ds A3 \\$3
2743 .               ds A4 \\$4
2744 .               ds A5 \\$5
2745 .               ds A6 \\$6
2746 .               ds A7 \\$7
2747 .               ds A8 \\$8
2748 .               ds A9 \\$9
2749 .               nr fV \\n(.$
2750 .               fV
2751 .       \}
2752 .\}
2753 .if \\n(nS>0 \{\
2754 .\" if there is/has been more than one subroutine declaration
2755 .       if \\n(fY==0 \{\
2756 .               if \\n(fZ>0 \{\
2757 .                       Pp
2758 .                       nr fX 0
2759 .                       nr fD 0
2760 .               \}
2761 .       \}
2762 .       if \\n(fY==1 \{\
2763 .               br
2764 .               nr fX 0
2765 .               nr fD 0
2766 .               nr fY 0
2767 .       \}
2768 .       if \\n(fD>0 \{\
2769 .               Pp
2770 .               nr fX 0
2771 .       \}
2772 .       if \\n(fX>0 \{\
2773 .               Pp
2774 .               nr fD 0
2775 .       \}
2776 .       nr fZ \\n(fZ+1
2777 .       nr fY 0
2778 .       rs
2779 .       ie \\n(nS>1 .br
2780 .       el \{\
2781 .               if \\n(iS==0 \{\
2782 .                       nr iS ((8)*\\n(fW)u
2783 .               \}
2784 .       \}
2785 .       in +\\n(iSu
2786 .       ti -\\n(iSu
2787 .       nr nS \\n(nS+1
2788 .\}
2789 .if \\n(aC>\\n(aP \{\
2790 .       nr oM \\n(oM+1
2791 .       nr fC 1
2792 .       nr aP \\n(aP+1
2793 .       nr cF \\n(.f
2794 .       nr cZ \\n(.s
2795 .       as b1 \\*(fN\\*(A\\n(aP\fP\s0\\*(lp
2796 .       aY
2797 .\}
2798 ..
2799 .de Fc
2800 .if \\n(aC==0 \{\
2801 .       if \\n(.$>0 \{\
2802 .               ds mN Fo
2803 .               ds A1 \\$1
2804 .               ds A2 \\$2
2805 .               ds A3 \\$3
2806 .               ds A4 \\$4
2807 .               ds A5 \\$5
2808 .               ds A6 \\$6
2809 .               ds A7 \\$7
2810 .               ds A8 \\$8
2811 .               ds A9 \\$9
2812 .               nr fV \\n(.$
2813 .               fV
2814 .       \}
2815 .\}
2816 .nr fC 0
2817 .nr oM \\n(oM-1
2818 .as b1 \|\\*(rp
2819 .ie \\n(aC>\\n(aP \{\
2820 .       nr aP \\n(aP+1
2821 .       \\*(A\\n(aP
2822 .\}
2823 .el \{\
2824 .       aZ
2825 .\}
2826 .if \\n(nS>0 \{\
2827 .       in -\\n(iSu
2828 .\}
2829 .hy
2830 ..
2831 .\" NS fb macro - if SYNOPSIS, set hard space inbetween function args
2832 .\" NS fb register - count of words in a function argument
2833 .\" NS Fb register - counter
2834 .\" NS Fb string - temporary string
2835 .de fB
2836 .\" .tm fB==\\n(fB, Fb==\\n(Fb, 1==\\$1 2==\\$2 3==\\$3 4==\\$4 5==\\$5 6==\\$6
2837 .if \\n(fB==0 \{\
2838 .       nr fB \\n(.$
2839 .       nr Fb 0
2840 .       ds Fb
2841 .\}
2842 .nr Fb \\n(Fb+1
2843 .as Fb \&\\$1
2844 .if \\n(Fb<\\n(fB \{\
2845 .       as Fb \&\\*(hV
2846 .       fB \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2847 .\}
2848 ..
2849 .\" NS Fc - Function close - not implemented yet
2850 .\" NS Fo - Function open - not implemented yet
2851 .\"
2852 .\" Very crude references, stash all reference info into strings (usual
2853 .\" use of b1 buffer, then b1 contents copied to string of retrievable
2854 .\" naming convention), print out reference on .Re request and clean up.
2855 .\" Ordering very limited, no fancy citations, but can do articles, journals
2856 .\" and books - need to add several missing options (like city etc).
2857 .\" should be able to grab a refer entry, massage it a wee bit (prefix
2858 .\" a `.' to the %[A-Z]) and not worry (ha!)
2859 .\"
2860 .\" NS Rs macro - Reference Start
2861 .\" NS rS register - Reference Start flag
2862 .\" NS rS string - Reference Start buffer name for next save (of b1 buffer)
2863 .de Rs
2864 .nr rS 1
2865 .rC
2866 .if \\n(nA==1 .Pp
2867 .nr Kl 0
2868 ..
2869 .\" NS Re macro - Reference End
2870 .de Re
2871 .rZ
2872 .rC
2873 .nr rS 0
2874 ..
2875 .\" NS rC macro - reference cleanup
2876 .de rC
2877 .nr uK 0
2878 .nr jK 0
2879 .nr nK 0
2880 .nr oK 0
2881 .nr qK 0
2882 .nr rK 0
2883 .nr tK 0
2884 .nr vK 0
2885 .nr dK 0
2886 .nr pK 0
2887 .nr bK 0
2888 .ds rS
2889 .rm U1 U2 U3 U4 U5 U6 U7 U8
2890 .rm uK jK nK oK rK qK tK vK dK pK bK
2891 ..
2892 .\" NS rZ macro - reference print
2893 .de rZ
2894 .if \\n(uK \{\&\\*(U1,
2895 .       nr aK 1
2896 .       if (\\n(uK>1 \{\
2897 .               aK
2898 .       \}
2899 .       nr Kl -\\n(uK
2900 .\}
2901 .if \\n(tK \{\
2902 .       nr Kl \\n(Kl-1
2903 .       if \\n(Kl==0 \{\
2904 .               ie (\\n(jK==1):(\\n(bK==1) \{\&\\*q\\*(tK\\*q.
2905 .               \}
2906 .               el \{\&\\*(eM\\*(tK\\*(nO.
2907 .               \}
2908 .       \}
2909 .       if \\n(Kl>0 \{\
2910 .               ie (\\n(jK==1):(\\n(bK==1) \{\&\\*q\\*(tK\\*q,
2911 .               \}
2912 .               el \{\&\\*(eM\\*(tK\\*(nO,
2913 .               \}
2914 .       \}
2915 .\}
2916 .if \\n(bK \{\
2917 .       nr Kl \\n(Kl-1
2918 .       if \\n(Kl==0 \&\\*(eM\\*(bK\\*(nO.
2919 .       if \\n(Kl>0 \&\\*(eM\\*(bK\\*(nO,
2920 .\}
2921 .if \\n(jK \{\
2922 .       nr Kl \\n(Kl-1
2923 .       if \\n(Kl==0 \&\\*(eM\\*(jK\\*(nO.
2924 .       if \\n(Kl>0 \&\\*(eM\\*(jK\\*(nO,
2925 .\}
2926 .if \\n(rK \{\
2927 .       nr Kl \\n(Kl-1
2928 .       if \\n(Kl==0 \&\\*(rK.
2929 .       if \\n(Kl>0 \&\\*(rK,
2930 .\}
2931 .if \\n(nK \{\
2932 .       nr Kl \\n(Kl-1
2933 .       if \\n(Kl==0 \&\\*(nK.
2934 .       if \\n(Kl>0 \&\\*(nK,
2935 .\}
2936 .if \\n(vK \{\
2937 .       nr Kl \\n(Kl-1
2938 .       if \\n(Kl==0 \&\\*(vK.
2939 .       if \\n(Kl>0 \&\\*(vK,
2940 .\}
2941 .if \\n(pK \{\
2942 .       nr Kl \\n(Kl-1
2943 .       if \\n(Kl==0 \&\\*(pK.
2944 .       if \\n(Kl>0 \&\\*(pK,
2945 .\}
2946 .if \\n(qK \{\
2947 .       nr Kl \\n(Kl-1
2948 .       if \\n(Kl==0 \&\\*(qK.
2949 .       if \\n(Kl>0 \&\\*(qK,
2950 .\}
2951 .if \\n(dK \{\
2952 .       nr Kl \\n(Kl-1
2953 .       if \\n(Kl==0 \&\\*(dK.
2954 .       if \\n(Kl>0 \&\\*(dK,
2955 .\}
2956 .if \\n(oK \{\
2957 .       nr Kl \\n(Kl-1
2958 .       if \\n(Kl==0 \&\\*(oK.
2959 .       if \\n(Kl>0 \&\\*(oK,
2960 .\}
2961 .if \\n(Kl>0 .tm unresolved reference problem
2962 ..
2963 .\" NS aK macro - print out reference authors
2964 .de aK
2965 .nr aK \\n(aK+1
2966 .ie (\\n(uK-\\n(aK)==0 \{\&and \\*(U\\n(aK,
2967 .\}
2968 .el \{\&\\*(U\\n(aK,
2969 .       aK
2970 .\}
2971 ..
2972 .\" NS %A macro - reference author(s)
2973 .\" NS uK register - reference author(s) counter
2974 .\" NS U[1-9] strings - reference author(s) names
2975 .de %A
2976 .if \\n(aC==0 \{\
2977 .       ie \\n(.$==0 .tm Usage: .%A Author_name (#\\n(.c)
2978 .       el \{\
2979 .               nr uK \\n(uK+1
2980 .               nr Kl \\n(Kl+1
2981 .               ds rS U\\n(uK
2982 .               ds mN %A
2983 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
2984 .       \}
2985 .\}
2986 .if \\n(aC>\\n(aP \{\
2987 .       nr aP \\n(aP+1
2988 .       nr cF \\n(.f
2989 .       nr cZ \\n(.s
2990 .       rR
2991 .\}
2992 ..
2993 .\" NS %B macro - [reference] Book Name
2994 .\" NS bK string - Book Name
2995 .\" NS bK register - Book Name flag
2996 .de %B
2997 .if \\n(aC==0 \{\
2998 .       ie \\n(.$==0 .tm Usage: .%B Book Name (#\\n(.c)
2999 .       el \{\
3000 .               ds mN %B
3001 .               if \\n(rS>0 \{\
3002 .                       nr bK \\n(bK+1
3003 .                       nr Kl \\n(Kl+1
3004 .                       ds rS bK
3005 .               \}
3006 .               ds A1 \\$1
3007 .               ds A2 \\$2
3008 .               ds A3 \\$3
3009 .               ds A4 \\$4
3010 .               ds A5 \\$5
3011 .               ds A6 \\$6
3012 .               ds A7 \\$7
3013 .               ds A8 \\$8
3014 .               ds A9 \\$9
3015 .               nr fV \\n(.$
3016 .               fV
3017 .       \}
3018 .\}
3019 .if \\n(aC>\\n(aP \{\
3020 .       nr aP \\n(aP+1
3021 .       nr cF \\n(.f
3022 .       nr cZ \\n(.s
3023 .       ie \\n(rS==0 \{\
3024 .               as b1 \&\\*(eM
3025 .               nR
3026 .       \}
3027 .       el .rR
3028 .\}
3029 ..
3030 .\" NS %D macro - [reference] Date
3031 .\" NS dK string - Date String
3032 .\" NS dK register - Date flag
3033 .de %D
3034 .if \\n(aC==0 \{\
3035 .       ie \\n(.$==0 .tm Usage: .%D Date (#\\n(.c)
3036 .       el \{\
3037 .               ds mN %D
3038 .               nr dK \\n(dK+1
3039 .               nr Kl \\n(Kl+1
3040 .               ds rS dK
3041 .               ds A1 \\$1
3042 .               ds A2 \\$2
3043 .               ds A3 \\$3
3044 .               ds A4 \\$4
3045 .               ds A5 \\$5
3046 .               ds A6 \\$6
3047 .               ds A7 \\$7
3048 .               ds A8 \\$8
3049 .               ds A9 \\$9
3050 .               nr fV \\n(.$
3051 .               fV
3052 .       \}
3053 .\}
3054 .if \\n(aC>\\n(aP \{\
3055 .       nr aP \\n(aP+1
3056 .       nr cF \\n(.f
3057 .       nr cZ \\n(.s
3058 .       rR
3059 .\}
3060 ..
3061 .\" NS %J macro - [reference] Journal Name
3062 .\" NS jK register - [reference] Journal Name flag
3063 .\" NS jK string - [reference] Journal Name
3064 .de %J
3065 .if \\n(aC==0 \{\
3066 .       ie \\n(.$==0 .tm Usage: .%J Journal Name (#\\n(.c)
3067 .       el \{\
3068 .               ds mN %J
3069 .               nr jK \\n(jK+1
3070 .               ds rS jK
3071 .               nr Kl \\n(Kl+1
3072 .               ds A1 \\$1
3073 .               ds A2 \\$2
3074 .               ds A3 \\$3
3075 .               ds A4 \\$4
3076 .               ds A5 \\$5
3077 .               ds A6 \\$6
3078 .               ds A7 \\$7
3079 .               ds A8 \\$8
3080 .               ds A9 \\$9
3081 .               nr fV \\n(.$
3082 .               fV
3083 .       \}
3084 .\}
3085 .if \\n(aC>\\n(aP \{\
3086 .       nr aP \\n(aP+1
3087 .       nr cF \\n(.f
3088 .       nr cZ \\n(.s
3089 .       rR
3090 .\}
3091 ..
3092 .\" NS %N macro - [reference] issue number
3093 .\" NS nK register - [reference] issue number flag
3094 .\" NS nK string - [reference] issue number
3095 .de %N
3096 .if \\n(aC==0 \{\
3097 .       ie \\n(.$==0 .tm Usage: .%N issue number (#\\n(.c)
3098 .       el \{\
3099 .               nr nK \\n(nK+1
3100 .               nr Kl \\n(Kl+1
3101 .               ds rS nK
3102 .               ds mN %N
3103 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
3104 .       \}
3105 .\}
3106 .if \\n(aC>\\n(aP \{\
3107 .       nr aP \\n(aP+1
3108 .       nr cF \\n(.f
3109 .       nr cZ \\n(.s
3110 .       rR
3111 .\}
3112 ..
3113 .\" NS %O macro - [reference] optional information
3114 .\" NS oK register - [reference] optional information flag
3115 .\" NS oK string - [reference] optional information
3116 .de %O
3117 .if \\n(aC==0 \{\
3118 .       ie \\n(.$==0 .tm Usage: .%O optional information ... \\*(Pu (#\\n(.c)
3119 .       el \{\
3120 .               ds mN %O
3121 .               nr oK \\n(oK+1
3122 .               nr Kl \\n(Kl+1
3123 .               ds rS oK
3124 .               ds A1 \\$1
3125 .               ds A2 \\$2
3126 .               ds A3 \\$3
3127 .               ds A4 \\$4
3128 .               ds A5 \\$5
3129 .               ds A6 \\$6
3130 .               ds A7 \\$7
3131 .               ds A8 \\$8
3132 .               ds A9 \\$9
3133 .               nr fV \\n(.$
3134 .               fV
3135 .       \}
3136 .\}
3137 .if \\n(aC>\\n(aP \{\
3138 .       nr aP \\n(aP+1
3139 .       nr cF \\n(.f
3140 .       nr cZ \\n(.s
3141 .       rR
3142 .\}
3143 ..
3144 .\" NS %P macro - [reference] page numbers
3145 .\" NS pK register - [reference] page number flag
3146 .\" NS pK string - [reference] page number
3147 .de %P
3148 .if \\n(aC==0 \{\
3149 .       ie \\n(.$==0 .tm Usage: .%P page numbers ... \\*(Pu (#\\n(.c)
3150 .       el \{\
3151 .               ds mN %P
3152 .               nr pK \\n(pK+1
3153 .               nr Kl \\n(Kl+1
3154 .               ds rS pK
3155 .               ds A1 \\$1
3156 .               ds A2 \\$2
3157 .               ds A3 \\$3
3158 .               ds A4 \\$4
3159 .               ds A5 \\$5
3160 .               ds A6 \\$6
3161 .               ds A7 \\$7
3162 .               ds A8 \\$8
3163 .               ds A9 \\$9
3164 .               nr fV \\n(.$
3165 .               fV
3166 .       \}
3167 .\}
3168 .if \\n(aC>\\n(aP \{\
3169 .       nr aP \\n(aP+1
3170 .       nr cF \\n(.f
3171 .       nr cZ \\n(.s
3172 .       rR
3173 .\}
3174 ..
3175 .\" NS %Q macro - Corporate or Foreign Author
3176 .\" NS qK string - Corporate or Foreign Author
3177 .\" NS qK register - Corporate or Foreign Author flag
3178 .de %Q
3179 .if \\n(aC==0 \{\
3180 .       ie \\n(.$==0 .tm Usage: .%Q Corporate or Foreign Author (#\\n(.c)
3181 .       el \{\
3182 .               ds mN %Q
3183 .               nr qK \\n(qK+1
3184 .               nr Kl \\n(Kl+1
3185 .               ds rS qK
3186 .               ds A1 \\$1
3187 .               ds A2 \\$2
3188 .               ds A3 \\$3
3189 .               ds A4 \\$4
3190 .               ds A5 \\$5
3191 .               ds A6 \\$6
3192 .               ds A7 \\$7
3193 .               ds A8 \\$8
3194 .               ds A9 \\$9
3195 .               nr fV \\n(.$
3196 .               fV
3197 .       \}
3198 .\}
3199 .if \\n(aC>\\n(aP \{\
3200 .       nr aP \\n(aP+1
3201 .       nr cF \\n(.f
3202 .       nr cZ \\n(.s
3203 .       rR
3204 .\}
3205 ..
3206 .\" NS %R macro - [reference] report name
3207 .\" NS rK string - [reference] report name
3208 .\" NS rK register - [reference] report flag
3209 .de %R
3210 .if \\n(aC==0 \{\
3211 .       ie \\n(.$==0 .tm Usage: .%R reference report (#\\n(.c)
3212 .       el \{\
3213 .               ds mN %R
3214 .               nr rK \\n(rK+1
3215 .               nr Kl \\n(Kl+1
3216 .               ds rS rK
3217 .               ds A1 \\$1
3218 .               ds A2 \\$2
3219 .               ds A3 \\$3
3220 .               ds A4 \\$4
3221 .               ds A5 \\$5
3222 .               ds A6 \\$6
3223 .               ds A7 \\$7
3224 .               ds A8 \\$8
3225 .               ds A9 \\$9
3226 .               nr fV \\n(.$
3227 .               fV
3228 .       \}
3229 .\}
3230 .if \\n(aC>\\n(aP \{\
3231 .       nr aP \\n(aP+1
3232 .       nr cF \\n(.f
3233 .       nr cZ \\n(.s
3234 .       rR
3235 .\}
3236 ..
3237 .\" NS %T macro - reference title
3238 .\" NS tK string - reference title
3239 .\" NS tK register - reference title flag
3240 .de %T
3241 .if \\n(aC==0 \{\
3242 .       ie \\n(.$==0 .tm Usage: .%T (#\\n(.c)
3243 .       el \{\
3244 .               ds mN %T
3245 .               if \\n(rS>0 \{\
3246 .                       nr tK \\n(tK+1
3247 .                       nr Kl \\n(Kl+1
3248 .                       ds rS tK
3249 .               \}
3250 .               ds A1 \\$1
3251 .               ds A2 \\$2
3252 .               ds A3 \\$3
3253 .               ds A4 \\$4
3254 .               ds A5 \\$5
3255 .               ds A6 \\$6
3256 .               ds A7 \\$7
3257 .               ds A8 \\$8
3258 .               ds A9 \\$9
3259 .               nr fV \\n(.$
3260 .               fV
3261 .       \}
3262 .\}
3263 .if \\n(aC>\\n(aP \{\
3264 .\" .   ie \\n(jS==1 \{\
3265 .\" .           nr cF \\n(.f
3266 .\" .           nr cZ \\n(.s
3267 .\" .           ds qL \&\\*(Lq\\*(rA
3268 .\" .           ds qR \&\\*(Rq\f\\n(cF\s\\n(cZ
3269 .\" .           En \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
3270 .\" .   \}
3271 .\" .   el \{\
3272 .               nr aP \\n(aP+1
3273 .               nr cF \\n(.f
3274 .               nr cZ \\n(.s
3275 .               ie \\n(rS==0 \{\
3276 .                       as b1 \&\\*(eM
3277 .                       nR
3278 .               \}
3279 .               el .rR
3280 .\" .   \}
3281 .\}
3282 ..
3283 .\" NS %V macro - reference volume
3284 .\" NS vK string - reference volume
3285 .\" NS vK register - reference volume flag
3286 .de %V
3287 .if \\n(aC==0 \{\
3288 .       ie \\n(.$==0 .tm Usage: .%V Volume , ... \\*(Pu (#\\n(.c)
3289 .       el \{\
3290 .               ds mN %V
3291 .               nr vK \\n(vK+1
3292 .               nr Kl \\n(Kl+1
3293 .               ds rS vK
3294 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
3295 .       \}
3296 .\}
3297 .if \\n(aC>\\n(aP \{\
3298 .       nr aP \\n(aP+1
3299 .       nr cF \\n(.f
3300 .       nr cZ \\n(.s
3301 .       rR
3302 .\}
3303 ..
3304 .\" NS rR macro - reference recursion routine
3305 .\" NS jM local register
3306 .\" NS jN local register
3307 .de rR
3308 .hy 0
3309 .nr jM \\n(C\\n(aP
3310 .ie \\n(jM==1 \{\
3311 .\" .   as b1 \&\f\\n(cF\s\\n(cZ
3312 .       ie "\\*(A\\n(aP"Tn" \{\
3313 .               nN
3314 .       \}
3315 .       el \{\
3316 .               if \\n(aC>8 .tm Usage: \\*(mN - maximum 8 arguments (#\\n(.c)
3317 .               aI rR 1
3318 .               \\*(A\\n(aP
3319 .       \}
3320 .\}
3321 .el \{\
3322 .       nr jN \\n(aP
3323 .       ie \\n(jM==2 .as b1 \&\\*(A\\n(aP
3324 .       el .as b1 \&\\*(A\\n(aP
3325 .\" .   el .as b1 \&\f\\n(cF\s\\n(cZ\\*(A\\n(aP\fP\s0
3326 .       ie \\n(aC==\\n(aP \{\
3327 .\" .           as b1 \&\f\\n(cF\s\\n(cZ
3328 .               rD
3329 .       \}
3330 .       el \{\
3331 .               nr aP \\n(aP+1
3332 .               as b1 \&\\*(S\\n(jN
3333 .               rR
3334 .       \}
3335 .\}
3336 .rr jM jN
3337 ..
3338 .\" NS rD macro - save b1 buffer in to appropriate name
3339 .de rD
3340 .as \\*(rS \\*(b1
3341 .ds b1
3342 .ds rS
3343 .aY
3344 ..
3345 .\" NS Hf macro - source include header files.
3346 .de Hf
3347 .Pp
3348 File:
3349 .Pa \\$1
3350 .Pp
3351 .nr cF \\n(.f
3352 .nr cZ \\n(.s
3353 .ie t \{\
3354 \&\\*(lI
3355 .br
3356 .ta +9n 18n 27n 36n 45n 54n 63n 72n
3357 .\}
3358 .el \{\
3359 .ta +8n 16n 24n 32n 40n 48n 56n 64n 72n
3360 .\}
3361 .nf
3362 .so  \\$1
3363 .fi
3364 .ft \\n(cF
3365 .fz \\n(cZ
3366 .Pp
3367 ..
3368 .\" NS An macro - author name
3369 .\" NS aN register
3370 .nr aN 0
3371 .de An
3372 .if \\n(nY==1 \{\
3373 .       ie \\n(aN==1 \{\
3374 .               br
3375 .       \}
3376 .       el \{\
3377 .               nr aN 1
3378 .       \}
3379 .\}
3380 .if \\n(aC==0 \{\
3381 .       ie \\n(.$==0 .tm Usage: .An author_name ... \\*(Pu (#\\n(.c)
3382 .       el \{\
3383 .               ds mN An
3384 .               aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
3385 .       \}
3386 .\}
3387 .if \\n(aC>\\n(aP \{\
3388 .       nr aP \\n(aP+1
3389 .       nr cF \\n(.f
3390 .       nr cZ \\n(.s
3391 .       nR
3392 .\}
3393 ..
3394 .\" NS Sf macro -defunct
3395 .de Sf
3396 .tm .Sf defunct, use prefix or Ns
3397 ..
3398 .ds rV "function returns the value 0 if successful; otherwise the value -1 is returned and the global variable \\*(vAerrno\fP is set to indicate the error.
3399 .\" Ns Rv macro - return values
3400 .\" Ns rV string - standard return message
3401 .de Rv
3402 .ie \\n(.$==0 \{\
3403 .tm Usage: .Rv [-std] (#\\n(.c)
3404 .\}
3405 .el \{\
3406 .       ds mN Rv
3407 .\" .   nr aP 0
3408 .\" .   nr lR \\n(lR+1
3409 .\" .   ds A1 \\$2
3410 .\" .   ds A2 \\$3
3411 .\" .   ds A3 \\$4
3412 .\" .   ds A4 \\$5
3413 .\" .   ds A5 \\$6
3414 .\" .   ds A6 \\$7
3415 .\" .   ds A7 \\$8
3416 .\" .   ds A8 \\$9
3417 .\" .   nr fV \\n(.$-1
3418 .       if "\\$1"-std" \{\
3419 .       nr cH \\*(cH
3420 .       if (\\n(cH<2):(\\n(cH>3) .tm Usage: .Rv -std sections 2 and 3 only
3421 .               br
3422 \&The
3423 .Fn \\$2
3424 \&\\*(rV
3425 .       \}
3426 .\}
3427 ..