fixed ansi c macro
[unix-history] / usr / src / share / tmac / tmac.a
CommitLineData
8cdd8586
KB
1.\" Copyright (c) 1981 The Regents of the University of California.
2.\" All rights reserved.
3.\"
4.\" %sccs.include.proprietary.roff%
5.\"
6.\" @(#)tmac.a 5.2 (Berkeley) %G%
7.\"
8
36c1c325
MK
9.\" ********** dictionary **********
10.\" B0 size of wide figure just diverted
11.\" B1 size of figure at top full wdith
12.\" B2 if figure at full width bottom
13.\" B3 name of full width top figure for next page
14.\" B4 full width bottom figure
15.\" B5 wide top figure size scheduled for this page
16.\" B6 true if a wide figure being diverted
17.\" B8 if at EM end up macro stage
18.\" B9 if at page bottom
19.\" BM width bottom margin
20.\" BX full width top figure, this page
21.\" CE end caption.
22.\" CP store caption.
23.\" CS begin caption; center if 1 line, else paragraph.
24.\" CW column width
25.\" D1 amount of text left column
26.\" D2 amount of text right column
27.\" D3 arithmetic scratch, typically whether went past page footer
28.\" D9 scratch, remembers length of diverted keep
29.\" DN name of current diversion trap
30.\" DO default page offset
31.\" EE string to be prefixed to an equation to indent it two spaces if wanted
32.\" EL equation label
33.\" EZ rathole to throw equations down
34.\" F0 argument to GS specifying quadrant
35.\" F1 biggest space available in left column
36.\" F2 biggest space available in right column
37.\" F5 position of top of 2 2col section
38.\" F6 argument to BS specifying top/bottom
39.\" G0 (1) count authors
40.\" (2) size of just entered figure
41.\" G1 size figure top left next page
42.\" G2 size figure top right next page
43.\" G3 size left bottom figure
44.\" G4 size right bottom figure
45.\" G5 true if next top narrow figure goes to right side (next page)
46.\" G6 true if next bottom narrow figure goes to right side
47.\" G7 (1) amount space before bottom wide figure to sit on baseline
48.\" (2) flag for doubled up narrow figures into a wide one
49.\" G8 true if figure has been placed
50.\" G9 if at page top
51.\" GD buffer where narrow figure is placed
52.\" GJ figure top left next page
53.\" GK figure top right next page
54.\" GL content left bottom figure
55.\" GM content right bottom figure
56.\" GP left half of a figure pair
57.\" GQ right half of a figure pair
58.\" H0 section numbers for numbered headings
59.\" H1 size of figure at top left this page
60.\" H2 size of figure top right this page
61.\" HJ figure at top left this page
62.\" HK figure at top right this page
63.\" HS true if just at a section heading
64.\" IK true if inside a KS/KE
65.\" L1 shortest legal amount of two column material
66.\" L2 amount of 2 column stuff expected
67.\" L4 amount being diverted
68.\" L5 amount of text diverted in double-column hunt
69.\" L6 zero if right column, true if too short to split up
70.\" L7 minimum length of a split column
71.\" LC position of left column bottom
72.\" LE computation of column lengths \" LE should be F3
73.\" LE true if equations are labeled
74.\" LH left running head
75.\" LL line length
76.\" LS general looseness parameter
77.\" MX expand month name
78.\" NB number of columns possible
79.\" NC number of columns being set
80.\" ND have been in double column before, not first break to it.
81.\" NU issue number
82.\" P1 (1) height left col
83.\" (2) amount to pad total
84.\" P2 height right column
85.\" P3 amount of extra space at a 1C-2C transition
86.\" P4 temporary in filling columns calcuations
87.\" PS standard point size
88.\" Q1 number of places to pad
89.\" Q2 number padding points right column
90.\" RO position of right column (offset for)
91.\" S1 position of space in column
92.\" S2 size of space
93.\" T1 true if top figure position forced by GS arg
94.\" T2 true if bottom figure position forced by GS arg
95.\" TB true if there is to be a turnover bar here.
96.\" TP true if still at document title (turnover bar decision)
97.\" TQ position at top of page
98.\" TT >0 if figure, etc. doesn't fit this page
99.\" TT right running head (title)
100.\" TW table width (set by TBL)
101.\" VN volume number
102.\" VS standard vertical spacing
103.\" GW gutter width
104.\" X1 diversion to hold left column
105.\" X2 diversion to hold right column
106.\" XI value of indent to be restored after abstract
107.\" XQ register in which padding points are counted
108.\" XR true (1) if past the very first paragraph
109.\" XX diversion to hold input text in preparation for formatting
110.\" YE past very top: avoids a break in the EQ/EN macro before startup.
111.\" ZN size of equation
112.\" mo month name
113.\" y place of footer trap
114.\"
115.\"
116.\" ********** environments *********
117.\" 0 normal
118.\" 1 figures
119.\" 2 while columns are arranged
120.\"
121.\"
122.\" ********** macros **********
123.\" for user which invoke
124.\" TL,AU,AI,AB,AE IZ, EA, AX, AY
125.\" EQ, EN @L, @C, @I
126.\" TS,TE
127.\" SP, PP FI, NX, RT
128.\" 2C 2D, 2S, C4, C3, LA
129.\" 1C 1D, 1E, 1S, C6, C7
130.\" ST, LS CL
131.\" SL
132.\" GS, GE GA,GB,GG,GU,GV,GW,GX,GY,GZ,GN,GO,C8,MR,BR
133.\" BS,BE BA,BB,BC,BD
134.\" KS,KE KU,KT
135.\" CS,CE CP
136.\" SH,NH
137.\" B, I, R
138.\" UL
139.\" ne NE
140.\" EM, NP, FO, CM
141.\"
142.nr B9 1
143.\" -----------------------------
144.de RT \" reset params to normal state
145.ce 0
146.ul 0
147.ti 0
148.if \\n(IP .in -\\n(IQn
149.if \\n(IP .nr IP -1
150.ft 1
151.if \\n(AJ=0 .ps \\n(PS
152.if \\n(AJ=0 .vs \\n(VSp
153.fi
154..
155.\" -----------------------------
156.de IZ \"initialization
157.MX
158.rm MX
159.if !\\n(BM .nr BM 1.13i
160.nr y 0-\\n(BM
161.if \\n(DO=0 .nr DO .4i
162.wh 0 NP
163.po \\n(DOu
164.nr IP 0
165.if !\\n(PS .nr PS 9
166.if !\\n(L1 .nr L1 1.5i \"minimum amount of double column
167.if !\\n(VS .nr VS 11
168.ps \\n(PS
169.vs \\n(VSp
170.if !\\n(PI .nr PI 2n
171.if !\\n(PD .nr PD 0
172.if !\\n(CW .nr CW 3.1i
173.if !\\n(GW .nr GW 0.4i
174.nr RO \\n(CWu+\\n(GWu
175.nr YE 1
176.nr LL \\n(RO+\\n(CW
177.ll \\n(LLu
178.lt \\n(LLu
179.nr NC 1
180.nr NB 1
181.wh \\nyu FO
182..
183.\" -----------------------------
184.de EQ \"equation, breakout and display
185.nr EF \\n(.u
186.rm EE
187.nr LE 1 \" 1 is center
188.ds EL \\$1
189.if "\\$1"L" .ds EL \\$2
190.if "\\$1"L" .nr LE 0
191.if "\\$1"C" .ds EL \\$2
192.if "\\$1"I" .nr LE 0
193.if "\\$1"I" .ds EE \\h'4n'
194.if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
195.if "\\$1"I" .ds EL \\$2
196.if \\n(YE>0 .nf
197.di EZ
198..
199.\" -----------------------------
200.de EN \" end of a displayed equation
201.if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows.
202.br
203.ce 0
204.di
205.rm EZ
206.nr ZN 1
207.if "\\*(10"" .nr ZN 0
208.if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
209.lt \\n(.lu
210.br
211.if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5
212.pc
213.if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
214.if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
215.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
216.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL
217.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10'
218.lt \\n(LLu
219.pc %
220.br
221.if \\n(YE>0 .if \\n(EF>0 .fi
222.rm EL
223.if \\n(ZN>0 .SP 0.5
224.nr PE \\n(.d
225..
226.\" -----------------------------
227.de TL \"title of document
228.IZ
229.rm IZ
230.br
231.if \\n(XR>0 .EA
232.ll \\n(LLu
233.ft 3
234.ps 11
235.if \\n(PS=9 .nr y -3v
236.ce 1000
237.nr TP 1
238.nr G0 0
239.bd 1 3
240.bd 2 3
241.if !"xx\\n(.z"xx" \!.bd 1 3
242.if !"xx\\n(.z"xx" \!.bd 2 3
243..
244.\" -----------------------------
245.de AU \"author(s) name(s)
246.ft 1
247.br
248.bd 1
249.bd 2
250.if !"xx\\n(.z"xx" \!.bd 1
251.if !"xx\\n(.z"xx" \!.bd 2
252.if !\\n(G0 .sp
253.if \\n(G0 .sp .5
254.if \\n(G0 and
255.if \\n(G0 .sp .5
256.nr G0 +1
257.ps \\n(PS
258..
259.\" -----------------------------
260.de AI \"authors institution
261.ft 2
262.ps \\n(PS-1
263..
264.\" -----------------------------
265.de AB \"abstract start
266.ce 0
267.ll \\n(LLu
268.fi
269.ft 1
270.sp
271.nr XI \\n(.i
272.nr AJ 1
273.in +\\n(.lu/8u
274.ll -\\n(.lu/8u
275.nr PS -1
276.ps \\n(PS
277.nr VS -1
278.vs \\n(VSp
279.ti +2n
280..
281.\" -----------------------------
282.de AE \"abstract end
283.ll \\n(LLu
284.in \\n(XIu
285.ce 0
286.nr PS +1
287.ps \\n(PS
288.nr VS +1
289.vs \\n(VSp
290.nr AJ 0
291.if !\\n(.d=\\n(nl .AX
292.if \\n(PS=9 .sp 2
293.nr XR 0
294.nr ND 0
295.2C
296..
297.\" No default table macro now.
298.\" . -----------------------------
299.\" .de TS \"table start