o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More files!

Browse source
This commit is contained in:
rsc 2004-05-15 23:45:13 +00:00
parent 36a9115fcb
commit 13f7391e4a
213 changed files with 54952 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tmac/complet.1127 Normal file
View file

@ -0,0 +1,5 @@
Executive Director 112
Directors 112
Department Heads 1127
A. N. Netravali

3
tmac/cover.1127 Normal file
View file

@ -0,0 +1,3 @@
Arun Netravali
Department Heads 1121, 1127
D. Dinella

2829
tmac/mmn Normal file
View file

File diff suppressed because it is too large Load diff

2792
tmac/mmt Normal file
View file

File diff suppressed because it is too large Load diff

4
tmac/name.sed Normal file
View file

@ -0,0 +1,4 @@
s/\([A-Z]\)\./\1/g
s/\([A-Z]\)[a-z]*/\1/g
s/ //g
s/^/.ds T1 /

5
tmac/sendcover Normal file
View file

@ -0,0 +1,5 @@
#!/bin/rc
T=/tmp/cs$pid
cstrans $T $1
rc $T
rm $T

61
tmac/strings.mm Normal file
View file

@ -0,0 +1,61 @@
'\" Copyright (c) 1997 Lucent
'\" All Rights Reserved
'\"
'\"#ident "@(#)macros:strings.mm 3.1"
'\" UNIX Memorandum Macros, DWB 3.1, April 1990
'\" Company-specifics: Lucent Bell Laboratories
'''\" '''\"tab begins comments.
'''\" No comments should appear on the same line as the string definition.
'''\"
'''\" The following string is used by the macro MT.
'''\" ]S defined as logo character
.ds ]S \s36\(LH\s0
'''\" }Z defined as Company Name
.ds }Z Lucent Bell Laboratories
'''\"
'''\" Strings for proprietary markings at bottom of page.
'''\" Free Strings: ]Q ]R ]H ]L ]V ]W ]X ]k ]l
'''\"
'''\" Register ;V = user-specified year for copyright date
.nr ;V \n(yr
'''\" LUCENT PROPRIETARY MARKINGS
'''\" The following strings are used by the macro PM:
'''\"
'''\" Marking Type: PROPRIETARY
'''\" Invocation: .PM 1 or .PM P
'''\" Strings: ]M ]O
.ds ]M \f2LUCENT \- PROPRIETARY\fP
.ds ]O \f1Use pursuant to Company Instructions.\fP
'''\"
'''\" Marking Type: RESTRICTED
'''\" Invocation: .PM 2 or .PM RS
'''\" Strings: ]A ]F ]G
.ds ]A \f2LUCENT \- PROPRIETARY (RESTRICTED)\fP
.ds ]F \f1Solely for authorized persons having a need to know
.ds ]G pursuant to Company Instructions.\fP
'''\"
'''\" Marking Type: REGISTERED
'''\" Invocation: .PM 3 or .PM RG
'''\" Strings: ]I ]J ]K
.ds ]I \f2LUCENT \- PROPRIETARY (REGISTERED)\fP
.ds ]J \f1Solely for authorized persons having a need to know
.ds ]K and subject to cover sheet instructions.\fP
'''\"
'''\" Marking Type: SEE COVER PAGE
'''\" Invocation: .PM 4 or .PM CP
'''\" Strings: ]U
.ds ]U \f1SEE PROPRIETARY NOTICE ON COVER PAGE\fP
'''\"
'''\" Marking Type: COPYRIGHT
'''\" Invocation: .PM 5 or .PM CR
'''\" Strings: ]i ]j
.ds ]i \f1Copyright \(co 20\\n(;V Lucent\fP
.ds ]j \f1All Rights Reserved.\fP
'''\"
'''\" Marking Type: UNPUBLISHED WORK
'''\" Invocation: .PM 6 or .PM UW
'''\" Strings: ]M ]m ]o ]p ]i ]q ]j
.ds ]m \f1THIS DOCUMENT CONTAINS PROPRIETARY INFORMATION OF
.ds ]o LUCENT AND IS NOT TO BE DISCLOSED OR USED EXCEPT IN
.ds ]p ACCORDANCE WITH APPLICABLE AGREEMENTS.\fP
.ds ]q \f1Unpublished & Not for Publication\fP

524
tmac/tmac.an Normal file
View file

@ -0,0 +1,524 @@
.fp 1 R LucidaSans
.fp 2 I LucidaSansI
.fp 3 B LucidaSansB
.fp 5 L LucidaCW
.if n .uf 4
.if n .bd 3
.if n .rm bd
'''\" PWB Manual Entry Macros - 1.36 of 11/11/80
'''\" Nroff/Troff Version @(#)1.36
'''\" Option -rs1 short (9") pages
'''\" Option -rp# set no. of first page, put no. of pgs. on stderr
'''\" Option -rd1 give modified date instead of printed date
... temporary fixes for neat manual printing...
.deth
.tmwrong version of man entry macros - use -man6
.ab
..
.ifn .ds Tm \uTM\d
.ift .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m'
.de}E
.}f
.in\\n()Ru+\\n(INu
.ll\\n(LLu
.lt\\n(LLu
.pl\\n()Lu
..
.deDT
.ift .ta 3.6m 7.2m 10.8m 14.4m 18m 21.6m 25.2m 28.8m 32.4m 36m 39.6m 43.2m 46.8m
.ifn .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n
..
.de HY
.hy14
..
.de}f
.ift .vs \\n()Vp
.ps\\n()S
.ft1
..
.de}H
.ev1
.}C
.}E
.ie\\n()s 'sp |2v
.el'sp |3v
.".ps\\n()S-1
.tl \\*(]H\\*(]L\\*(]H
.ft1
.ps\\n()S
.ie\\n()s 'sp 1.5v
.el'sp 3v
.ev
.ns
.if \\n(CL .2C
..
.de}F
.ev1
.}E
.if\\n()s 'sp |\\n(.pu-1v-1p
.if\\n()t 'sp |\\n(.pu-3v
.ifn 'sp |\\n(.pu-4v
.ifn .tl Page %\\*(]D\\*(]W
.ift .tl %
.ev
'bp
..
.ifn .ig
.de}C
.if "\\*(.T"aps"\{\
. po0i
. lt7.5i
. if\\n()s .tl \l0.25i\l0.25i\h1i\l0.25i
. if\\n()t .tl \l0.25i\l0.25i
. lt
. po\}
..
.de}M
.}N
.wh-.5p }C
.ll\\n(LLu
.}P
..
.de}K
.}N
.pl1
.ll\\n(LLu
..
.de}P
.nr )P \\n%+1-\\np
.if \\nq .tm \\n(.F \\n()P \\np
.bp
.if \\nq .nr p \\n%
..
.deTH
.PD
.nrIN \\n()Mu
.ift .ds ]H \\$1\^(\^\\$2\^)
.ifn .ds ]H \\$1(\\$2)
.if\\n()s .ds ]D
.if\\n()t .ds ]D Plan 9
.ifn .ds ]D Plan 9
.ds]L
.if!\\$3 .ds ]L (\^\\$3\^)
.if!\\$4 .ds ]D \\$4
.wh0 }H
.wh-\\n(:mu }F
.em}M
.if\\n(nl .}P
.nr)I \\n()Mu
.nr)R 0
.}E
.DT
.ifn \{.na
.nh\}
.ift \{.bd S 3 3
.HY \}
\Xhtml <B>
\Xhtml [<A HREF="/sys/man/index.html">manual index</A>]
\Xhtml [<A HREF="/sys/man/\\$2/INDEX.html">section index</A>]
\Xhtml </B>
..
.deSH
.PD
.}X 0 "\\$1"
.nr)E 2
\&\Xhtml <H4>\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6\Xhtml </H4>
..
.deSS
.PD
.}X 3n "" ""
.nr)E 2
\Xhtml <H4>\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6\Xhtml </H4>
..
.de}X
.}E
.ti\\$1
.sp\\n(PDu
.ne1.1v
.nr)R 0
.fi
'''ss12
'''if\\$2SYNOPSIS .ss 18
.it1 }N
.if!\\$3 .SM
.ft 3
..
.de}2
.nr)E 0
.}E
.nr)I \\n()Mu
.ns
.ft1
..
.deSM
.nh
.ps\\n()S-1
.if!\\$1 \&\\$1
.if!\\$2 \&\\$2
.if!\\$3 \&\\$3
.if!\\$4 \&\\$4
.if!\\$5 \&\\$5
.if!\\$6 \&\\$6
.if!\\$1 .ps \\n()S
.if\\$1 .it 1 }N
.HY
..
.deI
.nh
.ft2
.it1 }N
.if!\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
.HY
..
.deB
.nh
.it1 }N
.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
.el .ft5
.HY
..
.deL
.nh
.it1 }N
.ift \{.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
.el .ft5 \}
.ifn \{.ft5
.if!\\$1 \{.ie\\$2 `\\$1'
.el .ie\\$3 `\\$1 \\$2'
.el .ie\\$4 `\\$1 \\$2 \\$3'
.el .ie\\$5 `\\$1 \\$2 \\$3 \\$4'
.el .ie\\$6 `\\$1 \\$2 \\$3 \\$4 \\$5'
.el `\\$1 \\$2 \\$3 \\$4 \\$5 \\$6'\}\}
.HY
..
.deRI
.nh
.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deIR
.nh
.}S 2 1 \& "\Xhtml manref start \\$1 \\$2\\$1" "\\$2\Xhtml manref end \\$1 \\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deIB
.nh
.ift .}S 2 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 2 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deRB
.nh
.ift .}S 1 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deBR
.nh
.ift .}S 5 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deBI
.nh
.ift .}S 5 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 1 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.de LR
.nh
.ift \%\&\f5\\$1\f1\\$2
.ifn \%`\\$1'\\$2
.HY
..
.de RL
.nh
.ift \%\&\f1\\$1\\f5\\$2\\f1\\$3
.ifn \%\\$1`\\$2'\\$3
.HY
..
.de}S
.ds]F
.if\\$12 .if !\\$5 .ds ]F \^
.if\\$22 .if !\\$5 .ds ]F \^
.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
.el\\$3
.}f
..
.deEX
.ift .ft5
.nf
..
.deEE
.ft1
.fi
..
.de}p
.sp\\n(PDu
.ne1.1v
.}E
.nr)I \\n()Mu
.ns
..
.dePP \"indirect PP so we can attach html - see tmac.anhtml
.}p
..
.deP
.PP
..
.deLP
.PP
..
.dePD
.ift .nr PD .4v
.ifn .nr PD 1v
.if!\\$1 .nr PD \\$1v
..
.deHP
.sp\\n(PDu
.ne1.1v
.if!\\$1 .nr )I \\$1n
.ll\\n(LLu
.in\\n()Ru+\\n(INu+\\n()Iu
.ti\\n()Ru+\\n(INu
.}f
..
.deIP
.ie!\\$1 \{.TP "\\$2"
\&\\$1\}
.el\{.sp\\n(PDu
.ne1.1v
.if!\\$2 .nr )I \\$2n
.}f
.ll\\n(LLu
.in\\n()Ru+\\n(INu+\\n()Iu
.lg\}
..
.deTP
.if!\\$1 \{.nr )I \\$1n
.if\\$10 .nr )I \\n()M\}
.sp\\n(PDu
.ne1.1v
.in\\n()Ru
.lg0
.ns
.it1 }N
.nr)E 1
.di]B
..
.deTF
.IP "" "\w'\f5\\$1\ \ \fP'u"
.PD0
..
.de}1
.ds]X \&\\*(]B\\
.rm]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
.lg
..
.de}N
.if\\n()E .br
.if\\n()E1 .di
.if\\n()E0 .}f
.if\\n()E1 .}1
.if\\n()E2 .}2
..
.deRS
.nr]\\n+()p \\n()I
.nr)\\n()p \\n()R
.ie!\\$1 .nr )R +\\$1n
.el.nr )R +\\n()I
.nr)I \\n()Mu
.}E
..
.deRE
.if!\\$1 \{.ie \\$10 .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
..
'''\" .2C begin 2-column display, by diversion
'''\" CC=amount of text that will fit on page
'''\" CL=1 multicolumn in effect, else 0
'''\" CI saved indent
'''\" CB contains diverted text
.de 2C
.ne 2
.nf
.nr CC \\n(.t/1v*2v
.nr CI \\n(IN
.nr IN 0
.di CB
.nr CL 1
.}E
.dt \\n(CCu C1
..
'''\" .1C return to 1-column
.de 1C
.nr CL 0
.C1
.fi
..
'''\" end of diversion, at end of page or return to 1-column
'''\" CC=pos of nominal column end
.de C1
.dt
\!.C3
.di
.if \\n(dn \{.nr CC \\n(dnu/2u+\\n(nlu
.wh \\n(CCu C2
.mk
.nf
.nr IN \\n(CIu
.}E
.CB \}
..
'''\" end of first column retrieved from diversion
'''\" CC=pos of actual column end
.de C2
.wh \\n(CCu
.mk CC
.po +(\\n(LLu/2u)u
.rt
.if \\n(dn>1v .ns
..
'''\" end of second column
.de C3
.br
.po -(\\n(LLu/2u)u
.if \\n(CC>\\n(nl .sp |\\n(CCu
.ne 2
..
.dePM
.if\\$1 .nr !K 0
.if\w\\$1 \{\
.ie\\$1P .nr !K 1
.el.ie \\$1BP .nr !K 3
.el.ie \\$1BR .nr !K 4
.el.nr !K 2 \}
.if\\n(!K .wh -(\\n(:mu+5v) )G
..
.de)G
.if\\n(!K 'sp 2v
.ie\\n(!K=1 \{\
.iet .bd1 3
.el.bd1 0
.tlPRIVATE
.bd1
.tlThis information should not be disclosed to unauthorized persons.
.tlIt is meant solely for use by authorized Bell System employees. \}
.el.ie \\n(!K=3 \{\
.iet .bd1 3
.el.bd1 0
.tlBELL LABORATORIES PROPRIETARY
.bd1
.tlNot for use or disclosure outside Bell Laboratories except by
.tlwritten approval of the director of the distributing organization. \}
.el.ie \\n(!K=4 \{\
.iet .bd1 3
.el.bd1 0
.tlBELL LABORATORIES RESTRICTED
.bd1
.tlThe information herein is meant solely for use by authorized
.tlBell Laboratories employees and is not to be disclosed to others. \}
.el.if \\n(!K=2 \{\
.iet .bd1 3
.el.bd1 0
.tlNOTICE
.bd1
.tlNot for use or disclosure outside the
.tlBell System except under written agreement. \}
..
.nr)s 0
.ift .if \ns .nr )s 1
.nr)t 0
.ift .if !\ns .nr )t 1
.if\n()s \{.nr )L 9i
.nrLL 4.75i
.nr)O .75i
.nr)S 8
.nr)V 9 \}
.if\n()t \{.nr )L 11i
.nrLL 6.5i
.nr)O 1i
.nr)S 9
.nr)V 11 \}
.ift \{.ds R ®
.dsS \s\n()S
..\}
.ifn \{.nr )L 11i
.nrLL 6.5i
.nr)O .463i
.if '\*(.T'think' \{.nrLL 80n
.nr)O 0\}
.if '\*(.T'thinksmall' \{.nrLL 142n
.vs 9p
.nr)O 0\}
.dsR (Reg.)
.dsS
..\}
.if\nT .nr LL 80n
.if\nV>1 \{
.nrLL 82n
.nr)L 84v
.rmul \}
.nr)p 0 1
.ds]I \\\\n(]
.ds]R \\\\n()
.if\nd0 .nr m \n(mo-1
.if\nm0 .ds ]m January
.if\nm1 .ds ]m February
.if\nm2 .ds ]m March
.if\nm3 .ds ]m April
.if\nm4 .ds ]m May
.if\nm5 .ds ]m June
.if\nm6 .ds ]m July
.if\nm7 .ds ]m August
.if\nm8 .ds ]m September
.if\nm9 .ds ]m October
.if\nm10 .ds ]m November
.if\nm11 .ds ]m December
.ifn \{.nr m \nm+1
.nr yD (\n(yr%100
.af yD 01
.ie\nd .ds ]W (last mod. \nm/\nd/\ny)
.el.ds ]W (printed \n(mo/\n(dy/\n(yD)
..\}
.if\n()s .ds ]W
.if\n()t \{.ie \nd .ds ]W \*(]m \nd, 20\ny
.el.ds ]W \*(]m \n(dy, 20\n(yr
..\}
.pl\n()Lu
.ll\n(LLu
.lt\n(LLu
.po\n()Ou
.ift .tr \``\''
.}f
.if\n()s .nr :m 3.5v
.if\n()t .nr :m 6v
.ifn .nr :m 7v
.ift .nr )M 3.6m
.ifn .nr )M 5n
.em}K
.nr q \np
.if!\np .nr p 1
.pn \np

14
tmac/tmac.anhtml Normal file
View file

@ -0,0 +1,14 @@
.so #9/sys/lib/tmac/tmac.an
.de }H
..
.de }F
..
.hy 0
.de HY
.hy 0
..
.nr LL 20i
.dePP
\Xhtml <P>
.}p
..

509
tmac/tmac.antimes Normal file
View file

@ -0,0 +1,509 @@
'''\" PWB Manual Entry Macros - 1.36 of 11/11/80
'''\" Nroff/Troff Version @(#)1.36
'''\" Option -rs1 short (9") pages
'''\" Option -rp# set no. of first page, put no. of pgs. on stderr
'''\" Option -rd1 give modified date instead of printed date
... temporary fixes for neat manual printing...
.deth
.tmwrong version of man entry macros - use -man6
.ab
..
.ifn .ds Tm \uTM\d
.ift .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m'
.de}E
.}f
.in\\n()Ru+\\n(INu
.ll\\n(LLu
.lt\\n(LLu
.pl\\n()Lu
..
.deDT
.ift .ta 3.6m 7.2m 10.8m 14.4m 18m 21.6m 25.2m 28.8m 32.4m 36m 39.6m 43.2m 46.8m
.ifn .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n
..
.de HY
.hy14
..
.de}f
.ift .vs \\n()Vp
.ps\\n()S
.ft1
..
.de}H
.ev1
.}C
.}E
.ie\\n()s 'sp |2v
.el'sp |3v
.".ps\\n()S-1
.tl \\*(]H\\*(]L\\*(]H
.ft1
.ps\\n()S
.ie\\n()s 'sp 1.5v
.el'sp 3v
.ev
.ns
.if \\n(CL .2C
..
.de}F
.ev1
.}E
.if\\n()s 'sp |\\n(.pu-1v-1p
.if\\n()t 'sp |\\n(.pu-3v
.ifn 'sp |\\n(.pu-4v
.ifn .tl Page %\\*(]D\\*(]W
.ift .tl %
.ev
'bp
..
.ifn .ig
.de}C
.if "\\*(.T"aps"\{\
. po0i
. lt7.5i
. if\\n()s .tl \l0.25i\l0.25i\h1i\l0.25i
. if\\n()t .tl \l0.25i\l0.25i
. lt
. po\}
..
.de}M
.}N
.wh-.5p }C
.ll\\n(LLu
.}P
..
.de}K
.}N
.pl1
.ll\\n(LLu
..
.de}P
.nr )P \\n%+1-\\np
.if \\nq .tm \\n(.F \\n()P \\np
.bp
.if \\nq .nr p \\n%
..
.deTH
.PD
.nrIN \\n()Mu
.ift .ds ]H \\$1\^(\^\\$2\^)
.ifn .ds ]H \\$1(\\$2)
.if\\n()s .ds ]D
.if\\n()t .ds ]D Plan 9
.ifn .ds ]D Plan 9
.ds]L
.if!\\$3 .ds ]L (\^\\$3\^)
.if!\\$4 .ds ]D \\$4
.wh0 }H
.wh-\\n(:mu }F
.em}M
.if\\n(nl .}P
.nr)I \\n()Mu
.nr)R 0
.}E
.DT
.ifn \{.na
.nh\}
.ift \{.bd S 3 3
.HY \}
..
.deSH
.PD
.}X 0 "\\$1" smaller
.nr)E 2
\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
..
.deSS
.PD
.}X 3n "" ""
.nr)E 2
\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
..
.de}X
.}E
.ti\\$1
.sp\\n(PDu
.ne1.1v
.nr)R 0
.fi
'''ss12
'''if\\$2SYNOPSIS .ss 18
.it1 }N
.if!\\$3 .SM
.ft 3
..
.de}2
.nr)E 0
.}E
.nr)I \\n()Mu
.ns
.ft1
..
.deSM
.nh
.ps\\n()S-1
.if!\\$1 \&\\$1
.if!\\$2 \&\\$2
.if!\\$3 \&\\$3
.if!\\$4 \&\\$4
.if!\\$5 \&\\$5
.if!\\$6 \&\\$6
.if!\\$1 .ps \\n()S
.if\\$1 .it 1 }N
.HY
..
.deI
.nh
.ft2
.it1 }N
.if!\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
.HY
..
.deB
.nh
.it1 }N
.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
.el .ft5
.HY
..
.deL
.nh
.it1 }N
.ift \{.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
.el .ft5 \}
.ifn \{.ft5
.if!\\$1 \{.ie\\$2 `\\$1'
.el .ie\\$3 `\\$1 \\$2'
.el .ie\\$4 `\\$1 \\$2 \\$3'
.el .ie\\$5 `\\$1 \\$2 \\$3 \\$4'
.el .ie\\$6 `\\$1 \\$2 \\$3 \\$4 \\$5'
.el `\\$1 \\$2 \\$3 \\$4 \\$5 \\$6'\}\}
.HY
..
.deRI
.nh
.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deIR
.nh
.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deIB
.nh
.ift .}S 2 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 2 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deRB
.nh
.ift .}S 1 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deBR
.nh
.ift .}S 5 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.deBI
.nh
.ift .}S 5 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.ifn .}S 1 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
.HY
.}f
..
.de LR
.nh
.ift \%\&\f5\\$1\f1\\$2
.ifn \%`\\$1'\\$2
.HY
..
.de RL
.nh
.ift \%\&\f1\\$1\\f5\\$2\\f1\\$3
.ifn \%\\$1`\\$2'\\$3
.HY
..
.de}S
.ds]F
.if\\$12 .if !\\$5 .ds ]F \^
.if\\$22 .if !\\$5 .ds ]F \^
.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
.el\\$3
.}f
..
.deEX
.ift .ft5
.nf
..
.deEE
.ft1
.fi
..
.dePP
.sp\\n(PDu
.ne1.1v
.}E
.nr)I \\n()Mu
.ns
..
.deP
.PP
..
.deLP
.PP
..
.dePD
.ift .nr PD .4v
.ifn .nr PD 1v
.if!\\$1 .nr PD \\$1v
..
.deHP
.sp\\n(PDu
.ne1.1v
.if!\\$1 .nr )I \\$1n
.ll\\n(LLu
.in\\n()Ru+\\n(INu+\\n()Iu
.ti\\n()Ru+\\n(INu
.}f
..
.deIP
.ie!\\$1 \{.TP "\\$2"
\&\\$1\}
.el\{.sp\\n(PDu
.ne1.1v
.if!\\$2 .nr )I \\$2n
.}f
.ll\\n(LLu
.in\\n()Ru+\\n(INu+\\n()Iu
.lg\}
..
.deTP
.if!\\$1 \{.nr )I \\$1n
.if\\$10 .nr )I \\n()M\}
.sp\\n(PDu
.ne1.1v
.in\\n()Ru
.lg0
.ns
.it1 }N
.nr)E 1
.di]B
..
.deTF
.IP "" "\w'\f5\\$1\ \ \fP'u"
.PD0
..
.de}1
.ds]X \&\\*(]B\\
.rm]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
.lg
..
.de}N
.if\\n()E .br
.if\\n()E1 .di
.if\\n()E0 .}f
.if\\n()E1 .}1
.if\\n()E2 .}2
..
.deRS
.nr]\\n+()p \\n()I
.nr)\\n()p \\n()R
.ie!\\$1 .nr )R +\\$1n
.el.nr )R +\\n()I
.nr)I \\n()Mu
.}E
..
.deRE
.if!\\$1 \{.ie \\$10 .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
..
'''\" .2C begin 2-column display, by diversion
'''\" CC=amount of text that will fit on page
'''\" CL=1 multicolumn in effect, else 0
'''\" CI saved indent
'''\" CB contains diverted text
.de 2C
.ne 2
.nf
.nr CC \\n(.t/1v*2v
.nr CI \\n(IN
.nr IN 0
.di CB
.nr CL 1
.}E
.dt \\n(CCu C1
..
'''\" .1C return to 1-column
.de 1C
.nr CL 0
.C1
.fi
..
'''\" end of diversion, at end of page or return to 1-column
'''\" CC=pos of nominal column end
.de C1
.dt
\!.C3
.di
.if \\n(dn \{.nr CC \\n(dnu/2u+\\n(nlu
.wh \\n(CCu C2
.mk
.nf
.nr IN \\n(CIu
.}E
.CB \}
..
'''\" end of first column retrieved from diversion
'''\" CC=pos of actual column end
.de C2
.wh \\n(CCu
.mk CC
.po +(\\n(LLu/2u)u
.rt
.if \\n(dn>1v .ns
..
'''\" end of second column
.de C3
.br
.po -(\\n(LLu/2u)u
.if \\n(CC>\\n(nl .sp |\\n(CCu
.ne 2
..
.dePM
.if\\$1 .nr !K 0
.if\w\\$1 \{\
.ie\\$1P .nr !K 1
.el.ie \\$1BP .nr !K 3
.el.ie \\$1BR .nr !K 4
.el.nr !K 2 \}
.if\\n(!K .wh -(\\n(:mu+5v) )G
..
.de)G
.if\\n(!K 'sp 2v
.ie\\n(!K=1 \{\
.iet .bd1 3
.el.bd1 0
.tlPRIVATE
.bd1
.tlThis information should not be disclosed to unauthorized persons.
.tlIt is meant solely for use by authorized Bell System employees. \}
.el.ie \\n(!K=3 \{\
.iet .bd1 3
.el.bd1 0
.tlBELL LABORATORIES PROPRIETARY
.bd1
.tlNot for use or disclosure outside Bell Laboratories except by
.tlwritten approval of the director of the distributing organization. \}
.el.ie \\n(!K=4 \{\
.iet .bd1 3
.el.bd1 0
.tlBELL LABORATORIES RESTRICTED
.bd1
.tlThe information herein is meant solely for use by authorized
.tlBell Laboratories employees and is not to be disclosed to others. \}
.el.if \\n(!K=2 \{\
.iet .bd1 3
.el.bd1 0
.tlNOTICE
.bd1
.tlNot for use or disclosure outside the
.tlBell System except under written agreement. \}
..
.nr)s 0
.ift .if \ns .nr )s 1
.nr)t 0
.ift .if !\ns .nr )t 1
.if\n()s \{.nr )L 9i
.nrLL 4.75i
.nr)O .75i
.nr)S 9
.nr)V 10 \}
.if\n()t \{.nr )L 11i
.nrLL 6.5i
.nr)O 1i
.nr)S 10
.nr)V 12 \}
.ift \{.ds R \(rg
.dsS \s\n()S
..\}
.ifn \{.nr )L 11i
.nrLL 6.5i
.nr)O .463i
.if '\*(.T'think' \{.nrLL 80n
.nr)O 0\}
.if '\*(.T'thinksmall' \{.nrLL 142n
.vs 9p
.nr)O 0\}
.dsR (Reg.)
.dsS
..\}
.if\nT .nr LL 80n
.if\nV>1 \{
.nrLL 82n
.nr)L 84v
.rmul \}
.nr)p 0 1
.ds]I \\\\n(]
.ds]R \\\\n()
.if\nd0 .nr m \n(mo-1
.if\nm0 .ds ]m January
.if\nm1 .ds ]m February
.if\nm2 .ds ]m March
.if\nm3 .ds ]m April
.if\nm4 .ds ]m May
.if\nm5 .ds ]m June
.if\nm6 .ds ]m July
.if\nm7 .ds ]m August
.if\nm8 .ds ]m September
.if\nm9 .ds ]m October
.if\nm10 .ds ]m November
.if\nm11 .ds ]m December
.ifn \{.nr m \nm+1
.ie\nd .ds ]W (last mod. \nm/\nd/\ny)
.el.ds ]W (printed \n(mo/\n(dy/\n(yr)
..\}
.if\n()s .ds ]W
.if\n()t \{.ie \nd .ds ]W \*(]m \nd, 20\ny
.el.ds ]W \*(]m \n(dy, 20\n(yr
..\}
.pl\n()Lu
.ll\n(LLu
.lt\n(LLu
.po\n()Ou
.fp 5 L CW
.ift .tr \``\''
.}f
.if\n()s .nr :m 3.5v
.if\n()t .nr :m 6v
.ifn .nr :m 7v
.ift .nr )M 3.6m
.ifn .nr )M 5n
.em}K
.nr q \np
.if!\np .nr p 1
.pn \np

44
tmac/tmac.bits Normal file
View file

@ -0,0 +1,44 @@
.ds Bf b \" default format; use i for icons and faces
.ds Bn /tmp/btroff\n($$ \" temporary file, reused on each macro call
.ds Bp /usr/lib/btroff \" bitmap filter
.de BM
.if \\n(.$=1 .ds Bf \\$1
.if \\n(.$=2 \{. \" copy request, perhaps diverted
.ie '\\n(.z'' .Bm \\$1 \\$2
.el \!.BM \\$1 \\$2\}
.if \\n(.$=4 \{. \" size request, numerator only
.nr Bz \\$2
.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
print ".nr \\$3 " $1; \
print ".nr \\$4 " $2; \
exit }' >\\*(Bn
.so \\*(Bn
.sy /bin/rm -f \\*(Bn \}
.if \\n(.$=5 \{. \" size request, numerator and denominator
.nr Bz \\$2
.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
print ".nr \\$4 " $1 "/\\$3"; \
print ".nr \\$5 " $2 "/\\$3"; \
exit }' >\\*(Bn
.so \\*(Bn
.sy /bin/rm -f \\*(Bn \}
..
.de Bm \" copy request, for real
.if \\n(.P>0 \{. \" maybe
.fl
.ie '\\$2'0' \{. \" ask driver to read the bits
.br
\\X'Bitmap \\$1'
.sp -1 \}
.el \{. \" use the Bitmap font
.sy \\*(Bp -\\*(Bf -d\\$2 \\$1 >\\*(Bn
.fp 9 BM Bitmap
.ft 9
.ps \\$2
.cf \\*(Bn \" next line is for pm to consume
\!n0 1
.ft
.ps
.sy /bin/rm -f \\*(Bn \}
.fl \}
..

1150
tmac/tmac.cs Normal file
View file

File diff suppressed because it is too large Load diff

997
tmac/tmac.e Normal file
View file

@ -0,0 +1,997 @@
.nr _0 \n(.c
.\"**********************************************************************
.\"* *
.\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *
.\"* *
.\"* Produced for your edification and enjoyment by: *
.\"* Eric Allman *
.\"* Electronics Research Laboratory *
.\"* U.C. Berkeley. *
.\"* *
.\"* VERSION 2.9 First Release: 11 Sept 1978 *
.\"* See file \*(||/revisions for revision history *
.\"* *
.\"* Documentation is available. *
.\"* *
.\"**********************************************************************
.\"
.\" @(#)tmac.e 2.9 12/10/80
.\" This version has had comments stripped; an unstripped version is available.
.if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
.if !\n(.V .tm This macro package works only on the version seven
.if !\n(.V .tm release of NROFF and TROFF.
.if !\n(.V .ex
.if \n(pf \
. nx \*(||/null.me
.de @C
.nr _S \\n(.s
.nr _V \\n(.v
.nr _F \\n(.f
.nr _I \\n(.i
.ev \\$1
.ps \\n(_Su
.vs \\n(_Vu
.ft \\n(_F
'in \\n(_Iu
.xl \\n($lu
.lt \\n($lu
.rr _S
.rr _V
.rr _F
.rr _I
.ls 1
'ce 0
..
.de @D
.ds |p "\\$3
.nr _d \\$1
.ie "\\$2"C" \
. nr _d 1
.el .ie "\\$2"L" \
. nr _d 2
.el .ie "\\$2"I" \
. nr _d 3
.el .ie "\\$2"M" \
. nr _d 4
.el \
. ds |p "\\$2
..
.de @z
.if !"\\n(.z"" \
\{\
. tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
. di
. ex
.\}
.if \\n(?a \
. bp
.rm bp
.rm @b
.if t \
. wh -1p @m
.br
..
.de @I
.rm th
.rm ac
.rm lo
.rm sc
.rm @I
..
.de he
.ie !\\n(.$ \
\{\
. rm |4
. rm |5
.\}
.el \
\{\
. ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
..
.de eh
.ie !\\n(.$ \
. rm |4
.el \
. ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.de oh
.ie !\\n(.$ \
. rm |5
.el \
. ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.de fo
.ie !\\n(.$ \
\{\
. rm |6
. rm |7
.\}
.el \
\{\
. ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.\}
..
.de ef
.ie !\\n(.$ \
. rm |6
.el \
. ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.de of
.ie !\\n(.$ \
. rm |7
.el \
. ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.de ep
.if \\n(nl>0 \
\{\
. wh 0
. rs
. @b
.\}
..
.de @h
.if (\\n(.i+\\n(.o)>=\\n(.l \
. tm Line \\n(c. -- Offset + indent exceeds line length
.if t .if (\\n(.l+\\n(.o)>7.75i \
. tm Line \\n(c. -- Offset + line length exceeds paper width
.nr ?h \\n(?H
.rr ?H
.nr ?c \\n(?C
.rr ?C
.rn |4 |0
.rn |5 |1
.rn |6 |2
.rn |7 |3
.nr _w 0
.nr ?W 0
.nr ?I 1
.ev 2
.rs
.if t .@m
.if \\n(hm>0 \
. sp |\\n(hmu
.if \\n($T=2 \\!.
.@t $h
.if \\n(tm<=0 \
. nr tm \n(.Vu
.sp |\\n(tmu
.ev
.mk _k
.if \\n(?n .nm 1
.nr $c 1
.ie \\n(?s \
\{\
. rr ?s
. rs
' @b
.\}
.el \
. @n
..
.de @m
.@O 0
.lt 7.5i
.tl '\(rn''\(rn'
.@O
.lt
..
.de @n
.if \\n(bm<=0 \
. nr bm \\n(.Vu
.if (\\n(_w<=\\n($l)&(\\n(?W=0) \
\{\
. nr _b (\\n(ppu*\\n($ru)/2u
. if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
. nr _b (\\n(ppu*\\n($ru)-\n(.Vu
. nr _b +\\n(bmu
.\}
.nr _B \\n(_bu
.ch @f
.wh -\\n(_bu @f
.nr ?f 0
.if \\n(?o \
\{\
. (f _
. nf
. |o
. fi
. )f
. rm |o
.\}
.nr ?o 0
.if \\n(?T \
\{\
. nr _i \\n(.i
. in \\n($iu
. |h
. in \\n(_iu
. rr _i
. mk #T
. ns
.\}
.if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
\{\
. nr ?a 0
. @k |t
. if \\n(?w \
. mk _k
. nr ?w 0
.\}
.os
.$H
.ns
..
.de @f
.ec
.if \\n(?T \
\{\
. nr T. 1
. T# 1
. br
.\}
.ev 2
.ce 0
.if \\n(?b \
\{\
. nr ?b 0
. @k |b
.\}
.if \\n(?f \
. @o
.ie \\n($c<\\n($m \
. @c
.el \
. @e
.ev
..
.de @o
.nf
.ls 1
.in 0
.wh -\\n(_Bu @r
.|f
.fi
.if \\n(?o \
. di
. if \\n(dn=0 \
\{\
. rm |o
. nr ?o 0
. \}
. nr dn \\n(_D
. rr _D
.\}
.rm |f
.ch @r
..
.de @c
.rs
.sp |\\n(_ku
.@O +\\n($lu+\\n($su
.nr $c +1
.@n
..
.de @e
.@O \\n(_ou
.rs
.sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
.@t $f
.nr ?h 0
.bp
..
.de @t
.if !\\n(?h \
\{\
. sz \\n(tp
. @F \\n(tf
. lt \\n(_Lu
. nf
. \\$1
. br
.\}
..
.de $h
.rm |z
.if !\\n(?c \
\{\
. if e .ds |z "\\*(|0
. if o .ds |z "\\*(|1
.\}
.if !\(ts\\*(|z\(ts\(ts \
' tl \\*(|z
.rm |z
..
.de $f
.rm |z
.if \\n(?c \
\{\
. if e .ds |z "\\*(|0
. if o .ds |z "\\*(|1
.\}
.if \(ts\\*(|z\(ts\(ts \
\{\
. if e .ds |z "\\*(|2
. if o .ds |z "\\*(|3
.\}
.if !\(ts\\*(|z\(ts\(ts \
' tl \\*(|z
.rm |z
..
.de @r
.di |o
.nr ?o 1
.nr _D \\n(dn
.ns
..
.rn bp @b
.de bp
.nr $c \\n($m
.ie \\n(nl>0 \
. @b \\$1
.el \
\{\
. if \\n(.$>0 \
. pn \\$1
. if \\n(?I \
. @h
.\}
.br
.wh 0 @h
..
.rn ll xl
.de ll
.xl \\$1
.lt \\$1
.nr $l \\n(.l
.if (\\n($m<=1):(\\n($l>\\n(_L) \
. nr _L \\n(.l
..
.rn po @O
.de po
.@O \\$1
.nr _o \\n(.o
..
.de hx
.nr ?H 1
..
.de ix
'in \\$1
..
.de bl
.br
.ne \\$1
.rs
.sp \\$1
..
.de n1
.nm 1
.xl -\w'0000'u
.nr ?n 1
..
.de n2
.nm \\$1
.ie \\n(.$ \
. xl -\w'0000'u
.el \
. xl \\n($lu
..
.de pa
.bp \\$1
..
.de ro
.af % i
..
.de ar
.af % 1
..
.de m1
.nr _0 \\n(hmu
.nr hm \\$1v
.nr tm +\\n(hmu-\\n(_0u
.rr _0
..
.de m2
.nr tm \\n(hmu+\\n(tpp+\\$1v
..
.de m3
.nr bm \\n(fmu+\\n(tpp+\\$1v
..
.de m4
.nr _0 \\n(fmu
.nr fm \\$1v
.nr bm +\\n(fmu-\\n(_0u
..
.de sk
.if \\n(.$>0 \
. tm Line \\n(c. -- I cannot skip multiple pages
.nr ?s 1
..
.de re
.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
..
.if t .ig
.de re
.ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i
..
.de ba
.ie \\n(.$ \
. nr $i \\$1n
.el \
. nr $i \\n(siu*\\n($0u
..
.de hl
.br
\l'\\n(.lu-\\n(.iu'
.sp
..
.de pp
.lp \\n(piu
..
.de lp
.@p
.if \\n(.$ \
. ti +\\$1
.nr $p 0 1
..
.de ip
.if (\\n(ii>0)&(\\n(ii<1n) \
. nr ii \\n(iin
.nr _0 \\n(ii
.if \\n(.$>1 \
. nr _0 \\$2n
.@p \\n(_0u
.if \\w"\\$1" \
\{\
. ti -\\n(_0u
. ie \\w"\\$1">=\\n(_0 \
\{\
\&\\$1
. br
. \}
. el \&\\$1\h'|\\n(_0u'\c
.\}
.rr _0
..
.de np
.nr $p +1
.ip (\\n($p)
..
.de @p
.@I
.if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
.in \\n($iu+\\n(pou
.if \\n(.$ \
. in +\\$1n
.ce 0
.fi
.@F \\n(pf
.sz \\n(ppu
.sp \\n(psu
.ne \\n(.Lv+\\n(.Vu
.ns
..
.de sh
.rn sh @T
.so \\*(||/sh.me
.sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
.rm @T
..
.de $p
.if (\\n(si>0)&(\\n(.$>2) \
. nr $i \\$3*\\n(si
.in \\n($iu
.ie !"\\$1\\$2"" \
\{\
. sp \\n(ssu
. ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
. ie \\n(.$>2 \
. ti -(\\n(siu-\\n(sou)
. el \
. ti +\\n(sou
. @F \\n(sf
. sz \\n(spu
. if \\$3>0 \
. $\\$3
. if \w"\\$2">0 \\$2.
. if \w"\\$1">0 \\$1\f1\ \ \"
.\}
.el \
. sp \\n(psu
.@F \\n(pf
.sz \\n(ppu
..
.de uh
.rn uh @T
.so \\*(||/sh.me
.uh "\\$1"
.rm @T
..
.de 2c
.br
.if \\n($m>1 \
. 1c
.nr $c 1
.nr $m 2
.if \\n(.$>1 \
. nr $m \\$2
.if \\n(.$>0 \
. nr $s \\$1n
.nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
.xl \\n($lu
.mk _k
.ns
..
.de 1c
.br
.nr $c 1
.nr $m 1
.ll \\n(_Lu
.sp |\\n(.hu
.@O \\n(_ou
..
.de bc
.sp 24i
..
.de (z
.rn (z @V
.so \\*(||/float.me
.(z \\$1 \\$2
.rm @V
..
.de )z
.tm Line \\n(c. -- unmatched .)z
..
.de (t
.(z \\$1 \\$2
..
.de )t
.)z \\$1 \\$2
..
.de (b
.br
.@D 3 \\$1 \\$2
.sp \\n(bsu
.@(
..
.de )b
.br
.@)
.if (\\n(bt=0):(\\n(.t<\\n(bt) \
. ne \\n(dnu
.ls 1
.nf
.|k
.ec
.fi
.in 0
.xl \\n($lu
.ev
.rm |k
.sp \\n(bsu+\\n(.Lv-1v
..
.de @(
.if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
.@M
.di |k
\!'rs
..
.de @M
.nr ?k 1
.@C 1
.@F \\n(df
.vs \\n(.su*\\n($Ru
.nf
.if "\\*(|p"F" \
. fi
.if \\n(_d=4 \
. in 0
.if \\n(_d=3 \
\{\
. in +\\n(biu
. xl -\\n(biu
.\}
.if \\n(_d=1 \
. ce 10000
..
.de @)
.br
.if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
.nr ?k 0
.di
.in 0
.ce 0
..
.de (c
.if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
.di |c
..
.de )c
.if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
.br
.di
.ev 1
.ls 1
.in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
.nf
.|c
.ec
.in
.ls
.ev
.rm |c
..
.de (q
.br
.@C 1
.fi
.sp \\n(qsu
.in +\\n(qiu
.xl -\\n(qiu
.sz \\n(qp
..
.de )q
.br
.ev
.sp \\n(qsu+\\n(.Lv-1v
.nr ?k 0
..
.de (l
.br
.sp \\n(bsu
.@D 3 \\$1 \\$2
.@M
..
.de )l
.br
.ev
.sp \\n(bsu+\\n(.Lv-1v
.nr ?k 0
..
.de EQ
.rn EQ @T
.so \\*(||/eqn.me
.EQ \\$1 \\$2
.rm @T
..
.de TS
.rn TS @W
.so \\*(||/tbl.me
.TS \\$1 \\$2
.rm @W
..
.de sz
.ps \\$1
.vs \\n(.su*\\n($ru
.bd S B \\n(.su/3u
..
.de r
.nr _F \\n(.f
.ul 0
.ft 1
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.rr _F
..
.de i
.nr _F \\n(.f
.ul 0
.ft 2
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.rr _F
..
.de b
.nr _F \\n(.f
.ul 0
.ie t \
. ft 3
.el \
. ul 10000
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.if \\n(.$ \
. ul 0
.rr _F
..
.de rb
.nr _F \\n(.f
.ul 0
.ft 3
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.rr _F
..
.de u
\&\\$1\l'|0\(ul'\\$2
..
.de q
\&\\*(lq\\$1\\*(rq\\$2
..
.de bi
.ft 2
.ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
.el \&\\$1\fP\\$2
..
.de bx
.ie \\n($T \&\f2\\$1\fP\\$2
.el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
..
.de @F
.nr ~ \\$1
.if \\n~>0 \
\{\
. ul 0
. ie \\n~>4 \
\{\
. if n .ul 10000
. if t .ft 3
. \}
. el \
. ft \\n~
.\}
.rr ~
..
.de (f
.rn (f @U
.so \\*(||/footnote.me
.(f \\$1 \\$2
.rm @U
..
.de )f
.tm Line \\n(c. -- unmatched .)f
..
.de $s
\l'2i'
.if n \
. sp 0.3
..
.de (d
.rn (d @U
.so \\*(||/deltext.me
.(d \\$1 \\$2
.rm @U
..
.de )d
.tm Line \\n(c. -- unmatched .)d
..
.de (x
.rn (x @U
.so \\*(||/index.me
.(x \\$1 \\$2
.rm @U
..
.de )x
.tm Line \\n(c. -- unmatched .)x
..
.de th
.so \\*(||/thesis.me
.rm th
..
.de +c
.ep
.if \\n(?o:\\n(?a \
\{\
. bp
. rs
. ep
.\}
.nr ?C 1
.nr $f 1 1
.ds * \\*[1\\*]\k*
.if \\n(?R \
. pn 1
.bp
.in \\n($iu
.rs
.ie \\n(.$ \
. $c "\\$1"
.el \
. sp 3
..
.de ++
.nr _0 0
.if "\\$1"C" \
. nr _0 1
.if "\\$1"RC" \
. nr _0 11
.if "\\$1"A" \
. nr _0 2
.if "\\$1"RA" \
. nr _0 12
.if "\\$1"P" \
. nr _0 3
.if "\\$1"B" \
. nr _0 4
.if "\\$1"AB" \
. nr _0 5
.if \\n(_0=0 \
. tm Line \\n(c. -- Bad mode to .++
.nr ?R 0
.if \\n(_0>10 \
.\{
. nr ?R 1
. nr _0 -10
.\}
.nr ch 0 1
.if (\\n(_0=3):(\\n(_0=5) \
. pn 1
.ep
.if \\n(_0=1 \
\{\
. af ch 1
. af % 1
.\}
.if \\n(_0=2 \
\{\
. af ch A
. af % 1
.\}
.if \\n(_0=3 \
. af % i
.if \\n(_0=4 \
. af % 1
.if \\n(_0=5 \
. af % 1
.if \\n(.$>1 \
. he \\$2
.if !\\n(_0=\\n(_M .if \\n(_M=3 \
. pn 1
.nr _M \\n(_0
.rr _0
..
.de $c
.sz 12
.ft B
.ce 1000
.if \\n(_M<3 \
. nr ch +1
.ie \\n(_M=1 CHAPTER\ \ \\n(ch
.el .if \\n(_M=2 APPENDIX\ \ \\n(ch
.if \w"\\$1" .sp 3-\\n(.L
.if \w"\\$1" \\$1
.if (\\n(_M<3):(\w"\\$1") \
. sp 4-\\n(.L
.ce 0
.ft
.sz
.ie \\n(_M=1 \
. $C Chapter \\n(ch "\\$1"
.el .if \\n(_M=2 \
. $C Appendix \\n(ch "\\$1"
..
.de tp
.hx
.bp
.br
.rs
.pn \\n%
..
.de ac
.rn ac @T
.so \\*(||/acm.me
.ac "\\$1" "\\$2"
.rm @T
..
.de lo
.so \\*(||/local.me
.rm lo
..
.if \n(mo=1 .ds mo January
.if \n(mo=2 .ds mo February
.if \n(mo=3 .ds mo March
.if \n(mo=4 .ds mo April
.if \n(mo=5 .ds mo May
.if \n(mo=6 .ds mo June
.if \n(mo=7 .ds mo July
.if \n(mo=8 .ds mo August
.if \n(mo=9 .ds mo September
.if \n(mo=10 .ds mo October
.if \n(mo=11 .ds mo November
.if \n(mo=12 .ds mo December
.if \n(dw=1 .ds dw Sunday
.if \n(dw=2 .ds dw Monday
.if \n(dw=3 .ds dw Tuesday
.if \n(dw=4 .ds dw Wednesday
.if \n(dw=5 .ds dw Thursday
.if \n(dw=6 .ds dw Friday
.if \n(dw=7 .ds dw Saturday
.ds td \*(mo \n(dy, 20\n(yr
.if (1m<0.1i)&(\nx!=0) \
. vs 9p
.rr x
.nr $r \n(.v/\n(.s
.nr $R \n($r
.nr hm 4v
.nr tm 7v
.nr bm 6v
.nr fm 3v
.nr tf 3
.nr tp 10
.hy 14
.nr bi 4n
.nr pi 5n
.nr pf 1
.nr pp 10
.nr qi 4n
.nr qp -1
.nr ii 5n
.nr $m 1
.nr $s 4n
.ds || #9/sys/lib/tmac/me
.bd S B 3
.ds [ \u\x'-0.25v'
.ds ] \d
.ds < \d\x'0.25v'
.ds > \u
.ds - --
.if t \
\{\
. ds [ \v'-0.4m'\x'-0.2m'\s-3
. ds ] \s0\v'0.4m'
. ds < \v'0.4m'\x'0.2m'\s-3
. ds > \s0\v'-0.4m'
. ds - \-
. nr fi 0.3i
.\}
.if n \
\{\
. nr fi 3n
.\}
.nr _o \n(.o
.if n .po 1i
.if \n(.V=1v \
. nr $T 2
.if \n(.T=0 \
. nr $T 1
.if t \
\{\
. nr $T 0
. po -0.5i
.\}
.if \nv \
. po 1i
.if \n($T \
\{\
. if \n($T=1 \
. po 0
. ds [ [
. ds ] ]
. ds < <
. ds > >
.\}
.nr ps 0.5v
.if \n($T \
. nr ps 1v
.if t .nr ps 0.35v
.nr bs \n(ps
.nr qs \n(ps
.nr zs 1v
.nr xs 0.2v
.nr fs 0.2v
.if \n($T \
. nr fs 0
.if n .nr es 1v
.if t .nr es 0.5v
.wh 0 @h
.nr $l \n(.lu
.nr _L \n(.lu
.nr $c 1
.nr $f 1 1
.ds * \*[1\*]\k*\"
.nr $d 1 1
.ds # [1]\k#\"
.nr _M 1
.ds lq \&"\"
.ds rq \&"\"
.if t \
. ds lq ``
.if t \
. ds rq ''
.em @z
.de sc
.so \\*(||/chars.me
.rm sc
..
.ll 6.0i
.lt 6.0i

63
tmac/tmac.jsdisp Normal file
View file

@ -0,0 +1,63 @@
. \" DS - display. If .DS C, center; L, left-adjust; I, indent.
.de DS
.KS
.nf
.\\$1D \\$2 \\$1
.ft 1
.ps \\n(PS
.if \\n(VS>40 .vs \\n(VSu
.if \\n(VS<=39 .vs \\n(VSp
..
.de D
.ID \\$1
..
.de CD
.XD
.ce 1000
..
.de ID
.XD
.if t .in +0.5i
.if n .in +8
.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
..
.de LD
.XD
..
.de XD
.nf
.nr OI \\n(.i
.SP \\n(DVu
.sp \\n(DVu
..
. \" BD - block display: save everything, then center it.
.de BD
.XD
.nr BD 1
.nf
.in \\n(OIu
.di DD
..
. \"DE - display end
.de DE
.ce 0
.if \\n(BD>0 .DF
.nr BD 0
.in \\n(OIu
.KE
.SP \\n(DVu
.sp \\n(DVu
.fi
..
. \" DF - finish a block display to be recentered.
.de DF
.di
.if \\n(dl>\\n(BD .nr BD \\n(dl
.if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
.nr EI \\n(.l-\\n(.i
.ta \\n(EIuR
.nf
.DD
.in \\n(OIu
..

3
tmac/tmac.m Normal file
View file

@ -0,0 +1,3 @@
'''\" TMAC.M @(#)tmacs.src 1.7
.if n .so #9/sys/lib/tmac/mmn
.if t .so #9/sys/lib/tmac/mmt

2014
tmac/tmac.mcs Normal file
View file

File diff suppressed because it is too large Load diff

1
tmac/tmac.nihongo Normal file
View file

@ -0,0 +1 @@
.pi $PLAN9/bin/mnihongo

2
tmac/tmac.org Normal file
View file

@ -0,0 +1,2 @@
'''\" TMAC.ORG @(#)tmacs.src 1.7
.so /usr/lib/macros/org

154
tmac/tmac.pictures Normal file
View file

@ -0,0 +1,154 @@
.de PI \" Picture Include
. \" $1=file(page) $2=height,width,yoff,xoff $3=flags
. \" Height, width, xoff, and yoff are for the frame, flags is for the
. \" picture. Default dimensions are inches.
\\X'PI:\\n(.o:\\n(.i:\\n(.l:\\n(.t:\\$1:\\$2:\\$3:'\\c
..
.nr FT 0
.de BP \" Begin a Picture
. \"
. \" $1=file(page) $2=height $3=width $4=position $5=offset $6=flags $7=label
. \"
. \" Height, width, position, and offset are for the frame, flags is for
. \" the picture. The postion flag should be l, c, r, or "". Omitting the
. \" position argument is also allowed for compatibility with the original
. \" version of the macro. In that case offset is taken relative to your
. \" left margin.
.if \\n(FT>1 .EP
. \" Need these when we switch environments.
.nr Ov \\n(.v
.nr Oi \\n(.i
.nr Ol \\n(.l
. \" Remember the arguments - sometimes as both a string and number register.
.nr $2 \\$2i
.nr $3 \\$3i
.nr $4 \\$4i
.ds $4 \\$4
.nr $5 \\$5i
.ds $5 \\$6
.ds $6 \\$7
. \" Accept a few unadvertised position flags.
.if '\\*($4'L' .ds $4 l
.if '\\*($4'C' .ds $4 c
.if '\\*($4'R' .ds $4 r
. \" A null with more than three arguments means l.
.if \\n(.$>3 .if '\\*($4'' .ds $4 l
. \" Default frame dimensions if missing, zero, or null.
.if !\\n($2>0 .nr $2 3.0i
.if !\\n($3>0 .nr $3 \\n(.lu-\\n(.iu-\\n($4u
.if !\\n($3>0 .nr $3 \\n($2u
. \" Figure out the offset that will be used the rest of the way.
.if '\\*($4'l' .nr $4 \\n($5u
.if '\\*($4'c' .nr $4 (\\n(.lu-\\n(.iu-\\n($3u)/2u+\\n($5u
.if '\\*($4'r' .nr $4 \\n(.lu-\\n(.iu-\\n($3u+\\n($5u
. \" If we haven't recognized the position flag assume it wasn't given and
. \" treat argument four as an offset from the left.
.if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $5 \\$5
.if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $6 \\$6
. \" Set increments for line length and indent.
.nr Ii \\n($3u+\\n($4u+.1i
.nr Il \\n(.lu-\\n(.iu-\\n($4u+.1i
. \" Set the frame type to one of:
. \" 0 - frame is as wide as a line of text - skip over it.
. \" 1 - fits in left or right margins
. \" 2 - fill with text on the right
. \" 3 - on the left
. \" 4 - or on both sides of the frame
. \" 5 - only set in EP if FT was 4 and now filling on the right.
. \" Assume the frame is as wide as a line of text, then check dimensions
. \" to see what's really true. The order of these tests is important!
.nr FT 0
.if \\n($4u>1.0i .nr FT 3
.if \\n($4u+\\n(.iu>=\\n(.lu .nr FT 1
.if \\n($3u+\\n($4u+\\n(.iu+1.0i<\\n(.lu .nr FT 2
.if \\n($3u+\\n($4u<=0 .nr FT 1
.if \\n(FT=2 .if \\n($4u>1.0i .nr FT 4
. \" Ask for some vertical space - labeled pictures need a little extra,
. \" margin pictures a little less.
.if \\n(FT=1 .if '\\*($6'' .ne \\n($2u
.if \\n(FT=1 .if !'\\*($6'' .ne \\n($2u+2v
.if !\\n(FT=1 .if '\\*($6'' .ne \\n($2u+3v
.if !\\n(FT=1 .if !'\\*($6'' .ne \\n($2u+5v
. \" Save our place, draw the picture, label it, and return. Need precise
. \" control of when \X'...' is put out - thus the new environment.
.mk Oh
.ev 1
.in \\n(Oiu
.ll \\n(Olu
.vs \\n(Ovu
.if \\n(FT=1 .sp -1v
.if \\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u t\\*($5
.if !\\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u \\*($5
.in
.ll
.vs
.ev
.lt \\n($3u
.tl \(ts\(ts\\h'\\n($4u+\\n(.iu'\\v'\\n($2u+1.5v'\\*($6\\v'-\\n($2u-1.5v'\\h'-\\n($4u-\\n(.iu'\(ts\(ts
.lt
'sp |\\n(Ohu
. \" Figure out what to do with the text that follows.
.if !'\\*($6'' .nr $2 +2v
.if \\n(FT=0 .sp \\n($2u+2v
.if \\n(FT=1 .nr FT 0
.if \\n(FT=2 'in +\\n(Iiu
.if \\n(FT>2 .ll -\\n(Ilu
.if \\n(FT>1 .di BB
.if \\n(FT>1 .dt \\n($2u+2v+1u EP
. \" Clean things up.
.rr $2
.rr $3
.rr $4
.rm $4
.rr $5
.rm $5
.rm $6
.rr Oh
.rr Oi
.rr Ol
.rr Ov
.if \\n(FT=0 .EP
..
.de EP \" End the Picture - Normally called from a trap, although it can be used
. \" on its own to mark the end of a picture.
.nr Ot 0
.if \\n(.tu<\\n(.pu .nr Ot \\n(.tu
.if \\n(Ot>0 .if \\n(FT=4 .nr FT 3
.if \\n(FT<2 .nr Ot 0
.if \\n(Ot>0 .br
.if \\n(FT=5 .nr Ot 0
.if \\n(FT>1 \{\
. ev 1
. eo
. br
. di
. nf
. in 0
. BB
. in
. fi
. ec
. ev
. rm BB\}
.if \\n(FT=5 \{\
. nr FT 2
' sp |\\n(Nhu+1v\}
.if \\n(FT=4 \{\
. mk Nh
. nr Nh -1v
. nr FT 5
' sp -\\n(dnu+1v
' in +\\n(Iiu
. ll +\\n(Ilu
. di BB
. dt \\n(dnu-2v+1u EP\}
.if \\n(FT=2 'in -\\n(Iiu
.if \\n(FT=3 .ll +\\n(Ilu
.if \\n(FT<4 .nr FT 0
.if \\n(Ot>0 .sp \\n(Otu
.rr Ot
.if \\n(FT=0 \{\
. rr Nh
. rr Ii
. rr Il\}
..

51
tmac/tmac.psychrefs Normal file
View file

@ -0,0 +1,51 @@
.de [1
.in 3n
.ti 0
\\*([A\c
.ie \\n([A=0 \&. \&
.el \& \&
\\*([T.
\f2\\*([J,\f1
\\*([D,
.if !"\\*([N"" .if !"\\*([V"" \\f3\\*([V\\f1 (\\*([N),
.if "\\*([N"" .if !"\\*([V"" \\f3\\*([V\\f1,
\\*([P.
..
.de [2
.in 3n
.ti 0
\\*([A\c
.ie \\n([A=0 \&. \&
.el \& \&
\\f2\\*([T.\\f1
\\*([C: \\*([I, \\*([D.
..
.de [3
.in 3n
.ti 0
\\*([A\c
.ie \\n([A=0 \&. \&
.el \& \&
\\*([T.
In \\*([E (Ed.),
\\f2\\*([B\\f1.
\\*([C: \\*([I, \\*([D.
..
.de [5
.in 3n
.ti 0
\\*([A\c
.ie \\n([A=0 \&. \&
.el \& \&
\\*([T,
\\*([M.
..
.de [4
.in 3n
.ti 0
\\*([A\c
.ie \\n([A=0 \&. \&
.el \& \&
\\*([T.
Report \\*([R, \\*([I, \\*([D.
..

17
tmac/tmac.ptx Normal file
View file

@ -0,0 +1,17 @@
'''\" ptx.src (@(#)ptx.src 1.1) - format permuted index macro
.tr ~
.nr)y \n(.lu-.65i
.nr)x \n()yu/2u
.dss2 ~~~
.dss4 ~
.dss5 ~
.dexx
.dss1
.if\w\\$2 .ds s1 ~\|
.dss3
.if\w\\$4 .ds s3 ~\|
.dsy \\*(s4\f3\a\fP\\*(s5
.ta\\n()yu-\w\\*(s5u
\h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5
..
.nf

170
tmac/tmac.rscover Normal file
View file

@ -0,0 +1,170 @@
.de CZ
.br
.if !"\\$1"" \\$1
.br
.if !"\\$2"" \\$2
.br
.if !"\\$3"" \\$3
.br
.if !"\\$4"" \\$4
.br
.if !"\\$5"" \\$5
.br
.if !"\\$6"" \\$6
.br
.if !"\\$7"" \\$7
.br
.if !"\\$8"" \\$8
.br
.if !"\\$9"" \\$9
..
.ds AZ \f(HBA\h'-.2m'T\h'-.15m'\s-3&\s0\h'-.15m'T\fP
. \"S1 - tm style
.de S1
.br
.sp |.5i
.ta 4.75i 5.25i
.ll 80
.ps 36
.br
.ie !'\*(Lb'' \t\(Lb\h'-.53i'\fH\s10Bell Laboratories
.el \t\(L1\s16\v'-.8'\\*(AZ\v'.8'\h'-\w'\\*(AZ'u'\fH\s10Bell Laboratories
.br
.sp 2
.ps 12
.br
.nr SJ \\n(.j
.na
.br
.ps 8
.vs 12p
.sp 2v
.mk
.ll
.ll 4.0i
Subject:
.ft 3
.br
.rt
.in +\w'Subject: 'u
.ps
'''\".nf
.fi
.hy 0
.WT
.hy 14
.ft 1
.br
.fi
.in 0
.vs 10
.if \\n(MC>0 \\s8Work Program- \\*(X1\\s10
.if \\n(MG>0 --\\s8 File- \\*(F1\\s10
.br
.if \\n(MC>1 \\s8\\h'\\w'Work Program- 'u'\\*(X2\\s10
.if \\n(MG>1 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F2\\s10
.br
.if \\n(MC>2 \\s8\\h'\\w'Work Program- 'u'\\*(X3\\s10
.if \\n(MG>2 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F3\\s10
.br
.if \\n(MC>3 \\s8\\h'\\w'Work Program- 'u'\\*(X4\\s10
.if \\n(MG>3 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F4\\s10
.br
.if \\n(MC>4 \\s8\\h'\\w'Work Program- 'u'\\*(X5\\s10
.if \\n(MG>4 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F5\\s10
.br
.if \\n(TO>0 \{\
.ps 8
.nf
.sp
To:
.in +\w'Subject: 'u
.sp -1v
.ps
.nf
.1T
.in \}
.vs
.rt
.ll 6.5i
.in 5.10i
.ps 8
.ti -6n
.ta 6n
date:\t\\s\\n(PS\\f3\\*(DY
.sp
.ft 1
.ps 8
.mk
.ti -6n
from:
.ps
.br
.rt
.nf
.ft 3
.A1
.if \\n(TO>0 \{\
\\*(D1
\\*(1L
.br \}
.if \\n(NA>1 .A2
.if \\n(NA>2 .A3
.if \\n(NA>3 .A4
.if \\n(NA>4 .A5
.if \\n(NA>5 .A6
.if \\n(NA>6 .A7
.if \\n(NA>7 .A8
.if \\n(NA>8 .A9
.ft 1
.sp
.mk
.ps 8
.ti -6n
.ft 1
.if \\n(IM=0 .if \\n(MM .if "\\*(MQ"" \{\
.if \\n(MN=0 .ds MQ TM:
.if \\n(MN=1 .ds MQ MF:
.if \\n(MN=2 .ds MQ MR:
.if \\n(MN=3 .ds MQ EN:\}
\\*(MQ
.br
.ti \\n(.iu
.rt
.ps
.ft 3
.hy 0
.ll 20i
.ll 7.75i-\\n(.ou
.fi
.na
.if \\n(MM .CZ \\*(MN
.\" ditched .CZ
.hy 14
.nf
.ft 1
.ll \\n(LLu
.in
.sp |\\n(.hu
.if \\n(IM=0 .sp
.ad \\n(SJ
.ce
.ft 2
.if \\n(IM=0 \\*(QF
.ft 1
.ce 0
.if \\n(IM=0 .sp
.fi
..
.de TL
.br
.di WT
..
.de AB
.br
.di
.rm WT TL AB AU
..
.de AU
..
.nr YE 1

1592
tmac/tmac.s Normal file
View file

File diff suppressed because it is too large Load diff

330
tmac/tmac.scover Normal file
View file

@ -0,0 +1,330 @@
. \"OK - "other keywords" for cover sheet.
.de OK
.br
.di
.di OD
.nf
.ft 3
..
. \"CS - spew out cover sheet
.de CS
.br
.if \\n(AJ>0 .tm Abstract not finished, AE assumed.
.if \\n(AJ>0 .AE
.di
.if t .po 0.5i
.ft 2
.nr IB \\n(.b
.ft P
.nr K1 1
.if t .sp |.4i
.if t .lg
.ll 7.0i
.vs 12p
.nf
.if t \{
.if \\n(ZZ<1 \h'7n'\s24\(FA\s12\f3 Bell Laboratories \s16\f1Cover Sheet for Technical Memorandum
.if \\n(ZZ>=1 \h'7n'\s24\(FA\s12\f3 Bell Laboratories \s16\f1Cover Sheet for Technical Memorandum\}
.if n Bell Laboratories Cover Sheet for Technical Memorandum
.if t .sp .5v
.if n .sp
.if t \s6\l'7i'
.fi
.ps 9
.ft 2
.if \\n(.$<=6 The information contained herein is for the use of employees of Bell Laboratories and is not for publication. (See GEI 13.9-3)\p
.if \\n(.$>6 Warning: studying this document may cause drowsiness. Do not read before driving or operating machinery. (See GEI 13.9-3)\p
.ft 1
.nf
.if \\n(IB>0 .bd 2 \\n(IB
.vs 5p
.if t \s6\l'7i'
.vs
.if t .sp .5v
.if n .sp
.if t .ll 4.0i
.if n .ll 30
.if t .po 1.0i
.ps 9
.if t .ta 0.5i 4.5i 4.9i
.if n .ta 9 39 46
.mk
Title- \f3\s10
.rt
.if t .in 0.5i
.if n .in 10
.hy 0
.WT
.hy 14
.br
.rt
.ll \\n(LLu
.if t .in 4.5i
.if n .in 40
.nf
\s9\f1Date- \s10\f3
.rt
.if t .in 4.9i
.if n .in 47
\\*(DY
.sp
.if t .ti 4.5i
.if n .ti 40
.mk
\s9\f1TM- \f3\s10
.br
.rt
.CZ \\*(MN
.in 0
.if n .sp |\\n(.hu+1v
.if t .sp |\\n(.hu+.3v
.mk
\s9\f1Other Keywords- \f3
.rt
.if t .in 1.1i
.if n .in 20
.OD
.in 0
.if t .sp .3i
.if n .sp 3
.ps 9
.if t .ta 1.8i 3.3i 4.3i
.if n .ta 19 34 44
.ft 1
.mk
.fi
.ll 6.7i
.in 4.6i
.ti 0
.nr SJ \\n(.j
.na
Author Location Extension Charging Case- \s10\f3\\*(CA
.ps 10
.ti 4.3i
\f1\s9Filing Case- \s10\f3\\*(CC
.nf
.in 0
.ad \\n(SJ
.rt
.sp 1
.CB 1
.if \\n(NA-1 .CB 2
.if \\n(NA-2 .CB 3
.if \\n(NA-3 .CB 4
.if \\n(NA-4 .CB 5
.if \\n(NA-5 .CB 6
.if \\n(NA-6 .CB 7
.if \\n(NA-7 .CB 8
.if \\n(NA-8 .CB 9
.ft 1
.rm OK OD R1 E1 R2 E2 R3 E3 R4 E4 AB AE
.ds K1 \\$1
.ds K2 \\$2
.ds K3 \\$3
.ds K4 \\$4
.ds K5 \\$5
.ds K6 \\$6
.if t .wh 9.8i CG
.if n .wh 9i CG
.ch FO 16i
.if t .sp .4i
.if n .sp 2
.ls 1
.pn 2
.WB
.rm WB
.ls
.br
.if 9.7i-\\n(nlu-\\n(FPu-1v>0 .sp 9.7i-\\n(nlu-\\n(FPu-1v
.if \\n(FP>0 .FA
.FG
.nr K1 0
.if \\n(GA=1 .nr GA 2
.if \\n(VS>40 .vs \\n(VSu
.if \\n(VS<=39 .vs \\n(VSp
.bp 1
.rm CG
.if t .po \\n(POu
..
. \" CG - write bottom box on cover sheet
.de CG
.if t .po 0.5i
.vs 12p
.ch FO 12i
.ch FX 12i
.if t .ll 7i
.br
.if t \l'7i'
.if t .ta 1.4i 2.8i 4.2i
.if n .ta 14 29 44
.if t .sp 8p
.if n .sp
Pages Text \\*(K1 Other \\*(K2 Total \\*(K3
.if t .sp 8p
.if n .sp
.if t .po .5i
.if t No. Figures \\*(K4 No. Tables \\*(K5 No. Refs. \\*(K6 \b'|||||\ \ '
.if n No. Figures \\*(K4 No. Tables \\*(K5 No. Refs. \\*(K6
.br
.if t .po .5i
.if t \l'7i'
.ps 7
.br
.if n .sp
.rm K1
.rm K2
.rm K3
.rm K4
.rm K5
.rm K6
.if t .po .5i
.if t .tl 'E-1932-U (6-73)'SEE REVERSE SIDE FOR DISTRIBUTION LIST''
.if n .tl 'E-1932-U (6-73) SEE REVERSE SIDE FOR DISTRIBUTION LIST'''
.if t .po 0.5i
.ll \\n(LLu
.ps 10
.ch CG 12i
.if \\n(K1>0 .bp
..
. \"CB - help with cover sheet
.de CB
.br
.mk
.A\\$1
.rt
\& \\*(R\\$1 \\*(E\\$1
.br
..
.de CZ
.br
.if !"\\$1"" \\$1
.br
.if !"\\$2"" \\$2
.br
.if !"\\$3"" \\$3
.br
.if !"\\$4"" \\$4
.br
.if !"\\$5"" \\$5
.br
.if !"\\$6"" \\$6
.br
.if !"\\$7"" \\$7
.br
.if !"\\$8"" \\$8
.br
.if !"\\$9"" \\$9
..
. \"S1 - tm style
.de S1
.br
.if t .ta 4.25i
.if n .ta 43
.ll 80
.ps 36
.br
.if t .vs .15i
.if t \{
.if \\n(ZZ<1 \t\s36\(FA\s0
.if \\n(ZZ>=1 \t\s36\(FA\s0\}
.br
.if n .sp 24p
\s11\l'7i'\s0
.ps 10
.br
.if \\n(IM=1 \f(HBBell Laboratories\fP
.ft 1
.nr SJ \\n(.j
.na
.br
.ps 8
.vs 12p
.sp 2v
.mk
.ll
.ll 4.0i
\fHsubject:\fP
.ft 3
.br
.rt
.if n .in +9
.if t .in +\w'\fHsubject:\fP 'u
.ps
.nf
.hy 0
.WT
.hy 14
.ft 1
.fi
.in 0
.if !\\(IM .if \\n(MC>0 \\s8Case- \\*(CA\\s10
.if !\\(IM .if \\n(MG>0 --\s8 File- \\*(CC\\s10
.br
.rt
.if n .ll 70
.if t .ll 6.5i
.if t .in 4.25i+6n
.if n .in 52
.ps 8
.ti -6n
.ta 6n
\fHdate:\fP\t\\s\\n(PS\\f3\\*(DY
.sp
.ft 1
.ps 8
.mk
.ti -6n
\fHfrom:\fP
.ps
.br
.rt
.nf
.ft 3
.A1
.if \\n(NA>1 .A2
.if \\n(NA>2 .A3
.if \\n(NA>3 .A4
.if \\n(NA>4 .A5
.if \\n(NA>5 .A6
.if \\n(NA>6 .A7
.if \\n(NA>7 .A8
.if \\n(NA>8 .A9
.ft 1
.sp
.mk
.ps 8
.ti -6n
.ft 1
.if \\n(IM=0 .if \\n(MM .if "\\*(MQ"" \{\
.if \\n(MN=0 .ds MQ TM:
.if \\n(MN=1 .ds MQ MF:
.if \\n(MN=2 .ds MQ MR:
.if \\n(MN=3 .ds MQ EN:\}
\\*(MQ
.br
.ti \\n(.iu
.rt
.ps
.ft 3
.hy 0
.ll 20i
.if t .ll 7.75i-\\n(.ou
.fi
.na
.if \\n(MM .CZ \\*(MN
.hy 14
.nf
.ft 1
.ll \\n(LLu
.in
.sp |\\n(.hu
.if \\n(IM=0 .sp
.ad \\n(SJ
.ce
.ft 2
.if \\n(IM=0 \\*(QF
.ft 1
.ce 0
.if \\n(IM=0 .sp
.fi
..

61
tmac/tmac.sdisp Normal file
View file

@ -0,0 +1,61 @@
. \"DS - display. If .DS C, center; L, left-adjust; I, indent.
.de DS
.KS
.nf
.\\$1D \\$2 \\$1
.ft 1
.if !\\n(IF \{\
. ps \\n(PS
. ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
. ie \\n(VS>=41 .vs \\n(VSu
. el .vs \\n(VSp\}
..
.de D
.ID \\$1
..
.de CD
.XD
.ce 1000
..
.de ID
.XD
.if t .in +0.5i
.if n .in +8
.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
..
.de LD
.XD
..
.de XD
.nf
.nr OI \\n(.i
.sp \\n(DVu
..
.de BD \" block display: save everything, then center it.
.XD
.nr BD 1
.nf
.in \\n(OIu
.di DD
..
. \"DE - display end
.de DE
.ce 0
.if \\n(BD>0 .DF
.nr BD 0
.in \\n(OIu
.KE
.sp \\n(DVu
.fi
..
.de DF \" finish a block display to be recentered.
.di
.if \\n(dl>\\n(BD .nr BD \\n(dl
.if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
.nr EI \\n(.l-\\n(.i
.ta \\n(EIuR
.nf
.DD
.in \\n(OIu
..

89
tmac/tmac.skeep Normal file
View file

@ -0,0 +1,89 @@
. \"KS keep - for keep release features. As in IFM
.de KS
.nr KN \\n(.u
.if \\n(IK=0 .if \\n(IF=0 .KQ
.nr IK +1
..
. \"KQ - real keep processor
.de KQ
.br
.nr KI \\n(.i
.ev 2
.br
.in \\n(KIu
.ps \\n(PS
.if \\n(VS>40 .vs \\n(VSu
.if \\n(VS<=39 .vs \\n(VSp
.ll \\n(LLu
.lt \\n(LTu
.if \\n(NX>1 .ll \\n(CWu
.if \\n(NX>1 .lt \\n(CWu
.di KK
.nr TB 0
.nr KV 0
..
. \"KF - floating keep
.de KF
.nr KN \\n(.u
.if !\\n(IK .FQ
.nr IK +1
..
. \"FQ real floating keep processor
.de FQ
.nr KI \\n(.i
.ev 2
.br
.in \\n(KIu
.ps \\n(PS
.if \\n(VS>40 .vs \\n(VSu
.if \\n(VS<=39 .vs \\n(VSp
.ll \\n(LLu
.lt \\n(LTu
.if \\n(NX>1 .ll \\n(CWu
.if \\n(NX>1 .lt \\n(CWu
.di KK
.nr TB 1
.nr KV 0
..
. \"KP - keep full page
.de KP
.nr KV 1
..
. \"KE release - everything between keep and release is together
.de KE
.if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
.if \\n(IK .nr IK -1
..
. \"RQ real release
.de RQ
.br
.nr KI \\n(.i
.di
.nr NF 0
.if \\n(dn-\\n(.t .nr NF 1
.if \\n(TC .nr NF 1
.if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
.if \\n(NF .if !\\n(TB .sp 11i
.if !\\n(NF .if \\n(TB .nr TB 0
.nf
.rs
.nr TC 5
.in 0
.ls 1
.if \\n(TB=0 .ev
.if \\n(TB=0 .br
.if \\n(TB=0 .ev 2
.if \\n(TB=0 .KK
.ls
.ce 0
.if \\n(TB=0 .rm KK
.if \\n(TB .da KJ
.if \\n(TB \!.KD \\n(dn \\n(KV
.if \\n(TB .KK
.if \\n(TB .di
.nr TC \\n(TB
.if \\n(KN .fi
.in
.ev
.in \\n(KIu
..

1031
tmac/tmac.soft Normal file
View file

File diff suppressed because it is too large Load diff

142
tmac/tmac.spe Normal file
View file

@ -0,0 +1,142 @@
..... July 1, 1991
.so #9/sys/lib/tmac/tmac.pm
.
.ig
.nr VN 1 \" VN -- volume
.nr NU 1 \" NU -- number
.nr P< 1 \" P< -- starting page number
.nr P> 1 \" P> -- ending page number
. \" month of issue, date received, date revised
.ds MO February
.ds DY December 31, 1990
.ds DR January 1, 1991
.TL "RUNNING TITLE" "RUNNING AUTHOR NAMES"
Title
.AU
AUTHOR AND AUTHOR
.AI
Institution
.AU
AND
.AU
THIRD AUTHOR
.AI
HER INSTITUTION
.AB
.LP
abstract
.AE
.OK "Word Phrase or word Another word"
.SH
LEVEL ONE HEADING
.PP
xxx
.SH 2
Level 2 heading
.PP
zzz
.Rf
.IP 1.
J. Author...
..
.
.nr LL 34P
.ll \n(LLu
.lt \n(LLu
.nr LT \n(LLu
.nr FO 49P+1i-1P \" FO -- bottom of last line of text
.nr HM .6i \" HM -- header margin
.nr PD 1u
.nr PI .15i
.
.de TL \" TL -- title
.ps 7
SOFTWARE\(emPRACTICE AND EXPERIENCE, VOL. \\n(VN(\\n(NU), \\n(P<-\\n(P> (\\*(MO 20\\n(yr)
.sp 6P-2v
.ps 18
.vs 21p
.ce 100
. \" $1 is title running head, $2 is author running head
.ds %o .tl '\s11\\\\n(%#\s0'\s8\\$1\s0''
.ds %e .tl ''\s8\\$2\s0'\s11\\\\n(%#\s0'
.nr OL 0 \" undo pm
.ev 2
.lt \\n(LLu
.ev
..
.de AU \" AU -- JOE AUTHOR AND MARY AUTHOR
.ie \\n(AU=0 .sp 3.25P-.5v
.el .SP
.nr AU +1
.ps 8
.vs 12p
.ft R
..
. \" use .AU JOE // AND // .AU MARY if separate institutions.
.de AI \" AI -- author institution
.ps 9
.vs 10p
.ft I
..
.de MH \" MH -- us
Bell Labs, Murray Hill, New Jersey 07974, U.S.A.
..
.de AB \" AB -- abstract/summary
.sp 3P-0V
.nr PS 9
.nr VS 10
.ft B
SUMMARY
.SP .4P
.ce 0
.nr AB 1
..
.de AE \" AE -- end of abstract
.nr AB 0
.nr PS 11
.nr VS 12
.XX \" do the goo on the bottom of page 1
..
.de OK \" OK -- other keywords
.ft 1
.sp .5P
\s6KEY WORDS\s0 \s8\\$1\s0
.fl
..
.de XX
.KF bottom
.SP 1.5P
.lt \\n(LLu
.nr x \\n(P>-\\n(P<+1
.af P< 0000
.if \\n(BT=0 .tl "0038-0644/\\n(yr/\\n(NU\\n(P<-\\nx$05.00""\f2Received \\*(DY\f1"
.if \\n(BT=0 .tl '\(CO 20\\n(yr by John Wiley & Sons, Ltd.''\f2Revised \\*(DR\fP'
.KE
..
.am SH \" SH -- unnumbered sub-heading
.sp 2.5P-2V
.if \\n(.$=0 .ce 100
.if \\$1=1 .ce 100
.if \\n(.$=0 .ft 1
.if \\$1=1 .ft 1
.if \\$1=2 .ft B
.if \\$1>2 .ft I
.nr SH 1
..
.am PP \" PP -- fix up to add space, no indent. doesn't work
.if \\n(SH .SP .5
.if \\n(SH .in 0
.nr SH 0
..
. \" Rf - start references
.de Rf
.SH
\s9REFERENCES\s0
.nr PS 9
.nr VS 10
.LP
.nr PI .15i
..
.
.nr PS 11
.nr VS 12

156
tmac/tmac.srefs Normal file
View file

@ -0,0 +1,156 @@
.\" REFER macros .... citations
.de []
.][ \\$1
..
.de ][
.if \\$1>5 .tm Bad arg to []
.[\\$1
..
.if n .ds [. [
.if t .ds [. \s-2\v'-.4m'\f1
.if n .ds .] ]
.if t .ds .] \v'.4m'\s+2\fP
.if n .ds [o ""
.if n .ds [c ""
.if t .ds [o ``
.if t .ds [c ''
.\" the next lines deal with the problem of .[1] or [1].
.\" refer will write "linexxx\*(<.[1]\*(>.
.\" and either "<." or ">." should produce the .;
.\" similarly for ,
.if n .ds >. .
.if t .ds <. .
.if n .ds >, ,
.if t .ds <, ,
.de [5 \" tm style
.FS
.IP "\\*([F.\0"
.nr %T 2
\\*([A, \\f2\\*([T\\f1,
.ie \\n(TN \\*([M.
.el Bell Laboratories internal memorandum (\\*([D).
.RT
.FE
..
.de [0 \" other
.FS
.nr [: 0
.if !"\\*([F"" .IP "\\*([F.\0"
.if !"\\*([A"" \{.nr [: 1
\\*([A\c\}
.if !"\\*([T"" \{.if \\n([:>0 ,
.nr [: 1
\\f2\\*([T\\f1\c\}
.if !"\\*([O""\{.if \\n([:>0 ,
.nr [: 1
.if \\n([O>0 .nr [: 0
\\*([O\c
.if \\n([O>0 \& \c\}
.if !"\\*([D"" \{.if \\n([:>0 ,
.nr [: 1
\\*([D\c\}
.if \\n([:>0 \&.
.if !"\\*([%"" Cited p. \\*([%.
.RT
.FE
..
.de [1 \" journal article
.nr %T 1 \" title font
.FS
.if !"\\*([R"" .rm [C
.if !"\\*([F"" .IP "\\*([F.\0"
.if !"\\*([A"" \\*([A,
.if !"\\*([T"" \\*([o\\*([T,\\*([c
\\f2\\*([J\\f1\c
.if !"\\*([C"" , \\*([C\c
.if !"\\*([V"" .if n ,\& Vol.\&\c
.if !"\\*([V"" \& \\f3\\*([V\\f1\c
.if !"\\*([N"" (\\*([N)\c
.if !"\\*([P"" \{\
.ie \\n([P>0 , pp.\ \&\c
.el , p.\ \&\c
\\*([P\c\}
.if !"\\*([I"" .if "\\*([R"" , \\*([I\c
.if !"\\*([O"" .if \\n([O=0 , \\*([O\c
.if !"\\*([D"" \& (\\*([D)\c
\&.
.if !"\\*([O"" .if \\n([O>0 \\*([O
.if !"\\*([%"" Cited p. \\*([%.
.RT
.FE
..
.de [2 \" book
.FS
.nr %T 2
.if !"\\*([F"" .IP "\\*([F.\0"
.if !"\\*([A"" \\*([A,
.if !"\\*([T"" \\f2\\*([T,\\f1
\\*([I\c
.if !"\\*([C"" , \\*([C\c
.if !"\\*([D"" \& (\\*([D)\c
\&.
.if !"\\*([G"" Gov't. ordering no. \\*([G.
.if !"\\*([O"" \\*([O
.if !"\\*([%"" Cited p. \\*([%.
.RT
.FE
..
.de [4 \" report
.FS
.if !"\\*([F"" .IP "\\*([F.\0"
.nr %T 1
\\*([A, \\*([o\\*([T,\\*([c
\\*([R\c
.if !"\\*([G"" \& (\\*([G)\c
.if !"\\*([I"" , \\*([I\c
.if !"\\*([C"" , \\*([C\c
.if !"\\*([D"" \& (\\*([D)\c
\&.
.if !"\\*([O"" \\*([O
.if !"\\*([%"" Cited p. \\*([%.
.RT
.FE
..
.de [3 \" article in book
.FS
.nr %T 1
.if !"\\*([F"" .IP "\\*([F.\0"
.if !"\\*([A"" \\*([A,
.if !"\\*([T"" \\*([o\\*([T,\\*([c
.if !"\\*([P"" pp. \\*([P
in \\f2\\*([B\\f1\c
.if !"\\*([E"" , ed. \\*([E\c
.if !"\\*([I"" , \\*([I\c
.if !"\\*([C"" , \\*([C\c
.if !"\\*([D"" \& (\\*([D)\c
\&.
.if !"\\*([O"" \\*([O
.if !"\\*([%"" Cited p. \\*([%.
.RT
.FE
..
.de ]<
.[<
..
.de [<
.LP
.rm FS FE
..
.de [>
.]>
..
.de ]>
.sp
..
.de ]-
.[-
..
.de [-
.rm [V [P [A [T
.rm [N [C [B [O
.rm [R [I [E [D
.rm [G [%
..
.de ]]
.\"this is never executed and just uses up an end-of-file bug.
..

96
tmac/tmac.twb Normal file
View file

@ -0,0 +1,96 @@
.de CO \" Set type color; no value => reset
.ie '\\$1'' .ds oC \\*(pC
.el \{\
.ds pC \\*(oC
.ds oC \\$1 \\$2 \\$3 \\$4
...\}
\\X'color \\*(oC'\c
..
.de BC \" Set background color; no value => reset
.ie '\\$1'' .ds oB \\*(pB
.el \{\
.ds pB \\*(oB
.ds oB \\$1 \\$2 \\$3 \\$4
...\}
\\X'bgcolor \\*(oB'\c
..
.de CL
\\X'clear'\c
..
.de IN \" Include picture $1 with ul corner at ($2,$3)
.nr xc \\$2i
.nr yc \\$3i
\\X'picfile \\$1 \\n(xc \\n(yc'\c
..
.de CW \" clear window ($1,$2) is ul ($3,$4) is lr, uses bg color
.nr x0 \\$1i
.nr y0 \\$2i
.nr x1 \\$3i
.nr x2 \\$4i
\\X'clrwin \\n(x0 \\n(y0 \\n(x1 \\n(y1
..
.de BW \" window border ($1,$2) is ul ($3,$4) is lr, uses fg color
.nr x0 \\$1i
.nr y0 \\$2i
.nr x1 \\$3i
.nr x2 \\$4i
\\X'border \\n(x0 \\n(y0 \\n(x1 \\n(y1
..
.de SL \" start slide, args are optional title
.bp
.ce 0
.ft B
.nf
.if !'\\$1'' \{\
.ps 36p
.vs 36p
\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
...\}
.ps 30p
.vs 30p
..
.de PS \" Start pic picture
. \" $1 is height, $2 is width, both in inches
.sp .3
.in (\\n(.lu-\\$2)/2u
.ne \\$1
..
.de PE \" End pic picture
.in
.sp .6
..
.de IS \" Start ideal picture
. \" $1 is width, $2 is height, both in inches
. \" in ideal, however, we see two IS's for each picture,
. \" and only the second one has the goods
.nr ID 0
.ie !'\\$1'' \{\
.sp .3
.nr ID 1
.in (\\n(.lu-\\$1)/2u
.ne \\$2
...\}
..
.de IE \" End ideal picture
.if \\n(ID .in
.if \\n(ID .if t .sp .6
..
.ds oC 255 255 255 255 \" type color
.ds oB 0 0 0 0 \" background color
.pl 4.8i \" page length
.po .1i \" left margin
.ll 6.2i \" line length
.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
.nf
.ps 30p
.vs 30p
.fp 1 R Lucida
.fp 2 I LucidaI
.fp 3 B LucidaB
.fp 4 BI LucidaBI
.fp 5 S LucidaS
.fp 6 SB LucidaSB
.fp 7 SI LucidaSI
.fp 8 SK LucidaSBI
.fp 9 CW LucidaCW
.ft B

107
tmac/tmac.uni Normal file
View file

@ -0,0 +1,107 @@
.if t \{
.tr ♔\(wk
.tr ♕\(wq
.tr ♖\(wr
.tr ♗\(wb
.tr ♘\(wn
.tr ♙\(wp
.tr ♚\(bk
.tr ♛\(bq
.tr ♜\(br
.tr ♝\(bb
.tr ♞\(bn
.tr ♟\(bp
.tr α\(*a
.tr β\(*b
.tr γ\(*g
.tr δ\(*d
.tr ε\(*e
.tr ζ\(*z
.tr η\(*y
.tr θ\(*h
.tr ι\(*i
.tr κ\(*k
.tr λ\(*l
.tr ν\(*n
.tr ξ\(*c
.tr ο\(*o
.tr π\(*p
.tr ρ\(*r
.tr ς\(ts
.tr σ\(*s
.tr τ\(*t
.tr υ\(*u
.tr φ\(*f
.tr χ\(*x
.tr ψ\(*q
.tr ω\(*w
.tr Α\(*A
.tr Β\(*B
.tr Γ\(*G
.tr Δ\(*D
.tr Ε\(*E
.tr Ζ\(*Z
.tr Η\(*Y
.tr Θ\(*H
.tr Ι\(*I
.tr Κ\(*K
.tr Λ\(*L
.tr Μ\(*M
.tr Ν\(*N
.tr Ξ\(*C
.tr Ο\(*O
.tr Π\(*P
.tr Ρ\(*R
.tr Σ\(*S
.tr Τ\(*T
.tr Υ\(*U
.tr Φ\(*F
.tr Χ\(*X
.tr Ψ\(*Q
.tr Ω\(*W
.tr ←\(<-
.tr ↑\(ua
.tr →\(->
.tr ↓\(da
.tr ↔\(ab
.tr ∀\(fa
.tr ∃\(te
.tr ∂\(pd
.tr ∅\(es
.tr ∆\(*D
.tr ∇\(gr
.tr ∈\(mo
.tr ∉\(!m
.tr ∍\(st
.tr ∗\(**
.tr ∙\(bu
.tr √\(sr
.tr ∝\(pt
.tr ∞\(if
.tr ∠\(an
.tr ∧\(l&
.tr ∨\(l|
.tr ∩\(ca
.tr ∪\(cu
.tr ∫\(is
.tr ∴\(tf
.tr ≃\(~=
.tr ≅\(cg
.tr ≈\(~~
.tr ≠\(!=
.tr ≡\(==
.tr ≦\(<=
.tr ≧\(>=
.tr ⊂\(sb
.tr ⊃\(sp
.tr ⊄\(!b
.tr ⊆\(ib
.tr ⊇\(ip
.tr ⊕\(O+
.tr ⊖\(O-
.tr ⊗\(Ox
.tr ⊢\(tu
.tr ⊨\(Tu
.tr ⋄\(lz
.tr ⋯\(el
\}

519
tmac/tmac.v Normal file
View file

@ -0,0 +1,519 @@
'\" Copyright (c) 1984 AT&T
'\" All Rights Reserved
'\"#ident "@(#)macros:vmca.src 1.17"
.ifn .ds Tm \uTM\d
.ift .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
.deVS
.)j
.nr)K 0i
.nr)L 0i
.nr)U 8i
.nr)X 18
.nr)H 0
.nr)W 0
.nr)O 0i
.nr)M 0
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deVh
.)j
.nr)K 0.9i
.nr)L 1i
.nr)U 8i
.nr)X 14
.nr)H 1
.nr)W 0
.nr)O 0.2i
.nr)M 0
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deSh
.)j
.nr)K 1.1i
.nr)L 1i
.nr)U 8i
.nr)X 14
.nr)H 1
.nr)W 0
.nr)O 0.2i
.nr)M 1
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deVw
.)j
.nr)K 0i
.nr)L 0i
.nr)U 6i
.nr)X 14
.nr)H 0
.nr)W 1
.nr)O 0.2i
.nr)M 0
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deSw
.)j
.nr)K 0i
.nr)L 0i
.nr)U 6i
.nr)X 14
.nr)H 0
.nr)W 1
.nr)O 0.2i
.nr)M 1
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deVH
.)j
.nr)K 0i
.nr)L 0i
.nr)U 10i
.nr)X 18
.nr)H 1
.nr)W 0
.nr)O 0.5i
.nr)M 0
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deSH
.)j
.nr)K 0.5i
.nr)L 0i
.nr)U 10i
.nr)X 18
.nr)H 1
.nr)W 0
.nr)O 0.5i
.nr)M 1
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deVW
.)j
.nr)K 0i
.nr)L 0i
.nr)U 6.44i
.nr)X 14
.nr)H 0
.nr)W 1
.nr)O 0.4i
.nr)M 0
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.deSW
.)j
.nr)K 0i
.nr)L 0i
.nr)U 6.44i
.nr)X 14
.nr)H 0
.nr)W 1
.nr)O 0.4i
.nr)M 1
.if!\\n(.$ .)V
.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de)V
.fc
.wh0i
.if\\nX .wh -0.5i
.nr)o 0u
.if\\n()i .nr )o 10p
.nr)U +\\n()ou
.pl\\n()Uu+1.5i
.if\\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu
.na
.fi
.nh
.lg0
.ta0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
.ce0
.in0i
.ll7.54i
.po0i
.lt7.68i
.if\\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1
.nr)i 0
.)t "'\l'0.38i'''\l'0.38i''" 1
.sp0.5v
.po0.23i
.lt7.06i
.if\\n(.$-1 .ds )N "\\$2
.if\\n(.$-2 .ds )Y "\\$3
.tl\\*()Y
.tl\\*()N
.if\\n(.$ .tl \\*()F \\$1
.if!\\n(.$ .tl \\*()F %
.po
.sp|0.68i+\\n()ou
.po0.26i+\\n()Lu+\\n()Ou
.lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
.if\\n()H .)t "'|''|'"
.po
.sp|1i+\\n()Ou+\\n()ou
.if!\\n(.A .)e
.po0.1i
.lt7.4i
.if\\n()W .)t "'_''_'"
.po
.sp|1i+\\n()ou
.if!\\n(.A .)e
.po0.23i+\\n()Lu
.lt7.06i-\\n()Lu-\\n()Lu
.tl++
.sp-3p
.if\\n()M .if \\n()W .sp \\n()Ou
.po
.nr)J \\n()Uu
.if\\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou
.nr)E \\n()Ju
.wh\\n()Eu )Z
.S \\n()X 6i-\\n()Ku-\\n()Ku
.I "" A no-space
.sp.5v
.nr)n \\n(nlu
..
.de)Z
.wh\\n()Eu
.nr)w 0
.ev1
.)g
'sp|\\n()Uu
.if!\\n(.A .)e
.po0.23i+\\n()Lu
.lt7.06i-\\n()Lu-\\n()Lu
.tl++
.po
'sp|\\n()Uu-\\n()Ou
.if!\\n(.A .)e
.po0.1i
.lt7.4i
.if\\n()W .)t "'_''_'"
.po
'sp|\\n()Uu+0.32i
.po0.26i+\\n()Lu+\\n()Ou
.lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
.if\\n()H .)t "'|''|'"
.po
.if!\\n()H 'sp 1v
'sp1v
.ev
.if\\nX .pl \\n()Gu
.if\\nX .wh -0.5i )m
.wh0i )P
..
.de)m
.bp
..
.de)z
.pl\\n(.pu+2i
.br
.if\\n()i \{.ps 10
.lt6i
.tl*** No input or no ``foil start'' macro in input. \}
.if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
.nr)v \\n()w
.sp|\\n(.pu-2.8i
.if\\nX .wh -0.5i
.if\\nX .pl \\n(.pu+2i
\&
.br
.)g
.po0i
.ll6i
.ce0
.in0i
.if\\n(.A .sp -1.1v
.if\\n(.A .sp 0.1v
.if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
left to bottom of previous foil.
.if\\n(.A .if !\\n()v ==> *** Previous foil full; \
check for overflow.
.sp|\\n(.pu-2i
.lt7.68i
.)t "'\l'0.38i'''\l'0.38i''" 1
.)t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \}
..
.de)t
.if!\\n(.A .if \\n(.$-1 .)e
.if!\\n(.A .tl \\$1
..
.de)e
.po0i
.lt1i
.tl'\ '''
'sp-1v
.po
.lt
..
.de)P
.pl2i
.if\\nX .pl \\n()Gu
..
.de)j
.br
.if\\n()i .if \\n(nl \{.ps 10
.lt6i
.tl*** Text before ``foil start'' macro in input. \}
.if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
.nr)v \\n()w
.sp|\\n(.pu-0.8i
\&
.br\}
.)g
.if!\\n()i \{.po 0i
.ll6i
.ce0
.in0i
.if\\n(.A .sp -1.1v
.if\\n(.A .sp 0.1v
.if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
left to bottom of previous foil.
.if\\n(.A .if !\\n()v ==> *** Previous foil full; \
check for overflow.
.br
.ll
.po\}
.if\\n(nl .bp
.nr)w 1
..
.de)g
.ft\\*()f
.cs\\*()f
.ps8
.vs10p
.ss16
..
.deT
.br
.if\\n(nlu-\\n()nu .sp .5v
.nr]a \\n(.s
.ps
.nr]b \\n(.s
.ps
.nr)u \\n(.iu
.in0i
.ps+4
.ce
\&\\$1
.in\\n()uu
.ps\\n(]b
.ps\\n(]a
.sp.5v
.nr)n \\n(nlu
..
.deS
.if!\w\\$1 .ps
.if\w\\$1 .if !\\$1+1 .ps \\$1
.if\w\\$1 .if \\$1 .nr )y \\n(.s
.if\w\\$1 .if \\$1 .nr )y \\$1
.if\w\\$1 .if \\$1-99 .nr )y \\n()X
.if\w\\$1 .if \\$1 .ps \\n()y
.vs\\n(.sp*5u/4u
.ss16
.nr)a .8i+\\n()Ku
.nr]c \\n(.s
.ps
.nr]d \\n(.s
.ps
.nr)A \\n(.s*\\n()Q/\\n(]X
.ps\\n()A
.nr)b \w\\*()B\ u
.ps
.nr)A \\n(.s*\\n()R/\\n(]X
.ps\\n()A
.nr)c \\n()bu+\w\\*()C\ u
.ps
.nr)A \\n(.s*\\n()S/\\n(]X
.ps\\n()A
.nr)d \\n()cu+\w\\*()D\ u
.ps\\n(]d
.ps\\n(]c
.if\\n(.$-1 .nr )u \\$2
.if\\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i
.if\\n(.$-1 .if \\n()uu-7u .nr )p \\$2
.nr)q \\n()pu-0i
.nr)r \\n()qu-0i
.nr)s \\n()ru-0i
.nr)T \\n(.sp*5u/4u
.nr)E \\n()Ju-\\n()Tu
.ch)Z \\n()Eu
..
.deI
.if!\w\\$1u .nr )k 0i
.if\w\\$1u .if !\\$1 .nr )u 0i-\\$1
.if\w\\$1u .if \\$1 .nr )u \\$1
.if\w\\$1u .if !\\n()uu-7u .nr )k \\$1i
.if\w\\$1u .if \\n()uu-7u .nr )k \\$1
.if\\n(.$-1 .A \\$3
..
.deA
.br
.if!\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au
.nr)n \\n(nlu
.po\\n()au
.in0u+\\n()ku
.ll\\n()pu
.lt\\n()pu
..
.deB
.br
.if\\n(nlu-\\n()nu .sp \\*(]Bu
.nr)n \\n(nlu
.in\\n()bu+\\n()ku
.ll\\n()qu
.lt\\n()qu
.nr)l 0
.nr]x \\n()bu
.if!\\n(.$ .)I \\*()B \\n()Q
.if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
.if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()Q
.if\\n(.$-1 .if !\\$2-99 .nr )l 1
.if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
..
.deC
.br
.if\\n(nlu-\\n()nu .sp \\*(]Cu
.nr)n \\n(nlu
.in\\n()cu+\\n()ku
.ll\\n()ru
.lt\\n()ru
.nr)l 0
.nr]x \\n()cu-\\n()bu
.if!\\n(.$ .)I \\*()C \\n()R
.if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
.if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()R
.if\\n(.$-1 .if !\\$2-99 .nr )l 1
.if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
..
.deD
.br
.if\\n(nlu-\\n()nu .sp \\*(]Du
.nr)n \\n(nlu
.in\\n()du+\\n()ku
.ll\\n()su
.lt\\n()su
.nr)l 0
.nr]x \\n()du-\\n()cu
.if!\\n(.$ .)I \\*()D \\n()S
.if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
.if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()S
.if\\n(.$-1 .if !\\$2-99 .nr )l 1
.if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
..
.de)I
.nr]a \\n(.s
.ps
.nr]b \\n(.s
.ps
.if!\\n()l .if !\\$2 .nr )A \\n(.s
.if!\\n()l .if \\$2 .nr )A \\n(.s*\\$2/\\n(]X
.if\\n()l .nr )A \\n(.s+\\$2
.ps\\n()A
.ti-\w\\$1\ u
\&\\$1\ \&\c
.ps\\n(]b
.ps\\n(]a
..
.deU
.if!\w\\$1u-.46m \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2
.if\w\\$1u-.46m \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2
..
.deDV
.if\w\\$1 .ds ]A \\$1
.if\w\\$2 .ds ]B \\$2
.if\w\\$3 .ds ]C \\$3
.if\w\\$4 .ds ]D \\$4
..
.deDF
.if\\n(.$-1 .ds )f "\\$2
.if\\n(.$-1 .fp \\$1 \\$2
.if\\n(.$-1 .ft \\$2
.if\\n(.$-3 .fp \\$3 \\$4
.if\\n(.$-5 .fp \\$5 \\$6
.if\\n(.$-7 .fp \\$7 \\$8
..
.deSP
.sp\\$1
..
.deBR
.br
..
.deTA
'ta\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.deCE
.ce\\$1
..
.deTI
.ti\\$1
..
.deFI
.fi
..
.deNF
.nf
..
.deAD
'ad\\$1
..
.deNA
'na
..
.deHY
'hy\\$1
..
.deNH
'nh
..
.deSO
'so\\$1
..
.deNX
'nx\\$1
..
.ds)F FOIL
.if\n(.A .ds )F FOIL
.ds)N Bell\ Labs
.ds)Y \n(mo/\n(dy/\n(yr
.ds)B \(bu\ \|
.ds)C \(em\ \|
.ds)D \(bu\ \|
.ds]A .5v
.ds]B .5v
.ds]C .5v
.ds]D 0v
.nr)G 11i-7.5p
.nr)Q 5
.nr)R 5
.nr)S 3
.nr]X 6
.nr)i 1
.nr)w 0
.em)z
.DF 1 H