blob: 7fde01e36df5b450b8fd79f79fb4e302de187bf8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
% LaTeX customization for XXX
\makeatletter
\typeout{LaTeX customization 'XXXcustom'. Version 1.00 - released 17 June 1985
}
% plain TeX compatibility
\def\oldstyle{\xdef\@oldstyle{\the\textfont\@ne}\mit\@oldstyle}
% Compatibility with XXX-TeX
\def\smaller{\footnotesize} % smaller than small
\let\nfootnote=\footnote
\let\tell=\typeout
\def\implies{\quad\supset\ }
\def\tdots{\ldots\thinspace}
\let\bop=\newpage
\def\hbreak{\hfil\break}
\def\lp{\par\noindent}
\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
\def\boxit#1{\fbox{\sc#1}}
% Draft Stuff
\newif\ifdraft \draftfalse
\def\draftstring{{\ifdraft \tt Draft\fi}}
\def\ds@DScustom{\ifdraft \@ifundefined{ds@draft}{}{\ds@draft}\fi}
% Extras
\newdimen\extra@wid \extra@wid=\z@
\def\extra#1#2{%
\setbox\z@=\hbox{#2:\quad}
\ifnum\extra@wid<\wd\z@ \extra@wid=\wd\z@\fi
\def#1##1{%
\nobreak
\extra@skip
\vbox{%
\def\@filler{#2:\hfil\global\let\@filler=\empty}%
\let\\=\cr
\tabskip=\z@
\halign{%
\hbox to\extra@wid{\@filler}\ignorespaces####\unskip\hfil\cr
##1\cr
}%
}%
\nobreak
}%
}
\def\extra@skip{%
\vskip 2\baselineskip
\def\extra@skip{\vskip .15in}%
}
% Miscellany
\def\bigquote#1\endbigquote{%
\begin{quote}
\noindent\llap{``}\ignorespaces#1\unskip''
\end{quote}
}
% Double Spacing Macro
\def\doublespace{
\baselineskip=2\baselinestretch pt
}
\def\XXXAA{\leavevmode\setbox0\hbox{h}\dimen@\ht0\advance\dimen@-1ex%
\rlap{\kern+.45ex\raise.67\dimen@\hbox{\char'27}}A}
\makeatother
|