xfnw/plan9fox
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
plan9fox/sys/lib/tmac/tmac.cs

1151 lines
21 KiB
C#
Raw Normal View History

Import sources from 2011-03-30 iso image - sys/lib
2011-03-30 13:53:33 +00:00
'''\" coversheet to match version 8/06/87
'''\" from comp center 1.30 7/20/87
'''\" 1/22/97 spacing change in addresses;
'''\" email on separate line - mdm
'''\" registers
'''\" a - abstract continuation flag - 0 (no), >0 (yes)
'''\" b - mercury selections counter
'''\" c - distribution continuation flag - 0 (no), 1 (yes)
'''\" d - flag for length calculation
'''\" e - complete copy basic distribution length
'''\" g - complete copy overflow distribution length
'''\" h - cover sheet basic distribution length
'''\" i - cover sheet overflow distribution length
'''\" k - keyword flag - 0 (none), 1 (some) - reused as scratch
'''\" l - number of vertical units per line - troff
'''\" m - memorandum type flag - 1 TM, 2 IM, 3 TC
'''\" n - document number counter
'''\" o - title flag - 0 (no), 1 (yes - vertical size of title diversion)
'''\" p - proprietary notice flag - 0 (none), 1 (default), 2(BR)
'''\" r - security flag - 0 (no), 1 (yes)
'''\" s - software flag - 0 (no), 1 (yes)
'''\" t - mark title position
'''\" u - author count
'''\" q v w x y z- scratch - but remembered
'''\" aa - ship to itds
'''\" strings
'''\" a) b)- mercury info
'''\" d) - date
'''\" k) - keywords
'''\" N1 - first document number
'''\" p) q) r)- proprietary 1
'''\" s) - time stamp string
'''\" t) - memo type (TM, IM, TC)
'''\" v) - document nos
'''\" w) - filing case nos
'''\" x) - work project nos
'''\" e( - earlier document
'''\" m( n( o( p(- authors 1-3 sig
'''\" r( - responsible person
'''\" s( - S software string
'''\" t( - memo type ("for Technical Memorandum", etc.)
'''\" x( - Mailing Label or DRAFT
'''\" N2 N3- 2nd 3rd document number
'''\" Fi - up to 3 filing cases
'''\" Xi - up to 3 work program numbers
'''\" diversions
'''\" WB - abstract
'''\" ZI - author info section
'''\" ZC - complete copy addressee primary
'''\" ZO - complete copy addressee overflow
'''\" ZS - cover sheet addressee primary
'''\" ZD - cover sheet addressee overflow
'''\" ZN - document number info
'''\" WT - title
'''\"
'''\" initialization
'''\"
'''\" get ms if not loaded
.if !\n(PS .so /sys/lib/tmac/tmac.s
. \" to foil ms
.if !'\*(d)'' \{\
. tm You're trying to load the coversheet macros twice - havoc will result
. tm I'm quitting to keep you from wasting paper
. ex \}
.rn FE F6
.nr ST 0
.nr CS 1
.ch NP 16i
.ch FO 16i
.ch FX 16i
.ch BT 16i
.nr FM .01i
.nr 1T 1
.nr BE 1
.nr PI 5n
.if !\n(PD .nr PD 0.3v
.pl 11i
.de FT
.fp 1 H
.fp 2 HI
.fp 3 HB
.fp 4 HX
.ps 10
.vs 12
..
.de FB
.ie !'\\*(TF'' .FP \\*(TF
.el .FP times
.ps 10
.vs 12
..
.FT
.de FE
.F6
.nr F4 +\\n(FP
..
.nr a 0 1
.nr b 0 1
.nr c 0
.nr d 0
.nr e 0
.nr g 0
.nr h 6
.nr i 0
.nr k 0
.nr m 0
.nr n 0 1
.nr o 0
.nr p 1
.nr q 0
.nr r 0
.nr s 0
.nr t 0
.nr u 0 1
.nr v 0
.nr w 0
.nr x 0
.nr y 0
.nr z 0
.nr dv 0
.if '\*(.T'aps' .nr dv 1
'''\" initialize units per vertical space
.nr l 120
.nr lp 66
.nr np 2 1
.af np i
.nr tp 2 1
.nr tc 2
.af tc i
.nr la 0
.nr a1 0
.nr a2 0
.nr ar 0
.nr u! 1
.nr ud 1
.nr ra 1
.di ZI
.di
.di ZN
.di
.di ZC
.di
.di ZO
.di
.di ZS
.di
.di ZD
.di
'''\"initialize date string - keep for 1st pg of tm
.if \n(mo-0 .ds d) January
.if \n(mo-1 .ds d) February
.if \n(mo-2 .ds d) March
.if \n(mo-3 .ds d) April
.if \n(mo-4 .ds d) May
.if \n(mo-5 .ds d) June
.if \n(mo-6 .ds d) July
.if \n(mo-7 .ds d) August
.if \n(mo-8 .ds d) September
.if \n(mo-9 .ds d) October
.if \n(mo-10 .ds d) November
.if \n(mo-11 .ds d) December
.as d) " \n(dy, 20\n(yr
.ds DY \*(d)
''' \" initialize strings
.ds m!
.ds m(
.ds n!
.ds n(
.ds o!
.ds o(
.ds x!
.ds y!
.ds z!
''' \" initialize proprietary notice
.ds o) "Alcatel-Lucent \(em PROPRIETARY
.ds p) "Use pursuant to Company Instructions
.ds q)
.ds r)
''' \" initialize trademark symbol
.ds MT \v'-0.5m'\s-4TM\s+4\v'0.5m'
.ds s) 0
''' \"initialize csmacro version string
.ds ve MCSL (07/12/90)
....in 0
'''\"
''' \" macros to collect information
'''\"
.de DT \" macro for date
'''\" store date if non-empty
.if !'\\$1'' .ds d) \\$1 \\$2 \\$3 \\$4
.ds DY \\$1 \\$2 \\$3 \\$4
..
.de TI \" macro for title -TI = mm(TL)
.br
.nr aa 0
.nr TV 1
.ds x( "Mailing Label \}
.in 0
.fi
.ll 4.25i
'''\" diversion for title ZT = mm(tI)
.di WT
..
.de AH \" macro for author info AH = mm(AU)
'''\" name loc dept ext room mail_addr company
'''\" don't count author unless non-empty
.br
.di
.if !'\\$1'' .nr u \\n+u
.nr AV \\nu
.if \\nu=1 \{\
. br
'''\" end title diversion on first author
. di
. nr o \\n(dn
. ll
. nf
. ds d! \\$3
. nr m2 \\$3/10 \}
.ta 0.3i 3.i 4i 5.5i
.br
.ds D\\nu \\$2 \\$3
.ds \\nuL \\$5, x\\$4
'''\" append to author list ZI = mm(aV)
.da ZI
\\$1 \\$2 \\$5 \\$4 \\$7
.br
.da
.if !'\\$6'' \{\
.da ZI
(\\$6)
.br
.da \}
'''\" end append; info for signature lines
.AA \\nu "\\$1" \\$3 \\$2 "\\$4" \\$5 \\$6
.ta 0.5i 1.0i 1.5i 2.0i 2.5i
..
.de AA
.\"ft 3
.di M\\$1
\\$2
.di
.di A\\$1
\\$2
.if !'\\$3'' Org. \\$3
.if !'\\$4'' \\$4 \\$6
.if !'\\$5'' \\$5
.if !'\\$7'' \\$7
.sp .05i
.br
.di
.ft
.sy echo \\$2 >/tmp/tt\\n($$
.sy sed -f /sys/lib/tmac/name.sed /tmp/tt\\n($$ >/tmp/tx\\n($$
.so /tmp/tx\\n($$
.sy rm /tmp/tx\\n($$ /tmp/tt\\n($$
.if \\$1<2 .ds T1 \\*(T1-gre
.da G9
\\$4-\\$3-\\*(T1
.br
.da
.if !'\\*(d!'\\$3' \{\
. nr u! \\n(u!+1
. nr m3 \\$3/10
. if !\\n(m2=\\n(m3 .nr ud \\n(ud+1 \}
.ie \\$1<4 \{\
. as m! \\l'2.25i'
. as m( \\$2 \}
.el .ie \\$1<7 \{\
. as n! \\l'2.25i'
. as n( \\$2 \}
.el \{\
. as o! \\l'2.25i'
. as o( \\$2 \}
..
.de TO \"begin list of im to people
.nr TO 1
.di 1T
..
.de ET \"end list of im to people & output pg
.di
.SR
..
.de AP \" at&t responsible person AP = mm(rP)
.br
.di
.if !'\\$1'' .ds r( \\$1
.rm AP
..
.de SA \" macro for abstract info SA = mm(AS)
.br
.ie \\n(.$ \{\
.ds a( \\$1
.if '\\$1'no' .ds a(\}
.el .ds a( ABSTRACT
.nr CS 0
.di
.fi
.nr LL 7.0i
.FB
.ft 1
.di WB \" WB = mm(aS)
..
.de SE \" macro for end of abstract info SE = mm(AE)
.br
.di
.nr la \\n(dn
.nr CS 1
.ll
.FT
.ft 1
.nf
..
.de KW \" macro for keyword info KW = mm(OK)
.ds k)
.if !'\\$1'' .as k) \\$1
.if !'\\$2'' .as k); \\$2
.if !'\\$3'' .as k); \\$3
.if !'\\$4'' .as k); \\$4
.if !'\\$5'' .as k); \\$5
.if !'\\$6'' .as k); \\$6
.if !'\\$7'' .as k); \\$7
.if !'\\$8'' .as k); \\$8
.if !'\\$9'' .as k); \\$9
'''\" set k flag if we have some keywords
.ie !'\\*(k)'' .nr k 1
.el .nr k 0
..
.de TY \" macro for document type TY = mm(MT)
.if '\\$1'TM' \{\
. nr m 1
. ds t) TM
. ds QF TECHNICAL MEMORANDUM
. ds t( "for Technical Memorandum \}
.if '\\$1'IM' \{\
. nr m 2
. ds t) IM
. ds QF INTERNAL MEMORANDUM
. ds t( "for Internal Memorandum \}
.if '\\$1'TC' \{\
. nr m 3
. ds t) TC
. ds QF TECHNICAL CORRESPONDENCE
. ds t( "for Technical Correspondence \}
.ie '\\$2'y' .nr s 1
.el .nr s 0
..
.de NU \" macro for document number info NU = mm(dN fC wP)
.ie \\ns=1 .ds s( S
.el .ds s(
.ie \\n(wp=0 \{\
. ie '\\$5'' .ds CX 000000-0000
. el .ds CX \\$5
. ds X1 \\*(CX
. nr wp \\n(wp+1 \}
.el \{\
. ds CX \\$5
. if !'\\$5'' \{\
. if \\n(wp=1 .ds X2 \\*(CX
. if \\n(wp=2 .ds X3 \\*(CX
. if \\n(wp=3 .ds X4 \\*(CX
. if \\n(wp=4 .ds X5 \\*(CX
. nr wp \\n(wp+1
. ds x) s\}\}
.if !'\\$4'' \{\
. ie !\\n(fc=0 \{\
. if \\n(fc=1 .ds F2 \\$4
. if \\n(fc=2 .ds F3 \\$4
. if \\n(fc=3 .ds F4 \\$4
. if \\n(fc=4 .ds F5 \\$4
. ds w) s
. nr fc \\n(fc+1 \}
. el \{\
. ds F1 \\$4
. nr fc \\n(fc+1 \} \}
.ie !'\\$1'' \{\
. ds NN \\$1-\\$2-\\$3\\*(t)\\*(s(
. if \\nn=0 .ds N1 \\*(NN
. if \\nn=1 \{\
. ds v) s
. ds N2 \\*(NN\}
. if \\nn=2 .ds N3 \\*(NN
. if \\nn=3 .ds N4 \\*(NN
. if \\nn=4 .ds N5 \\*(NN
. ie \\nn<4 .as x! \\l'2.25i'
. el ie \\nn<7 .as y! \\l'2.25i'
. el .as z! \\l'2.25i'
. nr n \\n+n \}
.if !'\\$6'' \{\
. ie !\\n(a!=0 \{\
. if \\n(a!=1 .as Z1 " \\$6
. if \\n(a!=2 .as Z1 \\$6
. nr a! \\n(a!+1 \}
. el \{\
. ds Z1 " \\$6
. nr a! \\n(a!+1 \} \}
.el .ds NN
.ta 0.8i 3.5i 5.55i
.br
.da ZN \" ZN = mm(dM fC wO)
\\*(NN \\$4 \\*(CX
.br
.da
.ta 0.5i 1.0i 1.5i
..
.de MY \" macro for mercury selections MY = mm(mE)
.ds a)
.ds b)
.if '\\$1'y' \{\
. as a) " CHM - Chemistry and Materials
. nr b \\n+b \}
.if '\\$2'y' \{\
. as a) " CMM - Communications
. nr b \\n+b \}
.if '\\$3'y' \{\
. as a) " CMP - Computing
. nr b \\n+b
. if \\nb=3 .rn a) b) \}
.if '\\$4'y' \{\
. as a) " ELC - Electronics
. nr b \\n+b
. if \\nb=3 .rn a) b) \}
.if '\\$5'y' \{\
. as a) " LFS - Life Sciences
. nr b \\n+b
. if \\nb=3 .rn a) b) \}
.if '\\$6'y' \{\
. as a) " MAS - Mathematics and Statistics
. nr b \\n+b
. if \\nb=3 .rn a) b) \}
. if \\nb<6 \{\
. if '\\$7'y' \{\
. as a) " PHY - Physics
. nr b \\n+b
. if \\nb=3 .rn a) b) \} \}
. if \\nb<6 \{\
. if '\\$8'y' \{\
. as a) " MAN - Manufacturing
. nr b \\n+b \} \}
.if \\nb=3 .rn b) a)
..
.de RL \" lucent distribution ok RL = mm(rA or fA)
.if '\\$1'n' .nr ra 2
.rm RL
..
.de ED \" earlier document number ED = mm(eD)
.if !'\\$1'' .ds e( \\$1
.rm ED
..
.de PR \" macro for proprietary marking PR = mm(PM)
.if '\\$1'BP' .nr p 1
.if '\\$1'BR' \{\
. nr p 2
. ds o) "Alcatel-Lucent \(em PROPRIETARY (RESTRICTED)
. ds p) "Solely for authorized persons having a need to know
. ds q) " pursuant to Company Instructions \}
.if '\\$1'0' .nr p 0
..
.de GS \" GS = mm(gS)
.nr r 1
..
.de CI
..
.de XE
'''\" basic distribution leng-to be tailored-set e & h
.if \\nd=0 \{\
. nr d 1
. if \\nr=0 .nr e \\ne+2
. if \\nu<=3 .nr e \\ne+3
. if \\nu<=6 .nr e \\ne+3
. if \\nu<=9 .nr e \\ne+3
. if \\nn<=3 .nr e \\ne+2
. if \\nn<=6 .nr e \\ne+2
. if \\nn<=9 .nr e \\ne+2
. if \\n(ra<=2 .nr e \\ne-3
. nr e \\ne+27
. nr h \\ne \}
..
.de CO \" macro for complete copy addressees CO = mm(cC)
.XE
.ta 2.0i
.nf
.br
.ie \\ne>0 \{\
. da ZC \" ZC = mm(cA)
. ds y( \\$1
. ie '\\$1'y' .so /sys/lib/tmac/complet.1127
. el .if !'\\$1'' .so /sys/lib/tmac/complet.\\*(y(
. dt \\ne OC \}
.el .da ZC
..
.de OC \" macro for complete copy overflow - OC = mm(cD)
.ta 2.0i
.br
.da
.da ZO \" ZO = mm(cO)
.ie \\n(ar>0 .dt \\n(arv ZW
.el .dt 55 ZW
..
.de ZW
.br
.da
.ie \\n(dn>0 .g (\\n(dn)/\\nl+4
.da CZ
..
.de CV \" macro for cover sheet only addresses CV = mm(cS)
.XE
.ta 2.0i
.nf
.br
.ie \\nh>0 \{\
. da ZS \" ZS = mm(dA)
. ds y( \\$1
. ie '\\$1'y' .so /sys/lib/tmac/cover.1127
. el .if !'\\$1'' .so /sys/lib/tmac/cover.\\*(y(
. dt \\nh OV \}
.el .da ZD
..
.de OV \" macro for cover sheet only overflow OV = mm(cT)
.ta 2.0i
.br
.da
.da ZD \" ZD = mm(cO)
.ie \\n(ar>0 .dt \\n(arv WW
.el .dt 55 WW
..
.de WW
.br
.da
.if \\n(dn>0 .nr i (\\n(dn)/\\nl+4 \" was ie with no el
.da DZ
..
.de CE \" ending all distribution diversions CE = mm(cE)
.br
.if "\\n(.z"ZC" \{\
. nr g 0
. rm OC \}
.if "\\n(.z"ZO" \{\
. nr g -1
. rm OC \}
.if "\\n(.z"CZ" \{\
. nr g -2
. rm OC \}
.if "\\n(.z"ZS" \{\
. nr i 0
. rm OV \}
.if "\\n(.z"ZD" \{\
. nr i -1
. rm OV \}
.if "\\n(.z"DZ" \{\
. nr i -2
. rm )V \}
.da
.if \\ng=-1 \{\
. ie \\n(dn>0 .nr g (\\n(dn)/\\nl+4
. el .nr g 0 \}
.if \\ni=-1 \{\
. ie \\n(dn>0 .nr i (\\n(dn)/\\nl+4
. el .nr i 0 \}
..
'''\"
'''\" macros to help format document
'''\"
.de HD
.po .5i \"was .25
.if "\\*(.T"aps" .tl '--''--'
.sp|0.2i
..
.de FC \" footer macro FC = mm(fO)
.pl 11.0i
'bp
..
.de ST \" macro for abstract overflow trap ST = mm(yY)
.ZB
.rm ST \" ZB = mm(aT)
..
.de ZB
.ch ST 16i \" macro for abstract overflow trap ZB = mm(aT)
.if \\na>0 \{\
. ft 2
. ce
(continued)
. ft 1 \}
.pl 11.0i
.nr a \\n+a
.rn ZB XX
'bp
.rn XX ZB
.wh -0.35i ZB
.HC \" HC = mm(cH)
.HX \" HX = mm(tH)
'sp 0.05i
.ce
.ft 3
Abstract (continued)
.ft 1
.in 0.2i
'sp 1
.FB
..
.de TK \" macro for thick lines TKK = mm(tK)
.ps 24
\l'7.5i'
.ps
..
.de HX \" macro for Title headings and text HX = mm(tH)
.TK
'sp 0.05i
'''\" mark t - Title heading
.mk t
.ft 3
Title:
.ft
'sp|\\ntu
.in 0.7i
.WT
.in 0
.ta 0.5i
.nr q \\no/\\nl
.ie \\nq>2 'sp|\\ntu+\\nq
.el 'sp|\\ntu+2
.TK
. \" m1 - mark end of title section - save
.mk m1
..
.de HC \" macro for continuation header HC = mm(cH)
.nr np \\n+(np
.nf
.in 0
.FT
.ft 3
.ta 4.80i
.nr tc \\n(tp
\\*(N1\f2 (page \\n(np of \\n(tc)
.sp 0.1i
..
.de DL \" macro for distribution list headers DL = mm(dH)
.ft 3
.ta 1.0i 4.75i
\\$1 \\$2
.sp 0.05i
.ft 1
.ta 0.5i 1.0i
..
.de EJ \" macro for ejecting continuation page EJ = mm(eP)
'bp
.wh 0 HD
'''\" put out continuation page header & title section
.HC
.HX
..
.de CP \" macro for continuation page CP = mm(cP)
'''\" calc vert. units for cc overflow (if any)
.ie \\nv<=\\n(.t .nr v 1
.el .nr v 0
.if \\nv=1 .if \\nw<=\\n(.t .nr v 2
. \" check if cont page needs to be ejected
.in 0
.if \\nc=1 \{\
. \" - if no abstract overflow
. if \\na=0 .EJ
. if \\na>0 \{\
. \"or if abstract over but no room for list overfl
. ie \\nv<2 .EJ
. \" just tk line if abstract over & room for list
. el .TK \}
. FT
. ie \\ne=0 \{\
. if \\ng>4 .if \\ni>4 .DL "Complete Copy" "Cover Sheet Only"
. if \\ng>4 .if !\\ni>4 .DL "Complete Copy" ""
. if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only" \}
. el \{\
. if \\ng>4 .if \\ni>4 .DL "Complete Copy (continued)" "Cover Sheet Only (continued)"1
. if \\ng>4 .if !\\ni>4 .DL "Complete Copy (continued)" ""
. if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only (continued)" \}
. mk z
. nr q \\n(.t/\\nl
'''\" put out complete copy list overflow
. in 0.2i
. ZO
. in 0
. mk x
. sp|\\nzu
. in 4i
'''\" put out cover sheet list overflow
. ZD
. mk y
. in 0
. if \\nx-\\ny .sp|\\nxu
. TK \}
..
.de ZP \"compute total pages and diversion lengths
'''\" calculate vert. units for cc overflow (if any)
.ie \\ng>4 .nr v (\\ng)*\\nl
.el .nr v 0
'''\" also for cs overflow (if any)
.ie \\ni>4 .nr w (\\ni)*\\nl
.el .nr w 0
.ie \\nv>\\nw .nr j \\nv
.el .nr j \\nw
. \" set c=1 if either g or i >0
.if \\ng>4 .nr c 1
.if \\ni>4 .nr c 1
. \" calculate total pages in job (default 2)
. \" a1 - page 1 portion abstract (units)
.nr a1 \\nyu-\\nxu-1v
.ie \\n(la>\\n(a1 \{\
. \" ar - remainder abstract (units)
. nr ar \\n(la-\\n(a1
. nr tp \\n+(tp
. \" a2 - available continuation page space
. \" m1 is mark after tk line after title
. \" 2v for Abstract (continued) + one blank
. nr a2 11.0i-\\n(m1-2v
. ZZ \}
.el .if \\nc>0 .nr tp \\n+(tp
..
.de ZZ \" ZZ = mm(t1)
.ie \\n(ar>\\n(a2 \{\
. nr ar \\n(ar-\\n(a2
. nr tp \\n+(tp
. ZZ \}
.el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n+(tp
..
'''\"
'''\" main macro to handle output of cover sheet
'''\" mm(CS)
.de SC
.nr CS 0
.nr ST 1
.if \\nu=0 \{\
. tm WARNING: author must be supplied \}
.if \\no=0 \{\
. tm WARNING: document title must be supplied \}
.if \\nm=0 \{\
. tm WARNING: memorandum type undefined or unknown \}
.if \\nm=1 .if \\nb=0 \{\
. tm WARNING: technical memoranda must have at least one mercury class \}
.if \\nn=0 \{\
. tm WARNING: document number must be supplied \}
.XE
.ll 7.5i
.ft 1
.if \\n(nl .bp
.in 0
.HD
'''\" the rs is to restore spacing - ditches big space at top
.rs
.sp1
.sp 0.05i
.nf
.ps 16
.ft 3
.ta 4.85i
. \" put out page 1 heading
Document Cover Sheet
.wh 0 HD
.sp 0.1i
.ta 0.15i 4.55i
\s36\(FA\s0 \\*(t(
.ft
.ps 10
.HX
.sp 0.05i
.ft 3
.ie \\nu>1 .ds u) s
.el .ds u)
.ta 0.5i 3.0i 3.95i 5.25i
Author\\*(u) (Computer Address) Location Phone Number Company (if other than BL)
.ft
'''\" output author info
.ZI
.if !'\\*(r('' \{\
. ta 0.3i 2.6i
\\*(r( (Responsible BL Person) \}
.TK
.sp 0.05i
.ft 3
.ta 1.0i 3.3i 5.55i
Document No\\*(v). Filing Case No\\*(w). Project No\\*(x).
.ft
.sp 0.05i
'''\" output document number
.ZN
.TK
'''\" output keywords if they exist
.if \\nk>0 \{\
. ft 3
Keywords:
. ft
. sp 0.05i
. ti 0.2i
\\*(k)
. TK \}
'''\" output mercury info if it exists
.if \\nb>0 \{\
. ft 3
MERCURY Announcement Bulletin Sections
. ft
. sp 0.05i
. ta 0.6i 3.1i 5.6i
. ps 8
. if \\nb>3 \\*(b)
\\*(a)
. ps
. TK \}
.ft 3
Abstract
.ft
.mk x
.nr b1 \\nx/\\n(.v+1
.nr b2 (\\n(b1*\\n(.v)-\\nx
.sp \\n(b2u
.mk x
'''\" calculate position (19v includes 2v to print version at bottom of page)
.nr y \\n(lpv-19v
.if \\n(F4>0 .nr y \\ny-\\n(F4
.sp|\\nyu
.sp -1
.ZP
'''\" handle abstract page 1 continuation
.ie \\n(la>\\n(a1 \{\
. ce
. ft2
(continued on page iii)
. ft1
. br \}
.el .sp1
.if \\n(F4>0 \{\
. FA
. FG \}
.TK
.ps 8
.vs 10
.nr qq \\$1+\\$2+\\n(tp
\f3Total Pages\f1 (including document cover sheet): \\s+2\\n(qq\\s-2
.ie !'\\*(e('' \{\
Supersedes or amends document number \\*(e(. \}
.el .sp
.ps
.vs
.mk z
.sp .67i
'''\" output proprietary notice if it exists
.if \\np>0 \{\
.ft 2
.ti (4i-\\w'\\*(o)'u)/2u
\\*(o)
.ft
.ti (4i-\\w'\\*(p)'u)/2u
\\*(p)
.ti (4i-\\w'\\*(q)'u)/2u
\\*(q) \}
.sp |\\nzu+11v
.ta 5.35i
\\s8\\*(ve\\s0
.ie !'\\*(s)'' \{\
\s8Timestamp: \\*(s)\s0 BELL LABORATORIES \}
.el \{\
BELL LABORATORIES \}
.sp|\\nzu
.sp 1
.ft 3
.ti 5.25i
\\*(x(
.ft
.sp|\\nxu
.in 0.2i
.nf
'''\" abstract
.if !\\n(la=\\n(a1 \{\
. wh -0.25i ST \}
.pl \\nyu
.ta 0.5i 1.0i 1.5i 2.0i 2.5i
.FB
.ft 1
'''\" output the abstract
.WB
.if \\n(la=\\n(a1 .sp-1
.rn ZB XX
.wh -0.25i FC
'''\" output continuation page
.CP
'bp
.FT
.ft 1
.in 0
.wh 0 HD
.nf
.ft 3
.ta 5.00i
.nr tc \\n(tp
Initial Distribution Specifications \\*(N1\f2 (page ii of \\n(tc)\f3
.ft 1
.TK
.if \\ne>0 \{\
. DL " Complete Copy" " Cover Sheet Only"
. mk z
'''\" put out complete copy list
. in 0.2i
. ZC
. in 0
. if !\\ng=0 \{\
. ft 2
. ti 1.25i
(continued)
. ft 1 \}
. sp|\\nzu
. in 4i
'''\" put out cover sheet list
. ZS
. if !\\ni=0 \{\
. ft 2
. ti 4.75i
(continued)
. ft 1 \}
. in 0
'''\" starter space value - then tailor
. sp|5
. sp \\ne
. TK \}
.if \\nr=1 \{\
\f3Government Security Classified\f1
. ft 1
. sp -0.05i
. TK \}
\f3Future Alcatel-Lucent Distribution by ITDS\f1
.ti 0.5i
.sp 0.05i
.ie \\n(ra=2 \{\
\f3DO NOT RELEASE\f1 to any Alcatel-Lucent employee without appropriate approval for each request. \}
.el \{\
\f3RELEASE\f1 to any Alcatel-Lucent employee (excluding contract employees). \}
.TK
'''\" put out author signature section
.ft 3
Author Signature\\*(u)
.ft 1
.sp1
.ta 2.635i 5.25i
\\*(m!
.ta 0.25i 2.875i 5.5i
\\*(m(
.if \\nu>3 \{\
. sp 0.1i
. ta 2.635i 5.25i
\\*(n!
. ta 0.25i 2.875i 5.5i
\\*(n( \}
.if \\nu>6 \{\
. sp 0.1i
. ta 2.635i 5.25i
\\*(o!
. ta 0.25i 2.875i 5.5i
\\*(o( \}
.sp -0.1i
.TK
'''\" output organizational approval section
.ie \\np>1 \{\
\f3Organizational Approval\f1 (Department Head approval \f3required\ff1 for \f2\\*(o)\f1.) \}
.el \{\
\f3Organizational Approval\f1 (Optional) \}
.sp 1
.ta 2.635i 5.25i
\\*(x!
. ta 0.25i 2.875i 5.5i
\\*(Z1
.if \\nn>3 \{\
. sp .1i
.ta 2.635i 5.25i
\\*(y! \}
.if \\nn>6 \{\
. sp .1i
\\*(z! \}
.sp -0.1i
.TK
'''\" recipient section always output
.ft 3
For Use by Recipient of Cover Sheet:
.ft 1
.ps -3
.vs -4
.sp.05i
.mk z
Computing network users may order copies via the \f2library \-k\f1 command;
for information, type \f2man library\f1 after the UNIX prompt.
'''.sp1
.rn fo xx
Otherwise:
Enter PAN if BL (or SS# if non-BL). \l'1.5i'
Return this sheet to any ITDS location.
.sp|\\nzu
.in 4i
Internal Technical Document Service
'''.sp1
.ta 1i 2i 3i
( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS
( ) ALC 1B-102 ( ) MV 1L-19 ( ) INH 1C-114 ( ) PR 5-2120
( ) CB 30-2011 ( ) WH 3E-204 ( ) IW 2Z-156
( ) HO 4F-112 ( ) MT 3B-117
.in
.ps
.vs
.SR
..
. \"IZ - initialization
.de IZ
.FB
.nr TN 0
.em EM
.po 1i
.nr PO 1i
.if \\n(FM=0 .nr FM 1i
.nr YY 0-\\n(FMu
.if !\\n(PD .if n nr PD 1v
.if t .if !\\n(PD .nr PD 0.3v
.wh 0 NP
.wh \\n(.pu-\\n(FMu FO
.ch FO 16i
.wh \\n(.pu-\\n(FMu FX
.ch FO \\n(.pu-\\n(FMu
.if t .wh -\\n(FMu/2u BT
.if n .wh -\\n(FMu/2u-1v BT
..
.\" macro to restore ms foiling
.de SR
.nr BE 0
.nr 1T 1
.nr FM 0
.nr PD 0
.nr HM 0
.nr KG 0
.nr FP 0
.nr GA 0
.nr FP 0
.\" changed rn F5 FE added rn FJ FS
.rn FK FE
.rn FJ FS
.if '\\$1'' .bp
.if !'\\$1'' \{\
.di ZA
.ce
\\*(a(
.sp
.WB
.di
.rn ZA WB\}
.nr FC -1
.nr % 1
.IZ
.rm IZ
.if '\\$1'' .RT
.ds MN \\*(N1 \\*(N2 \\*(N3 \\*(N4 \\*(N5
.nr MM \\nn
.nr MC \\n(fc
.nr MG \\n(wp
.nr NA \\nu
.if '\\n(ST'1' \{\
'''.so /sys/lib/tmac/tmac.rscover XXX
.so \*(.P/lib/tmac/tmac.rscover
. \" a line for troff to eat
.S1 \}
.ll 6i
.nr LL 6i
.rr a b c d e f g h i j k
.rr l m n o p q r s t u
.rr v w x y z np tp nc tc
.rr ud u! m2 dv
.rr lp np la a1 a2 ar wp fc m1
.rm DT TI AH SE KW TY NU MY
.rm PR CI CO OC CV OV CE HD
.rm FC ST TK HX HC DL EJ
.rm CP SC a) b) k) N1 p) q) r)
.rm N2 N3 N4 N5 X1 X2 X3 X4 X5
.rm X1 X2 X3 X4 X5 F1 F2 F3 F4
.rm F5
.rm d) o) s) ve m! n! o! e( r(
.rm x! y! z! x( d! ve u)
.rm t) w) x) y) z) a( b( c( m(
.rm n( o( p( s( t( SA ZI ZC ZO
.rm ZS ZD ZN FT FB CX NN GS
.rm ZB XX ZP ZZ
.rm TM IM MF MR LT OK RP TR
.rm TX AU AX AI AE SY S2 S0
.rm S3
..
.de RP
.nr ST 2
.SS
..
.de TR
.nr ST 3
.ds MN \\$1
.SS
..
.de SS \"RP or TR rename the world so old macros called
.rm SG
.nr CS 0
.nr BE 0
.nr 1T 0
.nr FM 0
.nr PD 0
.nr HM 0
.nr KG 0
.nr FP 0
.nr GA 0
.nr FP 0
.ll 6i
.nr LL 6i
.\" changed rn F5 FE added rn FJ FS
.rn F6 FE
.nr FC -1
.nr % 1
.IZ
.rm IZ
.pn 0
.de TI
.TL
\\..
.de SA
.AB \\\\$1
\\..
.de SE
.AE
\\..
.de AH
.AU
\\\\$1
\\..
.de DT
.ND \\\\$1 \\\\$2 \\\\$3
\\..
.br
.rr a b c d e f g h i j k
.rr l m n o p q r s t u
.rr v w x y z np tp nc tc
.rr ud u! m2 dv
.rr lp np la a1 a2 ar wp fc m1
.rm DT KW TY NU MY
.rm PR CI OC OV HD
.rm FC ST TK HX HC DL EJ
.rm CP SC a) b) k) N1 p) q) r)
.rm d) o) s) ve m! n! o! e( r(
.rm x! y! z! x( d! ve u)
.rm t) w) x) y) z) a( b( c( m(
.rm n( o( p( s( t( ZI ZC ZO
.rm ZS ZD ZN FT FB CX NN GS
.rm ZB XX ZP ZZ
.rm TM IM MF MR LT
..
Reference in a new issue Copy permalink