% Customize the dissertation style of AmS-TeX

\expandafter\ifx\csname documentstyle\endcsname\relax \input amstex\fi
\expandafter\ifx\csname ask\endcsname\relax \documentstyle{diss}\fi


\catcode`\@=11				% for a little while


% Figure Support

\def\tagfigure#1#2#3{%
    \figure{figure#1}{#2}%
    \ifundefined{#3}%
	\expandafter\let\csname#3\endcsname=\lastfigure
    \else
	\tell{Warning: #3 is already defined}%
    \fi
}

\def\tagdiagram#1#2#3{%
    \diagram{figure#1}{#2}%
    \ifundefined{#3}%
	\expandafter\let\csname#3\endcsname=\lastfigure
    \else
	\tell{Warning: #3 is already defined}%
    \fi
}

\def\tagtable#1#2#3{%
    \table{#2}%
    \input table#1\relax
    \endtable
    \ifundefined{#3}%
	\expandafter\let\csname#3\endcsname=\lasttable
    \else
	\tell{Warning: #3 is already defined}%
    \fi
}


% Page Numbering

\newif\ifdraft	\draftfalse

\def\draftstring{{\ifdraft \tt Draft\fi}}
\def\draftext{{\ifdraft \tt Draft \versiontag/ of \versiondate/\fi}}
\def\versiontag/{\errmessage{version.tex not loaded!}}
\let\versiondate=\versiontag
\def\uci@headpage{\draftext\hfil\rm\folio}
\def\uci@footpage{\draftstring\hfil\rm\folio\hfil\draftstring}


% Draft style

\def\draftstyle{%
    \quiet
	\drafttrue
	\nochapternumbers
    \verbose
}


% Article and Galley styles

\let\@articlestyle=\articlestyle

\outer\def\articlestyle{%
    \quiet
	\@articlestyle
	\input article
    \verbose
}

\outer\def\galleystyle{%
    \quiet
	\@articlestyle
	\input galley
    \verbose
}


% Theorems, Equations, and the like

\outer\def\proclaim #1. #2\par{%
    \medbreak\vskip-\parskip
    \begingroup
	\singlespace
	\noindent{\smallertype\sc#1.\enspace}{\sl#2}\par
    \endgroup
    \ifdim\lastskip<\medskipamount \removelastskip\penalty55\medskip\fi
}

\def\proof #1.{\lp{\smallertype\sc Proof of #1.\enspace}}

\def\thm#1{{\smallertype\sc#1}}

\def\eqn#1{\ifmmode {\it(#1\/)}\else $\it(#1\/)$\fi}


% TeX Hackery...

\def\!{\hbox{$\backslash$}}

\def\^{{\rm\char'136}}

\def\word#1{{\tt\!#1}}


% Miscellaneous Macros

\let\bop=\newpage

\def\lp{\par\noindent}

% usage: \boxit{text}
\def\boxit#1{%
    \leavevmode
    \thinspace
    \hbox{%
	\smallertype
	\vrule
	\vtop{%
	    \vbox{%
		\hrule\kern1pt
		\hbox{\vphantom{\sc/}\thinspace{\sc#1}\thinspace}
	    }%
	    \kern1pt\hrule
	}%
	\vrule
    }%
    \thinspace
}


% Trademarks...

\input trademark


% Parameters different than the AmS-TeX dissertation style

\quiet
    \dotopfigs
    \twosided
    \useolddigits
    \raggedbottom
    \raggedright
    \AuthorsInCSC
    \refdef@AmS\yr\oldstyle
    \halfspace
    \twelvepoint
\verbose


\catcode`\@=12				% back to normal


\let\dcustom=\empty