tmac.an

<B>Digital的Unix操作系统VAX 4.2源码</B>

.de TH
.na
.PD
.DT
.if n .nr IN .2i
.if t .nr IN 4P
.if n .nr LL 7.4i
.if t .nr LL 36P
.if n .nr PL \\n(.p
.if t .nr PL \\n(}L
.\"
.ds ]H \\$1\|(\^\\$2\^)
.ie \\$3 .ds ]L
.el .ds ]L \\$3
.ie \\$5 .ds ]D
.el .ds ]D \\$5
.wh 0 }H
.if t .wh -4P-32p-0p-1v }F	\" text margin -32 pts -crop mark -1v
.if n .wh -.5i-2v-1v }F
.if t .wh -5p }C		\" bottom page crop mark
.em }M
.if \\n(nl \{\
.	bp
.	nr p# 1
.\}
.}E
.if n .nr )I .5i
.if t .nr )I 4P
.nr )R 0
.\"
.ie \\$4 .ds ]W
.el .ds ]W \\$4
..
.	\" section heading
.de SH
.}X 0
.nr )E 2
.ne 4.1
.ps 13
\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
.if t .sp .5v
..
.	\" sub section heading
.de SS
.}X \\n()Ru+\\n(INu
.nr )E 2
.ne 4.1
.ps 12
\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
.br
.if n .sp 1v
.if t .sp .5v
..
.	\" subroutine for section heading
.de }X
.}E
.ti \\$1
.if n .sp 1v		\" chg'd for V4.0-- used to use interparagraph space )P
.if t .sp 1v
.ne 2
.nr )R 0
.fi
.it 1 }N
.ft HB
..
.	\" end of SH (cf }X above and }N below)
.de }2
.nr )E 0
.}E
.if n .nr )I .5i
.if t .nr )I 4P
..
.	\" italic
.de I
.ft I
.it 1 }N
.if !\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
..
.	\" bold
.de B
.ft B
.it 1 }N
.if !\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
..
.	\" Geneva Light (changed to Helvetica Italic for PostScript)
.de GL
.ft HI
.it 1 }N
.if !\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
..
.	\" Geneva Regular (changed to Helvetica for PostScript)
.de G
.ft H
.it 1 }N
.if !\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
..
.	\" small
.de SM
.ps -2			\" 2 points smaller than current size
.it 1 }N
.if !\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
..
.	\" combinations of Roman, italic, bold
.de RI
.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
..
.de VS
'if '\\$1'4' .mc \s12\(br\s0
..
.de VE
'mc
..
.de RB
.}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
..
.de IR
.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
..
.de IB
.}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
..
.de BR
.}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
..
.de BI
.}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
..
.	\" make special case of shift out of italic
.de }S
.ds ]F
.if \\$12 .if !\\$5 .ds ]F\^
.ie !\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
.el \\$3
.}f
..
.	\" paragraph
.de LP
.PP
..
.de PP
.sp \\n()Pu
.ne 2
.}E
.if n .nr )I .5i
.if t .nr )I 4P
.ns
..
.	\" paragraph distance
.de PD
.if t .nr )P .5v
.if n .nr )P 1v
.if !"\\$1"" .nr )P \\$1v
..
.	\" hanging indent
.de HP
.sp \\n()Pu
.ne 2
.if !"\\$1"" .nr )I \\$1n
.ll \\n(LLu
.in \\n()Ru+\\n(INu+\\n()Iu
.ti \\n()Ru+\\n(INu
.}f
..
.	\" indented paragraph
.de IP
.TP \\$2
\&\fB\\$1\fR
..
.	\" hanging label
.de TP
.if !"\\$1"" .nr )I \\$1n
.sp \\n()Pu
.in \\n()Ru
.nr )E 1
.ns
.it 1 }N
.di ]B
..
.	\" end of TP (cf }N below)
.de }1
.ds ]X \&\\*(]B\\
.nr )E 0
.if !"\\$1"" .nr )I \\$1n
.}f
.ll \\n(LLu
.in \\n()Ru+\\n(INu+\\n()Iu
.ti \\n(INu
.ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\
\\*(]X
.	br
.\}
.el \\*(]X\h|\\n()Iu+\\n()Ru\c
.}f
..
.	\" handle end of 1-line features
.de }N
.if \\n()E .br
.di
.if "\\n()E"0" .}f
.if "\\n()E"1" .}1
.if "\\n()E"2" .}2
.nr )E 0
..
.	\" increase relative indent
.de RS
.nr ]\\n+()p \\n()I
.nr )\\n()p \\n()R
.ie !"\\$1"" .nr )R +\\$1n
.el .nr )R +\\n()I
.if n .nr )I .2i
.if t .nr )I 2P
.}E
..
.	\" decrease relative indent
.de RE
.if !"\\$1"" \{\
.	ie "\\$1"0" .nr )p 1 1
.	el .nr )p \\$1 1
.\}
.ds ]i \\*(]I\\n()p
.ds ]r \\*(]R\\n()p
.nr )I \\*(]i
.nr )R \\*(]r
.if \\n()p .nr )p -1
.}E
..
.de I1
.ti +\w\\$1u
..
.de I2
.sp -1
.ti +\w\\$1u
..
.de RN		\" Return character
\s-2<\|RETURN\|>\s+2
..
.de CT		\" Control character
\s-2<\|CTRL\|/\|\\$1\|>\s+2
..
.\"
.	\" TB - Triumvirate bold font
.	\"	Helvetica Bold instead of Triumvirate for V4.0
.de TB
.nr PF \\n(.f
.ie n .ul 999 
.el .ft HB
.if \\n(.$ \{\
\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
..
.	\" HB - Helvetica Bold font		for V4.0
.	\"	same as TB macro to provide compatibility
.de HB
.nr PF \\n(.f
.ie n .ul 999
.el .ft HB
.if \\n(.$ \{\
\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
..
.     	\" CW - Constant width font
.de CW
.ft CW
..
.	\" R - Roman font
.de R
.if n .ul 0
.ft R
..
.de EX		\" Begin Example
.ie \\n(.$ .nr EX \\$1n
.el \{\
.	ie n .nr EX 0n
.	el .nr EX 0n
.\}
.in +\\n(EXu
.if n .sp 1
.if t .sp .5v
.nf
.CW
.ps -2			\" 2 points smaller than current point size
.vs -2			\" 2 points smaller than current line lead size
..
.de EE		\" End example
.in -\\n(EXu
.fi
.}f             \" restore basic text attributes
.if n .sp 1
.if t .sp .5v
..
.de NT
.LP
.ne 4.1
.ds NO Note
.if \\n(.$>1 .if !\\$2C .ds NO \\$2
.if \\n(.$ .if !\\$1C .ds NO \\$1
.if n .sp
.if t .sp .5v
.TB
.ce
\\*(NO
.ie n .sp
.el .sp 5p
.if \\$1C .ce 99
.if \\$2C .ce 99
.in +5n
.ll -5n
.R
..
.		\" Note End
.de NE
.ce 0
.in -5n
.ll +5n
.ie n .sp
.el .sp .5v
..
.\"
.nr )p 0 1
.ds ]I \\\\n(]
.ds ]R \\\\n()
.bd S 3 3
.ds S \s10
.hy 14
.		\" Manual section reference
.		\"	uses Courier fonts for V4.0
.de MS
.ie t \&\f(CW\\$1\fP\fR(\\$2)\fP\\$3
.el \fI\\$1\fP(\\$2)\\$3
..
.		\" Path Name
.		\"	uses Courier fonts for V4.0
.de PN
.ie t \&\f(CW\\$1\fP\\$2
.el \fI\\$1\fP\\$2
..
.		\" Path name
.		\"   Pn is similar to PN, except it takes three arguments
.		\"   instead of two.  It keeps the established font coding for
.		\"   the first argument, changes the font to CW for the second,
.		\"   and reverts back to previous font for the third.
.de Pn
.ie t \\$1\&\f(CW\\$2\fP\\$3
.el \\$1\fI\\$2\fP\\$3
..
.	\" Ds - display without keeps
.	\"   Ds can be used in normal text to display information that can be
.	\"   better set up by tab stops than with tbl.
.de Ds
.nf
.\\$1D \\$2 \\$1
.ft R
..
.       \" De - end display (without end keep)
.       \"   De is the companion to Ds. It does not include an end keep.
.de De
.ce 0
.fi
..