|
0
|
1 % UCI Dissertation Style for AmSTeX.
|
|
12
|
2 % @(#)$Id: diss.sty,v 1.1.1.1 2005/04/18 14:46:05 kono Exp $
|
|
0
|
3
|
|
|
4 % Tim Morgan with many suggestions, bug fixes, etc, from Marshall Rose
|
|
|
5 % Based originally on Michael Spivak's AMSPPT.STY.
|
|
|
6
|
|
|
7 % When edits are made to this file, the version number should be incremented.
|
|
|
8 \def\version{103}
|
|
|
9 \let\fmtversion=\version % These two control sequences are defined
|
|
|
10 \def\fmtname{dissertation} % in plain.tex, so we do it here too.
|
|
|
11
|
|
|
12 % Assumes the following hidden definitions from plain.tex:
|
|
|
13 % \z@ is defined from plain.tex as 0pt (and magically can
|
|
|
14 % be used as the integer constant 0 also).
|
|
|
15 % \p@ is the same, but 1pt
|
|
|
16 % \@ne is 1
|
|
|
17 % \m@ne is -1
|
|
|
18 % \tw@ is 2
|
|
|
19 % \thr@@ is 3
|
|
|
20 % \@m is 1000
|
|
|
21 % \@M is 10000
|
|
|
22 % And the following scratch register definitions:
|
|
|
23 % \dimen@ is \dimendef'd to be \dimen0
|
|
|
24 % \skip@ is \skipdef'd to be \skip0
|
|
|
25 % \count@ is \count255
|
|
|
26
|
|
|
27 \catcode`\@=11 % So we can use a special character
|
|
|
28
|
|
|
29
|
|
|
30 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
31 % PARAMETERS DIFFERENT THAN IN PLAIN %
|
|
|
32 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
33
|
|
|
34 % These are words which TeX doesn't hyphenate perfectly.
|
|
|
35 % Unfortunately, the plural forms must be included also.
|
|
|
36 \hyphenation{com-put-er com-mun ap-pen-dix cart-wheel data-base Dijk-stra}
|
|
|
37 \hyphenation{in-fra-struc-ture man-u-script mi-cro-fiche para-mil-i-tary}
|
|
|
38 \hyphenation{post-am-ble pre-am-ble sub-scrib-er wave-guide sub-scrib-ers}
|
|
|
39 \hyphenation{com-put-ers cart-wheels data-bases in-fra-struc-tures}
|
|
|
40 \hyphenation{man-u-scripts mi-cro-fiches post-am-bles pre-am-bles}
|
|
|
41 \hyphenation{buf-fer buf-fers des-ig-na-ted par-a-graph par-a-graphs}
|
|
|
42 \hyphenation{key-stroke key-strokes usu-al-ly}
|
|
|
43
|
|
|
44
|
|
|
45 \def\normal@topskip{0.48cm}
|
|
|
46 \topskip=\normal@topskip % For correct page positioning, do NOT
|
|
|
47 \hoffset=0.5in % change any of these values!!!
|
|
|
48 \voffset=0.07cm
|
|
|
49 \hsize=15.2cm
|
|
|
50 \vsize=22.2cm
|
|
|
51
|
|
|
52 \normallineskiplimit=\p@ % Min. dist. btw. lines.
|
|
|
53 \parindent=1cm % Normal indentation.
|
|
|
54 \hfuzz=0.115\p@ % So we hear fewer complaints. Good up to
|
|
|
55 \vfuzz=0.115\p@ % 300 dpi.
|
|
|
56
|
|
|
57 \pretolerance=200 % At 12pt, these margins are kind of narrow
|
|
|
58 \tolerance=300 % so we have to be more tolerant.
|
|
|
59 \clubpenalty=\@M % Never allow these.
|
|
|
60 \widowpenalty=\@M
|
|
|
61 \newlinechar=`\^^J % For writing output to tty.
|
|
|
62 \uchyph=\z@ % Don't take any chances.
|
|
|
63 \brokenpenalty=\@M % Never hyphenate last line on a page.
|
|
|
64 \newcount\defaultinterlinepenalty % This probably won't make any
|
|
|
65 \defaultinterlinepenalty=\thr@@ % difference, so why not??
|
|
|
66 \interlinepenalty=\defaultinterlinepenalty
|
|
|
67
|
|
|
68
|
|
|
69 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
70 % PARAMETERS DIFFERENT from AmSTeX %
|
|
|
71 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
72
|
|
|
73 \TagsOnRight % Set tags like a sane person does
|
|
|
74
|
|
|
75
|
|
|
76 %%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
77 % EXTRA FONTS NEEDED %
|
|
|
78 %%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
79
|
|
|
80 \newif\ifolddigits
|
|
|
81 \olddigitsfalse % Allow use of amcscod10 for citations
|
|
|
82 \def\useolddigits{%
|
|
|
83 \olddigitstrue
|
|
|
84 \oktell{Old Digits Mode}%
|
|
|
85 }
|
|
|
86
|
|
|
87 \font\sixrm=cmr6 \font\sixbf=cmbx6
|
|
|
88 \font\sixi=cmmi6 \skewchar\sixi='177
|
|
|
89 \font\sixsy=cmsy6 \skewchar\sixsy='60
|
|
|
90
|
|
|
91 \font\eightrm=cmr8 \font\eightsl=cmsl8 \font\eightit=cmti8
|
|
|
92 \font\eightsy=cmsy8 \skewchar\eightsy='60
|
|
|
93 \skewchar\eightsy='60 \font\eightbf=cmbx8
|
|
|
94 \font\eightex=cmex10 at 8\p@
|
|
|
95 \font\eighti=cmmi8 \skewchar\eighti='177
|
|
|
96
|
|
|
97 \font\ninerm=cmr9 \font\nineit=cmti9
|
|
|
98 \font\ninei=cmmi9 \skewchar\ninei='177
|
|
|
99 \font\ninesy=cmsy9 \skewchar\ninesy='60
|
|
|
100 \font\ninesl=cmsl9 \font\ninebf=cmbx9
|
|
|
101
|
|
|
102 \font\twelvecsc=cmcsc10 scaled \magstep1
|
|
|
103 \font\tencsc=cmcsc10
|
|
|
104 \font\eightcsc=cmcsc10 at 8\p@
|
|
|
105 \font\elevencsc=cmcsc10 scaled \magstephalf
|
|
|
106 \font\ninecsc=cmcsc10 at 9\p@
|
|
|
107
|
|
|
108 \let\tencscod=\tencsc
|
|
|
109 \let\eightcscod=\eightcsc
|
|
|
110
|
|
|
111 \font\eightsf=cmss10 at 8\p@
|
|
|
112 \font\tensf=cmss10
|
|
|
113 \font\twelvesf=cmss10 at 12\p@
|
|
|
114
|
|
|
115 \font\twelvett=cmtt10 scaled \magstep1
|
|
|
116 \font\eighttt=cmtt10 at 8\p@ % \tentt is predefined in plain.tex
|
|
|
117
|
|
|
118 \font\twelvebti=cmbti at 12\p@
|
|
|
119 \font\tenbti=cmbti
|
|
|
120 \font\eightbti=cmbti at 8\p@
|
|
|
121
|
|
|
122 \font\twelveex=cmex10 scaled \magstep1 \font\twelverm=cmr10 scaled \magstep1
|
|
|
123 \font\twelvesl=cmsl10 scaled \magstep1 \font\twelvebf=cmbx10 scaled \magstep1
|
|
|
124 \font\twelvei=cmmi10 scaled \magstep1 \skewchar\twelvei='177
|
|
|
125 \font\twelvesy=cmsy10 scaled \magstep1 \skewchar\twelvesy='60
|
|
|
126 \font\twelveit=cmti10 scaled \magstep1
|
|
|
127
|
|
|
128 \font\twelvechap@font=cmssbx10 at 14\p@
|
|
|
129 \font\twelvesec@font=cmss10 at 13\p@
|
|
|
130 \font\twelvesubsec@font=cmssi10 scaled \magstep1
|
|
|
131
|
|
|
132 \font\tenchap@font=cmssbx10 scaled \magstep1
|
|
|
133 \font\tensec@font=cmssbx10 scaled \magstephalf
|
|
|
134 \font\tensubsec@font=cmssi10
|
|
|
135
|
|
|
136 \font\eightchap@font=cmssbx10
|
|
|
137 \font\eightsec@font=cmss10 at 9\p@
|
|
|
138 \font\eightsubsec@font=cmssqi8
|
|
|
139
|
|
|
140 % Font selection
|
|
|
141 \newcount\font@no
|
|
|
142 \def\curfont{\ifcase\font@no\rm\or\it\or\sl\or\bf\or\tt\or\csc\or\bti\or\sf
|
|
|
143 \else\errmessage{Internal font confusion}\fi}
|
|
|
144
|
|
|
145 %%%%%%%%%%%%%%%%%%%%%
|
|
|
146 % SPACING CONTROL %
|
|
|
147 %%%%%%%%%%%%%%%%%%%%%
|
|
|
148
|
|
|
149 \newskip\normalabovedisplayskip
|
|
|
150 \newskip\normalbelowdisplayskip
|
|
|
151 \newskip\normalabovedisplayshortskip
|
|
|
152 \newskip\normalbelowdisplayshortskip
|
|
|
153 \newdimen\normalparskip \normalparskip=22.5\p@
|
|
|
154 \newdimen\parstretch \parstretch=8\p@
|
|
|
155
|
|
|
156 \newif\ifsinglespacing % Tells if we are currently in single space mode
|
|
|
157 \newif\ifhalfspacing % Special version of singlespacing, a little bigger.
|
|
|
158
|
|
|
159 % Actually tell TeX what spacing is wanted
|
|
|
160 \def\setbaselines{%
|
|
|
161 \baselineskip=\normalbaselineskip
|
|
|
162 \abovedisplayskip=\normalabovedisplayskip
|
|
|
163 \belowdisplayskip=\normalbelowdisplayskip
|
|
|
164 \abovedisplayshortskip=\normalabovedisplayshortskip
|
|
|
165 \belowdisplayshortskip=\normalbelowdisplayshortskip
|
|
|
166 % Compute \parskip for even paragraph spacing at all pt sizes
|
|
|
167 \dimen@=\normalparskip
|
|
|
168 \advance\dimen@ by -\normalbaselineskip
|
|
|
169 \parskip=\dimen@ plus\parstretch
|
|
|
170 }
|
|
|
171
|
|
|
172 % Go from double to single spacing
|
|
|
173 \def\reducespacing{%
|
|
|
174 \normalbaselineskip=0.64\normalbaselineskip
|
|
|
175 \normalabovedisplayskip=0.64\normalabovedisplayskip
|
|
|
176 \normalbelowdisplayskip=0.64\normalbelowdisplayskip
|
|
|
177 \normalabovedisplayshortskip=0.64\normalabovedisplayshortskip
|
|
|
178 \normalbelowdisplayshortskip=0.64\normalbelowdisplayshortskip
|
|
|
179 }
|
|
|
180
|
|
|
181 % Set halfspacing baseline etc starting from singlespacing mode
|
|
|
182 \def\sethalfspacing{%
|
|
|
183 \normalbaselineskip=1.28125\normalbaselineskip
|
|
|
184 \abovedisplayskip=1.28125\abovedisplayskip
|
|
|
185 \belowdisplayskip=1.28125\belowdisplayskip
|
|
|
186 \abovedisplayshortskip=1.28125\abovedisplayshortskip
|
|
|
187 \belowdisplayshortskip=1.28125\belowdisplayshortskip
|
|
|
188 }
|
|
|
189
|
|
|
190 % Go to single spacing if we're not there already
|
|
|
191 \def\singlespace{%
|
|
|
192 \normalspacing \reducespacing
|
|
|
193 \halfspacingfalse \singlespacingtrue
|
|
|
194 \setbaselines
|
|
|
195 }
|
|
|
196
|
|
|
197 % Go to 1-1/2 spacing.
|
|
|
198 \def\halfspace{%
|
|
|
199 \normalspacing \reducespacing \sethalfspacing
|
|
|
200 \singlespacingtrue \halfspacingtrue
|
|
|
201 \setbaselines
|
|
|
202 }
|
|
|
203
|
|
|
204 % Go to normal, doublespacing mode
|
|
|
205 \def\doublespace{%
|
|
|
206 \normalspacing
|
|
|
207 \singlespacingfalse \halfspacingfalse
|
|
|
208 \setbaselines
|
|
|
209 }
|
|
|
210
|
|
|
211 % Make sure we're doing the spacing we're supposed to be.
|
|
|
212 \def\setspacing{%
|
|
|
213 \normalspacing
|
|
|
214 \ifsinglespacing
|
|
|
215 \reducespacing
|
|
|
216 \ifhalfspacing \sethalfspacing \fi
|
|
|
217 \fi
|
|
|
218 \setbaselines
|
|
|
219 }
|
|
|
220
|
|
|
221
|
|
|
222 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
223 % FOUR DIFFERENT POINT SIZES %
|
|
|
224 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
225
|
|
|
226 \def\twelvepoint{%
|
|
|
227 \def\big@@AmS{10.2\p@}%
|
|
|
228 \def\Big@@AmS{13.8\p@}%
|
|
|
229 \def\bigg@@AmS{17.4\p@}%
|
|
|
230 \def\Bigg@@AmS{21.0\p@}%
|
|
|
231 \let\smallertype=\tenpoint
|
|
|
232 \let\curtype=\twelvepoint
|
|
|
233 \def\biggertype{\errmessage{No larger point size available}}%
|
|
|
234 \def\normalspacing{%
|
|
|
235 \normalbaselineskip=22.8\p@
|
|
|
236 \normalabovedisplayskip=14.5\p@ plus 3\p@ minus 9\p@
|
|
|
237 \normalbelowdisplayskip=14.5\p@ plus 3\p@ minus 9\p@
|
|
|
238 \normalabovedisplayshortskip=\z@ plus 4\p@
|
|
|
239 \normalbelowdisplayshortskip=9\p@ plus 4\p@ minus 5\p@
|
|
|
240 }%
|
|
|
241 \def\rm{\font@no=0\fam\z@\twelverm}%
|
|
|
242 \def\it{\font@no=1\fam\itfam\twelveit}%
|
|
|
243 \def\sl{\font@no=2\fam\slfam\twelvesl}%
|
|
|
244 \def\bf{\font@no=3\fam\bffam\twelvebf}%
|
|
|
245 \def\tt{\font@no=4\fam\ttfam\twelvett \spaceskip.5em plus.25em
|
|
|
246 minus.15em }%
|
|
|
247 \def\csc{\font@no=5\twelvecsc}%
|
|
|
248 \def\bti{\font@no=6\twelvebti}%
|
|
|
249 \def\sf{\font@no=7\twelvesf}%
|
|
|
250 \let\sc=\csc
|
|
|
251 \ifolddigits
|
|
|
252 \let\cite@font=\tencscod
|
|
|
253 \else
|
|
|
254 \let\cite@font=\elevencsc
|
|
|
255 \fi
|
|
|
256 \textfont\z@=\twelverm \scriptfont\z@=\ninerm \scriptscriptfont\z@=\sixrm
|
|
|
257 \textfont\@ne=\twelvei \scriptfont\@ne=\ninei \scriptscriptfont\@ne=\sixi
|
|
|
258 \textfont\tw@=\twelvesy \scriptfont\tw@=\ninesy \scriptscriptfont\tw@=\sixsy
|
|
|
259 \textfont\thr@@=\twelveex \scriptfont\thr@@=\twelveex
|
|
|
260 \scriptscriptfont\thr@@=\twelveex
|
|
|
261 \textfont\itfam=\twelveit
|
|
|
262 \textfont\slfam=\twelvesl
|
|
|
263 \textfont\ttfam=\twelvett
|
|
|
264 \textfont\bffam=\twelvebf \scriptfont\bffam=\ninebf
|
|
|
265 \scriptscriptfont\bffam=\sixbf
|
|
|
266 \let\chap@font=\twelvechap@font
|
|
|
267 \let\sec@font=\twelvesec@font
|
|
|
268 \let\subsec@font=\twelvesubsec@font
|
|
|
269 \let\subsubsec@font=\twelvebf
|
|
|
270 \def\oldstyle{\fam1\twelvei}%
|
|
|
271 \setspacing
|
|
|
272 \curfont
|
|
|
273 \ifundefined{everypointsize}\else\everypointsize{twelve}{12}\fi
|
|
|
274 }
|
|
|
275
|
|
|
276 \def\tenpoint{%
|
|
|
277 \def\big@@AmS{8.5\p@}%
|
|
|
278 \def\Big@@AmS{11.5\p@}%
|
|
|
279 \def\bigg@@AmS{14.5\p@}%
|
|
|
280 \def\Bigg@@AmS{17.5\p@}%
|
|
|
281 \let\smallertype=\eightpoint
|
|
|
282 \let\curtype=\tenpoint
|
|
|
283 \let\biggertype=\twelvepoint
|
|
|
284 \def\normalspacing{%
|
|
|
285 \normalbaselineskip=18.9\p@
|
|
|
286 \normalabovedisplayskip=12\p@ plus 3\p@ minus 9\p@
|
|
|
287 \normalbelowdisplayskip=12\p@ plus 3\p@ minus 9\p@
|
|
|
288 \normalabovedisplayshortskip=\z@ plus 3\p@
|
|
|
289 \normalbelowdisplayshortskip=7\p@ plus 3\p@ minus 4\p@
|
|
|
290 }%
|
|
|
291 \def\rm{\font@no=0\fam\z@\tenrm}%
|
|
|
292 \def\it{\font@no=1\fam\itfam\tenit}%
|
|
|
293 \def\sl{\font@no=2\fam\slfam\tensl}%
|
|
|
294 \def\bf{\font@no=3\fam\bffam\tenbf}%
|
|
|
295 \def\tt{\font@no=4\fam\ttfam\tentt \spaceskip.5em plus.25em
|
|
|
296 minus.15em }%
|
|
|
297 \def\csc{\font@no=5\tencsc}
|
|
|
298 \def\bti{\font@no=6\tenbti}%
|
|
|
299 \def\sf{\font@no=7\tensf}%
|
|
|
300 \let\sc=\csc
|
|
|
301 \ifolddigits
|
|
|
302 \let\cite@font=\eightcscod
|
|
|
303 \else
|
|
|
304 \let\cite@font=\ninecsc
|
|
|
305 \fi
|
|
|
306 \textfont\z@=\tenrm \scriptfont\z@=\sevenrm \scriptscriptfont\z@=\fiverm
|
|
|
307 \textfont\@ne=\teni \scriptfont\@ne=\seveni \scriptscriptfont\@ne=\fivei
|
|
|
308 \textfont\tw@=\tensy \scriptfont\tw@=\sevensy \scriptscriptfont\tw@=\fivesy
|
|
|
309 \textfont\thr@@=\tenex \scriptfont\thr@@=\tenex
|
|
|
310 \scriptscriptfont\thr@@=\tenex
|
|
|
311 \textfont\itfam=\tenit
|
|
|
312 \textfont\slfam=\tensl
|
|
|
313 \textfont\ttfam=\tentt
|
|
|
314 \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
|
|
|
315 \scriptscriptfont\bffam=\fivebf
|
|
|
316 \let\chap@font=\tenchap@font
|
|
|
317 \let\sec@font=\tensec@font
|
|
|
318 \let\subsec@font=\tensubsec@font
|
|
|
319 \let\subsubsec@font=\tenbf
|
|
|
320 \def\oldstyle{\fam1\teni}%
|
|
|
321 \setspacing
|
|
|
322 \curfont
|
|
|
323 \ifundefined{everypointsize}\else\everypointsize{ten}{10}\fi
|
|
|
324 }
|
|
|
325
|
|
|
326 \def\eightpoint{%
|
|
|
327 \def\big@@AmS{6.8\p@}%
|
|
|
328 \def\Big@@AmS{9.2\p@}%
|
|
|
329 \def\bigg@@AmS{11.6\p@}%
|
|
|
330 \def\Bigg@@AmS{14.0\p@}%
|
|
|
331 \def\smallertype{\errmessage{No smaller point size available}}%
|
|
|
332 \let\curtype=\eightpoint
|
|
|
333 \let\biggertype=\tenpoint
|
|
|
334 \def\normalspacing{%
|
|
|
335 \normalbaselineskip=15\p@
|
|
|
336 \normalabovedisplayskip=10\p@ plus 2.4\p@ minus 7.2\p@
|
|
|
337 \normalbelowdisplayskip=10\p@ plus 2.4\p@ minus 7.2\p@
|
|
|
338 \normalabovedisplayshortskip=\z@ plus 2.4\p@
|
|
|
339 \normalbelowdisplayshortskip=55.6\p@ plus 2.4\p@ minus 3.2\p@
|
|
|
340 }%
|
|
|
341 \def\rm{\font@no=0\fam\z@\eightrm}%
|
|
|
342 \def\it{\font@no=1\fam\itfam\eightit}%
|
|
|
343 \def\sl{\font@no=2\fam\slfam\eightsl}%
|
|
|
344 \def\bf{\font@no=3\fam\bffam\eightbf}%
|
|
|
345 \def\tt{\font@no=4\fam\ttfam\eighttt \spaceskip.5em plus.25em
|
|
|
346 minus.15em }%
|
|
|
347 \def\csc{\font@no=5\eightcsc}%
|
|
|
348 \def\bti{\font@no=6\eightbti}%
|
|
|
349 \def\sf{\font@no=7\eightsf}%
|
|
|
350 \let\sc=\csc
|
|
|
351 \def\cite@font{\errmessage{You may not do citations in 8 point}}
|
|
|
352 \textfont\z@=\eightrm \scriptfont\z@=\sixrm \scriptscriptfont\z@=\fiverm
|
|
|
353 \textfont\@ne=\eighti \scriptfont\@ne=\sixi \scriptscriptfont\@ne=\fivei
|
|
|
354 \textfont\tw@=\eightsy \scriptfont\tw@=\sixsy \scriptscriptfont\tw@=\fivesy
|
|
|
355 \textfont\thr@@=\eightex \scriptfont\thr@@=\eightex
|
|
|
356 \scriptscriptfont\thr@@=\eightex
|
|
|
357 \textfont\itfam=\eightit
|
|
|
358 \textfont\slfam=\eightsl
|
|
|
359 \textfont\ttfam=\eighttt
|
|
|
360 \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf
|
|
|
361 \scriptscriptfont\bffam=\fivebf
|
|
|
362 \let\chap@font=\eightchap@font
|
|
|
363 \let\sec@font=\eightsec@font
|
|
|
364 \let\subsec@font=\eightsubsec@font
|
|
|
365 \let\subsubsec@font=\eightbf
|
|
|
366 \def\oldstyle{\fam1\eighti}%
|
|
|
367 \setspacing
|
|
|
368 \curfont
|
|
|
369 \ifundefined{everypointsize}\else\everypointsize{eight}{10}\fi
|
|
|
370 }
|
|
|
371
|
|
|
372
|
|
|
373 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
374 % TABLE of CONTENTS Macros %
|
|
|
375 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
376
|
|
|
377 % This set of macros allows you to build a table of contents for a document
|
|
|
378 % automatically in TeX. There are only three control sequences which you
|
|
|
379 % will need to use. The first is \inicont, which initializes the macros.
|
|
|
380 % This package works by writing the appropriate lines into a file called
|
|
|
381 % \jobname.toc in your account. This file is read by \printcontents or
|
|
|
382 % by \printcont in PRINT-PRELIM.TEX.
|
|
|
383 %
|
|
|
384 \newwrite\cont@file % Get a free channel to write to
|
|
|
385 \newif\ifcont@closed
|
|
|
386 \cont@closedtrue % Haven't opened contents file yet
|
|
|
387 \newwrite\fig@file
|
|
|
388 \newwrite\tab@file
|
|
|
389 \newif\iffig@closed
|
|
|
390 \fig@closedtrue % Or the list of figures file
|
|
|
391 \newif\iftab@closed
|
|
|
392 \tab@closedtrue % Or the tables file
|
|
|
393
|
|
|
394 \def\contitle{\jobname.toc} % Default name of contents file
|
|
|
395 \def\figtitle{\jobname.lof} % ditto for figures file
|
|
|
396 \def\tabtitle{\jobname.lot} % ditto for tables file
|
|
|
397
|
|
|
398 % Make sure the contents file is open before writing to it
|
|
|
399 \def\opencontfile{%
|
|
|
400 \ifcont@closed
|
|
|
401 \immediate\openout\cont@file=\contitle
|
|
|
402 \cont@closedfalse
|
|
|
403 \fi
|
|
|
404 }
|
|
|
405
|
|
|
406 %
|
|
|
407 % This control sequence adds its argument to the table of contents.
|
|
|
408 %
|
|
|
409 \def\content#1{%
|
|
|
410 \opencontfile
|
|
|
411 \let\\=\space
|
|
|
412 \write\cont@file{\string\Z{#1}{\the\pageno}}%
|
|
|
413 }
|
|
|
414
|
|
|
415 %
|
|
|
416 % This control sequence is the same as \content except that the first
|
|
|
417 % box written will have two leading spaces to indent it.
|
|
|
418 %
|
|
|
419 \def\subcontent#1{%
|
|
|
420 \opencontfile
|
|
|
421 \let\\=\space
|
|
|
422 \write\cont@file{\string\Z{\string\hskip \parindent{}#1}{\the\pageno}}%
|
|
|
423 }
|
|
|
424
|
|
|
425 % And the same thing for sub-sections
|
|
|
426 \def\subsubcontent#1{%
|
|
|
427 \opencontfile
|
|
|
428 \let\\=\space
|
|
|
429 \write\cont@file{\string\Z{\string\hskip 2\parindent{}#1}{\the\pageno}}%
|
|
|
430 }
|
|
|
431
|
|
|
432 % And the same thing for sub-sub-sections
|
|
|
433 \def\subsubsubcontent#1{%
|
|
|
434 \opencontfile
|
|
|
435 \let\\=\space
|
|
|
436 \write\cont@file{\string\Z{\string\hskip 3\parindent{}#1}{\the\pageno}}%
|
|
|
437 }
|
|
|
438
|
|
|
439 % Simple table-of-contents printer for \articlestyle.
|
|
|
440 % For dissertations, use the one in print-prelim.tex.
|
|
|
441 % Use this macro as the last thing in your report, since it makes
|
|
|
442 % the page numbers be in romannumerals at the bottom of the page.
|
|
|
443 \def\printcontents{%
|
|
|
444 \closeout \cont@file
|
|
|
445 \null\vfill\supereject % Close output, end last page
|
|
|
446 \twelvepoint\rm % Make sure we're in normal mode
|
|
|
447 \pageno=\m@ne % Contents get roman numerals.
|
|
|
448 \plain@page@numbers % Put page #s at bottom only
|
|
|
449 \oktell{Table of Contents}
|
|
|
450 \null \vskip .8in minus\baselineskip
|
|
|
451 \centerline{\chap@font Contents}
|
|
|
452 \vskip \tw@\baselineskip
|
|
|
453 \rightline{Page}
|
|
|
454 \begingroup % Temporarily change \baselineskip to avoid
|
|
|
455 % underfull \vbox's during output errors.
|
|
|
456 \baselineskip=\@ne\baselineskip plus .05\baselineskip
|
|
|
457 \def\Z##1##2{\line{\ignorespaces##1\leaders
|
|
|
458 \hbox to.7em{.\hfil}\hfil\hbox to2em{\hss##2}}}
|
|
|
459 \catcode`@=11
|
|
|
460 \let\\=\space
|
|
|
461 \input\contitle \relax
|
|
|
462 \endgroup % Also undoes the \catcode change
|
|
|
463 }
|
|
|
464
|
|
|
465
|
|
|
466 %%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
467 % NUMBERED FOOTNOTES %
|
|
|
468 %%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
469
|
|
|
470 % First, modify \vfootnote from Plain to use smallertype and singlespace
|
|
|
471 \def\vfootnote#1{%
|
|
|
472 \insert\footins\bgroup\tenpoint\singlespace
|
|
|
473 \interlinepenalty\interfootnotelinepenalty
|
|
|
474 \splittopskip\ht\strutbox % top baseline for broken footnotes
|
|
|
475 \splitmaxdepth\dp\strutbox \floatingpenalty\@MM
|
|
|
476 \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip
|
|
|
477 \parindent=.13in
|
|
|
478 \textindent{#1}\footstrut\futurelet\next\fo@t
|
|
|
479 }
|
|
|
480
|
|
|
481 % Allocate a counter for the numbered footnotes
|
|
|
482 \newcount\note@count \note@count=\@ne
|
|
|
483
|
|
|
484 \def\nfootnote#1{%
|
|
|
485 \unskip\footnote{$^{\number\note@count}$}{#1}%
|
|
|
486 \global\advance\note@count by\@ne
|
|
|
487 }
|
|
|
488
|
|
|
489 % Same except that trailing period or comma is ``tucked'' under
|
|
|
490 % the note mark. \ntucknote provides auto numbering.
|
|
|
491 \def\ntucknote#1#2{\nfootnote{#1}\llap{#2}}
|
|
|
492 \def\tucknote#1#2#3{\footnote{#1}{#2}\llap{#3}}
|
|
|
493
|
|
|
494
|
|
|
495 %%%%%%%%%%%%%%%%%%%%
|
|
|
496 % UTILITY MACROS %
|
|
|
497 %%%%%%%%%%%%%%%%%%%%
|
|
|
498
|
|
|
499 % Insert a discretionary hyphen. For use in restricted
|
|
|
500 % horizontal mode, as in the bibliography.
|
|
|
501 \def\hyphenbreak{\discretionary{-}{}{-}}
|
|
|
502
|
|
|
503 % Check if a macro name is currently undefined (from The TeXbook)
|
|
|
504 \def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
|
|
|
505
|
|
|
506 % Terminal input and output routines and auxilary stuff
|
|
|
507 \newwrite\undef@out@chan % Allocate a channel for the tty
|
|
|
508 \def\tell#1{{\let\\=\space\immediate\write\undef@out@chan{#1}}}
|
|
|
509 \def\ask#1{\read-16 to #1} % Read from tty w/o prompt
|
|
|
510
|
|
|
511 % Sanitize a string before \write'ing it.
|
|
|
512 % Call with \unexpanded{op}{msg}
|
|
|
513 % Modified from version in The TeXbook, originally by Todd Allen
|
|
|
514 \long\def\unexpanded#1#2{%
|
|
|
515 \def\finwrite{#1}%
|
|
|
516 {\aftergroup\finwrite\aftergroup{\sanitize@uci#2\endsanity@uci}}%
|
|
|
517 }
|
|
|
518 \def\sanitize@uci{\futurelet\next@uci\sanswitch@uci}
|
|
|
519 \def\sanswitch@uci{\ifx\next@uci\endsanity@uci
|
|
|
520 \else\ifx\next@uci\\\aftergroup\space\let\next@uci=\eat@uci
|
|
|
521 \else\ifcat\noexpand\next@uci\space\aftergroup\space\let\next@uci=\eat@uci
|
|
|
522 \else\ifcat\noexpand\next@uci\bgroup\aftergroup{\let\next@uci=\eat@uci
|
|
|
523 \else\ifcat\noexpand\next@uci\egroup\aftergroup}\let\next@uci=\eat@uci
|
|
|
524 \else\let\next@uci=\copytoken@uci\fi\fi\fi\fi\fi \next@uci
|
|
|
525 }
|
|
|
526 \def\eat@uci{\afterassignment\sanitize@uci \let\next@uci= }
|
|
|
527 \long\def\copytoken@uci#1{%
|
|
|
528 \ifcat\noexpand#1\relax\aftergroup\noexpand
|
|
|
529 \else\ifcat\noexpand#1\noexpand~\aftergroup\noexpand
|
|
|
530 \fi
|
|
|
531 \fi
|
|
|
532 \aftergroup#1\sanitize@uci
|
|
|
533 }
|
|
|
534 \def\endsanity@uci\endsanity@uci{}
|
|
|
535
|
|
|
536 % Now use the sanity stuff to make a sane tell command. This macro
|
|
|
537 % actually takes one argument, but since it's the last for \unexpanded,
|
|
|
538 % we avoid scanning it twice by not picking it up here.
|
|
|
539 \def\sanetell{\unexpanded{\immediate\write\undef@out@chan}}
|
|
|
540
|
|
|
541 % Produce verbatim listings of various sorts
|
|
|
542
|
|
|
543 \def\uncatcodespecials{\def\do##1{\catcode`##1=12 } \dospecials}
|
|
|
544 \def\setupverbatim{%
|
|
|
545 \par \tt \spaceskip=\z@ % Want fixed tt spacing now
|
|
|
546 \obeylines \uncatcodespecials \obeyspaces \verbatimdefs
|
|
|
547 }
|
|
|
548
|
|
|
549 % This macro turns on verbatim mode until ?endverbatim is seen.
|
|
|
550 \def\verbatim{%
|
|
|
551 \begingroup \setupverbatim
|
|
|
552 \parskip=\z@ plus .05\baselineskip \parindent=\z@
|
|
|
553 \catcode`\ =13 \catcode`\^^M=13 \catcode`\?=\z@
|
|
|
554 \verbatimgobble
|
|
|
555 }
|
|
|
556 {\catcode`\^^M=13{\catcode`\ =13\gdef\verbatimdefs{\def^^M{\ \par}\let =\ }}
|
|
|
557 \gdef\verbatimgobble#1^^M{}%
|
|
|
558 }
|
|
|
559
|
|
|
560 % This defines ?endverbatim to end the group which begins with \verbatim
|
|
|
561 \let\endverbatim=\endgroup
|
|
|
562
|
|
|
563 % Input a file in verbatim mode. Sometimes useful for including
|
|
|
564 % real-life examples into a paper.
|
|
|
565 \def\verbfile#1{%
|
|
|
566 \begingroup\setupverbatim
|
|
|
567 \parskip=\z@ plus .05\baselineskip \parindent=\z@
|
|
|
568 \input#1 \endgroup
|
|
|
569 }
|
|
|
570
|
|
|
571 % This is the same as the above, but it adds line numbers to each
|
|
|
572 % line of the file printed. \lineno@uci has the obvious use.
|
|
|
573 \newcount\lineno@uci
|
|
|
574 \def\listing#1{%
|
|
|
575 \lineno@uci=\z@
|
|
|
576 \begingroup\setupverbatim
|
|
|
577 \parskip=\z@ plus .05\baselineskip \parindent=20\p@
|
|
|
578 \everypar{\advance\lineno@uci by\@ne \llap{\the\lineno@uci\ \ }}%
|
|
|
579 \input#1
|
|
|
580 \endgroup
|
|
|
581 }
|
|
|
582
|
|
|
583 % Draw a little qed symbol (black box)
|
|
|
584 \def\qed{\hbox{\hskip\p@ \vrule width4\p@ height6\p@ depth1.5\p@ \hskip\p@}}
|
|
|
585
|
|
|
586 % Conditions -- from AmSppt
|
|
|
587 \newif\ifrunin@AmS
|
|
|
588 \runin@AmSfalse
|
|
|
589 \let\runin=\runin@AmStrue
|
|
|
590 \newdimen\cond@dimen
|
|
|
591 \newdimen\condindent % Amount each nested condition is indented
|
|
|
592 \condindent=.5in % Default indentation amount
|
|
|
593
|
|
|
594 % This is used in \conditions
|
|
|
595 \def\firstcon@AmS#1:{%
|
|
|
596 \ifrunin@AmS
|
|
|
597 {\rm\ignorespaces#1\unskip}\ignorespaces
|
|
|
598 \runin@AmSfalse
|
|
|
599 \else
|
|
|
600 \par
|
|
|
601 \ifdim\lastskip<\smallskipamount
|
|
|
602 \removelastskip \penalty55 \smallskip
|
|
|
603 \fi
|
|
|
604 \\#1:%
|
|
|
605 \fi
|
|
|
606 }
|
|
|
607
|
|
|
608 % Do one item of the conditions. This is really \\ in disguise.
|
|
|
609 \def\cond@item#1:{%
|
|
|
610 \par\noindent
|
|
|
611 \hbox to \cond@dimen{\hfil\rm\ignorespaces#1\unskip\quad}%
|
|
|
612 \hangafter1
|
|
|
613 \hangindent\cond@dimen\ignorespaces
|
|
|
614 }
|
|
|
615
|
|
|
616 \cond@dimen=\z@ % Value for outermost block
|
|
|
617 % Do the main stuff for \conditions.
|
|
|
618 \def\conditions{%
|
|
|
619 \par
|
|
|
620 \let\\=\cond@item
|
|
|
621 \begingroup
|
|
|
622 \advance\cond@dimen by\condindent
|
|
|
623 \firstcon@AmS
|
|
|
624 }
|
|
|
625
|
|
|
626 % Exit special stuff for \conditions.
|
|
|
627 \def\endconditions{%
|
|
|
628 \par\smallbreak\endgroup
|
|
|
629 \ifdim\cond@dimen>\z@ \cond@item \fi % If ending an inner condition
|
|
|
630 }
|
|
|
631
|
|
|
632 % Automatically numbered items
|
|
|
633 \newcount\item@count
|
|
|
634 \newdimen\item@dimen \item@dimen=\z@
|
|
|
635 \def\item@prefix{}
|
|
|
636 \def\beginitems{%
|
|
|
637 \begingroup
|
|
|
638 \advance \parindent by\item@dimen
|
|
|
639 \ifnum\item@dimen>\z@
|
|
|
640 \edef\item@prefix{\item@prefix\number\item@count.}
|
|
|
641 \else
|
|
|
642 \item@dimen=1cm
|
|
|
643 \fi
|
|
|
644 \item@count=\z@ \singlespace \interlinepenalty=200
|
|
|
645 }
|
|
|
646 \def\enditems{\par\endgroup}
|
|
|
647 \def\nitem{\advance\item@count by\@ne \item{\item@prefix\number\item@count.}}
|
|
|
648
|
|
|
649 % Turn back on the \+ construct of plain TeX.
|
|
|
650 \def\tabalign{\us@true\m@ketabbox}
|
|
|
651 \outer\def\+{\tabalign}
|
|
|
652
|
|
|
653 % Fix AmSTeX's definition used in its definition of ~ (tie).
|
|
|
654 \def\s@AmS{\penalty\@M\ifx\tok@AmS\Space@AmS\else\ \fi}
|
|
|
655
|
|
|
656 % And make \/ work the way it does in plain.tex
|
|
|
657 \let\/=\ic@AmS
|
|
|
658
|
|
|
659 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
660 % PAGE CONTROL and OBJECT MANIPULATION %
|
|
|
661 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
662
|
|
|
663 % This definition doesn't blow up if you're in vertical mode already
|
|
|
664 \def\pagebreak{\ifhmode\vadjust{\break}\else\break\relax}
|
|
|
665
|
|
|
666 % This definition clears out all previous inserts etc to
|
|
|
667 % guarantee that the following stuff is at the top of a page.
|
|
|
668 \def\clearpage{\vfill\supereject}
|
|
|
669
|
|
|
670 % This macro keeps the stuff in the argument on the same page, leaving
|
|
|
671 % blank space on this page if necessary
|
|
|
672 \def\keep{\par\setbox\z@=\vbox\bgroup}
|
|
|
673 \def\endkeep{%
|
|
|
674 \egroup
|
|
|
675 \dimen@=\ht\z@
|
|
|
676 \advance\dimen@ by\dp\z@
|
|
|
677 \vskip\z@ plus\dimen@
|
|
|
678 \penalty\z@
|
|
|
679 \vskip\z@ plus-\dimen@
|
|
|
680 \vskip\parskip
|
|
|
681 \box\z@
|
|
|
682 \goodbreak
|
|
|
683 }
|
|
|
684 \def\filkeep{%
|
|
|
685 \egroup
|
|
|
686 \filbreak
|
|
|
687 \vskip\parskip
|
|
|
688 \box\z@
|
|
|
689 \goodbreak
|
|
|
690 }
|
|
|
691
|
|
|
692 % List macros from the TeXbook
|
|
|
693
|
|
|
694 \toksdef\ta=\z@ \toksdef\tb=\tw@
|
|
|
695 \newif\ifresult@uci
|
|
|
696
|
|
|
697 % usage: \newlist\list
|
|
|
698 \def\newlist#1{\let#1=\empty}
|
|
|
699
|
|
|
700 % usage: \append{item}\to\list
|
|
|
701 \def\append#1\to#2{\ta={\\{#1}}\tb=\expandafter{#2}\edef#2{\the\tb\the\ta}}
|
|
|
702 \def\gappend#1\to#2{\ta={\\{#1}}\tb=\expandafter{#2}\xdef#2{\the\tb\the\ta}}
|
|
|
703
|
|
|
704 % usage: \cardinality\list\to\counter
|
|
|
705 \def\cardinality#1\to#2{#2=\z@ \long\def\\##1{\advance#2 by\@ne }#1}
|
|
|
706
|
|
|
707 % usage: \ifismember{item}\of\list ... \else ... \fi
|
|
|
708 \def\ifismember#1\of#2{%
|
|
|
709 \def\given@uci{#1}%
|
|
|
710 \result@ucifalse
|
|
|
711 \def\\##1{%
|
|
|
712 \def\next@uci{##1}%
|
|
|
713 \ifx\next@uci\given@uci \result@ucitrue\fi
|
|
|
714 }%
|
|
|
715 #2%
|
|
|
716 \ifresult@uci
|
|
|
717 }
|
|
|
718
|
|
|
719 % usage: \ifwasmember{item}\of\list ... \else ... \fi
|
|
|
720 % side effect: removes {item} from \list if present
|
|
|
721 \def\ifwasmember#1\of#2{%
|
|
|
722 \newlist\ref@mtr
|
|
|
723 \def\given@uci{#1}%
|
|
|
724 \result@ucifalse
|
|
|
725 \def\\##1{%
|
|
|
726 \def\next@uci{##1}%
|
|
|
727 \ifx\next@uci\given@uci
|
|
|
728 \result@ucitrue
|
|
|
729 \else
|
|
|
730 \append ##1\to\ref@mtr
|
|
|
731 \fi
|
|
|
732 }%
|
|
|
733 #2%
|
|
|
734 \let#2=\ref@mtr
|
|
|
735 \ifresult@uci
|
|
|
736 }
|
|
|
737
|
|
|
738 % Append #1 to list #2 if #1 is not already in #2
|
|
|
739 \def\addtolist#1\to#2{%
|
|
|
740 \ifismember#1\of#2%
|
|
|
741 \else
|
|
|
742 \append #1\to #2%
|
|
|
743 \fi
|
|
|
744 }
|
|
|
745 % Same thing, but do it \global'ly
|
|
|
746 \def\gaddtolist#1\to#2{%
|
|
|
747 \ifismember#1\of#2%
|
|
|
748 \else
|
|
|
749 \gappend#1\to#2%
|
|
|
750 \fi
|
|
|
751 }
|
|
|
752
|
|
|
753
|
|
|
754 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
755 % STUFF for BIBLIOGRAPHY and APPENDICES %
|
|
|
756 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
757
|
|
|
758 % Bibliography Package:
|
|
|
759 % Original version by Michal Spivak
|
|
|
760 % Updated for JACM format and automated by Tim Morgan
|
|
|
761 % Final cleanup, and much-improved automation, by Marshall Rose
|
|
|
762 % Additional work and IEEE support by TM.
|
|
|
763
|
|
|
764 % Simple appendix entry builder
|
|
|
765 \def\appendix#1#2{%
|
|
|
766 \par
|
|
|
767 \clearpage
|
|
|
768 \ifoddpages
|
|
|
769 \ifodd\pageno \else \null\vfill\eject\fi
|
|
|
770 \fi
|
|
|
771 \pageno@foot
|
|
|
772 \begingroup
|
|
|
773 \setbox\z@=\hbox{#1}%
|
|
|
774 \ifdim\wd\z@>\z@
|
|
|
775 \content{Appendix #1: #2}%
|
|
|
776 \oktell{Appendix #1: #2}%
|
|
|
777 \def\title{Appendix #1\\#2}%
|
|
|
778 \else
|
|
|
779 \content{Appendix: #2}%
|
|
|
780 \oktell{Appendix: #2}%
|
|
|
781 \def\title{Appendix\\#2}%
|
|
|
782 \fi
|
|
|
783 \let\\=\cr \tabskip=\z@ \chap@font
|
|
|
784 \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr\title\cr}%
|
|
|
785 \endgroup
|
|
|
786 \nobreak
|
|
|
787 \vskip 1.0in minus 0.15in
|
|
|
788 }
|
|
|
789
|
|
|
790
|
|
|
791 % Citations:
|
|
|
792 % We keep a running list, \ref@set, which is
|
|
|
793 % all the things which were \cite'd throughout the paper, with
|
|
|
794 % only one entry for each different key.
|
|
|
795 %
|
|
|
796 % There are three versions of each of the citation
|
|
|
797 % commands:
|
|
|
798 % 1. The \def'd version is the normal one used throughout the paper.
|
|
|
799 % 2. Within a figure, table, etc,'s caption, because of the use of
|
|
|
800 % \def and \edef, a special version which just produces the
|
|
|
801 % citation without the \gaddtolist command is used. These
|
|
|
802 % definitions are predefined, and are \let to be \cite etc with
|
|
|
803 % \no@cites, for speed.
|
|
|
804 %
|
|
|
805 % When the user requests a citation with key, we first look it up
|
|
|
806 % in a translation table called \key@table, organized as a list of
|
|
|
807 % <key, printed-key> pairs, to see if it really should be
|
|
|
808 % printed differently. The user can specify this translation table using
|
|
|
809 % the \printkey command. If a key is not in the table, it is printed
|
|
|
810 % as-is.
|
|
|
811
|
|
|
812 % We keep the dimension \key@size as the largest printed key so far.
|
|
|
813 % This value can then be used to print the keys in the bibliography
|
|
|
814 % optimally, rather than just trying to guess. Each time we print a
|
|
|
815 % (in \use@key), we see if it's longer than \key@size, and if so then
|
|
|
816 % we set \key@size = its width.
|
|
|
817 \newdimen\key@size
|
|
|
818 \key@size=\z@ % Init. value so \key@size is made as small as possible
|
|
|
819
|
|
|
820 % Invisible citation. usage: \icite{key}
|
|
|
821 \def\icite#1{%
|
|
|
822 \gaddtolist#1\to\ref@set
|
|
|
823 }
|
|
|
824
|
|
|
825 % Management of \key@table stuff. This table is formatted as
|
|
|
826 % \\{real-key}{printed-key}...
|
|
|
827 \newlist\key@table
|
|
|
828
|
|
|
829 % Add a pair of items to the list. This should be done before any
|
|
|
830 % citations are made, for obvious reasons.
|
|
|
831 % #1=real key (the one you use in the paper and bibliography)
|
|
|
832 % #2=the key that gets printed in the output
|
|
|
833 \def\printkey#1#2{%
|
|
|
834 \ta={\\{#1}{#2}}%
|
|
|
835 \tb=\expandafter{\key@table}%
|
|
|
836 \xdef\key@table{\the\tb\the\ta}%
|
|
|
837 }
|
|
|
838
|
|
|
839 % Print a key, looking it up in the table. #1 is \whatever which
|
|
|
840 % expands to the key used by the user. The definition of \\ here
|
|
|
841 % makes use of the format of the \key@table, so that the table is
|
|
|
842 % actually EXECUTED, hence making lookup relatively fast.
|
|
|
843 \newif\if@not@printed@
|
|
|
844 \def\use@key#1{%
|
|
|
845 \@not@printed@true
|
|
|
846 \def\\##1##2{%
|
|
|
847 \if@not@printed@
|
|
|
848 \def\temp@uci{##1}%
|
|
|
849 \ifx\temp@uci#1%
|
|
|
850 \@not@printed@false
|
|
|
851 \setbox\z@=\hbox{[##2]\enspace}%
|
|
|
852 \ifdim\wd\z@>\key@size \global\key@size=\wd\z@ \fi
|
|
|
853 ##2%
|
|
|
854 \fi
|
|
|
855 \fi
|
|
|
856 }%
|
|
|
857 \key@table
|
|
|
858 \if@not@printed@
|
|
|
859 \setbox\z@=\hbox{\cite@font[\ignorespaces#1\unskip]\enspace}%
|
|
|
860 \ifdim\wd\z@>\key@size \global\key@size=\wd\z@ \fi
|
|
|
861 #1%
|
|
|
862 \fi
|
|
|
863 }
|
|
|
864
|
|
|
865 % This macro moves forward until it hits \end, skipping spaces.
|
|
|
866 % Each time it hits a comma, or when it hits and \end, it
|
|
|
867 % adds whatever has been collected so far (in \@total) to
|
|
|
868 % \ref@set and to the output list. It is assumed that \@total
|
|
|
869 % has been set to \empty before this routine is called (this is done
|
|
|
870 % by \@@cite, below).
|
|
|
871 \def\@icite#1{%
|
|
|
872 \if#1\end
|
|
|
873 \expandafter\gaddtolist\@total\to\ref@set
|
|
|
874 \use@key\@total
|
|
|
875 \let\@next=\relax % Exit loop after this time
|
|
|
876 \else
|
|
|
877 \if#1,% % We have a complete key now.
|
|
|
878 \expandafter\gaddtolist\@total\to\ref@set
|
|
|
879 \use@key\@total,\space
|
|
|
880 \global\let\@total=\empty
|
|
|
881 \else
|
|
|
882 \xdef\@total{\@total#1}% Add new char to total
|
|
|
883 \fi
|
|
|
884 \let\@next=\@icite % Continue looping until done
|
|
|
885 \fi
|
|
|
886 \@next
|
|
|
887 }
|
|
|
888
|
|
|
889 % Initialize and call \@icite. Used in \cite, \citep, \citepp
|
|
|
890 \def\@@cite#1{\global\let\@total=\empty\@icite#1\end}
|
|
|
891
|
|
|
892 % usage: \cite{key [, key...]}
|
|
|
893 \def\cite#1{%
|
|
|
894 {\cite@font[\@@cite{#1}]}%
|
|
|
895 }
|
|
|
896
|
|
|
897 % usage: \citep{key}{page}
|
|
|
898 \def\citep#1#2{%
|
|
|
899 {\cite@font[\@@cite{#1}, \hbox{\rm p \ignorespaces#2\unskip}]}%
|
|
|
900 }
|
|
|
901
|
|
|
902 % usage: \citepp{key}{pages}
|
|
|
903 \def\citepp#1#2{%
|
|
|
904 {\cite@font[\@@cite{#1}, \hbox{\rm pp \ignorespaces#2\unskip}]}%
|
|
|
905 }
|
|
|
906
|
|
|
907 % These three definitions are used in \no@cites, below. They
|
|
|
908 % don't handle extraneous spaces as well as the normal
|
|
|
909 % definition, but they should be sufficient for most people.
|
|
|
910 \def\i@cite#1{{\cite@font[\noexpand\noexpand\noexpand\@@cite{#1}]}}
|
|
|
911
|
|
|
912 \def\i@citep#1#2{{\cite@font[\noexpand\noexpand\noexpand\@@cite{#1},\space
|
|
|
913 \hbox{\noexpand\noexpand\noexpand\rm p \ignorespaces#2\unskip}]}%
|
|
|
914 }
|
|
|
915
|
|
|
916 \def\i@citepp#1#2{{\cite@font[\noexpand\noexpand\noexpand\@@cite{#1},\space
|
|
|
917 \hbox{\noexpand\noexpand\noexpand\rm pp \ignorespaces#2\unskip}]}%
|
|
|
918 }
|
|
|
919
|
|
|
920 % Turn off adding citations to \ref@set. This is needed when
|
|
|
921 % using \cite etc inside a caption for tables, figures, etc.
|
|
|
922 % \no@cites is undone by exiting an enclosing group.
|
|
|
923 \def\no@cites{%
|
|
|
924 \let\citepp=\i@citepp
|
|
|
925 \let\citep=\i@citep
|
|
|
926 \let\cite=\i@cite
|
|
|
927 }
|
|
|
928
|
|
|
929 %%%%%%%%%%%%%%%%%%%%%%
|
|
|
930 % References Section %
|
|
|
931 %%%%%%%%%%%%%%%%%%%%%%
|
|
|
932
|
|
|
933 % The basic strategy is as follows. We read the bib. file, which is
|
|
|
934 % assumed to be in sorted order of keys/author names. Each
|
|
|
935 % entry is of the form \ref{key}. We see if that key is in the table
|
|
|
936 % \ref@set, which is a table of all the keys we've \cite'd. If the key
|
|
|
937 % isn't in the list, we print it in parens and go on to the next entry.
|
|
|
938 % Otherwise, we print the key in square brackets, and format the
|
|
|
939 % bibliography entry according to the format (JACM or IEEE). We print a
|
|
|
940 % warning if the key is in the \ref@seen list. We add the key to
|
|
|
941 % the \ref@seen list. The key is removed from the \ref@set list if it
|
|
|
942 % was there. At the end of the references (\endreferences), we check
|
|
|
943 % if there are any keys left in \ref@set. If so, the bib. file was
|
|
|
944 % deficient, and we print a warning message (it should probably be a
|
|
|
945 % fatal error message).
|
|
|
946
|
|
|
947 % Annotation control
|
|
|
948 \newif\ifinclude@annos % Should annotations be printed?
|
|
|
949 \include@annosfalse % By default, no
|
|
|
950 \def\annotate{% % ``official'' command
|
|
|
951 \include@annostrue
|
|
|
952 \oktell{Annotating bibliography}%
|
|
|
953 }
|
|
|
954
|
|
|
955 \newif\ifin@anno % True while doing an annotation
|
|
|
956 \in@annofalse
|
|
|
957
|
|
|
958 \def\refi@AmS{F} % This starts as False
|
|
|
959
|
|
|
960 % Begin an annotation -- must be in vertical mode. Just gather
|
|
|
961 % text into box0 for use by \endanno. We do a couple of consistency
|
|
|
962 % checks at the beginning.
|
|
|
963 \def\anno{%
|
|
|
964 \ifhmode
|
|
|
965 \message{You forgot the \noexpand\endref command!}
|
|
|
966 \message{I've inserted one for you.}
|
|
|
967 \endanno
|
|
|
968 \fi
|
|
|
969 \if F\refi@AmS
|
|
|
970 \errmessage{No \noexpand\ref command before first \noexpand\anno}
|
|
|
971 \fi
|
|
|
972 \let\\=\newline
|
|
|
973 \in@annotrue
|
|
|
974 \setbox\z@=\vbox\bgroup
|
|
|
975 }
|
|
|
976
|
|
|
977 % End of an annotation. Decide if it should be typeset or skipped.
|
|
|
978 \def\endanno{%
|
|
|
979 \egroup % End the group for box0
|
|
|
980 \in@annofalse % No longer doing an annotation
|
|
|
981 \if T\refed@uci % If previous reference was used,
|
|
|
982 \ifinclude@annos {% And if we're producing an annotated bib.,
|
|
|
983 \vskip\parskip
|
|
|
984 \interlinepenalty=\defaultinterlinepenalty
|
|
|
985 \unvbox\z@ % Then include annotation as normal paragraph(s)
|
|
|
986 \par
|
|
|
987 }\fi
|
|
|
988 \fi
|
|
|
989 }
|
|
|
990
|
|
|
991 \global\newlist\ref@set % list of all references cited
|
|
|
992 \global\newlist\ref@seen % list of all references defined
|
|
|
993
|
|
|
994 \def\reftitle{References} % Default title for bibliography
|
|
|
995
|
|
|
996 % usage: \references (begin the References section)
|
|
|
997 \def\references{%
|
|
|
998 \vfill\supereject % Begin new page, clear out everything
|
|
|
999 \ifoddpages % Make sure start on even page.
|
|
|
1000 \ifodd\pageno \relax \else \null\vfill\eject \fi
|
|
|
1001 \fi
|
|
|
1002 \begingroup % Following changes are local to bib.
|
|
|
1003
|
|
|
1004 \twelvepoint % Get good appearance
|
|
|
1005 \singlespace
|
|
|
1006 \no@cites % \cite's just produce [key]
|
|
|
1007 \parskip=0.6\baselineskip plus5\p@ minus4\p@
|
|
|
1008 \tolerance=5000 % Must be extremely tolerant!
|
|
|
1009 \pretolerance=300
|
|
|
1010 \interlinepenalty=400 % To discourage breaking a reference
|
|
|
1011 % across page boundaries
|
|
|
1012 \uchyph=\@ne % Needed to try hyphenating title words
|
|
|
1013 \sfcode`.=\@m % Like \frenchspacing, but only for
|
|
|
1014 % periods
|
|
|
1015
|
|
|
1016 % Now we output the title and so forth.
|
|
|
1017 \centerline{\csc \reftitle}%
|
|
|
1018 \nobreak
|
|
|
1019 \medskip
|
|
|
1020 \content\reftitle % Tell user and TOC.
|
|
|
1021 \oktell\reftitle
|
|
|
1022 \pageno@foot % Put page # in special place
|
|
|
1023
|
|
|
1024 % Special definitions within reference mode
|
|
|
1025 \let\year=\yr
|
|
|
1026 \let\month=\mon
|
|
|
1027 }
|
|
|
1028
|
|
|
1029 % usage: \endreferences (end the References section)
|
|
|
1030 \def\endreferences{%
|
|
|
1031 \par % Make sure last printed reference is finished up.
|
|
|
1032 \cardinality\ref@set\to\count@
|
|
|
1033 \ifnum\count@>\z@
|
|
|
1034 \def\\##1{[##1] }
|
|
|
1035 \ifnum\count@>1
|
|
|
1036 \message{Warning: \number\count@\space undefined citations: \ref@set}
|
|
|
1037 \else
|
|
|
1038 \message{Warning: One undefined citation: \ref@set}
|
|
|
1039 \fi
|
|
|
1040 \fi
|
|
|
1041 \endgroup % End of \references group
|
|
|
1042 }
|
|
|
1043
|
|
|
1044
|
|
|
1045 % References Database
|
|
|
1046
|
|
|
1047
|
|
|
1048 \newbox\bybox@AmS \newbox\bysamebox@AmS
|
|
|
1049 \newbox\paperbox@AmS \newbox\paperinfobox@AmS
|
|
|
1050 \newbox\jourbox@AmS \newbox\jourinfobox@AmS
|
|
|
1051 \newbox\volbox@AmS \newbox\issuebox@AmS
|
|
|
1052 \newbox\monbox@AmS \newbox\yrbox@AmS
|
|
|
1053 \newbox\pagesbox@AmS \newbox\editorbox@AmS
|
|
|
1054 \newbox\bookbox@AmS \newbox\bookinfobox@AmS
|
|
|
1055 \newbox\publbox@AmS \newbox\publaddrbox@AmS
|
|
|
1056 \newbox\finalinfobox@AmS\newbox\wastebox@uci
|
|
|
1057 \newbox\talkbox@AmS \newbox\keybox@AmS
|
|
|
1058 \newbox\editorsbox@AmS
|
|
|
1059
|
|
|
1060 \def\using@IEEE{F} % By default, not using IEEE format
|
|
|
1061
|
|
|
1062 % reset a \keyword to the ``not used'' condition
|
|
|
1063 \def\refset@AmS#1{%
|
|
|
1064 \expandafter\gdef\csname is\expandafter\eat@AmS
|
|
|
1065 \string#1@AmS\endcsname{F}\expandafter
|
|
|
1066 \setbox\csname\expandafter\eat@AmS\string#1box@AmS\endcsname=\null
|
|
|
1067 }
|
|
|
1068
|
|
|
1069 % reset \keyword's
|
|
|
1070 \def\ref@AmS{%
|
|
|
1071 \refset@AmS\key \refset@AmS\finalinfo
|
|
|
1072 \refset@AmS\by \gdef\isbysame@AmS{F}%
|
|
|
1073 \refset@AmS\paper \refset@AmS\paperinfo
|
|
|
1074 \refset@AmS\jour \refset@AmS\jourinfo
|
|
|
1075 \refset@AmS\vol \refset@AmS\issue
|
|
|
1076 \refset@AmS\mon \refset@AmS\yr
|
|
|
1077 \refset@AmS\pages \gdef\ispage@AmS{F}%
|
|
|
1078 \refset@AmS\book \refset@AmS\bookinfo
|
|
|
1079 \refset@AmS\publ \refset@AmS\publaddr
|
|
|
1080 \refset@AmS\editor \refset@AmS\talk
|
|
|
1081 \refset@AmS\editors
|
|
|
1082 \gdef\istoappear@AmS{F}%
|
|
|
1083 \gdef\isinbook@AmS{F}%
|
|
|
1084 \bgroup
|
|
|
1085 \ignorespaces
|
|
|
1086 }
|
|
|
1087
|
|
|
1088 % usage: \ref{citation} \keywords arguments ... \endref. We make sure
|
|
|
1089 % we aren't still doing an \anno first.
|
|
|
1090 \def\ref#1{%
|
|
|
1091 \ifin@anno
|
|
|
1092 \message{You forgot an \noexpand\endanno command,}
|
|
|
1093 \message{but I forgive you this time.}
|
|
|
1094 \endanno
|
|
|
1095 \fi
|
|
|
1096 \def\refi@AmS{T}%
|
|
|
1097 \ifwasmember#1\of\ref@set
|
|
|
1098 \def\refed@uci{T}%
|
|
|
1099 \okmessage{[#1]}%
|
|
|
1100 \else
|
|
|
1101 \def\refed@uci{F}%
|
|
|
1102 \okmessage{(#1)}%
|
|
|
1103 \fi
|
|
|
1104 \ifismember#1\of\ref@seen
|
|
|
1105 \sanetell{multiply defined: [#1]}%
|
|
|
1106 \else
|
|
|
1107 \append#1\to\ref@seen
|
|
|
1108 \fi
|
|
|
1109 \def\refl@AmS{F}%
|
|
|
1110 \def\\{\egroup\endref@AmS\gdef\refi@AmS{F}\ref@AmS}%
|
|
|
1111 \ref@AmS
|
|
|
1112 \gdef\@total{#1}%
|
|
|
1113 \key \if T\refed@uci
|
|
|
1114 \use@key\@total
|
|
|
1115 \fi\egroup\setbox\wastebox@uci=\hbox\bgroup\ignorespaces
|
|
|
1116 }
|
|
|
1117
|
|
|
1118 % End of a reference.
|
|
|
1119 %
|
|
|
1120 % Note that \endref@AmS is \let to be whichever \endref@xxx command
|
|
|
1121 % is being used; default is \endref@JACM for JACM format.
|
|
|
1122 %
|
|
|
1123 % If we printed the reference, \endref@AmS will
|
|
|
1124 % have set \bysamebox@AmS to be a box containing a box
|
|
|
1125 % containing a rule and a period. This is unboxed if a subsequent
|
|
|
1126 % reference which gets printed uses \bysame. Otherwise, we here
|
|
|
1127 % save the \by field (if given) so that if a subsequent reference
|
|
|
1128 % using \bysame gets used, we'll know who the author was, even though
|
|
|
1129 % the reference which gave the author(s) wasn't printed. Tricky, huh?
|
|
|
1130 \def\endref{%
|
|
|
1131 \egroup\gdef\refl@AmS{T}%
|
|
|
1132 \if T\refed@uci
|
|
|
1133 \endref@AmS
|
|
|
1134 \else
|
|
|
1135 \if T\isby@AmS
|
|
|
1136 \setbox\bysamebox@AmS=\box\bybox@AmS
|
|
|
1137 \fi
|
|
|
1138 \fi
|
|
|
1139 \par
|
|
|
1140 }
|
|
|
1141
|
|
|
1142 % define a \keyword. #1=keyword, #2=font to use, or {}
|
|
|
1143 \def\refdef@AmS#1#2{%
|
|
|
1144 \def#1{%
|
|
|
1145 \egroup
|
|
|
1146 \expandafter\gdef
|
|
|
1147 \csname is\expandafter\eat@AmS\string#1@AmS\endcsname{T}%
|
|
|
1148 \expandafter\setbox
|
|
|
1149 \csname\expandafter\eat@AmS\string#1box@AmS\endcsname
|
|
|
1150 =\hbox\bgroup#2\ignorespaces
|
|
|
1151 }%
|
|
|
1152 }
|
|
|
1153
|
|
|
1154 % define the keywords
|
|
|
1155
|
|
|
1156 \refdef@AmS\by\by@font \refdef@AmS\paper{}
|
|
|
1157 \refdef@AmS\paperinfo{} \refdef@AmS\jour\book@font
|
|
|
1158 \refdef@AmS\vol\book@font \refdef@AmS\issue{}
|
|
|
1159 \refdef@AmS\mon{} \refdef@AmS\yr{}
|
|
|
1160 \refdef@AmS\pages{} \refdef@AmS\talk{}
|
|
|
1161 \refdef@AmS\book\book@font \refdef@AmS\bookinfo{}
|
|
|
1162 \refdef@AmS\publ{} \refdef@AmS\publaddr{}
|
|
|
1163 \refdef@AmS\finalinfo{} \refdef@AmS\editor{}
|
|
|
1164 \refdef@AmS\jourinfo{} \refdef@AmS\key\cite@font
|
|
|
1165 \refdef@AmS\editors{}
|
|
|
1166
|
|
|
1167 % These don't fit the normal pattern.
|
|
|
1168 \def\bysame{\egroup\gdef\isbysame@AmS{T}\bgroup}
|
|
|
1169 \def\page{\egroup\gdef\ispage@AmS{T}\setbox\pagesbox@AmS=\hbox\bgroup
|
|
|
1170 \ignorespaces}
|
|
|
1171 \def\toappear{\egroup\gdef\istoappear@AmS{T}\bgroup}
|
|
|
1172 \def\inbook{\egroup\gdef\isinbook@AmS{T}\setbox\bookbox@AmS=\hbox\bgroup
|
|
|
1173 \book@font\ignorespaces
|
|
|
1174 }
|
|
|
1175
|
|
|
1176 % This is the font we normally print book and journal titles in, but we
|
|
|
1177 % use \twelveit for IEEE format.
|
|
|
1178 \let\book@font=\twelvesl
|
|
|
1179
|
|
|
1180 % Similarly, this is the font to use for the author's name(s).
|
|
|
1181 % Optionally, the user can ask for the cite font instead (this is
|
|
|
1182 % not necessarily related to use of the IEEE format).
|
|
|
1183 \let\by@font=\twelverm
|
|
|
1184
|
|
|
1185 % As an option, the user can have the author's name(s) in caps-small-caps.
|
|
|
1186 \def\AuthorsInCSC{%
|
|
|
1187 \let\by@font=\elevencsc
|
|
|
1188 \oktell{Authors in CSC mode}%
|
|
|
1189 }
|
|
|
1190
|
|
|
1191 % Define some aliases for some of the above, for user convenience.
|
|
|
1192 \let\pp=\pages
|
|
|
1193 \let\pgs=\pages
|
|
|
1194 \let\pg=\page
|
|
|
1195 \let\p=\page
|
|
|
1196 \let\journal=\jour
|
|
|
1197 \let\volume=\vol
|
|
|
1198 \let\author=\by
|
|
|
1199 \let\authors=\by
|
|
|
1200 \let\ieee@editors=\editors % Save it in case we use IEEE format
|
|
|
1201 \let\editors=\editor % If using default JACM format
|
|
|
1202 \let\other=\talk
|
|
|
1203 \let\no=\issue
|
|
|
1204
|
|
|
1205 % Helpers to \endref@AmS, which speed things up a lot, and/or
|
|
|
1206 % make the code more compact.
|
|
|
1207 \def\a@comma{, } % Used in next routine. Predefined for speed of \let.
|
|
|
1208 \def\setpunct@AmS{\let\prepunct@AmS=\a@comma}
|
|
|
1209 \def\ppunbox@AmS#1{\prepunct@AmS\unhbox#1\unskip}
|
|
|
1210
|
|
|
1211
|
|
|
1212 % Actually do some typesetting (finally). As mentioned above,
|
|
|
1213 % \endref@AmS is called to print a reference if we want it. It
|
|
|
1214 % is \let to be either \endref@JACM or \endref@IEEE (or possibly
|
|
|
1215 % some other format in the future) depending on the desired
|
|
|
1216 % format.
|
|
|
1217 %
|
|
|
1218 % For some reason, the ~'s don't see to tie things, so some
|
|
|
1219 % \hbox's were introduced.
|
|
|
1220 %
|
|
|
1221 % There is unfortunately a lot of common code between the
|
|
|
1222 % different formats. Here are some sections which were easy to
|
|
|
1223 % pull out:
|
|
|
1224 \def\endref@startup{%
|
|
|
1225 % Test to see if there is anything in the wastebox
|
|
|
1226 \setbox\wastebox@uci=\hbox{\unhbox\wastebox@uci\unskip}%
|
|
|
1227 \ifdim\wd\wastebox@uci>\z@
|
|
|
1228 \errmessage{Keyword omitted after \noexpand\ref}%
|
|
|
1229 \fi
|
|
|
1230 \let\prepunct@AmS=\empty
|
|
|
1231 \vskip\parskip
|
|
|
1232 \noindent \hangafter=\@ne
|
|
|
1233 }
|
|
|
1234
|
|
|
1235 % This is the text printed for the JACM format for papers
|
|
|
1236 % appearing in a book.
|
|
|
1237 \def\appearing@in{Appearing in }
|
|
|
1238
|
|
|
1239 % Common code at the end of \endref@JACM and \endref@IEEE.
|
|
|
1240 % The argument is the date routine to use.
|
|
|
1241 \def\endref@finishup#1{%
|
|
|
1242 \if T\istalk@AmS
|
|
|
1243 \dimen@=\wd\talkbox@AmS
|
|
|
1244 \ifdim\dimen@>\z@
|
|
|
1245 \ppunbox@AmS\talkbox@AmS\setpunct@AmS
|
|
|
1246 \fi
|
|
|
1247 \fi
|
|
|
1248 \if T\isbook@AmS
|
|
|
1249 \ppunbox@AmS\bookbox@AmS \setpunct@AmS
|
|
|
1250 \editor@ref
|
|
|
1251 \fi
|
|
|
1252 \if T\isinbook@AmS
|
|
|
1253 \prepunct@AmS\appearing@in\unhbox\bookbox@AmS\unskip \setpunct@AmS
|
|
|
1254 \editor@ref \gdef\isbook@AmS{T}%
|
|
|
1255 \fi
|
|
|
1256 \if T\isbookinfo@AmS
|
|
|
1257 \ppunbox@AmS\bookinfobox@AmS\setpunct@AmS
|
|
|
1258 \fi
|
|
|
1259 \if T\using@IEEE
|
|
|
1260 \if T\ispubladdr@AmS
|
|
|
1261 \ppunbox@AmS\publaddrbox@AmS
|
|
|
1262 \if T\ispubl@AmS \def\prepunct@AmS{: }\else\setpunct@AmS\fi
|
|
|
1263 \fi
|
|
|
1264 \if T\ispubl@AmS
|
|
|
1265 \ppunbox@AmS\publbox@AmS\setpunct@AmS
|
|
|
1266 \fi
|
|
|
1267 \else
|
|
|
1268 \if T\ispubl@AmS
|
|
|
1269 \ppunbox@AmS\publbox@AmS\setpunct@AmS
|
|
|
1270 \fi
|
|
|
1271 \if T\ispubladdr@AmS
|
|
|
1272 \ppunbox@AmS\publaddrbox@AmS\setpunct@AmS
|
|
|
1273 \fi
|
|
|
1274 \fi
|
|
|
1275 \if T\isbook@AmS
|
|
|
1276 \if T\isvol@AmS
|
|
|
1277 \prepunct@AmS Vol.~\unhbox\volbox@AmS\unskip\setpunct@AmS
|
|
|
1278 \fi
|
|
|
1279 \if T\isyr@AmS
|
|
|
1280 \ppunbox@AmS\yrbox@AmS\setpunct@AmS
|
|
|
1281 \fi
|
|
|
1282 \if T\istoappear@AmS
|
|
|
1283 \ (to appear)\setpunct@AmS
|
|
|
1284 \fi
|
|
|
1285 \if T\ispages@AmS
|
|
|
1286 \prepunct@AmS pp.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
|
|
|
1287 \fi
|
|
|
1288 \if T\ispage@AmS
|
|
|
1289 \prepunct@AmS p.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
|
|
|
1290 \fi
|
|
|
1291 \fi
|
|
|
1292 \if T\istalk@AmS
|
|
|
1293 #1% This is the date routine to use.
|
|
|
1294 \fi
|
|
|
1295 \if T\isfinalinfo@AmS
|
|
|
1296 \period\unhbox\finalinfobox@AmS
|
|
|
1297 \else
|
|
|
1298 \if T\refl@AmS .
|
|
|
1299 \else ;
|
|
|
1300 \fi
|
|
|
1301 \fi
|
|
|
1302 }
|
|
|
1303
|
|
|
1304 % Print editor(s) if and as appropriate.
|
|
|
1305 \def\editor@ref{%
|
|
|
1306 \if T\using@IEEE
|
|
|
1307 \if T\iseditor@AmS
|
|
|
1308 \ppunbox@AmS\editorbox@AmS, Ed.\setpunct@AmS
|
|
|
1309 \fi
|
|
|
1310 \if T\iseditors@AmS
|
|
|
1311 \ppunbox@AmS\editorsbox@AmS, Eds.\setpunct@AmS
|
|
|
1312 \fi
|
|
|
1313 \else
|
|
|
1314 \if T\iseditor@AmS
|
|
|
1315 \ppunbox@AmS\editorbox@AmS\ (ed.)\setpunct@AmS
|
|
|
1316 \fi
|
|
|
1317 \fi
|
|
|
1318 }
|
|
|
1319
|
|
|
1320 % This routine prints the date in the JACM format
|
|
|
1321 \def\date@JACM{%
|
|
|
1322 \if T\isyr@AmS
|
|
|
1323 \/\ (%
|
|
|
1324 \if T\ismon@AmS
|
|
|
1325 \unhbox\monbox@AmS\unskip,
|
|
|
1326 \fi
|
|
|
1327 \unhbox\yrbox@AmS\unskip)\setpunct@AmS
|
|
|
1328 \else
|
|
|
1329 \if T\ismon@AmS
|
|
|
1330 \ppunbox@AmS\monbox@AmS\setpunct@AmS
|
|
|
1331 \fi
|
|
|
1332 \fi
|
|
|
1333 }
|
|
|
1334
|
|
|
1335 % This prints the date in the IEEE format.
|
|
|
1336 \def\date@IEEE{%
|
|
|
1337 \if T\isyr@AmS
|
|
|
1338 \prepunct@AmS
|
|
|
1339 \if T\ismon@AmS
|
|
|
1340 \unhbox\monbox@AmS\unskip\a@comma
|
|
|
1341 \fi
|
|
|
1342 \unhbox\yrbox@AmS\unskip\setpunct@AmS
|
|
|
1343 \else
|
|
|
1344 \if T\ismon@AmS
|
|
|
1345 \ppunbox@AmS\monbox@AmS\setpunct@AmS
|
|
|
1346 \fi
|
|
|
1347 \fi
|
|
|
1348 }
|
|
|
1349
|
|
|
1350
|
|
|
1351 % This version produces JACM format references.
|
|
|
1352 \def\endref@JACM{%
|
|
|
1353 \endref@startup
|
|
|
1354 \if T\refi@AmS
|
|
|
1355 \hbox to \key@size{\cite@font [\unhbox\keybox@AmS\unskip]\hfil}%
|
|
|
1356 \hangindent=\key@size
|
|
|
1357 \if T\isby@AmS
|
|
|
1358 \unhcopy\bybox@AmS\unskip
|
|
|
1359 \def\prepunct@AmS{\hskip7\p@ plus5\p@\relax}%
|
|
|
1360 \setbox\z@=\hbox{\unhbox\bybox@AmS\unskip}%
|
|
|
1361 \dimen@=\wd\z@ % We want \dimen0=max(\wd0, 2in)
|
|
|
1362 \ifdim\dimen@>2in \dimen@=2in \fi
|
|
|
1363 \setbox\bysamebox@AmS=\hbox{\hbox to\dimen@{\leaders\hrule\hfill.}}%
|
|
|
1364 \else
|
|
|
1365 \if T\isbysame@AmS
|
|
|
1366 \unhcopy\bysamebox@AmS\unskip
|
|
|
1367 \def\prepunct@AmS{\hskip7\p@ plus5\p@\relax}%
|
|
|
1368 \fi
|
|
|
1369 \fi
|
|
|
1370 \fi
|
|
|
1371 \if T\ispaper@AmS
|
|
|
1372 \ppunbox@AmS\paperbox@AmS\def\prepunct@AmS{. }%
|
|
|
1373 \fi
|
|
|
1374 \if T\ispaperinfo@AmS
|
|
|
1375 \ppunbox@AmS\paperinfobox@AmS\def\prepunct@AmS{. }%
|
|
|
1376 \fi
|
|
|
1377 \if T\isjour@AmS
|
|
|
1378 \ppunbox@AmS\jourbox@AmS\setpunct@AmS
|
|
|
1379 \editor@ref
|
|
|
1380 \if T\isjourinfo@AmS
|
|
|
1381 \ppunbox@AmS\jourinfobox@AmS\setpunct@AmS
|
|
|
1382 \fi
|
|
|
1383 \if T\isvol@AmS
|
|
|
1384 \ \unhbox\volbox@AmS\unskip
|
|
|
1385 \fi
|
|
|
1386 \if T\isissue@AmS
|
|
|
1387 \ppunbox@AmS\issuebox@AmS\setpunct@AmS
|
|
|
1388 \fi
|
|
|
1389 \date@JACM
|
|
|
1390 \if T\istoappear@AmS
|
|
|
1391 \ (to appear)\setpunct@AmS
|
|
|
1392 \fi
|
|
|
1393 \if T\ispages@AmS
|
|
|
1394 \ppunbox@AmS\pagesbox@AmS\setpunct@AmS
|
|
|
1395 \fi
|
|
|
1396 \if T\ispage@AmS
|
|
|
1397 \prepunct@AmS p.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
|
|
|
1398 \fi
|
|
|
1399 \fi
|
|
|
1400 \endref@finishup\date@JACM
|
|
|
1401 }
|
|
|
1402
|
|
|
1403
|
|
|
1404 % This version produces IEEE format references.
|
|
|
1405 \def\endref@IEEE{%
|
|
|
1406 \endref@startup
|
|
|
1407 \if T\refi@AmS
|
|
|
1408 \hbox to \key@size{\cite@font [\unhbox\keybox@AmS\unskip]\hfil}%
|
|
|
1409 \hangindent=\key@size
|
|
|
1410 \if T\isby@AmS \unhcopy\bybox@AmS\unskip\setpunct@AmS
|
|
|
1411 \setbox\z@=\hbox{\unhbox\bybox@AmS\unskip}%
|
|
|
1412 \dimen@=\wd\z@ % We want \dimen0=max(\wd0, 2in)
|
|
|
1413 \ifdim\dimen@>2in \dimen@=2in \fi
|
|
|
1414 \setbox\bysamebox@AmS=\hbox{\hbox to\dimen@{\leaders\hrule\hfill}}%
|
|
|
1415 \else
|
|
|
1416 \if T\isbysame@AmS
|
|
|
1417 \unhcopy\bysamebox@AmS\unskip\setpunct@AmS
|
|
|
1418 \fi
|
|
|
1419 \fi
|
|
|
1420 \fi
|
|
|
1421 \if T\ispaper@AmS
|
|
|
1422 \prepunct@AmS``\unhbox\paperbox@AmS\unskip,''
|
|
|
1423 \let\prepunct@AmS=\empty
|
|
|
1424 \fi
|
|
|
1425 \if T\ispaperinfo@AmS
|
|
|
1426 \ppunbox@AmS\paperinfobox@AmS\def\prepunct@AmS{, }%
|
|
|
1427 \fi
|
|
|
1428 \if T\isjour@AmS
|
|
|
1429 \ppunbox@AmS\jourbox@AmS\setpunct@AmS
|
|
|
1430 \editor@ref
|
|
|
1431 \if T\isjourinfo@AmS
|
|
|
1432 \ppunbox@AmS\jourinfobox@AmS\setpunct@AmS
|
|
|
1433 \fi
|
|
|
1434 \if T\isvol@AmS
|
|
|
1435 \prepunct@AmS vol.~\unhbox\volbox@AmS\unskip\setpunct@AmS
|
|
|
1436 \fi
|
|
|
1437 \if T\isissue@AmS
|
|
|
1438 \prepunct@AmS no.~\unhbox\issuebox@AmS\unskip\setpunct@AmS
|
|
|
1439 \fi
|
|
|
1440 \if T\istoappear@AmS
|
|
|
1441 \ (to appear)\setpunct@AmS
|
|
|
1442 \fi
|
|
|
1443 \if T\ispages@AmS
|
|
|
1444 \prepunct@AmS pp.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
|
|
|
1445 \fi
|
|
|
1446 \if T\ispage@AmS
|
|
|
1447 \prepunct@AmS p.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
|
|
|
1448 \fi
|
|
|
1449 \if T\ispubladdr@AmS
|
|
|
1450 \ppunbox@AmS\publaddrbox@AmS
|
|
|
1451 \if T\ispubl@AmS \def\prepunct@AmS{: }\else\setpunct@AmS\fi
|
|
|
1452 \fi
|
|
|
1453 \if T\ispubl@AmS
|
|
|
1454 \ppunbox@AmS\publbox@AmS\setpunct@AmS
|
|
|
1455 \fi
|
|
|
1456 \let\ispubl@AmS=F\let\ispubladdr@AmS=F% For finishup routine
|
|
|
1457 \date@IEEE
|
|
|
1458 \fi
|
|
|
1459 \endref@finishup\date@IEEE
|
|
|
1460 }
|
|
|
1461
|
|
|
1462
|
|
|
1463 % By default, we use JACM format references
|
|
|
1464 \let\endref@AmS=\endref@JACM
|
|
|
1465
|
|
|
1466 % But it's possible to get the other format
|
|
|
1467 \def\IEEE{%
|
|
|
1468 \gdef\using@IEEE{T}% Now we're using IEEE format.
|
|
|
1469 \let\editors=\ieee@editors
|
|
|
1470 \let\endref@AmS=\endref@IEEE
|
|
|
1471 \refdef@AmS\vol{}% Vol not printed in slanted any more.
|
|
|
1472 \global\let\appearing@in=\empty % Don't say that in IEEE format.
|
|
|
1473 \let\volume=\vol
|
|
|
1474 \let\book@font=\twelveit % Book and journal titles in this font.
|
|
|
1475 \oktell{IEEE Bibliography Style}%
|
|
|
1476 }
|
|
|
1477
|
|
|
1478
|
|
|
1479 % References Dump
|
|
|
1480
|
|
|
1481 \newwrite\dump@file
|
|
|
1482
|
|
|
1483 \catcode`\{=12 \catcode`\}=12 \catcode`\%=12 \catcode`\[=1 \catcode`\]=2
|
|
|
1484 \def\ref@open[{]
|
|
|
1485 \def\ref@close[}]
|
|
|
1486 \def\ref@comment[%]
|
|
|
1487 \catcode`\{=1 \catcode`\}=2 \catcode`\%=14 \catcode`\[=12 \catcode`\]=12
|
|
|
1488
|
|
|
1489 \def\refdump{%
|
|
|
1490 \vfill\supereject
|
|
|
1491 \begingroup
|
|
|
1492 \content\reftitle
|
|
|
1493 \tell{Dumping \reftitle\space to refdump.tex}%
|
|
|
1494 \immediate\openout\dump@file=refdump
|
|
|
1495 \immediate\write\dump@file{%
|
|
|
1496 \noexpand\catcode`\noexpand\@=11 ^^J%
|
|
|
1497 \noexpand\let\noexpand\content=\noexpand\eat@AmS^^J%
|
|
|
1498 \noexpand\pageno=\the\pageno^^J%
|
|
|
1499 \noexpand\def\noexpand\ref@set\ref@open\ref@comment
|
|
|
1500 }%
|
|
|
1501 \def\\##1{\immediate\write\dump@file{ \noexpand\\{##1}\ref@comment}}%
|
|
|
1502 \ref@set
|
|
|
1503 \immediate\write\dump@file{%
|
|
|
1504 \ref@close^^J%
|
|
|
1505 }%
|
|
|
1506 \immediate\closeout\dump@file
|
|
|
1507 \endgroup
|
|
|
1508 }
|
|
|
1509
|
|
|
1510
|
|
|
1511 %%%%%%%%%%%%%%%%%%%%
|
|
|
1512 % OUTPUT CONTROL %
|
|
|
1513 %%%%%%%%%%%%%%%%%%%%
|
|
|
1514
|
|
|
1515 % Control for informational messages. Default is \verbose mode.
|
|
|
1516 \newif\iftell@all
|
|
|
1517 \let\verbose=\tell@alltrue
|
|
|
1518 \let\quiet=\tell@allfalse
|
|
|
1519 \verbose
|
|
|
1520 \def\oktell#1{\iftell@all\tell{#1}\fi}
|
|
|
1521 \def\okmessage#1{\iftell@all\message{#1}\fi}
|
|
|
1522
|
|
|
1523 % Chapter macro parameters
|
|
|
1524 \newcount\chapterno
|
|
|
1525 \chapterno=\z@ % Number of current chapter
|
|
|
1526 \newif\ifnumber@chapters
|
|
|
1527 \number@chapterstrue % By default, number the chapters
|
|
|
1528 \def\nochapternumbers{%
|
|
|
1529 \number@chaptersfalse
|
|
|
1530 \oktell{No Chapter Numbers mode}%
|
|
|
1531 }
|
|
|
1532
|
|
|
1533 % Same thing for sections, subsections, etc
|
|
|
1534 \newcount\sectno \sectno=\@ne
|
|
|
1535 \newcount\subsectno \subsectno=\@ne
|
|
|
1536 \newcount\subsubsectno \subsubsectno=\@ne
|
|
|
1537 \newif\ifnumber@sections
|
|
|
1538 \def\numbersections{%
|
|
|
1539 \number@sectionstrue
|
|
|
1540 \oktell{Section Numbers mode}%
|
|
|
1541 }
|
|
|
1542
|
|
|
1543
|
|
|
1544 %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
1545 % OUTPUT CONTROL MACROS %
|
|
|
1546 %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
1547
|
|
|
1548
|
|
|
1549 % Center, left justify, right justify -- avoid exceeding margins
|
|
|
1550 \def\centerline#1{\line{\hfill#1\hfill}}
|
|
|
1551 \def\leftline#1{\line{#1\hfill}}
|
|
|
1552 \def\rightline#1{\line{\hfill#1}}
|
|
|
1553 \def\threepart#1#2#3{\line{\hskip\leftskip\rlap{#1}\hfill#2\hfill
|
|
|
1554 \llap{#3}\hskip\rightskip}}
|
|
|
1555
|
|
|
1556 % End of the main body of the document
|
|
|
1557 \let\enddiss=\bye
|
|
|
1558
|
|
|
1559 % Summary Information
|
|
|
1560 \outer\def\showsummary{%
|
|
|
1561 \begingroup
|
|
|
1562 \def\note##1##2##3##4{%
|
|
|
1563 \count@=##1
|
|
|
1564 \advance\count@ by##3
|
|
|
1565 \ifcase\count@
|
|
|
1566 \message{No ##2s##4}\or
|
|
|
1567 \message{1 ##2##4}\else
|
|
|
1568 \message{\the\count@\space ##2s##4}\fi
|
|
|
1569 }%
|
|
|
1570 \note\fignumber{figure}{-1}{,}%
|
|
|
1571 \note\tablenumber{table}{-1}{,}%
|
|
|
1572 \note\note@count{footnote}{-1}{,}%
|
|
|
1573 \cardinality\ref@set\to\count@
|
|
|
1574 \note\count@{citation}{0}{.}%
|
|
|
1575 \endgroup
|
|
|
1576 }
|
|
|
1577
|
|
|
1578
|
|
|
1579 % Real version of ragged right margins
|
|
|
1580 \def\raggedright{%
|
|
|
1581 \rightskip=\z@ plus 2em
|
|
|
1582 \oktell{Raggedright mode}%
|
|
|
1583 }
|
|
|
1584
|
|
|
1585 % Disallow hyphenation -- a very dangerous thing
|
|
|
1586 \def\nohyphens{%
|
|
|
1587 \hyphenpenalty=\@M\tolerance=500\pretolerance=\@M
|
|
|
1588 \oktell{Nohyphens mode}%
|
|
|
1589 }
|
|
|
1590
|
|
|
1591 % Allow capitalized words to be hyphenated
|
|
|
1592 \def\hyphenall{%
|
|
|
1593 \uchyph=\@ne
|
|
|
1594 \oktell{Hyphenating all words}%
|
|
|
1595 }
|
|
|
1596
|
|
|
1597 % Handle a long quotation in a standard way
|
|
|
1598 \def\bigquote#1\endbigquote{%
|
|
|
1599 \par
|
|
|
1600 \vskip \baselineskip \vskip -\parskip
|
|
|
1601 { \advance\rightskip by30\p@
|
|
|
1602 \advance\leftskip by30\p@
|
|
|
1603 \smallertype
|
|
|
1604 \singlespace
|
|
|
1605 \let\\=\newline
|
|
|
1606 \noindent\llap{``}\ignorespaces#1\unskip''\par
|
|
|
1607 }% End of singlespacing and special indentation
|
|
|
1608 \vskip \baselineskip \vskip -\parskip
|
|
|
1609 }
|
|
|
1610
|
|
|
1611
|
|
|
1612 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
1613 % CHAPTERS, SECTIONS, FIGURES, TABLES %
|
|
|
1614 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
1615
|
|
|
1616 % What to do at the beginning of a chapter
|
|
|
1617 \def\chapter#1\endchapter{
|
|
|
1618 \chapter@base #1\endchapter
|
|
|
1619 \oktell{Chapter \number\chapterno: #1}
|
|
|
1620 \content{Chapter \number\chapterno: #1}
|
|
|
1621 }
|
|
|
1622
|
|
|
1623
|
|
|
1624 % This boolean controls whether chapters are made to start only on
|
|
|
1625 % odd pages.
|
|
|
1626 \newif\ifoddpages
|
|
|
1627 \oddpagesfalse
|
|
|
1628 \def\twosided{% This is the ``official'' command
|
|
|
1629 \oddpagestrue
|
|
|
1630 \oktell{Twosided mode}%
|
|
|
1631 }
|
|
|
1632
|
|
|
1633 % The guts of the \chapter command. \chapter==\chapter@base when
|
|
|
1634 % in \articlestyle.
|
|
|
1635 \def\chapter@base#1\endchapter{
|
|
|
1636 \par
|
|
|
1637 \clearpage % Clean up from prev chapter
|
|
|
1638 \ifoddpages % Make sure start on even page.
|
|
|
1639 \ifodd\pageno \relax \else \null\vfill\eject \fi
|
|
|
1640 \fi
|
|
|
1641 \pageno@foot % Page #ing special for chap pages
|
|
|
1642 \advance\chapterno by\@ne
|
|
|
1643 \ifnumber@chapters
|
|
|
1644 \centerline{\chap@font CHAPTER \number\chapterno}% Do heading
|
|
|
1645 \fi
|
|
|
1646 \sectno=\z@
|
|
|
1647 \subsectno=\z@
|
|
|
1648 \subsubsectno=\z@
|
|
|
1649 {\let\\=\cr \tabskip=\z@ \chap@font % Center the chapter title
|
|
|
1650 \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr#1\cr}
|
|
|
1651 }
|
|
|
1652 \nobreak % Shouldn't happen anyway
|
|
|
1653 \vskip 1.0in minus 0.15in
|
|
|
1654 }
|
|
|
1655
|
|
|
1656 % What to do at the beginning of a section
|
|
|
1657 \outer\def\section{\dosection}
|
|
|
1658 \def\dosection#1{%
|
|
|
1659 \skip@=\lastskip % \par resets \lastskip, apparently
|
|
|
1660 \par
|
|
|
1661 % This junk trys to provide consistent spacing
|
|
|
1662 \dimen@=\baselineskip
|
|
|
1663 \ifdim\skip@<\dimen@
|
|
|
1664 \ifdim\skip@=\z@
|
|
|
1665 \penalty-200
|
|
|
1666 \fi
|
|
|
1667 \vskip \dimen@ plus .5\baselineskip
|
|
|
1668 \fi
|
|
|
1669 \ifnumber@sections
|
|
|
1670 \advance\sectno by\@ne
|
|
|
1671 \subsectno=\z@
|
|
|
1672 \subsubsectno=\z@
|
|
|
1673 \leftline{\sec@font\number\sectno. #1}
|
|
|
1674 \else
|
|
|
1675 \leftline{\sec@font#1}
|
|
|
1676 \fi
|
|
|
1677 \subcontent{#1}
|
|
|
1678 \sanetell{ Section: #1}
|
|
|
1679 \nobreak
|
|
|
1680 \vskip \z@ plus .15\baselineskip
|
|
|
1681 \vskip -\parskip
|
|
|
1682 }
|
|
|
1683
|
|
|
1684 % And for sub-sections
|
|
|
1685 \outer\def\subsection{\dosubsection}
|
|
|
1686 \def\dosubsection#1{%
|
|
|
1687 \skip@=\lastskip
|
|
|
1688 \par
|
|
|
1689 \dimen@=.6\baselineskip
|
|
|
1690 \ifdim\skip@<\dimen@
|
|
|
1691 \ifdim\skip@=\z@
|
|
|
1692 \penalty-100
|
|
|
1693 \fi
|
|
|
1694 \vskip \dimen@ plus .3\baselineskip
|
|
|
1695 \fi
|
|
|
1696 \ifnumber@sections
|
|
|
1697 \advance\subsectno by\@ne
|
|
|
1698 \subsubsectno=\z@
|
|
|
1699 \leftline{\subsec@font\number\sectno.\number\subsectno. #1}
|
|
|
1700 \else
|
|
|
1701 \leftline{\subsec@font#1}
|
|
|
1702 \fi
|
|
|
1703 \subsubcontent{#1}
|
|
|
1704 \sanetell{ \\Subsection: #1}
|
|
|
1705 \nobreak
|
|
|
1706 \vskip \z@ plus .1\baselineskip
|
|
|
1707 \vskip -\parskip
|
|
|
1708 }
|
|
|
1709
|
|
|
1710 % And for sub-sub-sections
|
|
|
1711 \outer\def\subsubsection{\dosubsubsection}
|
|
|
1712 \def\dosubsubsection#1{%
|
|
|
1713 \skip@=\lastskip
|
|
|
1714 \par
|
|
|
1715 \dimen@=.5\baselineskip
|
|
|
1716 \ifdim\skip@<\dimen@
|
|
|
1717 \ifdim\skip@=\z@
|
|
|
1718 \penalty-50
|
|
|
1719 \fi
|
|
|
1720 \vskip \dimen@ plus .3\baselineskip
|
|
|
1721 \fi
|
|
|
1722 \ifnumber@sections
|
|
|
1723 \advance\subsubsectno by\@ne
|
|
|
1724 \leftline{\subsubsec@font\number\sectno.\number\subsectno
|
|
|
1725 .\number\subsubsectno. #1}
|
|
|
1726 \else
|
|
|
1727 \leftline{\subsubsec@font#1}
|
|
|
1728 \fi
|
|
|
1729 \subsubsubcontent{#1}
|
|
|
1730 \sanetell{ \\\\Subsubsection: #1}
|
|
|
1731 \nobreak
|
|
|
1732 \vskip -\parskip
|
|
|
1733 }
|
|
|
1734
|
|
|
1735 % This is an alternate definition for plain TeX's \@ins,
|
|
|
1736 % omitting the \par. It is for use during \figure etc. Reason:
|
|
|
1737 % If you use \figure right after \section, it would otherwise
|
|
|
1738 % become a legal place for a page break.
|
|
|
1739 \def\@ins@uci{\begingroup\setbox\z@\vbox\bgroup}
|
|
|
1740
|
|
|
1741 % This is \endinsert from plain.tex, but \midinsert's are not converted
|
|
|
1742 % to \topinsert's, since that can lead to figures getting out of order.
|
|
|
1743 % This can lead to excessive blank space at the bottom of the page, but
|
|
|
1744 % that's life. Makes use of \keep...\endkeep type stuff.
|
|
|
1745 \def\endinsert{\egroup % finish the \vbox
|
|
|
1746 \if@mid \dimen@\ht\z@ \advance\dimen@\dp\z@
|
|
|
1747 \advance\dimen@12\p@
|
|
|
1748 \vskip\z@ plus\dimen@
|
|
|
1749 \penalty\z@
|
|
|
1750 \vskip\z@ plus-\dimen@
|
|
|
1751 \bigskip\box\z@\bigbreak
|
|
|
1752 \else\insert\topins{\penalty100 % floating insertion
|
|
|
1753 \splittopskip\z@skip
|
|
|
1754 \splitmaxdepth\maxdimen \floatingpenalty\z@
|
|
|
1755 \ifp@ge \dimen@\dp\z@
|
|
|
1756 \vbox to\vsize{\unvbox\z@\kern-\dimen@}% depth is zero
|
|
|
1757 \else \box\z@\nobreak\bigskip\fi}\fi\endgroup}
|
|
|
1758
|
|
|
1759
|
|
|
1760 % This macro provides rudamentary support for figures. The
|
|
|
1761 % argument to \figure is the name of the file containing the tpic (or whatever)
|
|
|
1762 % output. The second argument is the caption for the picture.
|
|
|
1763 % As usual, TeX's delayed paging and midinserting causes expansion-timing
|
|
|
1764 % problems which have to be kludged around.
|
|
|
1765 \newif\iftopfigs \topfigstrue
|
|
|
1766 \def\domidfigs{%
|
|
|
1767 \topfigsfalse
|
|
|
1768 \oktell{Midfigs mode}%
|
|
|
1769 }
|
|
|
1770
|
|
|
1771 % Counters for figures/diagrams/examples and tables
|
|
|
1772 \newcount\fignumber \fignumber=\@ne
|
|
|
1773 \newcount\tablenumber \tablenumber=\@ne
|
|
|
1774
|
|
|
1775 % Helper for \figure, \example, and \diagram. Define \lastfigure and
|
|
|
1776 % \this@insert, increment the figure number for next time, and make sure
|
|
|
1777 % the figures list file is open for writing.
|
|
|
1778 % #1=the caption, to be written to the figures list file
|
|
|
1779 \def\advance@figno#1{%
|
|
|
1780 \xdef\lastfigure{\the\fignumber}% Remember the current figure number
|
|
|
1781 \begingroup\no@cites
|
|
|
1782 \let\\=\space
|
|
|
1783 \xdef\this@insert{\write\noexpand\fig@file{\noexpand\noexpand
|
|
|
1784 \noexpand\listfig{\lastfigure}{#1}%
|
|
|
1785 {\noexpand\number\noexpand\pageno}%
|
|
|
1786 }%
|
|
|
1787 }%
|
|
|
1788 \endgroup
|
|
|
1789 \global\advance\fignumber by\@ne
|
|
|
1790 \iffig@closed % Open figures file if not already
|
|
|
1791 \immediate\openout\fig@file=\figtitle
|
|
|
1792 \global\fig@closedfalse
|
|
|
1793 \fi
|
|
|
1794 }
|
|
|
1795
|
|
|
1796 % Bump the table number after defining \lasttable. Prepare \this@insert.
|
|
|
1797 % Define \table@caption.
|
|
|
1798 \def\advance@tablenumber#1{%
|
|
|
1799 \xdef\lasttable{\the\tablenumber}% Remember the current figure number
|
|
|
1800 \begingroup \no@cites \let\\=\space
|
|
|
1801 \xdef\this@insert{\write\noexpand\tab@file{\noexpand\noexpand
|
|
|
1802 \noexpand\listfig{\lasttable}{#1}%
|
|
|
1803 {\noexpand\number\noexpand\pageno}%
|
|
|
1804 }%
|
|
|
1805 }%
|
|
|
1806 \endgroup
|
|
|
1807 \global\advance\tablenumber by\@ne
|
|
|
1808 \gdef\table@caption{#1}%
|
|
|
1809 }
|
|
|
1810
|
|
|
1811 \newif\ifpage@figs \page@figsfalse
|
|
|
1812
|
|
|
1813 % Special mode to put figures/diagrams/examples on separate pages
|
|
|
1814 \def\pagefigs{%
|
|
|
1815 \oktell{Page Figures mode}%
|
|
|
1816 \page@figstrue
|
|
|
1817 }
|
|
|
1818
|
|
|
1819 % Usage: \figure{filename}{caption with \\'s}
|
|
|
1820 \def\figure#1#2{%
|
|
|
1821 \begingroup % Hide anything that crazy user does!
|
|
|
1822 \advance@figno{#2}%
|
|
|
1823 % Now do mid or top insert as appropriate
|
|
|
1824 \let\@ins=\@ins@uci
|
|
|
1825 \ifpage@figs
|
|
|
1826 \shipout\vbox to\vsize\bgroup
|
|
|
1827 {\smallertype\rm\input #1\relax\centerline{\box\graph}}%
|
|
|
1828 \vfill
|
|
|
1829 \centerline{Figure \lastfigure}\this@insert
|
|
|
1830 \egroup
|
|
|
1831 \else \iftopfigs \topinsert \else \midinsert \fi
|
|
|
1832 \hrule
|
|
|
1833 \vskip .5\baselineskip
|
|
|
1834 {\smallertype\rm\input #1\relax\centerline{\box\graph}}%
|
|
|
1835 \vskip .5\baselineskip plus .5\baselineskip
|
|
|
1836 \centerline{\twelvebf Figure \lastfigure}%
|
|
|
1837 \this@insert
|
|
|
1838 \let\\=\cr \tabskip=\z@
|
|
|
1839 \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr#2\cr}%
|
|
|
1840 \vskip2\p@
|
|
|
1841 \hrule
|
|
|
1842 \endinsert
|
|
|
1843 \fi
|
|
|
1844 \endgroup
|
|
|
1845 }
|
|
|
1846
|
|
|
1847
|
|
|
1848 % Allow user to specify arbitrary diagrams. The arguments are:
|
|
|
1849 % #1=name of the file containing the commands to form the diagram,
|
|
|
1850 % #2=caption for the figure, possibly containing \\'s.
|
|
|
1851 \def\diagram#1#2{%
|
|
|
1852 \begingroup
|
|
|
1853 \advance@figno{#2}%
|
|
|
1854 % Do mid or top insert as appropriate
|
|
|
1855 \let\@ins=\@ins@uci
|
|
|
1856 \ifpage@figs
|
|
|
1857 \shipout\vbox to\vsize\bgroup
|
|
|
1858 {\smallertype\rm\input #1\relax}%
|
|
|
1859 \vfill
|
|
|
1860 \centerline{\twelverm Figure \lastfigure}\this@insert
|
|
|
1861 \egroup
|
|
|
1862 \else \iftopfigs \topinsert \else \midinsert \fi
|
|
|
1863 \hrule
|
|
|
1864 \vskip .5\baselineskip
|
|
|
1865 {\smallertype\rm\input #1\relax}%
|
|
|
1866 \vskip .5\baselineskip plus .5\baselineskip
|
|
|
1867 \centerline{\twelvebf Figure \lastfigure}%
|
|
|
1868 \this@insert
|
|
|
1869 \let\\=\cr \tabskip=\z@
|
|
|
1870 \halign to \hsize{\centerline{\ignorespaces##\unskip}\cr#2\cr}%
|
|
|
1871 \vskip2\p@
|
|
|
1872 \hrule
|
|
|
1873 \endinsert
|
|
|
1874 \fi
|
|
|
1875 \endgroup
|
|
|
1876 }
|
|
|
1877
|
|
|
1878
|
|
|
1879 % Allow user to include verbatim examples from files. The arguments are:
|
|
|
1880 % #1=name of the file containing the text of the example,
|
|
|
1881 % #2=caption for the figure, possibly containing \\'s.
|
|
|
1882 \def\example#1#2{%
|
|
|
1883 \begingroup
|
|
|
1884 \advance@figno{#2}%
|
|
|
1885 % Do mid or top insert as appropriate
|
|
|
1886 \let\@ins=\@ins@uci
|
|
|
1887 \ifpage@figs
|
|
|
1888 \shipout\vbox to\vsize\bgroup
|
|
|
1889 \vbox{\smallertype\singlespace\verbfile{#1}}%
|
|
|
1890 \vfill
|
|
|
1891 \centerline{\twelverm Figure \lastfigure}\this@insert
|
|
|
1892 \egroup
|
|
|
1893 \else \iftopfigs \topinsert \else \midinsert \fi
|
|
|
1894 \hrule
|
|
|
1895 \vskip .5\baselineskip
|
|
|
1896 \vbox{\smallertype\singlespace\verbfile{#1}}%
|
|
|
1897 \vskip .5\baselineskip plus .5\baselineskip
|
|
|
1898 \centerline{\twelvebf Figure \lastfigure}%
|
|
|
1899 \this@insert
|
|
|
1900 \let\\=\cr \tabskip=\z@
|
|
|
1901 \halign to \hsize{\centerline{\ignorespaces##\unskip}\cr#2\cr}%
|
|
|
1902 \vskip2\p@
|
|
|
1903 \hrule
|
|
|
1904 \endinsert
|
|
|
1905 \fi
|
|
|
1906 \endgroup
|
|
|
1907 }
|
|
|
1908
|
|
|
1909
|
|
|
1910 % Similar thing for tables
|
|
|
1911 % usage: \table{caption} ...text... \endtable
|
|
|
1912 \def\table#1{%
|
|
|
1913 \begingroup % Hide user zingers
|
|
|
1914 \advance@tablenumber{#1}%
|
|
|
1915 \setbox\z@=\vbox\bgroup
|
|
|
1916 }
|
|
|
1917
|
|
|
1918
|
|
|
1919 % End of the table body specification.
|
|
|
1920 \def\endtable{%
|
|
|
1921 \egroup % End the definition of \box0.
|
|
|
1922 % Now do top or mid insert
|
|
|
1923 \let\@ins=\@ins@uci
|
|
|
1924 \iftab@closed % Open output file if necessary
|
|
|
1925 \immediate\openout\tab@file=\tabtitle
|
|
|
1926 \global\tab@closedfalse
|
|
|
1927 \fi
|
|
|
1928 \ifpage@figs
|
|
|
1929 \shipout\vbox to\vsize\bgroup
|
|
|
1930 \box\z@
|
|
|
1931 \vfill
|
|
|
1932 \centerline{\twelverm Table \lasttable}\this@insert
|
|
|
1933 \egroup
|
|
|
1934 \else \iftopfigs \topinsert \else \midinsert \fi
|
|
|
1935 \hrule
|
|
|
1936 \vskip .5\baselineskip
|
|
|
1937 \box\z@ % Insert the material here.
|
|
|
1938 \vskip .5\baselineskip plus .5\baselineskip
|
|
|
1939 \centerline{\twelvebf Table \lasttable}%
|
|
|
1940 \this@insert
|
|
|
1941 \let\\=\cr \tabskip=\z@
|
|
|
1942 \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr\table@caption
|
|
|
1943 \cr}%
|
|
|
1944 \vskip2\p@
|
|
|
1945 \hrule
|
|
|
1946 \endinsert
|
|
|
1947 \fi
|
|
|
1948 \endgroup
|
|
|
1949 }
|
|
|
1950
|
|
|
1951
|
|
|
1952 % End of the table body specification for a full-page table.
|
|
|
1953 \def\endtablepage{%
|
|
|
1954 \egroup % End the definition of \box0.
|
|
|
1955 % Now do top or mid insert
|
|
|
1956 \let\@ins=\@ins@uci
|
|
|
1957 \iftab@closed % Open output file if necessary
|
|
|
1958 \immediate\openout\tab@file=\tabtitle
|
|
|
1959 \global\tab@closedfalse
|
|
|
1960 \fi
|
|
|
1961 \ifpage@figs
|
|
|
1962 \shipout\vbox to\vsize\bgroup
|
|
|
1963 \box\z@
|
|
|
1964 \vfill
|
|
|
1965 \centerline{\twelverm Table \lasttable}\this@insert
|
|
|
1966 \egroup
|
|
|
1967 \else \pageinsert
|
|
|
1968 \hrule
|
|
|
1969 \vskip .5\baselineskip
|
|
|
1970 \box\z@ % Insert the material here.
|
|
|
1971 \vskip .5\baselineskip plus .5\baselineskip
|
|
|
1972 \centerline{\twelvebf Table \lasttable}%
|
|
|
1973 \this@insert
|
|
|
1974 \let\\=\cr \tabskip=\z@
|
|
|
1975 \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr\table@caption
|
|
|
1976 \cr}%
|
|
|
1977 \vskip2\p@
|
|
|
1978 \hrule
|
|
|
1979 \endinsert
|
|
|
1980 \fi
|
|
|
1981 \endgroup
|
|
|
1982 }
|
|
|
1983
|
|
|
1984 % Environment for report generation -- use only at the beginning!
|
|
|
1985 % Since sections are the biggest division, the table of contents
|
|
|
1986 % stuff is redefined, and chapter numbering is turned off so that
|
|
|
1987 % \chapter can be used for the first-page title. The title page
|
|
|
1988 % gets no page number (page # 0). The user can get to the
|
|
|
1989 % normal chapter font as \titlefont, and the section font as
|
|
|
1990 % \authorfont.
|
|
|
1991 \def\articlestyle{%
|
|
|
1992 \nochapternumbers
|
|
|
1993 \let\subsubsubcontent=\subsubcontent
|
|
|
1994 \let\subsubcontent=\subcontent
|
|
|
1995 \let\subcontent=\content
|
|
|
1996 \let\chapter=\chapter@base
|
|
|
1997 \pageno=\z@
|
|
|
1998 \let\titlefont=\chap@font
|
|
|
1999 \let\authorfont=\sec@font
|
|
|
2000 \oktell{Articlestyle mode}%
|
|
|
2001 }
|
|
|
2002
|
|
|
2003
|
|
|
2004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
2005 % PAGE NUMBERING and OUTPUT ROUTINES %
|
|
|
2006 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
2007
|
|
|
2008 % This macro produces a blank, numbered page of output
|
|
|
2009 \def\blankpage{\pageinsert \null\vfill \endinsert}
|
|
|
2010
|
|
|
2011 % This defintion of \folio differs from Plain's in that (a) page
|
|
|
2012 % numbers are printed in 12pt, and (b) roman numeral ones are
|
|
|
2013 % printed in italics. It makes use of a trick, that
|
|
|
2014 % \romannumeral0 produces no output, which we need for title
|
|
|
2015 % pages and things, so we make their page numbers be 0.
|
|
|
2016 \def\folio{\ifnum\pageno>\z@
|
|
|
2017 {\twelverm\number\pageno}\else
|
|
|
2018 {\twelveit\romannumeral-\pageno}\fi
|
|
|
2019 }
|
|
|
2020
|
|
|
2021 % Permanent definitions of macros which get switched in and out
|
|
|
2022 % with \let's. Do not change any of these !!!
|
|
|
2023 \def\uci@headpage{\hfill\folio}
|
|
|
2024 \def\uci@footpage{\hfill\folio\hfill}
|
|
|
2025 \headline={\uci@headline}
|
|
|
2026 \footline={\uci@footline}
|
|
|
2027
|
|
|
2028 % If this is used as the footline, it causes a page number to be
|
|
|
2029 % printed, but with the side-effect of making the headline blank
|
|
|
2030 % and the footline a page number again. This is used on pages
|
|
|
2031 % like the first of a chapter.
|
|
|
2032 \def\no@foot{%
|
|
|
2033 \uci@footpage
|
|
|
2034 \global\let\uci@footline=\hfil
|
|
|
2035 \global\let\uci@headline=\uci@headpage
|
|
|
2036 }
|
|
|
2037
|
|
|
2038 % This macro causes the page number to be at the bottom of the current
|
|
|
2039 % page, and after it has been used there once, it moves to the
|
|
|
2040 % top right of each page. It also sets \dimen\topins=0pt so that
|
|
|
2041 % any material \topinsert'd on these pages will get carried over
|
|
|
2042 % to subsequent pages.
|
|
|
2043 \def\pageno@foot{%
|
|
|
2044 \dimen\topins=\z@
|
|
|
2045 \let\uci@headline=\hfil
|
|
|
2046 \let\uci@footline=\no@foot
|
|
|
2047 }
|
|
|
2048
|
|
|
2049 % Executing this causes page numbers to be at the bottom only, as
|
|
|
2050 % with the plain TeX format.
|
|
|
2051 \def\plain@page@numbers{%
|
|
|
2052 \let\uci@headline=\hfil % Initial values similar to plain's
|
|
|
2053 \let\uci@footline=\uci@footpage
|
|
|
2054 }
|
|
|
2055
|
|
|
2056 % Change plain's \makeheadline and \makefootline to position page
|
|
|
2057 % numbers as required.
|
|
|
2058 \def\makeheadline{%
|
|
|
2059 \vbox to\z@{\vskip-22.65\p@
|
|
|
2060 \line{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip
|
|
|
2061 }
|
|
|
2062 \def\makefootline{\baselineskip=1.6cm\line{\the\footline}}
|
|
|
2063
|
|
|
2064 % Define an output routine which will restore \dimen\topins
|
|
|
2065 % after \chapter, \references, etc, title pages, which have
|
|
|
2066 % \dimen\topins=0pt
|
|
|
2067 \def\dissoutput{\shipout\vbox{\makeheadline\pagebody\makefootline}%
|
|
|
2068 \advancepageno \global\dimen\topins=\vsize
|
|
|
2069 \ifnum\outputpenalty>-\@MM \else\dosupereject\fi
|
|
|
2070 }
|
|
|
2071 \let\output@AmS=\dissoutput
|
|
|
2072 \dimen\topins=\vsize % Don't insert more than will fit on one page
|
|
|
2073
|
|
|
2074 % Output Routines: We adjust the \raggedbottom command of plain
|
|
|
2075 % TeX so that the extra space is no more than 1in, and so that
|
|
|
2076 % the space is put above footnotes instead of below. NOTE: Since
|
|
|
2077 % we put a \vfil below the page contents, the topskip glue will
|
|
|
2078 % never actually be stretched. Its stretchability is just to
|
|
|
2079 % let TeX know about the raggedness in computing when to make a
|
|
|
2080 % page break. Since it's 1in, the \vfil will never be stretched to
|
|
|
2081 % more than that amount.
|
|
|
2082
|
|
|
2083 \def\raggedbottom{\topskip=\normal@topskip plus1in \r@ggedbottomtrue
|
|
|
2084 \oktell{Ragged bottom mode}}
|
|
|
2085 \def\normalbottom{\topskip=\normal@topskip\r@ggedbottomfalse
|
|
|
2086 \oktell{Normal bottom mode}}
|
|
|
2087
|
|
|
2088 \def\pagecontents{%
|
|
|
2089 \ifvoid\topins\else\unvbox\topins\fi
|
|
|
2090 \dimen@=\dp\@cclv \unvbox\@cclv % open up \box255
|
|
|
2091 \ifr@ggedbottom \kern-\dimen@ \vfil\fi
|
|
|
2092 \ifvoid\footins \else % footnote info is present
|
|
|
2093 \vskip\skip\footins
|
|
|
2094 \footnoterule
|
|
|
2095 \unvbox\footins
|
|
|
2096 \fi
|
|
|
2097 }
|
|
|
2098
|
|
|
2099
|
|
|
2100 %%%%%%%%%%%%%%%%%%%%
|
|
|
2101 % INITIALIZATION %
|
|
|
2102 %%%%%%%%%%%%%%%%%%%%
|
|
|
2103
|
|
|
2104 \font@no=0 % Default font=\rm,
|
|
|
2105 \twelvepoint % point size,
|
|
|
2106 \doublespace % and spacing
|
|
|
2107 \plain@page@numbers % Page nos like plain's
|
|
|
2108
|
|
|
2109 % Note that normally in AmSTeX, the @ character may not be used.
|
|
|
2110 % But in the dissertation style, @ may be used as a normal character,
|
|
|
2111 % As it can in plain TeX.
|
|
|
2112 \catcode`\@=12
|
|
|
2113
|
|
|
2114 % Eat any further \documentstyle commands
|
|
|
2115 \def\documentstyle#1{}
|
|
|
2116
|
|
|
2117 % This prints out our welcome message, and it computes the time
|
|
|
2118 % and date string once per run, which saves time if they're used
|
|
|
2119 % more than once. Since \catcode`@=12 at the time this is
|
|
|
2120 % executed, it can't contain any @-type macros.
|
|
|
2121 \everyjob={%
|
|
|
2122 \begingroup
|
|
|
2123 \xdef\today{%
|
|
|
2124 \ifcase\month
|
|
|
2125 \the\month\or
|
|
|
2126 January\or
|
|
|
2127 February\or
|
|
|
2128 March\or
|
|
|
2129 April\or
|
|
|
2130 May\or
|
|
|
2131 June\or
|
|
|
2132 July\or
|
|
|
2133 August\or
|
|
|
2134 September\or
|
|
|
2135 October\or
|
|
|
2136 November\or
|
|
|
2137 December\else
|
|
|
2138 \the\month
|
|
|
2139 \fi\space\the\day, \the\year
|
|
|
2140 }%
|
|
|
2141 \count0=\time
|
|
|
2142 \count1=\count0
|
|
|
2143 \divide\count0by60
|
|
|
2144 \count2=\count0
|
|
|
2145 \multiply\count0by60
|
|
|
2146 \advance\count1by-\count0
|
|
|
2147 \ifnum\count2>11
|
|
|
2148 \ifnum\count2>12 \advance\count2by-12\fi
|
|
|
2149 \def\ampm{PM}%
|
|
|
2150 \else
|
|
|
2151 \ifnum\count2=0 \advance\count2by12\fi
|
|
|
2152 \def\ampm{AM}%
|
|
|
2153 \fi
|
|
|
2154 \xdef\daytime{%
|
|
|
2155 \ifnum\count2<10 0\fi \the\count2:%
|
|
|
2156 \ifnum\count1<10 0\fi \the\count1
|
|
|
2157 \ampm
|
|
|
2158 }%
|
|
|
2159 \endgroup
|
|
|
2160 \tell{AmSTeX Dissertation Style, version \version}%
|
|
|
2161 }
|
|
|
2162
|
|
|
2163 \edef\temp@uci{\the\everyjob}
|
|
|
2164 \temp@uci
|
