contrib/groff/tmac/tmac.an

   1 .\"Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
   2 .\"     Written by James Clark (jjc@jclark.com)
   3 .\"
   4 .\"This file is part of groff.
   5 .\"
   6 .\"groff is free software; you can redistribute it and/or modify it under
   7 .\"the terms of the GNU General Public License as published by the Free
   8 .\"Software Foundation; either version 2, or (at your option) any later
   9 .\"version.
  10 .\"
  11 .\"groff is distributed in the hope that it will be useful, but WITHOUT ANY
  12 .\"WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 .\"FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 .\"for more details.
  15 .\"
  16 .\"You should have received a copy of the GNU General Public License along
  17 .\"with groff; see the file COPYING.  If not, write to the Free Software
  18 .\"Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  19 .\"
  20 .\" -rC1 => number pages continuously, rather than start each at 1
  21 .\" -rD1 => double-sided printing, ie different odd and even page footers
  22 .\" -rPnnn => number first page nnn
  23 .\" -rXnnn => number pages after nnn as nnna, nnnb, nnnc, ...
  24 .\"
  25 .\" The file man.local is loaded at the end.  Put local additions there.
  26 .\" If you need to add things to TH, use `.am TH'.
  27 .\"
  28 .if !\n(.g .ab These man macros work only with groff.
  29 .nr _C \n(.C
  30 .cp 0
  31 .if !rD .nr D 0
  32 .if !rC .nr C 0
  33 .if rP .pn 0\nP
  34 .de set-an-margin
  35 .  ie '\*(.T'html' \{\
  36 .    nr an-margin 0i
  37 .  \}
  38 .  el \{\
  39 .    nr an-margin \\n[IN]
  40 .  \}
  41 ..
  42 .\" .TH title section extra1 extra2 extra3
  43 .de TH
  44 .cp 0
  45 .de an-init \" We have to do it like this to get multiple man pages right.
  46 .ds an-title "\\$1
  47 .ds an-section "\\$2
  48 .ds an-extra1 "\\$3
  49 .ie \\n[.$]>3 .ds an-extra2 "\\$4
  50 .el .ds an-extra2 \"Sun Release 4.0
  51 .ie \\n[.$]>4 .ds an-extra3 "\\$5
  52 .el .ds an-extra3 \"System Programmer's Manual
  53 .ds an-init
  54 \\..
  55 .DT
  56 .ie '\*(.T'html' \{\
  57 .  nr IN 1.3i
  58 .\}
  59 .el \{\
  60 .  nr IN 7.2n
  61 .\}
  62 .nr LL 6.5i
  63 .PD
  64 .nr PS 10 \" normal point-size
  65 .nr SN 3n \" the indentation of sub-sub-headings relative to sub-headings
  66 .nr an-level 1
  67 .set-an-margin
  68 .nr an-prevailing-indent \\n[IN]
  69 .nr an-tag-sep 1n
  70 .nr an-no-space-flag 0
  71 .nr an-break-flag 0
  72 .nr an-div? 0
  73 .wh 0 an-header
  74 .wh -1i an-footer
  75 .wh -.5i an-p-footer
  76 .if \\n[nl]>0 \{\
  77 .       ie \\nC .bp \\n%+1
  78 .       el .bp 1
  79 .\}
  80 ..
  81 .de DT
  82 .ta T .5i \" This sets tabs every .5 inches
  83 ..
  84 .de PD
  85 .ie \\n[.$] .nr PD (v;\\$1)
  86 .el .nr PD .4v>?\n[.V]
  87 ..
  88 .de an-header
  89 .an-init
  90 .ev 1
  91 .ie '\*(.T'html' \{\
  92 .   tl ''''
  93 .\}
  94 .el \{\
  95 .   sp .5i
  96 .   tl '\\*[an-title](\\*[an-section])'\\*[an-extra3]'\\*[an-title](\\*[an-section])'
  97 .   sp |1i
  98 .\}
  99 .ev
 100 .ns
 101 ..
 102 .de an-footer
 103 'bp
 104 ..
 105 .af an-page-letter a
 106 .de an-p-footer
 107 .ev 1
 108 .ie '\*(.T'html' \{\
 109 .   ds an-page-string "
 110 .   ds an-extra1      "
 111 .   ds an-extra2      "
 112 .\}
 113 .el .ds an-page-string \\n%
 114 .if rX \{\
 115 .       if \\n%>\\nX \{\
 116 .               nr an-page-letter \\n%-\\nX
 117 .               ds an-page-string \\nX\\n[an-page-letter]
 118 .\}\}
 119 .ie \\nD \{\
 120 .       if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
 121 .       if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]'
 122 .\}
 123 .el .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
 124 .if '\*(.T'html' \{\
 125 .       tl ''''
 126 .\}
 127 .ev
 128 ..
 129 .de SH
 130 .sp \\n[PD]u
 131 .nr an-level 1
 132 .set-an-margin
 133 .nr an-prevailing-indent \\n[IN]
 134 .fi
 135 .in \\n[an-margin]u
 136 .ti 0
 137 .it 1 an-trap
 138 .nr an-no-space-flag 1
 139 .nr an-break-flag 1
 140 .ps \\n[PS]-1
 141 .ft B
 142 .ne 2v+1u
 143 .if \\n[.$] \&\\$*
 144 ..
 145 .de SS
 146 .sp \\n[PD]u
 147 .nr an-level 1
 148 .set-an-margin
 149 .nr an-prevailing-indent \\n[IN]
 150 .fi
 151 .in \\n[IN]u
 152 .ti \\n[SN]u
 153 .it 1 an-trap
 154 .nr an-no-space-flag 1
 155 .nr an-break-flag 1
 156 .ps \\n[PS]
 157 .ft B
 158 .ne 2v+1u
 159 .if \\n[.$] \&\\$*
 160 ..
 161 .de B
 162 .it 1 an-trap
 163 .ft B
 164 .if \\n[.$] \&\\$*
 165 ..
 166 .de I
 167 .it 1 an-trap
 168 .ft I
 169 .if \\n[.$] \&\\$*
 170 ..
 171 .de SM
 172 .it 1 an-trap
 173 .ps -1
 174 .if \\n[.$] \&\\$*
 175 ..
 176 .de SB
 177 .it 1 an-trap
 178 .ps -1
 179 .ft B
 180 .if \\n[.$] \&\\$*
 181 ..
 182 .de TP
 183 .sp \\n[PD]u
 184 .if \\n[.$] .nr an-prevailing-indent (n;\\$1)
 185 .it 1 an-trap
 186 .if !\\n[an-div?] .di an-div
 187 .in 0
 188 .nr an-div? 1
 189 ..
 190 .de an-trap
 191 .ft R
 192 .ps \\n[PS]
 193 .if \\n[an-break-flag] \{\
 194 .       br
 195 .       nr an-break-flag 0
 196 .\}
 197 .if \\n[an-no-space-flag] \{\
 198 .       ns
 199 .       nr an-no-space-flag 0
 200 .\}
 201 .if \\n[an-div?] .an-do-tag
 202 ..
 203 .de an-do-tag
 204 .nr an-div? 0
 205 .br
 206 .di
 207 .ie \\n[dl]+\\n[an-tag-sep]>\\n[an-prevailing-indent] \{\
 208 .       in \\n[an-margin]u
 209 .       ne 2v+1u
 210 .       an-div
 211 .       br
 212 .       in \\n[an-margin]u+\\n[an-prevailing-indent]u
 213 .\}
 214 .el \{\
 215 .       in \\n[an-margin]u+\\n[an-prevailing-indent]u
 216 .       ti -\\n[an-prevailing-indent]u
 217 .       chop an-div
 218 .       ne 1v+1u
 219 \\*[an-div]\\h'|\\n[an-prevailing-indent]u'\c
 220 .\}
 221 ..
 222 .de LP
 223 .br
 224 .sp \\n[PD]u
 225 .ps \\n[PS]
 226 .ft R
 227 .in \\n[an-margin]u
 228 .nr an-prevailing-indent \\n[IN]
 229 ..
 230 .als PP LP
 231 .als P LP
 232 .de IP
 233 .ie !\\n[.$] \{\
 234 .       ps \\n[PS]
 235 .       ft R
 236 .       sp \\n[PD]u
 237 .       ne 1v+1u
 238 .       in \\n[an-margin]u+\\n[an-prevailing-indent]u
 239 .\}
 240 .el \{\
 241 .       ie \\n[.$]-1 .TP "\\$2"
 242 .       el .TP
 243 \&\\$1
 244 .\}
 245 ..
 246 .de HP
 247 .ps \\n[PS]
 248 .ft R
 249 .sp \\n[PD]u
 250 .ne 1v+1u
 251 .if \\n[.$] .nr an-prevailing-indent (n;\\$1)
 252 .in \\n[an-margin]u+\\n[an-prevailing-indent]u
 253 .ti \\n[an-margin]u
 254 ..
 255 .ds an-empty \" this is referenced to avoid looping on eg .RB ( \\ )
 256 .de RI
 257 .if \\n[.$] \{\
 258 .       ds an-result \&\\$1
 259 .       shift
 260 .       while \\n[.$]>=2 \{\
 261 .               as an-result \,\fI\\$1\fR\/\\$2\\*[an-empty]
 262 .               shift 2
 263 .       \}
 264 .       if \\n[.$] .as an-result \,\fI\\$1\fR
 265 \\*[an-result]
 266 .\}
 267 ..
 268 .de IR
 269 .if \\n[.$] \{\
 270 .       ds an-result \&\fI\\$1\fR
 271 .       shift
 272 .       while \\n[.$]>=2 \{\
 273 .               as an-result \/\\$1\fI\,\\$2\fR
 274 .               shift 2
 275 .       \}
 276 .       if \\n[.$] .as an-result \/\\$1
 277 \\*[an-result]
 278 .\}
 279 ..
 280 .de IB
 281 .if \\n[.$] \{\
 282 .       ds an-result \&\fI\\$1
 283 .       shift
 284 .       while \\n[.$]>=2 \{\
 285 .               as an-result \/\\fB\\$1\fI\,\\$2\\*[an-empty]
 286 .               shift 2
 287 .       \}
 288 .       if \\n[.$] .as an-result \/\\fB\\$1
 289 \\*[an-result]
 290 .       ft R
 291 .\}
 292 ..
 293 .de BI
 294 .if \\n[.$] \{\
 295 .       ds an-result \&\fB\\$1
 296 .       shift
 297 .       while \\n[.$]>=2 \{\
 298 .               as an-result \,\fI\\$1\fB\/\\$2\\*[an-empty]
 299 .               shift 2
 300 .       \}
 301 .       if \\n[.$] .as an-result \,\fI\\$1
 302 \\*[an-result]
 303 .       ft R
 304 .\}
 305 ..
 306 .de RB
 307 .ds an-result \&
 308 .while \\n[.$]>=2 \{\
 309 .       as an-result \fR\\$1\fB\\$2\\*[an-empty]
 310 .       shift 2
 311 .\}
 312 .if \\n[.$] .as an-result \fR\\$1
 313 \\*[an-result]
 314 .ft R
 315 ..
 316 .de BR
 317 .ds an-result \&
 318 .while \\n[.$]>=2 \{\
 319 .       as an-result \fB\\$1\fR\\$2\\*[an-empty]
 320 .       shift 2
 321 .\}
 322 .if \\n[.$] .as an-result \fB\\$1
 323 \\*[an-result]
 324 .ft R
 325 ..
 326 .de RS
 327 .br
 328 .nr an-saved-margin\\n[an-level] \\n[an-margin]
 329 .nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent]
 330 .ie \\n[.$] .nr an-margin +(n;\\$1)
 331 .el .nr an-margin +\\n[an-prevailing-indent]
 332 .in \\n[an-margin]u
 333 .nr an-prevailing-indent \\n[IN]
 334 .nr an-level +1
 335 ..
 336 .de RE
 337 .br
 338 .ie \\n[.$] .nr an-level (;\\$1)<?\\n[an-level]
 339 .el .nr an-level -1
 340 .nr an-level 1>?\\n[an-level]
 341 .nr an-margin \\n[an-saved-margin\\n[an-level]]
 342 .nr an-prevailing-indent \\n[an-saved-prevailing-indent\\n[an-level]]
 343 .in \\n[an-margin]u
 344 ..
 345 .ds S \s[\\n[PS]]
 346 .ie c\[rg] .ds R \[rg]
 347 .el .ds R (Reg.)
 348 .ie c\[tm] .ds Tm \[tm]
 349 .el .ds Tm (TM)
 350 .ds lq \(lq
 351 .ds rq \(rq
 352 .hy 14
 353 .\" Load local modifications.
 354 .mso man.local
 355 .cp \n(_C