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