NetBSD/share/tmac/tmac.an.old

318 lines
5.8 KiB
Plaintext

.\"Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
.\" Written by James Clark (jjc@jclark.uucp)
.\"
.\"This file is part of groff.
.\"
.\"groff is free software; you can redistribute it and/or modify it under
.\"the terms of the GNU General Public License as published by the Free
.\"Software Foundation; either version 1, or (at your option) any later
.\"version.
.\"
.\"groff is distributed in the hope that it will be useful, but WITHOUT ANY
.\"WARRANTY; without even the implied warranty of MERCHANTABILITY or
.\"FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
.\"for more details.
.\"
.\"You should have received a copy of the GNU General Public License along
.\"with groff; see the file LICENSE. If not, write to the Free Software
.\"Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
.\"
.\" -rC1 => number pages continuously, rather than start each at 1
.\" -rD1 => double-sided printing, ie different odd and even page footers
.\" -rPnnn => number first page nnn
.\" -rXnnn => number pages after nnn as nnna, nnnb, nnnc, ...
.\"
.if !\n(.g .ab These man macros work only with groff.
.if \n(.C \{\
. tm Warning: turning off compatibility mode
. cp 0
.\}
.if !rD .nr D 0
.if !rC .nr C 0
.if rP .pn 0\nP
.\" .TH title section extra1 extra2 extra3
.de TH
.ds an-title "\\$1
.ds an-section "\\$2
.ds an-extra1 "\\$3
.ie \\n[.$]>3 .ds an-extra2 "\\$4
.el .ds an-extra2 \"Sun Release 4.0
.ie \\n[.$]>4 .ds an-extra3 "\\$5
.el .ds an-extra3 \"UNIX Programmer's Manual
.DT
.nr IN 7.2n
.nr LL 6.5i
.PD
.nr PS 10 \" normal point-size
.nr SN 3n \" the indentation of sub-sub-headings relative to sub-headings
.nr an-level 1
.nr an-margin \\n[IN]
.nr an-prevailing-indent \\n[IN]
.nr an-tag-sep 1n
.nr an-no-space-flag 0
.nr an-break-flag 0
.nr an-div? 0
.if \\n[nl]>0 \{\
. ie \\nC .bp \\n%+1
. el .bp 1
.\}
..
.de DT
.ta T .5i \" This sets tabs every .5 inches
..
.de PD
.ie \\n[.$] .nr PD (v;\\$1)
.el .nr PD .4v>?\n[.V]
..
.wh 0 an-header
.de an-header
.ev 1
.sp .5i
.tl '\\*[an-title](\\*[an-section])'\\*[an-extra3]'\\*[an-title](\\*[an-section])'
.sp |1i
.ev
.ns
..
.wh -1i an-footer
.de an-footer
'bp
..
.wh -.5i an-p-footer
.af an-page-letter a
.de an-p-footer
.ev 1
.ds an-page-string \\n%
.if rX \{\
. if \\n%>\\nX \{\
. nr an-page-letter \\n%-\\nX
. ds an-page-string \\nX\\n[an-page-letter]
.\}\}
.ie \\nD \{\
. if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
. if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]'
.\}
.el .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
.ev
..
.de SH
.sp \\n[PD]u
.nr an-level 1
.nr an-margin \\n[IN]
.nr an-prevailing-indent \\n[IN]
.in \\n[IN]u
.ti 0
.it 1 an-trap
.nr an-no-space-flag 1
.nr an-break-flag 1
.ps \\n[PS]-1
.ft B
.ne 2v+1u
.if \\n[.$] \&\\$*
..
.de SS
.sp \\n[PD]u
.nr an-level 1
.nr an-margin \\n[IN]
.nr an-prevailing-indent \\n[IN]
.in \\n[IN]u
.ti \\n[SN]u
.it 1 an-trap
.nr an-no-space-flag 1
.nr an-break-flag 1
.ps \\n[PS]
.ft B
.ne 2v+1u
.if \\n[.$] \&\\$*
..
.de R
.ft R
.if \\n[.$] \&\\$*
..
.de B
.it 1 an-trap
.ft B
.if \\n[.$] \&\\$*
..
.de I
.it 1 an-trap
.ft I
.if \\n[.$] \&\\$*
..
.de SM
.it 1 an-trap
.ps -1
.if \\n[.$] \&\\$*
..
.de SB
.it 1 an-trap
.ps -1
.ft B
.if \\n[.$] \&\\$*
..
.de TP
.sp \\n[PD]u
.if \\n[.$] .nr an-prevailing-indent (n;\\$1)
.it 1 an-trap
.di an-div
.in 0
.nr an-div? 1
..
.de an-trap
.ft R
.ps \\n[PS]
.if \\n[an-break-flag] \{\
. br
. nr an-break-flag 0
.\}
.if \\n[an-no-space-flag] \{\
. ns
. nr an-no-space-flag 0
.\}
.if \\n[an-div?] .an-do-tag
..
.de an-do-tag
.nr an-div? 0
.br
.di
.in \\n[an-margin]u+\\n[an-prevailing-indent]u
.ti -\\n[an-prevailing-indent]u
.ie \\n[dl]+\\n[an-tag-sep]>\\n[an-prevailing-indent] \{\
. ne 2v+1u
. an-div
. br
.\}
.el \{\
. chop an-div
. ne 1v+1u
\\*[an-div]\\h'|\\n[an-prevailing-indent]u'\c
.\}
..
.de LP
.br
.sp \\n[PD]u
.ps \\n[PS]
.ft R
.in \\n[an-margin]u
.nr an-prevailing-indent \\n[IN]
..
.als PP LP
.als P LP
.de IP
.ie !\\n[.$] \{\
. ps \\n[PS]
. ft R
. sp \\n[PD]u
. ne 1v+1u
. in \\n[an-margin]u+\\n[an-prevailing-indent]u
.\}
.el \{\
. TP \\$2
\&\\$1
.\}
..
.de HP
.ps \\n[PS]
.ft R
.sp \\n[PD]u
.ne 1v+1u
.if \\n[.$] .nr an-prevailing-indent (n;\\$1)
.in \\n[an-margin]u+\\n[an-prevailing-indent]u
.ti \\n[an-margin]u
..
.de RI
.if \\n[.$] \{\
. ds an-result \&\\$1
. shift
. while \\n[.$]>=2 \{\
. as an-result \,\fI\\$1\fR\/\\$2
. shift 2
. \}
. if \\n[.$] .as an-result \,\fI\\$1\fR
\\*[an-result]
.\}
..
.de IR
.if \\n[.$] \{\
. ds an-result \&\fI\\$1\fR
. shift
. while \\n[.$]>=2 \{\
. as an-result \/\\$1\fI\,\\$2\fR
. shift 2
. \}
. if \\n[.$] .as an-result \/\\$1
\\*[an-result]
.\}
..
.de IB
.if \\n[.$] \{\
. ds an-result \&\fI\\$1
. shift
. while \\n[.$]>=2 \{\
. as an-result \/\\fB\\$1\fI\,\\$2
. shift 2
. \}
. if \\n[.$] .as an-result \/\\fB\\$1
\\*[an-result]
. ft R
.\}
..
.de BI
.if \\n[.$] \{\
. ds an-result \&\fB\\$1
. shift
. while \\n[.$]>=2 \{\
. as an-result \,\fI\\$1\fB\/\\$2
. shift 2
. \}
. if \\n[.$] .as an-result \,\fI\\$1
\\*[an-result]
. ft R
.\}
..
.de RB
.ds an-result \&
.while \\n[.$]>=2 \{\
. as an-result \fR\\$1\fB\\$2
. shift 2
.\}
.if \\n[.$] .as an-result \fR\\$1
\\*[an-result]
.ft R
..
.de BR
.ds an-result \&
.while \\n[.$]>=2 \{\
. as an-result \fB\\$1\fR\\$2
. shift 2
.\}
.if \\n[.$] .as an-result \fB\\$1
\\*[an-result]
.ft R
..
.de RS
.br
.nr an-saved-margin\\n[an-level] \\n[an-margin]
.nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent]
.ie \\n[.$] .nr an-margin +(n;\\$1)
.el .nr an-margin +\\n[an-prevailing-indent]
.in \\n[an-margin]u
.nr an-prevailing-indent \\n[IN]
.nr an-level +1
..
.de RE
.br
.ie \\n[.$] .nr an-level (;\\$1)<?\\n[an-level]
.el .nr an-level -1
.nr an-level 1>?\\n[an-level]
.nr an-margin \\n[an-saved-margin\\n[an-level]]
.nr an-prevailing-indent \\n[an-saved-prevailing-indent\\n[an-level]]
.in \\n[an-margin]u
..
.ds S \s[\\n[PS]]
.ie c\[rg] .ds R \[rg]
.el .ds R (Reg.)
.ie c\[tm] .ds T \[tm]
.el .ds T (TM)
.als Tm T
.hy 14