Home | History | Annotate | Line # | Download | only in tmac 

 Copyright (c) 1990 The Regents of the University of California.
 All rights reserved.

 Redistribution and use in source and binary forms, with or without
 modification, are permitted provided that the following conditions
 are met:
 1. Redistributions of source code must retain the above copyright
 notice, this list of conditions and the following disclaimer.
 2. Redistributions in binary form must reproduce the above copyright
 notice, this list of conditions and the following disclaimer in the
 documentation and/or other materials provided with the distribution.
 3. [Deleted. See
 ftp://ftp.cs.berkeley.edu/pub/4bsd/README.Impt.License.Change]
 4. Neither the name of the University nor the names of its contributors
 may be used to endorse or promote products derived from this software
 without specific prior written permission.

 THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 SUCH DAMAGE.

 @(#)doc-old.tmac 5.2 (Berkeley) 3/13/91
 Slightly modified by jjc (at] jclark.com to work with groff as well.

 Assume nroff on crt's only if cR==1
 STRING CONSTANTS
 DITROFF
 Address Style
 Argument Reference Style
 Interactive Comand Modifier (flag)
 Emphasis (in the English sense - usually italics)
 Errno Style
 Environment Variable Style
 Command Line Flag Style
 Header String Style
 Interactive Command Style
 Literal Style
 Left Parenthesis Style
 Right Parenthesis Style
 Options Open Bracket Style
 Options Open Bracket Style
 Name (subject of manpage) Style
 Pathname Style
 Accepted punctuation string for -mdoc syntax
 Section Header Style
 .ds sT \s-2
 Symbolic Emphasis (boldface)
 Generic Variable Style
 Volume Title Style
 Cross Reference STyle (man page only)
 Math *
.tr *\(**
.\}
 NROFF
 Address Style
 Argument Reference Style
 Interactive Command Modifier (flag)
 Emphasis (in the English sense - usually italics)
 Errno Style
 Environment Variable Style
 Command Line Flag Style
 Header String Style
 Interactive Command Style
 Literal Style
 Left Parenthesis Style
 Right Parenthesis Style
 Options Open Bracket Style
 Options Open Bracket Style
 Name (subject of manpage) Style
 Pathname Style
 Accepted punctuation string for -mdoc syntax
 Section Header Style
 .ds sT \s-2
 .ds sT \s-2
 Symbol, Mode or Mask Style
 Generic Variable Style
 Volume Title Style
 Cross Reference Style (man page only)
.\}
 INDENTS - Subheaders(sI), Text(Ti) between Section Headers and Subsects
. nr sI \w','u*5
. nr Ti \n(sIu
.\}
. nr sI .5i
. nr Ti .5i
.\}
 Flags for macros names which are used only for .Ds
.nr dI 6n
.nr dC 1
.nr dL 1
.nr dR 1
 INDENT WIDTHS (for Lists)
 Width Needed for Address Tag (indented amount)
.nr Ad 12n
 Angle Quote Width
.nr Aq 12n
 Width Needed for Argument
.nr Ar 12n
 Width Needed for Column offset
.nr Cl 15n
 Width neeeded for Interactive Command Modifier
.nr Cm 10n
 Width Needed for Complex Expressions
.nr Cx 20n
 Indent Width Needed for Display (right and left margins)
.nr Ds 6n
 Double Quote Width
.nr Dq 12n
 tI is dependent on Ds and used by .Dp
.nr tI \n(Dsu
 Width Needed for Display
.nr Em 10n
 Width Needed for Errno Types
.nr Er 15n
 Width Needed for Environment Variables
.nr Ev 15n
 Width Needed for Example Indent
.nr Ex 10n
 Width Needed for Flag
.nr Fl 10n
 Width Needed for Function
.nr Fn 16n
 Width neeeded for Interactive Command Name
.nr Ic 10n
 Width Needed for Constant
.nr Li 16n
 Width Needed for Math Symbol ? not sure if needed
.nr Ms 6n
 Width Needed for Name
.nr Nm 10n
 Width Needed for Option Begin
.nr Ob 14n
 Width Needed for Option End
.nr Oe 14n
 Width Needed for Option (one line)
.nr Op 14n
 Width Needed for Pathname
.nr Pa 32n
 Parenthesis Quote Width
.nr Pq 12n
 Single Quote Width
.nr Sq 12n
 Width Needed for Symbols, Modes or Masks
.nr Sy 6n
 Width needed for default or unknown text width
.nr Tx 22n
 Width Needed for Generic Variable
.nr Va 12n
 Width Needed for Cross Reference, should the cross ref be annotated.
.nr Xr 10n
 PARAGRAPH SPACE
. nr Pp .5v
.\}
. nr Pp 1v
.\}
 PAGE LAYOUT
 .Li Tagged Paragraph Style - zero if break on oversized tag
 one if add em space and continue filling line.
.nr tP 0
 Page Layout Macro
 DITROFF
 Header Margin
. nr Hm .5i
 Footer Margin
. nr Fm .5i
 Line length
. nr ll 5.5i
 Line length
. ll 5.5i
 Title length
. nr lt 5.5i
 Title length
. lt 5.5i
 Page offset
. nr po 1.56i
 Page offset
. po 1.56i
 Vertical space distance (from Section headers/Lists/Subsections)
. nr vV .5v
 em space
. ds tP \|\|\|\|\|\|
.\}
 Line length
. nr ll 78n
. ll 78n
 Title length
. nr lt 78n
 Title length
. lt 78n
 Page offset
. nr po 0i
 Page offset
. po 0i
 Vertical space distance (from Section headers/Lists/Subsections)
. nr vV 1v
 em space
. ds tP \0\0
 Test for crt
. ie \\n(cR .nr Hm 0
. el .nr Hm .5i
 Footer Margin
. nr Fm .5i
.\}
..
 Adjustment mode
.ad l
.na
..
.\}
 PREDEFINED STRINGS
. ds <= \(<=
. ds >= \(>=
. ds Lq ``
. ds Rq ''
. ds ua \(ua
. ds aa \(aa
. ds ga \(ga
. ds sR \(aa
. ds sL \(ga
.\}
. ds <= <=
. ds >= >=
. ds Rq ''
. ds Lq ``
. ds ua ^
. ds aa '
. ds ga `
. ds sL `
. ds sR '
.\}
 Note: The distances from the bottom or top of the page are set
 in headers (macro .hK): to -1.25 for troff, and -1.167 for nroff
 bottoms, and top is 0.

 .Dt Document/manpage_title section/chapter volume
 The \{ and \} is necessary as roff doesn't nest if-elses
 properly, especially with .ds.
 TODO: separate Dt into Dt, Ch and Vt for supp docs.
 Volume and Section Number or Chapter Number
. ds cH \\$2
. if "\\$3"" \{\
. \" Volume Title if none given
. if \\$2>=1 .if \\$2<=8 \{\
. ds vT UNIX Reference Manual
. if \\$2>1 .if \\$2<6 .ds vT UNIX Programmer's Manual
. if "\\$2"8" .ds vT UNIX System Manager's Manual
. \}
. if "\\$2"unass" .ds vT DRAFT
. if "\\$2"draft" .ds vT DRAFT
. if "\\$2"paper" .ds vT Null
. \}
.\}
. \" Volume Title if given
. if "\\$3"USD" .ds vT UNIX User's Supplementary Documents
. if "\\$3"PS1" .ds vT UNIX Programmers's Supplementary Documents
. if "\\$3"AMD" .ds vT UNIX Ancestral Manual Documents
. if "\\$3"SMM" .ds vT UNIX System Manager's Manual
. if "\\$3"URM" .ds vT UNIX Reference Manual
. if "\\$3"PRM" .ds vT UNIX Programmers's Manual
. if "\\$3"IND" .ds vT UNIX Manual Master Index
. if "\\$3"CON" .ds vT UNIX Contributed Software Manual
. if "\\$3"IMP" .ds vT UNIX Implementation Notes
. if "\\$3"HOW" .ds vT UNIX How Pocket Manual
. if "\\$3"LOCAL" .ds vT UNIX Local Manual
. if "\\*(vT"Local" .ds vT \\$3
.\}
..

 .Os Operating System/Standard and Release or Version Number

. ds oS BSD Experimental
 . ds oS (Bag o' Bits)
.\}
. ds o1 Non-Null
.\}
. ds oS AT&T
. if "\\$2"" .as oS \0UNIX
. if "\\$2"7th" .as oS \07th Edition
. if "\\$2"7" .as oS \07th Edition
. if "\\$2"III" .as oS \0System III
. if "\\$2"3" .as oS \0System III
. if "\\$2"V" .as oS \0System V
. if "\\$2"V.2" .as oS \0System V Release 2
. if "\\$2"V.3" .as oS \0System V Release 3
. if "\\$2"V.4" .as oS \0System V Release 4
.\}
. if "\\$2"3" .ds oS 3rd Berkeley Distribution
. if "\\$2"4" .ds oS 4th Berkeley Distribution
. if "\\$2"4.1" .ds oS 4.1 Berkeley Distribution
. if "\\$2"4.2" .ds oS 4.2 Berkeley Distribution
. if "\\$2"4.3" .ds oS 4.3 Berkeley Distribution
. if "\\$2"4.3+" .ds oS 4.3+tahoe Berkeley Distribution
.\}
..

 Standards

 .de St
 .ds sT Null
 .if "\\$1"POSIX" \{\
 . ds sT IEEE Standard POSIX
 . if \\$2 .as sT \0\\$2
 .\}
 .if "\\$1"ANSI" \{\
 . ds sT ANSI Standard
 . if \\$2 .as sT \0\\$2
 .\}
 .if "\\$1"ISO" \{\
 . ds sT ISO Standard
 . if \\$2 .as sT \0\\$2
 .\}
 .if "\\*(sT"Null" .ds sR \\$3
 ..

 .de Gp
 .ie !"\\$1"" .ds gP \\$1 \\$2 \\$3 \\$4 \\$5
 .el .ds gP Null
 ..


.nr aa 0
. ie \\n(.$<4 \{\
. ds dD \\$1 \\$2 \\$3
. \}
. el .tm Usage: .Dd Month Day, Year (e.g July 4, 1977).
.\}
. ds dD Epoch
.\}
..

 House Keeping Macro - Make sense of dT, cH, vT, sT, gP and dS
 TODO: Try to get else's for efficiency
 TODO: GET RID OF .wh -1.167i (its in v7)


.nr % 1
. ie !"\\*(gP"Null" .as hT \|(\|\\*(cH\\*(gP\|)
. el .as hT \\|(\\|\\*(cH\\|)
.\}
. wh 0 hM
. wh -1.25i fM
.\}
. ie \\n(cR \{\
. hM
. wh -0v fM
. \}
. el \{\
. wh 0 hM
. wh -1.167i fM
. \}
.\}
. if \\n(nl==0:\\n(nl==-1 'bp
.\}
.em lM
..
 Header Macro

.ev 1
.pL
.tl @\\*(Hs\\*(hT@\\*(Vs\\*(vT@\\*(Hs\\*(hT@
'sp \\n(Hmu
.ev
..

.ev 1
.pL
' sp \\n(Fmu
. tl @\\*(Hs\\*(oS@\\*(Vs\\*(dD@%@
' bp
.\}
 . tl @\\*(Hs\\*(oS@\\*(Vs\\*(dD@%@
 ' bp
.\}
.ev
..
.fl
. fM
. pl \\n(nlu
.\}
..
.ns
..

p
..
.tm Not a -mdoc command: .LP
..
.tm Not a -mdoc command: .PP
..
.tm Not a -mdoc command: .pp
..
.tm Not a -mdoc command: .Co
..
.nr z. 1
.nr z, 1
.nr z: 1
.nr z; 1
.nr z) 1
.nr z( 1
.nr z[ 1
.nr z] 1
 This is disgusting, troff not parse if stmt properly
.nr z1 0
.nr z2 0
.nr z3 0
.nr z4 0
.nr z5 0
.nr z6 0
.nr z7 0
.nr z8 0
.nr z9 0
.nr z0 0
.nr z# 0

. tm Usage: .Ad address [...] \\*(Pu
.\}
. ds sV \\*(aD
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

 Command Line Argument Macro

. ie !"\\*(iM"" .as f1 [\|\\*(aRfile ...\|]
. el [\|\\*(aRfile ...\|]
.\}
. ds sV \\*(aR
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Em text ... \\*(Pu
.\}
. ds sV \\*(eM
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Er ERRNOTYPE ... \\*(Pu
. \}
. ds sV \\*(eR
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Ev ENVIRONMENT_VARIABLE(s) ... \\*(Pu
. \}
. ds sV \\*(eV
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

 Flag Name Macro

. ie !"\\*(iM"" .as f1 \\*(fL-
. el \\*(fL-
.\}
. nr rZ 0
. sW \\$1
. if (\\n(sW==1&\\n(.$==1) .rZ \\$1
. ds sV \\*(fL
. nr cF \\n(.f
. ie \\n(rZ \{\
. ie "\\*(iM"" .ds f1 \\*(sV-\f\\n(cF\\$1
. el \\*(sV-\f\\n(cF\\$1
. \}
. el \{\
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. fB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
. \}
.\}
..
 Interactive Commands Macro

. tm Usage: .Ic Interactive Commands(s) ... \\*(Pu
.\}
. ds sV \\*(iC
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

 Interactive Command Modifiers (flags)

. tm Usage: .Cm Interactive Command Modifier(s) ... \\*(Pu
.\}
. ds sV \\*(cM
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Li literal ... \\*(Pu
. \}
. ds sV \\*(lI
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..
 If in nroff or any other case where the default font
 is constant width, and literal means zilch, single quote instead.
. ie \\n(.$==0 \{\
. tm Usage: .Ql literal ... \\*(Pu
. \}
. el \{\
. Sq \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
..
.\}
. ie \\n(.$==0 \{\
. tm Usage: .Ql literal ... \\*(Pu
. \}
. el \{\
. Li \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
..
.\}

. if "\\*(n1"" .tm Usage: .Nm Name(s) ... \\*(Pu
. ie !"\\*(iM"" .as f1 \\*(nM\\*(n1\\$1
. el \\*(nM\\*(n1\\$1
.\}
. ds sV \\*(nM
. nr cF \\n(.f
. if \\n(nS \{\
. rs
. in -\\n(iSu
. ie \\n(nS>1 .br
. el \{\
. sW \\$1
. nr iS ((\\n(sW+1)*\\n(fW)u
. \}
. in +\\n(iSu
. ti -\\n(iSu
. nr nS \\n(nS+1
. \}
. if "\\*(n1"" .ds n1 \\$1
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

\\*(pA~
.\}
. ds sV \\*(pA
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Sy Symbolic Text ... \\*(Pu
. \}
. ds sV \\*(sY
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Ms Math Symbol ... \\*(Pu
. \}
. ds sV \\*(sY
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. tm Usage: .Va variable_name(s) ... \\*(Pu
.\}
. ds sV \\*(vA
. nr cF \\n(.f
. ie "\\*(iM"" .ds f1 \\*(sV
. el .as f1 \\*(sV
. nB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
.\}
..

. rZ \\$1
. ie \\n(rZ .as f1 \f\\n(cF\\$1
. el .as f1 \\$1
. rZ \\$2
. if !\\n(rZ \{\
. ie !"\\*(iM""\{\
 I surrender
. if "\\*(iM"Tp" .as f1 \ \&
. if "\\*(iM"Dp" .as f1 \ \&
. if "\\*(iM"Op" .as f1 \ \&
. if "\\*(iM"Cx" .as f1 \ \&
. if "\\*(iM"Dq" .as f1  \&
. if "\\*(iM"Sq" .as f1  \&
. if "\\*(iM"Pq" .as f1  \&
. if "\\*(iM"Aq" .as f1  \&
. \}
. el .as f1  \&
. \}
. nB \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
. rZ \\$1
. ie \\n(rZ .as f1 \f\\n(cF\\$1
. el .as f1 \\$1\f\\n(cF
. if "\\*(iM"" \{\\*(f1
. ds f1
. \}
. hy
.\}
..
. rZ \\$1
. ie \\n(rZ .as f1 \f\\n(cF\\$1
. el \{\
. ie "\\$1"-" .as f1 \--
. el .as f1 \-\\$1
. \}
. rZ \\$2
. if !\\n(rZ \{\
. ie !"\\*(iM""\{\
 I surrender
. if "\\*(iM"Tp" .as f1 \ \&
. if "\\*(iM"Dp" .as f1 \ \&
. if "\\*(iM"Op" .as f1 \ \&
. if "\\*(iM"Cx" .as f1 \ \&
. if "\\*(iM"Dq" .as f1  \&
. if "\\*(iM"Sq" .as f1  \&
. if "\\*(iM"Pq" .as f1  \&
. if "\\*(iM"Aq" .as f1  \&
. \}
. el .as f1  \&
. \}
. fB \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
. rZ \\$1
. ie \\n(rZ .as f1 \f\\n(cF\\$1
. el \{\
. ie "\\$1"-" .as f1 \--\f\\n(cF
. el .as f1 \-\\$1\f\\n(cF
. \}
. if "\\*(iM"" \{\\*(f1
. ds f1
. \}
. hy
.\}
..

 Single quoted Items
 eF, sB g[0-9] and f2
.nr eF 0
. ie "\\*(iM"" \\*(sL\\*sR
. el .as f1 \\*(sL\\*(sR
.\}
. ie "\\*(iM"" \{\
. ds f1 \\*(sL
. ds iM Sq
. \}
. el .as f1 \\*(sL
. sB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ie \\n(eF>0 .\\*(g1 \\*(g2 \\*(g3 \\*(g4 \\*(g5 \\*(g6 \\*(g7 \\*(g8
. el .as f1 \\*(g0
. as f1 \\*(sR
. if !"\\*(f2"" .as f1 \\*(f2
. if "\\*(iM"Sq" \{\
\\*(f1
. ds f1
. ds iM
. \}
. ds f2
. rm g0 g1 g2 g3 g4 g5 g6 g7 g8 g9
. nr eF 0
.\}
..

 Double quoted Items
.nr Ef 0
. ie "\\*(iM"" \\*(Lq\\*(Rq
. el .as f1 \\*(Lq\\*(Rq
.\}
. ie "\\*(iM"" \{\
. ds f1 \\*(Lq
. ds iM Dq
. \}
. el .as f1 \\*(Lq
. Sb \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ie \\n(Ef>0 .\\*(k1 \\*(k2 \\*(k3 \\*(k4 \\*(k5 \\*(k6 \\*(k7 \\*(k8
. el .as f1 \\*(k0
. as f1 \\*(Rq
. if !"\\*(f4"" .as f1 \\*(f4
. if "\\*(iM"Dq" \{\
\\*(f1
. ds f1
. ds iM
. \}
. ds f4
. rm k0 k1 k2 k3 k4 k5 k6 k7 k8 k9
. nr Ef 0
.\}
..

 Parenthesis quoted Items
.nr pQ 0
. ie "\\*(iM"" ()
. el .as f1 ()
.\}
. ie "\\*(iM"" \{\
. ds f1 (
. ds iM Pq
. \}
. el .as f1 (
. pB \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ie \\n(pQ>0 .\\*(y1 \\*(y2 \\*(y3 \\*(y4 \\*(y5 \\*(y6 \\*(y7 \\*(y8
. el .as f1 \\*(y0
. as f1 )
. if !"\\*(f3"" .as f1 \\*(f3
. if "\\*(iM"Pq" \{\
\\*(f1
. ds f1
. ds iM
. \}
. ds f3
. rm y0 y1 y2 y3 y4 y5 y6 y7 y8 y9
. nr pQ 0
.\}
..
 eF, sB g[0-9] and f2
. ie \\n(eF>=1 .nr eF \\n(eF+1
. el \{\
. mN \\$1
. if \\n(mN .nr eF \\n(eF+1
. \}
. rZ \\$1
. ie \\n(rZ .as f2 \\$1
. el \{\
. ie \\n(eF<1 .as g\\n(eF \\$1
. el .as g\\n(eF \\$1
. \}
. if \\n(.$>1 \{\
. rZ \\$2
. if \\n(rZ==0 \{\
. if \\n(eF<1 \{\
. as g\\n(eF  \&
. \}
. \}
. sB \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
.\}
..
. ie \\n(Ef>=1 .nr Ef \\n(Ef+1
. el \{\
. mN \\$1
. if \\n(mN .nr Ef \\n(Ef+1
. \}
. rZ \\$1
. ie \\n(rZ .as f4 \\$1
. el \{\
. ie \\n(Ef<1 .as k\\n(Ef \\$1
. el .as k\\n(Ef \\$1
. \}
. if \\n(.$>1 \{\
. rZ \\$2
. if \\n(rZ==0 \{\
. if \\n(Ef<1 \{\
. as k\\n(Ef  \&
. \}
. \}
. Sb \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
.\}
..
. ie \\n(pQ>=1 .nr pQ \\n(pQ+1
. el \{\
. mN \\$1
. if \\n(mN .nr pQ \\n(pQ+1
. \}
. rZ \\$1
. ie \\n(rZ .as f3 \\$1
. el \{\
. ie \\n(pQ<1 .as y\\n(pQ \\$1
. el .as y\\n(pQ \\$1
. \}
. if \\n(.$>1 \{\
. rZ \\$2
. if \\n(rZ==0 \{\
. if \\n(pQ<1 \{\
. as y\\n(pQ  \&
. \}
. \}
. pB \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
.\}
..
. ie \\n(aQ>=1 .nr aQ \\n(aQ+1
. el \{\
. mN \\$1
. if \\n(mN .nr aQ \\n(aQ+1
. \}
. rZ \\$1
. ie \\n(rZ .as aZ \\$1
. el \{\
. ie \\n(aQ<1 .as a\\n(aQ \\$1
. el .as a\\n(aQ \\$1
. \}
. if \\n(.$>1 \{\
. rZ \\$2
. if \\n(rZ==0 \{\
. if \\n(aQ<1 \{\
. as a\\n(aQ  \&
. \}
. \}
. aQ \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
.\}
..
 Angle Bracket Quoted Items
.nr aQ 0
. ie "\\*(iM"" <>
. el .as f1 <>
.\}
. ie "\\*(iM"" \{\
. ds f1 <
. ds iM Aq
. \}
. el .as f1 <
. aQ \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
. ie \\n(aQ>0 .\\*(a1 \\*(a2 \\*(a3 \\*(a4 \\*(a5 \\*(a6 \\*(a7 \\*(a8
. el .as f1 \\*(a0
. as f1 >
. if !"\\*(aZ"" .as f1 \\*(aZ
. if "\\*(iM"Aq" \{\
\\*(f1
. ds f1
. ds iM
. \}
. ds aZ
. rm a0 a1 a2 a3 a4 a5 a6 a7 a8
. nr aQ 0
.\}
..
 macro Name test, return macro register value if true
.nr mN 0
.sW \\$1
. if \\n(\\$1 .nr mN \\n(\\$1
.\}
..
.nr mN 0
. sW \\$1
. if \\n(sW==2 \{\
. if \\n(\\$1 .nr mN \\n(\\$1
. \}
.\}
..
 Punctuation test (using z registers), return 1 if true
.nr rZ 0
.sW \\$1
. if \\n(z\\$1==1 \{\
. nr rZ 1
. \}
.\}
..
.nr rZ 0
. sW \\$1
. if \\n(sW==1 \{\
. if \\n(z\\$1==1 \{\
. nr rZ 1
. \}
. \}
.\}
..

 sW returns number of characters in a string
.nr fW \w','
.nr sW \w'\\$1'
.\}
.nr fW \w'0'
.nr sW \w'\\$1'
.\}
. ie \\n(sW%\\n(fW .nr sW (\\n(sW/\\n(fW)+1
. el .nr sW \\n(sW/\\n(fW
.\}
..
 Option Expression -
 TODO - add line overflow check (right!)
.nr eP 0
.nr oE 0
.nr hP 0
.nr Ep 0
. ds iM Op
. ds f1 \&
.\}
.as f1 \\*(lB
 .tm Op: \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.dO \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..

 just for mike, with every bite of garlic in mind (oops, i mean burp).
 dO: go dOwn an argument vector and test each argument to see if
 a macro name or punctuation. stash in respective place along
 with its arguments.
.nr oO 0
.nr oP 0
.nr aO 0
.mN \\$1
. if \\n(oP \{\
. if \\n(hP \{\
. nr oZ 1
. oZ
. Oz
. \}
. if \\n(e1==1 \{\
.\\*(e1 \\*(e2 \\*(e3 \\*(e4 \\*(e5 \\*(e6 \\*(e7 \\*(e8 \\*(e9
. \}
. uO
. if !(\\n(oO:\\n(aO) .as f1  \&
. \}
. ie "\\$1"Op" \{\
. as f1 \\*(lB
. nr aO \\n(aO+1
. \}
. el \{\
. nr eP \\n(eP+1
. ds e\\n(eP \\$1
. nr e\\n(eP 1
. \}
.\}
 .tm dO: $1: \\$1: eP \\n(eP e[\\n(eP]: \\*(e\\n(ePEE
. rZ \\$1
. ie \\n(rZ \{\
 .tm dO:rZ: $1: \\$1: eP \\n(eP e[\\n(eP]: \\*(e\\n(eP
. nr hP \\n(hP+1
. ds h\\n(hP \\$1
. \}
. el \{\
 .tm dO:word $1: \\$1: eP \\n(eP e[\\n(eP]: \\*(e\\n(ePEE
. if \\n(eP==0:\\n(e\\n(eP==1 .nr eP \\n(eP+1
. if \\n(eZ .as e\\n(eP  \&
. as e\\n(eP " \\$1
 . ds e\\n(eP \\$1
. nr eZ \\n(eZ+1
. \}
.\}
.nr oP 1
. dO \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
. ie \\n(e1 \{\
.\\*(e1 \\*(e2 \\*(e3 \\*(e4 \\*(e5 \\*(e6 \\*(e7 \\*(e8 \\*(e9
. \}
. el \{\
. as f1 \\*(e1
. \}
.\}
..
 handle old style arguments such as the arg -Idir
 in adb, .Oo is a toggle.
..
 stash punctuation
. nr eP \\n(eP+1
. ds e\\n(eP \\*(h\\n(oZ
. nr oZ \\n(oZ+1
. oZ
.\}
..
 clean up punctuation vector
. rm h\\n(hP
. nr hP \\n(hP-1
. Oz
.\}
..
 uO: go back up created vector cleaning it up along the way
. rm e\\n(eP
. rr e\\n(eP
. nr eP \\n(eP-1
. nr oP 0
. nr eZ 0
. uO
.\}
..
 option end
.uO
. as f1 \\*(rB\\*(h1\\*(h2\\*(h3
. Oz
. nr oZ 0
.\}
. as f1 \\*(rB
.\}
. if \\n(aO .aO
. if (\\n(.lu-\\n(.ku-\\n(.ou-(2*\\n(fWu))<\w'\\*(f1'u .br
.\}
. nr aa \w'\\*(f1'u
 . nr qq \\n(.lu-\\n(.ku-\\n(.ou
 aa == \\n(aa, f1==\\*(f1, qq==\\n(qq
. if (\\n(.lu-\\n(.ku-\\n(.ou-\\n(aau)<=(8*\\n(fWu) .br
.\}
\\*(f1
. ds iM
. ds f1
. hy
.\}
..
.as f1 \\*(rB
.nr aO \\n(aO-1
..

. ie \\n(.$==1 \{\
. if !"\\*(iM"" .as f1 \\*(xR\\$1
. if "\\*(iM"" \\*(xR\\$1
. \}
. el .tm Xr Usage: .Xr manpage_name [section#] \\*(Pu
.\}
. rZ \\$2
. ie "\\*(iM"" \{\
. ie \\n(rZ \\*(xR\\$1\\$2
. el \\*(xR\\$1(\\$2)
. \}
. el \{\
. ie \\n(rZ .as f1 \\*(xR\\$1\\$2
. el .as f1 \\*(xR\\$1(\\$2)
. \}
.\}
. rZ \\$2
. ie \\n(rZ \{\
. ie !"\\*(iM"" .as f1 \\*(xR\\$1\\$2\\$3\\$4\\$5\\$6\\$7\\$8
. el \\*(xR\\$1\\$2\\$3\\$4\\$5\\$6\\$7\\$8
. \}
. el \{\
. rZ \\$3
. ie \\n(rZ \{\
. if !"\\*(iM"" \{\
. as f1 \\*(xR\\$1(\\$2)\\$3\\$4\\$5\\$6\\$7\\$8
. \}
. if "\\*(iM"" \{\
\\*(xR\\$1(\\$2)\\$3\\$4\\$5\\$6\\$7\\$8
. \}
. \}
. el \{\
. tm rZ = \\n(rZ the arg is \\$3
. tm Xr-XX Usage: .Xr manpage_name [section#] \\*(Pu
. \}
. \}
.\}
..


.tm Ex defunct, Use .Dl: \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
 Display (one) Line of text.
' ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i
. in \\n(.iu+\\n(Dsu
. mN \\$1
. ie \\n(mN .\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. el \{\
. nr cF \\n(.f
 Literal font is none specified
\\*(lI\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ft \\n(cF
. \}
. in \\n(.iu-\\n(Dsu
.\}
. mN \\$1
. ie \\n(mN .\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
. el \{\
. nr cF \\n(.f
. ds f1 \\*(lI\\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
. as f1 \f\\n(cF
. \}
.\}
..


 user set Tagged Paragraph Width (used in both Dp and Tp)
. nr aa 0
.\}
. mN \\$1
. ie \\n(sW>2 \{\
. nr tW (\\n(sW+3)*\\n(fWu)
. \}
. el \{\
. ie \\n(mN .nr tW \\n(mN
. el .nr tW \\$1
. \}
. nr tF 1
.\}
..

.Tw \\$1
..

. nr tI \\n(Dsu
.\}
. sW \\$1
. if \\n(sW>=2 \{\
. nr tI \\$1u
. \}
. if \\n(sW<2 \{\
. if "\\$1"L" \{\
. nr tI 0
. \}
. \}
.\}
..
 tagged paragraph
 initialize baby stack variables
.nr np 0
.nr p1 0

. ds iM Tp
. mN \\$1
. ie \\n(tF \{\
. ds tC Tw
. nr tC 1
. nr tF 0
. \}
. el \{\
. if !"Tw"\\*(s\\n(np" \{\
. ie \\n(mN \{\
. ds tC \\$1
. nr tW \\n(mN
. \}
. el \{\
. ds tC Tx
. nr tW \\n(Tx
. \}
. if !"\\*(tC"\\*(s\\n(np" .nr tC 1
. \}
. \}
. sp \\n(vVu
. if !\\n(cR .ne 2
. if \\n(tC \{\
. nr np \\n(np+1
. nr p\\n(np \\n(tW
. ds s\\n(np \\*(tC
. nr tC 0
. ds tC
. in \\n(.iu+\\n(p\\n(npu
. \}
. ie \\n(mN \{\
. ds f1
. \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. if !"\\$1"Cx" .pT st p np
. \}
. el \{\
. br
. ev 1
. fi
. di Td
\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. br
. di
. ev
. na
. ds tD \\*(Td\\
. pT di p np
. \}
.\}
..


 Complex Expression Macro

 TODO: add length across line boundary check (like Li)
. if "\\*(iM"Cx" \{\
. ds iM
. if \\n(oE .oE
\\*(f1
. ds f1
. \}
. if "\\*(iM"Tp" .pT st p np
. if "\\*(iM"Dp" .pT st q mp
.\}
. if "\\*(iM"" \{\
. ds iM Cx
. ds f1 \&
. \}
. mN \\$1
 Here are the args: `\\$1' `\\$2' `\\$3' `\\$4'
. ie \\n(mN .\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. el \{\
. as f1 \\$1
. if \\n(.$>1 .Cx \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
.\}
..
 Prefix string in default font to content specified string
.Cx \\$1
.\\$2 \\$3 \\$4 \\$5
.Cx
..
 Suffix string in default font to content specified string
.Cx \\$1 \\$2
.Cx \\$3
.Cx
..
 Simple Option Begin
. ev 2
. fi
. di oB
.\}
.tm shouldn't be here
. as f1 [
. mN \\$1
. ie \\n(mN .\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. el \{\
. as f1 \\$1
. if \\n(.$>1 .Oc \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
.\}
..
.as f1 \\$1
..
. br
. di
. ev
. ds bO \\*(oB\\
[\\*(bO]
.\}
. as f1 ]
.\}
..
 White space for Cx
.Cx \ \&
..
 tagged paragraph
 initialize baby stack variables
.nr mp 0
.nr q1 0

 Complex Dp tag
.Dp Cx \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
..
 Complex Tp tag
.Tp Cx \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
..
 Tag with a flag and an argument with a space
. Tp Fl \\$1
.\}
. Tp Fl \\$1
. Cx \ \&
. Ar \\$2 \\$3
. Cx
.\}
..
.Dp Cx Fl \\$1
.Ws
.Ar \\$2 \\$3
.Cx
..
.Tp Cx Fl \\$1
.Ar \\$2 \\$3
.Cx
..
.Dp Cx Fl \\$1
.Ar \\$2 \\$3
.Cx
..
 Blended tag toggle
..
 Bullet paragraph
.Tp Sy \(bu
..
 Display tagged paragraph
. pE q r mp
. sp \\n(vVu
.\}
. ds iM Dp
. mN \\$1
. ie \\n(tF \{\
. ds tC Tw
. nr tC 1
. nr tF 0
. \}
. el \{\
. if !"Tw"\\*(r\\n(mp" \{\
. ie \\n(mN \{\
. ds tC \\$1
. nr tW \\n(mN
. \}
. el \{\
. ds tC Tx
. nr tW \\n(Tx
. \}
. if !"\\*(tC"\\*(r\\n(mp" .nr tC 1
. \}
. \}
. if !\\n(cR .ne 2
. if \\n(tC \{\
. nr mp \\n(mp+1
. nr q\\n(mp \\n(tW
. ds r\\n(mp \\*(tC
. nr tC 0
. ds tC
. ie \\n(tIu==\\n(Dsu .nr i\\n(mp \\n(Dsu
. el \{\
. nr i\\n(mp \\n(tIu
. nr tI \\n(Dsu
. \}
. in \\n(.iu+\\n(i\\n(mpu
. sp \\n(vVu
. in \\n(.iu+\\n(\\q\\n(mpu
. \}
. ie \\n(mN \{\
. \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. if !"\\$1"Cx" .pT st q mp
. \}
. el \{\
. br
. ev 1
. fi
. di Td
\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. br
. di
. ev
. na
. ds tD \\*(Td\\
. pT di q mp
. \}
.\}
..

 .pE number_stack string_stack counter
. in \\n(.iu-(\\n(\\$1\\n(\\$3u)-(\\n(i\\n(mpu)
. rr i\\n(mp
.\}
 .in \\n(.iu-\\n(\\$1\\n(\\$3u
.rr \\$1\\n(\\$3
.nr \\$3 \\n(\\$3-1
..

 .pT [st or di] number_stack counter
. nr bb \\n(\\$2\\n(\\$3u
. ti -\\n(bbu
. ie (\\n(\\$2\\n(\\$3u-2n)<=\w'\\*(f1'u \{\\*(f1\\*(tP
. if \\n(tP==0 .br
. \}
. el \\*(f1\h'|\\n(\\$2\\n(\\$3u'\c
.\}
. ti -\\n(\\$2\\n(\\$3u
. ie (\\n(\\$2\\n(\\$3u-2n)<=\\n(dlu \{\\*(tD\\*(tP
. if !\\n(tP .br
. \}
. el \\*(tD\h'|\\n(\\$2\\n(\\$3u'\c
. if t 'ad
.\}
. ds iM
. ds f1
'fi
..

 The new SH

 set Sh state off, check for list state before calling indent (.In)
.nr nS 0
.nr sE 0
 name state on, housekeep (headers & footers)
. hK
' in 0
.\}
. if "\\$1"SYNOPSIS" .nr nS 1
. in 0
.\}
.pL
'sp
.ns
'fi
\fB\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6 \|\\$7 \|\\$8 \|\\$9
\fP\&
.ns
..

 Nd minus sign for an en dash used in .Sh Name
\- \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
\fB\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6 \|\\$7 \|\\$8 \|\\$9
\fP\&
..
 .if "\\$1"Ss" .in \\n(.iu+\\n(sIu
..


 Column Macro

. br
. in \\n(.iu-\\n(eWu
. ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i
.\}
. Pp
. if \\n(.$==1 \{\
. ta \w'\\$1 'u
. nr eW \w'\\$1 'u
' in \\n(.iu+\\n(eWu
. \}
. if \\n(.$==2 \{\
. ta \w'\\$1 'u +\w'\\$2 'u
. nr eW \w'\\$1 'u+\w'\\$2 'u
' in \\n(.iu+\\n(eWu
. \}
. if \\n(.$==3 \{\
. ta \w'\\$1 'u +\w'\\$2 'u +\w'\\$3 'u
. nr eW \w'\\$1 'u+\w'\\$2 'u+\w'\\$3 'u
' in \\n(.iu+\\n(eWu
. \}
. if \\n(.$==4 \{\
. ta \w'\\$1 'u +\w'\\$2 'u +\w'\\$3 'u +\w'\\$4 'u
. nr eW \w'\\$1 'u+\w'\\$2 'u+\w'\\$3 'u +\w'\\$4 'u
' in \\n(.iu+\\n(eWu
. \}
. if \\n(.$==5 \{\
.nr eW \w'\\$1 'u +\w'\\$2 'u +\w'\\$3 'u +\w'\\$4 'u +\w'\\$5 'u
' in \\n(.iu+\\n(eWu
. \}
.\}
..
.mN \\$1
..
.nr dQ 0
. mN d\\$1
. if \\n(mN \{\
. nr dQ \\n(dQ+1
. d\\$1
. \}
.\}

..
. mN d\\$1
. if \\n(mN \{\
. nr dQ \\n(dQ+1
. d\\$1
. \}
.\}
..
\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9

..
.nr d\\n(dQ \\n(dIu
..
.nr d\\n(dQ (\\n(.l-\\n(.i)/4u
..
.nr d\\n(dQ (\\n(.l/3)u
..
.nr aa 0
..
. in \\n(.iu-\\n(d\\n(dQu
. rr d\\n(dQ
. nr dQ \\n(dQ-1
.\}


..

. tm Usage: .Fn function_name function_arg(s) ... \\*(Pu
.\}
. nr cF \\n(.f
. ie \\n(.$==1 .ds f1 \\*(nM\\$1\\*(lP\\*(rP
. el \{\
. ds f1 \\*(nM\\$1\\*(lP
. nr aa 0
. rC \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. \}
. if "\\*(iM"" \{\\\*(f1
. ds f1
. \}
.\}
..

.rZ \\$1
. as f1 \f\\n(cF\\*(rP\f\\n(cF\\$1\\$2\\$3\\$4\\$5\\$6\\$7
.\}
. ie \\n(aa .as f1 , \\*(aR\\$1
. el .as f1 \\*(aR\\$1
. nr aa 1
. ie \\n(.$>1 .rC \\$2 \\$3 \\$4 \\$5 \\$6 \\$7
. el .as f1 \\*(rP
.\}
..