![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.an.save CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac|
Return to tmac.an.save CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac |
1.1 root 1: ' # month name
2: .if "\nd"0" .nr m \n(mo-1
3: .if "\nm"0" .ds ]m January
4: .if "\nm"1" .ds ]m February
5: .if "\nm"2" .ds ]m March
6: .if "\nm"3" .ds ]m April
7: .if "\nm"4" .ds ]m May
8: .if "\nm"5" .ds ]m June
9: .if "\nm"6" .ds ]m July
10: .if "\nm"7" .ds ]m August
11: .if "\nm"8" .ds ]m September
12: .if "\nm"9" .ds ]m October
13: .if "\nm"10" .ds ]m November
14: .if "\nm"11" .ds ]m December
15: ' # set the date
16: .if n \{.nr m \nm+1
17: . ie \nd .ds ]W Modified \nm/\nd/\ny
18: . el .ds ]W Printed \n(mo/\n(dy/\n(yr\}
19: .if t \{.ie \nd .ds ]W \*(]m \nd, 19\ny
20: . el .ds ]W \*(]m \n(dy, 19\n(yr\}
21: .if t .tr *\(**
22: .ie n \{\
23: . ds lq \&"\"
24: . ds rq \&"\"
25: .\}
26: .el \{\
27: . ds rq ''
28: . ds lq ``
29: .\}
30: .de UC
31: .if t \{\
32: . ie "\\$1"" .ds ]W 3rd Berkeley Distribution
33: . el .ds ]W \\$1th Berkeley Distribution
34: .\}
35: ..
36: ' # reset the basic page layout
37: .de }E
38: .}f
39: .in \\n()Ru+\\n(INu
40: .ll \\n(LLu
41: ..
42: ' # default tabs
43: .de DT
44: 'ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i
45: ..
46: ' # set type font and size
47: .de }f
48: .ps 10
49: .ft 1
50: ..
51: ' # handle the head of the page
52: .de }H
53: .ev 1
54: .}C
55: 'sp .5i
56: .ft 1
57: .ps 10
58: .tl @\\*(]H@\\*(]D@\\*(]H@
59: 'sp .5i
60: .ev
61: .ns
62: ..
63: ' # handle the foot of the page
64: .de }F
65: .ev 1
66: .ft 1
67: .ps 10
68: 'sp .5i
69: ' # .tl @\\*(]W@\\*(]L@%@
70: .tl @@- % -@@
71: 'bp
72: .ev
73: ..
74: ' # the cut mark
75: .if n .ig
76: .de }C
77: .po .1i
78: .tl '-'
79: .po
80: ..
81: ' # the final cut mark
82: .de }M
83: .}N
84: .wh -1p }C
85: .ll \\n(LLu
86: ..
87: ' # no runout unless there was a .TH
88: .de }K
89: .}N
90: .pl 1
91: .ll \\n(LLu
92: ..
93: .em }K
94: ' # set title and heading
95: .de TH
96: .PD
97: .DT
98: .if n .nr IN .5i
99: .if t .nr IN .5i
100: .nr LL \\n(.l
101: .ds ]H \\$1\|(\|\\$2\|)
102: .ds ]D Power 6 Unix Programmer's Manual
103: .wh 0 }H
104: .if t .wh -1i }F
105: .if n .wh -1.167i }F
106: .em }M
107: .if \\n(nl .bp 1
108: .ds ]L \\$3
109: .}E
110: .DT
111: .nr )I .5i
112: .nr )R 0
113: .if n .na
114: .mk ka
115: .if !'\\n(ka'-1' .bp
116: .if t .ds ]W 7th Edition
117: ..
118: ' # section heading
119: .de SH
120: .}X 0
121: .nr )E 2
122: \&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
123: ..
124: ' # sub section heading
125: .de SS
126: .}X \\n()Ru+\\n(INu
127: \&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
128: .br
129: ..
130: ' # subroutine for section heading
131: .de }X
132: .}E
133: .ti \\$1
134: .sp \\n()Pu
135: .ne 2
136: .nr )R 0
137: .fi
138: .it 1 }N
139: .SM
140: .B
141: ..
142: ' # end of SH (cf }X above and }N below)
143: .de }2
144: .nr )E 0
145: .}E
146: .nr )I .5i
147: .ns
148: ..
149: ' # italic
150: .de I
151: .ft 2
152: .it 1 }N
153: .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
154: ..
155: ' # bold
156: .de B
157: .ft 3
158: .it 1 }N
159: .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
160: ..
161: ' # small
162: .de SM
163: .ps 9
164: .it 1 }N
165: .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
166: ..
167: ' # combinations of Roman, italic, bold
168: .de RI
169: .}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
170: ..
171: .de VS
172: 'if '\\$1'4' .mc \s12\(br\s0
173: ..
174: .de VE
175: 'mc
176: ..
177: .de RB
178: .}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
179: ..
180: .de IR
181: .}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
182: ..
183: .de IB
184: .}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
185: ..
186: .de BR
187: .}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
188: ..
189: .de BI
190: .}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
191: ..
192: ' # make special case of shift out of italic
193: .de }S
194: .ds ]F
195: .if "\\$1"2" .if !"\\$5"" .ds ]F\^
196: .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
197: .el \\$3
198: .}f
199: ..
200: ' # paragraph
201: .de LP
202: .PP
203: ..
204: .de PP
205: .sp \\n()Pu
206: .ne 2
207: .}E
208: .nr )I .5i
209: .ns
210: ..
211: ' # paragraph distance
212: .de PD
213: .if t .nr )P .4v
214: .if n .nr )P 1v
215: .if !"\\$1"" .nr )P \\$1v
216: ..
217: ' # hanging indent
218: .de HP
219: .sp \\n()Pu
220: .ne 2
221: .if !"\\$1"" .nr )I \\$1n
222: .ll \\n(LLu
223: .in \\n()Ru+\\n(INu+\\n()Iu
224: .ti \\n()Ru+\\n(INu
225: .}f
226: ..
227: ' # indented paragraph
228: .de IP
229: .TP \\$2
230: \&\\$1
231: ..
232: ' # hanging label
233: .de TP
234: .if !"\\$1"" .nr )I \\$1n
235: .sp \\n()Pu
236: .in \\n()Ru
237: .nr )E 1
238: .ns
239: .it 1 }N
240: .di ]B
241: ..
242: ' # end of TP (cf }N below)
243: .de }1
244: .ds ]X \&\\*(]B\\
245: .nr )E 0
246: .if !"\\$1"" .nr )I \\$1n
247: .}f
248: .ll \\n(LLu
249: .in \\n()Ru+\\n(INu+\\n()Iu
250: .ti \\n(INu
251: .ie !\\n()Iu+\\n()Ru-\w@\\*(]X@u-3p \{\\*(]X
252: .br\}
253: .el \\*(]X\h@|\\n()Iu+\\n()Ru@\c
254: .}f
255: ..
256: ' # handle end of 1-line features
257: .de }N
258: .if \\n()E .br
259: .di
260: .if "\\n()E"0" .}f
261: .if "\\n()E"1" .}1
262: .if "\\n()E"2" .}2
263: .nr )E 0
264: ..
265: ' # increase relative indent
266: .de RS
267: .nr ]\\n+()p \\n()I
268: .nr )\\n()p \\n()R
269: .ie !"\\$1"" .nr )R +\\$1n
270: .el .nr )R +\\n()I
271: .nr )I .5i
272: .}E
273: ..
274: ' # decrease relative indent
275: .de RE
276: .if !"\\$1"" \{.ie "\\$1"0" .nr )p 1 1
277: . el .nr )p \\$1 1\}
278: .ds ]i \\*(]I\\n()p
279: .ds ]r \\*(]R\\n()p
280: .nr )I \\*(]i
281: .nr )R \\*(]r
282: .if \\n()p .nr )p -1
283: .}E
284: ..
285: .nr )p 0 1
286: .ds ]I \\\\n(]
287: .ds ]R \\\\n()
288: .bd S 3 3
289: .if t .ds R \(rg
290: .if n .ds R (Reg.)
291: .ds S \s10
292: .hy 14
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.