path: root/obsolete/macros/ytex/ybase.mac

% Copyright (c) 1985, 1986 Daniel C. Brotsky.  All rights reserved.
% Base macros for yTeX.  See the file YTEX.MAC for details.

% CONTENTS

% ^L-page       contents
% ----------------------------------------------------------------------
% 1             %% Helpful TeX82 macros built on Plain-AlmostCM TeX
% 2             %% handy hacks
% 3             %% more handy hacks
% 4             %% date and time
% 5             %% combinators
% 6             %% special chars
% 7             %% spacing
% 8             %% runners
% 9             %% glosses
% 10            %% inserts
% 11            %% output
% 12            %% page glue
% 13            %% paragraphs
% 14            %% textual displays
% 15            %% tables
% 16            %% titles
% 17            %% special pages
% 18            %% auxiliary files
% 19            %% initialization

\message{handy hacks,}

% some more scratch registers
\dimendef\dimen@ii=2
\skipdef\skip@i=1
\skipdef\skip@ii=2
\toksdef\toks@i=1
\toksdef\toks@ii=2

% quick names for character codes
\chardef\@ctive=13
\chardef\@ther=12
\chardef\@scape=0

% define variations on \vbox and \hbox
\let\vbottom=\vbox
\let\vopen=\relax
\let\hopen=\relax

% turn interlineskip off and on
\def\offinterlineskip {%
  \ifdim \lineskiplimit<\maxdimen
    \edef\oninterlineskip{\baselineskip=\the\baselineskip
      \lineskip=\the\lineskip \lineskiplimit=\the\lineskiplimit\relax}%
  \fi
  \baselineskip-1000\p@ \lineskip\z@ \lineskiplimit\maxdimen}
\let\oninterlineskip=\relax
\let\yesinterlineskip=\relax

% write token lists to the terminal
\def\toksmessage #{%
  \afterassignment\t@ksmessage
  \toks@=}
\def\t@ksmessage {\message{\the\toks@}}

% set/add to a token list or a macro
\def\etoks #1{\let\et@ks=#1\afterassignment\eto@s\et@ks}
\def\eto@s {\edef\next{\the\et@ks}\edef\next{\next}\et@ks=\expandafter{\next}}
\def\addtotoks #1{%
  \let\addtot@ks=#1%
  \afterassignment\addt@toks \toks@}
\def\addt@toks {%
  \edef\next{\the\addtot@ks\the\toks@}%
  \addtot@ks=\expandafter{\next}}
\def\addtodef #1#2{%
  \toks@=\expandafter{#1#2}\edef#1{\the\toks@}}
\def\pushtodef #1#2{%
  \toks@=\expandafter{#1}\toks@i={#2}\edef#1{\the\toks@i\the\toks@}}

% strip the \ and letters from the front of a csname, leave result in \next
{\catcode`\|=\@scape |catcode`\\=|@ther
 |gdef|stripn@me #1#2{%
   {|def|gobble \#1##1\{##1}%
    |global|edef|next{|expandafter|gobble|string#2\}}}}

% get the arg of a paired delimiter pair (arg is \endXXX)
%  N.B. Use this only within a local group: it clobbers itself
\def\get@rg #1{\def\get@rg ##1#1{\toks@={##1}#1}}

% get confirmation
\def\@yes{yes}
\def\@no{no}
\newif\ifyes
\def\yesornop #1{%
  \immediate\write\sixt@@n{}%
  \loop
    \message{#1 (yes or no) }%
    {\catcode`\^^M=14\relax \global\read\m@ne to\next}
    \ifx\next\@yes \global\yestrue
    \else\ifx\next\@no \global\yesfalse
    \else\let\next\yesornop \fi\fi
  \ifx\next\yesornop \repeat}
\def\askuser #1#2{%
  \immediate\write\sixt@@n{}%
  \message{#2}%
  {\catcode`\^^M=14\relax \global\read\m@ne to#1}}
\def\askuserline #1#2{%
  \immediate\write\sixt@@n{}%
  \immediate\write\sixt@@n{#2}%
  {\catcode`\^^M=14\relax \global\read\m@ne to#1}}

% \input manipulations
\newwrite\tfil@
\def\maybeinput #1 {%
  \yesornop {Input file #1?}%
  \ifyes \input #1 \fi}
\def\@input #1#2{%
  \openin\tfil@=#1 %
  \ifeof\tfil@ #2\else \closein\tfil@ \input #1 \fi}
\def\@input@ #1#2{%
  \openin\tfil@=#1 %
  \ifeof\tfil@
    \closein\tfil@\openin\tfil@=\ytexlibrary #1 %
    \ifeof\tfil@ #2\else \closein\tfil@ \input \ytexlibrary #1 \fi
  \else \closein\tfil@ \input #1 \fi}

% set a skip parameter with explicit dimen, glue, and factor
\def\setskip {\afterassignment\setski@\let\next=}
\def\setski@ \dimen{\afterassignment\setsk@p\dimen@}
\def\setsk@p \glue{\afterassignment\s@tskip\skip@}
\def\s@tskip \factor{\dimen@i=\skip@\advance\skip@ by-\dimen@i
                     \afterassignment\s@tsk@p\multiply\skip@ by}
\def\s@tsk@p {\divide\skip@ by\@m\advance\skip@ by\dimen@ \next=\skip@}

% skip the stretch amount of glue but not the dimen amount
\def\vstretch {\afterassignment\vstr@tch\skip@=}
\def\vstr@tch {\dimen@=\skip@ \advance\skip@ by-\dimen@ \vskip\skip@}

% manipulate special chars
\def\addspecial #1{\addtodef\dospecials{\do#1}}
\def\specials@ther {%
  \relax\iffalse{\fi                    % gross hackery for tables
  \def\do##1{\catcode`##1=\@ther}\dospecials
  \iffalse}\fi\relax}

% make active space and CR be the arg
% get a token which is \ifx-equal to active space
{\obeylines%
 \gdef\activelines #1{\catcode`\^^M=\@ctive \let^^M=#1\relax}%
} % end of def group
{\obeyspaces
 \gdef\activespaces#1{\obeyspaces\let =#1\relax\let\sp@ce= \relax}%
} % end of def group

\message{date and time,}

\newcount\hour \newcount\minute

\def\st@rttime {%
  \hour=\the\time \minute=\the\time
  \divide\hour by 60 \multiply\hour by 60%
  \advance\minute by -\hour \divide\hour by 60%
  \edef\daytime{\number\hour:\ifnum \minute<10 0\fi\number\minute}%
  \edef\monthname {\ifcase\month \or
    January\or February\or March\or April\or May\or June\or
    July\or August\or September\or October\or November\or December\fi}%
  \edef\monthshortname {\ifcase\month \or
    Jan\or Feb\or Mar\or Apr\or May\or Jun\or
    Jul\or Aug\or Sep\or Oct\or Nov\or Dec\fi}%
  {\def\gobble ##1##2##3##4{##3##4}%
   \global\edef\shortyear{\expandafter\gobble\number\year}}%
  \edef\date{\monthname~\number\day,~\number\year}%
  \edef\shortdate{\number\day~\monthshortname~\number\shortyear}%
  \edef\slashdate{\number\month/\number\day/\number\shortyear}}

\message{combinators,}

% spreads
{\let\newdimen=\relax                   % allow next def
\gdef\newspread #1\setup #2\endnew{%
  \stripn@me{}#1%
  \expandafter\newdimen\csname \next width\endcsname
  \toks@={\hbox to}\toks@i={\bgroup #2\spre@d}%
  \edef#1##{\the\toks@\expandafter\noexpand\csname \next width\endcsname
            \the\toks@i}}
} % end of def group
\def\spre@d #1{%
  \setbox\z@=\hbox{#1\Hss}%
  \futurelet\next\spr@ad}
\def\spr@ad {%
  \ifcat \bgroup\noexpand\next
    \hbox to\z@{\hss\unhbox\z@\hss}\hfil
    \let\next=\spr@@d
  \else
    \hbox to\z@{\hss\unhbox\z@}%
    \let\next=\egroup
  \fi \next}
\def\spr@@d #1{%
  \setbox\z@=\hbox{#1}%
  \futurelet\next\spr@ad}

% text wrappers
\long
\def\newtextwrap #1\box #2\setup #3%
                   \before #4\after #5%
                   \begin #6\end #7\endnew{%
  \stripn@me{}#1%
  \toks@={#4\begingroup #3\relax #2}%
  \edef#1{%
    \the\toks@ \expandafter\noexpand\csname read@\next\endcsname}%
  \toks@={\bgroup #6}\toks@i={#7\egroup\endgroup #5}%
  \long
  \expandafter\edef\csname read@\next\endcsname ##1{%
    \the\toks@ ##1\the\toks@i}}

\message{special chars,}

% ` needs can be directed backquote
\addspecial\`
\let\agr@ve=\`
\def\bqm@cro {\char"12\relax}
\def\makebbqaccent {\let\`=\agr@ve}
\def\makebbqquote  {\let\`=\bqm@cro}
{\catcode`\`=\@ctive\relax
 \gdef\makebqspecial {\catcode"60=\active\relax \let`=\bqm@cro}
 \gdef\makebqnormal  {\catcode"60=\@ther \chardef`="60\relax}
} % end of def group


% & and # need to be `ordinary' characters for lisp
\def\makeandother {\catcode`\&=\@ther}
\def\makeandalign {\catcode`\&=4\relax}
\def\makesharpother {\catcode`\#=\@ther}
\def\makesharpparam {\catcode`\#=6\relax}

% < and > can be angle brackets in text
\addspecial\<
\addspecial\>
\let\@@lt=< \let\@@gt=>
{\catcode`\<=\@ctive \catcode`\>=\@ctive \relax
 \gdef\makelgtbrackets{%
   \catcode`\<=\@ctive \catcode`\>=\@ctive\relax
   \def<{\ifmmode\@@lt\else$\m@th\langle$\fi}%
   \def>{\ifmmode\@@gt\else$\m@th\rangle$\fi}%
   \sl@shifylgt}}
\def\sl@shifylgt {%
  \def\<{\ifmmode\@@lt\else$\m@th\@@lt$\fi}%
  \def\>{\ifmmode\@@gt\else$\m@th\@@gt$\fi}}
\def\makelgtother {%
  \catcode`\<=\@ther\catcode`\>=\@ther
  \def\<{\relax \ifmmode \langle \else $\langle$\fi}
  \def\>{\relax \ifmmode \rangle \else $\rangle$\fi}}

\message{spacing,}

% vertical glue
\def\vgluefil {\vglue \z@ plus1fil\relax}
\def\vgluefill {\vglue \z@ plus1fill\relax}
\def\Vss {\vskip \z@ plus1fill minus1fill\relax}
\def\VSS {\vskip \z@ plus1filll minus1filll\relax}

% horizontal glue
\def\hfilll {\hskip \z@ plus1filll\relax}
\def\hfilllneg {\hskip \z@ plus-1filll\relax}
\def\Hss {\hskip \z@ plus1fill minus1fill\relax}
\def\HSS {\hskip \z@ plus1filll minus1filll\relax}

% glue amounts
\newskip\fillskip \fillskip=\z@ plus1fill
\newskip\filskip  \filskip=\z@ plus1fil
\newskip\zeroskip \zeroskip=\z@
\newskip\emskip   \emskip=1em

% page glue
\def\filpage {\par\vfil\eject}
\def\superfilpage {\par\vfil\supereject}

% paragraph glue
\def\linebreak {\ifhmode\nobreak\hskip\z@ plus1fil\break\fi}

% require minimum vertical space
\def\minskip {\afterassignment\m@nskip\skip@}
\def\m@nskip {%
  \ifdim \lastskip<\skip@
    \nobreak \vskip-\lastskip \vskip\skip@ \fi}
\def\minbreak {\afterassignment\m@nbreak\count@}
\def\m@nbreak {\afterassignment\m@nbre@k\skip@}
\def\m@nbre@k {%
  \ifdim \lastskip<\skip@
    \nobreak \vskip-\lastskip \penalty\count@ \vskip\skip@ \fi}
\def\dobreak {\afterassignment\d@break\count@}
\def\d@break {\afterassignment\d@bre@k\skip@}
\def\d@bre@k {\penalty\count@ \vskip\skip@}

\message{runners,}

% control of runners
\newif\ifheaders
\newif\iffooters
\let\res@theaders=\relax
\let\res@tfooters=\relax
\def\res@trunners {\res@theaders \res@tfooters}
\def\noheaders {\global\headersfalse}
\def\nofooters {\global\footersfalse}
\def\norunners {\noheaders \nofooters}
\def\yesheaders {\global\headerstrue}
\def\yesfooters {\global\footerstrue}
\def\yesrunners {\yesheaders \yesfooters}
\def\offheaders {\noheaders \let\res@theaders=\noheaders}
\def\offfooters {\nofooters \let\res@tfooters=\nofooters}
\def\offrunners {\offheaders \offfooters}
\def\onheaders {\yesheaders \let\res@theaders=\yesheaders}
\def\onfooters {\yesfooters \let\res@tfooters=\yesfooters}
\def\onrunners {\onheaders \onfooters}
\res@trunners

% preserve marks in a stable place
\let\m@rk=\mark
\let\firstm@rk=\firstmark
\let\topm@rk=\topmark
\let\botm@rk=\botmark

% contents of headers and footers
\newif\iftwosided

\newtoks\rectoheader
\newtoks\versoheader
\newtoks\rectofooter
\newtoks\versofooter

\message{glosses,}

% control of glosses
\newif\iftopgloss
\newif\ifbottomgloss
\let\res@ttopgloss=\relax
\let\res@tbottomgloss=\relax
\def\res@tglosses {\res@ttopgloss \res@tbottomgloss}
\def\notopgloss {\global\topglossfalse}
\def\nobottomgloss {\global\bottomglossfalse}
\def\noglosses {\notopgloss \nobottomgloss}
\def\yestopgloss {\global\topglosstrue}
\def\yesbottomgloss {\global\bottomglosstrue}
\def\yesglosses {\yestopgloss \yesbottomgloss}
\def\offtopgloss {\notopgloss \let\res@ttopgloss=\notopgloss}
\def\offbottomgloss {\nobottomgloss \let\res@tbottomgloss=\nobottomgloss}
\def\offglosses {\offtopgloss \offbottomgloss}
\def\ontopgloss {\yestopgloss \let\res@ttopgloss=\yestopgloss}
\def\onbottomgloss {\yesbottomgloss \let\res@tbottomgloss=\yesbottomgloss}
\def\onglosses {\ontopgloss \onbottomgloss}
\res@tglosses

% contents of glosses
\newtoks\topgloss
\newtoks\bottomgloss

\message{inserts,}

% storage for the inserts
\newinsert\topfloat
\countdef\topmag=\topfloat \topmag=1000
\dimendef\topmax=\topfloat \topmax=\maxdimen
\newtoks\topsep            \topsep={}

\newinsert\botfloat
\countdef\botmag=\botfloat \botmag=1000
\dimendef\botmax=\botfloat \botmax=\maxdimen
\newtoks\botsep            \botsep={}

% inserts which always float
\long
\def\newfloat #1\type #2\floatsetup #3\setup #4%
                \floatabove #5\floatbelow #6%
                \begin #7\end #8\endnew {%
  \stripn@me{}#1%
  \toks@={\insert#2\bgroup #3\relax #5\relax #4\relax #7}%
  \expandafter\edef\csname begin\next\endcsname {%
    \the\toks@}%
  \toks@={#8\relax #6\egroup}%
  \expandafter\edef\csname end\next\endcsname {%
    \the\toks@}%
  \long
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}}

\long
\def\newpagefloat #1\type #2\floatsetup #3\setup #4%
                    \above #5\below #6%
                    \begin #7\end #8\endnew {%
  \stripn@me{}#1%
  \toks@={#4\setbox\z@=\vbox\bgroup #7}%
  \expandafter\edef\csname begin\next\endcsname {%
    \begingroup \the\toks@}%
  \toks@={#8\egroup
    \insert#2{#3\relax
      \dimen@=\dp\z@
      \vbox to\vsize{#5\unvbox\z@#6\kern-\dimen@}}}%
  \expandafter\edef\csname end\next\endcsname {%
    \the\toks@ \endgroup}%
  \long
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}}

% inserts which sometimes float
\long
\def\newfitfloat #1\type {%
  \stripn@me{}#1%
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}%
  \newfitfl@at}
\def\newfitfl@at #1\floatsetup #2\setup #3%
                   \floatabove #4\floatbelow #5%
                   \above #6\below #7%
                   \begin #8\end #9\endnew {%
  \toks@={\setbox\z@=\vbox\bgroup #3\relax #8}%
  \expandafter\edef\csname begin\next\endcsname {%
    \the\toks@}%
  \toks@={#9\egroup
    \dimen@=\ht\z@ \advance\dimen@\dp\z@
    \advance\dimen@\baselineskip \advance\dimen@\pagetotal
    \ifdim \dimen@>\pagegoal
      \insert#1{#2\relax #4\unvbox\z@#5}%
    \else
      #6\unvbox\z@#7\relax
    \fi}%
  \expandafter\edef\csname end\next\endcsname {%
    \the\toks@}}

\message{output,}

% output routine parameters
\newif\iftrimpages
\newdimen\topglossdrop
\newdimen\bottomglossdrop
\newdimen\footerdrop
\newdimen\headerdrop

% output routine
\def\ytexoutput {%
  \iftrimpages \trimp@ge\fi
  \shipout\vbox to9truein{% center box on 8.5x11 page (DVI starts at 1,1)
    \vss
    \hbox to6.5truein{%
      \hss
      \vbox{%
        \offinterlineskip
        \iftopgloss
          \vbox to\z@{\vss\line{\the\topgloss}\vskip\topglossdrop}\fi
        \ifheaders\makeheadline\fi
        \pagebody
        \iffooters\makefootline\fi
        \ifbottomgloss
          \vbox to\z@{\vskip\bottomglossdrop\line{\the\bottomgloss}\vss}\fi
        }% end of contents \vbox
      \hss}% end of centering \hbox
    \vss}% end of centering \vbox
  \advancepageno
  \res@trunners
  \res@tglosses
  \ifnum\outputpenalty>-\@MM \else\dosupereject\fi}

\def\makeheadline {%
  \vbox to\z@{%
    \vss
    \iftwosided
      \ifodd\pageno \line{\the\rectoheader}%
        \else \line{\the\versoheader}\fi
      \else
        \line{\the\rectoheader}\fi
    \vskip \headerdrop}}

\def\makefootline {%
  \vbox to\z@{%
    \vskip \footerdrop
    \nointerlineskip
    \iftwosided
      \ifodd\pageno \line{\the\rectofooter}%
        \else \line{\the\versofooter}\fi
      \else
        \line{\the\rectofooter}\fi
    \vss}}

\def\pagebody {%
  \vbox to\vsize{\boxmaxdepth\maxdimen \pagecontents}}

\def\pagecontents {%
  \dimen@i=\ht\@cclv \advance\dimen@i\dp\@cclv
  \ifvoid\topfloat\else
    \dimen@=\ht\topfloat \advance\dimen@\dp\topfloat
    \unvbox\topfloat
    \ifdim \dimen@>\z@ \ifdim\dimen@i>\z@ \the\topsep\fi\fi
  \fi
  \dimen@ii=\dp\@cclv \unvbox\@cclv
  \ifvoid\botfloat\else
    \dimen@=\ht\botfloat \advance\dimen@\dp\botfloat
    \ifdim \dimen@>\z@ \ifdim\dimen@i>\z@ \the\botsep\fi\fi
    \unvbox\botfloat
  \fi
  \ifr@ggedbottom \kern-\dimen@ii \vfil \fi}

\message{page glue,}

\newif\ifts@

{\catcode`\0=12\relax
 \catcode`\.=12\relax
 \catcode`\p=12\relax
 \catcode`\t=12\relax
 \gdef\nullgl@e{0.0pt}
}   %end of catcode group

\def\ifnullskip {%
  \edef\next{\the\lastskip}%
  \ifx\next\nullgl@e}

\def\trimp@ge {%
  \setbox0=\vbox{\unvbox\@cclv
    \loop \ts@false
      \ifnum\lastpenalty=\z@ \else\unpenalty \ts@true \fi
      \ifnullskip \else\unskip \ts@true \fi
      \ifts@ \repeat}
  \setbox\@cclv=\box0}

% hack to make \break, \allowbreak, and friends work
\def\break {\penalty\z@\penalty-\@M}
\def\allowbreak {\penalty-\@ne}
\def\supereject {\par\penalty\z@\penalty-\@MM}

\message{paragraphs,}

% force no indent on next par
\def\rem@veindent {\everypar={\setbox0=\lastbox\everypar={}}}

% neutral paragraphing groups
\def\beginpgroup {\begingroup \everypar={}}
\def\endpgroup {\endgraf \endgroup}
\def\bpgroup {\bgroup \everypar={}}
\def\epgroup {\endgraf \egroup}

\long
\def\newpar #1\argtext #2\setup #3\vestindent #4\starter #5\endnew {%
  \def\next{#4}%
  \ifx\next\empty \def#1#2{#3\relax#5}
  \else \def#1#2{#3\relax \hangindent #4\hangafter \@ne #5}\fi}

% turn indentation off and on
\def\offindent {%
  \ifdim \parindent>\z@ \edef\onindent{\parindent=\the\parindent}\fi
  \parindent=\z@}
\let\onindent=\relax
\let\yesindent=\indent

% create new element with associated skips and penalties
{\let\newskip=\relax \let\newcount=\relax       % allow next def
\long
\gdef\newelement #1\setup #2\above #3\below #4\begin #5\end #6\endnew{%
  \stripn@me{}#1%
  \expandafter\newskip\csname above\next skip\endcsname
  \expandafter\newskip\csname below\next skip\endcsname
  \expandafter\newcount\csname pre\next penalty\endcsname
  \expandafter\newcount\csname post\next penalty\endcsname
  \toks@={\endgraf #3\begingroup #2\relax #5}%
  \expandafter\edef \csname begin\next \endcsname {%
    \the\toks@}%
  \toks@={#6\endgroup #4}%
  \expandafter\edef \csname end\next \endcsname {%
    \the\toks@}%
  \long
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}}
} % end of def group

\message{textual displays,}

% nofill
\def\setupnofill {%
  \parskip=\z@
  \def\par{\endgraf}% empty lines not preserved
  \obeylines
  \activespaces\ }

% textual displays
{\obeylines                             % defs using ^^M
\long%
\gdef\newtext #1\display #2\setup #3\begin #4\end #5\endnew{%
  \stripn@me{}#1%
  \toks@={$$#2\halign\bgroup ##\cr \noalign\bpgroup #3%
          \begingroup \obeylines}%
  \expandafter\edef\csname begin\next \endcsname {%
    \the\toks@ \expandafter\noexpand\csname re@d\next \endcsname}%
  \toks@={\endgroup #4}%
  \expandafter\edef\csname re@d\next \endcsname ##1^^M{%
    \the\toks@##1}%
  \toks@={#5\epgroup\egroup$$}%
  \expandafter\edef\csname end\next \endcsname {%
    \the\toks@}}%
} % end of def group

% verbatim material (mostly from TeXbook)
\def\setupverbatim {%
  \specials@ther
  \setupnofill}

\long
\def\newverbatim #1\begincs #2\readcs #3\endcsname #4%
                   \display #5\setup #6\begin #7\end #8\endnew{%
  \toks@={$$#5\halign\bgroup ##\hfil\cr
              \noalign\bpgroup \setupverbatim #6#3}%
  \edef#2{\the\toks@}%
  \makev@rbatim{#3}{#4}{#7}{#8}}
{\obeylines \catcode`\|=\@scape \catcode`\\=\@ther %
 |long%
 |gdef|makev@rbatim#1#2#3#4{%
   |toks@={#3}|toks@i={#4|epgroup|egroup$$}%
   |edef#1##1^^M##2\#2{|the|toks@##1##2|the|toks@i}}}

\message{tables,}

% preamble specification analysis
\newif\ifmoresp@c
\def\esp@cl {\esp@cl}                   % null spec list marker
\newtoks\sp@c
\newtoks\sp@cl
\newtoks\pre@mble
\newtoks\pad@mble
\newtoks\prep@rt
\newtoks\padp@rt

% table dimensions and tabskip glue
\newtoks\tablespec
\def\tablewidth {\afterassignment\t@blewidth\dimen@}
\def\t@blewidth {%
  \ifdim\dimen@>\z@ \edef\next{to\the\dimen@}\else
  \ifdim\dimen@<\z@ \edef\next{expand\the\dimen@}\else
                    \edef\next{}\fi\fi
  \tablespec=\expandafter{\next}}
\newskip\pretabskip
\newskip\intabskip
\newskip\posttabskip
\newtoks\tablestyle
\newdimen\padheight                     % height of padding around lines
\newdimen\hbarheight                    % height of horizontal lines
\newdimen\dhbarheight                   % height of "double" horizontal lines
\newdimen\vbarwidth                     % width of normal vertical bars
\newdimen\dvbarwidth                    % width of "double" vertical bars

\def\makepre@mblepart #1{%
  \padp@rt={\omit\vrule width\z@ height\padheight depth\z@ \relax#1}%
  \if l\noexpand\sp@@ \prep@rt={##\hfil\strut#1}\else
  \if L\noexpand\sp@@ \prep@rt={$\the\tablestyle ##$\hfil\strut#1}\else
  \if c\noexpand\sp@@ \prep@rt={\hfil##\hfil\strut#1}\else
  \if C\noexpand\sp@@ \prep@rt={\hfil$\the\tablestyle ##$\hfil\strut#1}\else
  \if r\noexpand\sp@@ \prep@rt={\hfil##\strut#1}\else
  \if R\noexpand\sp@@ \prep@rt={\hfil$\the\tablestyle ##$\strut#1}\else
  \if |\noexpand\sp@@ \prep@rt={\vrule width\vbarwidth###1}%
                      \padp@rt={height\padheight#1}\else
  \if "\noexpand\sp@@ \prep@rt={\vrule width\dvbarwidth###1}%
                      \padp@rt={height\padheight#1}\else
  \if &\noexpand\sp@@ \prep@rt={&}\padp@rt={&}\else
  \ifx \sp@@\tabskip  \prep@rt=\expandafter{\the\sp@c}\padp@rt={}%
  \else               \prep@rt=\expandafter{\the\sp@c#1}%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\makepre@mble {%
  \sp@cl=\expandafter{\the\sp@cl\esp@cl}% avoid {arg} at end of \sp@cl
  \pre@mble={\tabskip\intabskip}\pad@mble={}%
  \def\breaksp@c##1##2\@nd{\sp@c={##1}\sp@cl={##2}}%
  \def\firstsp@c{\futurelet\sp@@\f@rstspec}\def\f@rstspec##1\@nd{}%
  \loop
    \expandafter\breaksp@c\the\sp@cl\@nd
    \expandafter\firstsp@c\the\sp@c\@nd
    \edef\next{\the\sp@cl}%
    \ifx \next\esp@cl \moresp@cfalse \makepre@mblepart{}%
    \else             \moresp@ctrue  \makepre@mblepart&\fi
    \addtotoks\pre@mble\prep@rt
    \addtotoks\pad@mble\padp@rt
    \ifmoresp@c \repeat
  \pre@mble=\expandafter{\the\pre@mble\tabskip\posttabskip\cr}%
  \pad@mble=\expandafter{\the\pad@mble\cr}}

\def\checkpre@mble {%
  \edef\next{\the\sp@cl}%
  \ifx\next\empty
    \errhelp={Just continue and I'll use left-justified columns.}%
    \errmessage{Empty table preamble.}%
    \sp@cl={&l}\fi}

\long
\def\newtable #1\leftdelim #2\rightdelim #3%
              \before #4\after #5%
              \begin #6\end #7\endnew{%  create a table macro
  \stripn@me{}#1%
  \toks@={\begingroup}\toks@i={\checkpre@mble \setuph@lign
          #4\offinterlineskip
          \halign\the\tablespec \bgroup\span\the\pre@mble #6}%
  \expandafter\edef\csname begin\next \endcsname #2##1#3{%
    \the\toks@ \sp@cl={##1}\the\toks@i}%
  \toks@={#7\crcr\egroup#5\endgroup}%
  \expandafter\edef\csname end\next \endcsname {%
    \the\toks@}%
  \long
  \edef#1#2##1#3##2{%
    \expandafter\noexpand\csname begin\next\endcsname #2##1#3%
    ##2\expandafter\noexpand\csname end\next\endcsname}}

\def\setuph@lign {%
  \makepre@mble
  \let\explicitcr=\relax
  \def\implicitcr{\let\par=\crcr\obeylines}%
  \let\\=\crcr
  \def\inline{\noalign{\hrule height\hbarheight}}%
  \def\dinline{\noalign{\hrule height\dhbarheight}}%
  \edef\topline{\noexpand\inline\the\pad@mble}%
  \edef\midline{\the\pad@mble\noexpand\inline\the\pad@mble}%
  \edef\botline{\the\pad@mble\noexpand\inline}%
  \edef\dtopline{\noexpand\dinline\the\pad@mble}%
  \edef\dmidline{\the\pad@mble\noexpand\dinline\the\pad@mble}%
  \edef\dbotline{\the\pad@mble\noexpand\dinline}%
  \def\padline {\noalign\bgroup\global\dimen@=\padheight
                \afterassignment\padlin@\global\padheight=}%
  \def\padlin@ {\global\edef\next{\the\pad@mble
                \noalign{\global\padheight=\the\dimen@}}\egroup \next}%
  \tabskip\pretabskip}

\message{titles,}

\def\ts@ttings {%
  \spaceskip=.3333em \xspaceskip=.5em
  \pretolerance=9999 \tolerance=9999 \hbadness=9999
  \hyphenpenalty=10000 \exhyphenpenalty=10000
  \def\linebreak{\ifhmode\break\fi}%
  \let\cr=\linebreak \let\crcr=\linebreak \def\\{\linebreak\ignorespaces}%
  \offindent}

\def\titleleft #1#2{%
  \leftskip=\z@ \rightskip=\z@ plus.25\hsize
  \advance\leftskip by#1\advance\rightskip by#2%
  \parfillskip=\z@ plus1fil
  \ts@ttings}

\def\titlecenter #1#2{%
  \leftskip=\z@ plus.125\hsize \rightskip=\leftskip
  \advance\leftskip by#1\advance\rightskip by#2%
  \parfillskip=\z@
  \ts@ttings}

\def\titleright #1#2{%
  \leftskip=\z@ plus.25\hsize \rightskip=\z@
  \advance\leftskip by#1\advance\rightskip by#2%
  \parfillskip=\z@
  \ts@ttings}

\long
\def\newtitle #1\box #2\shape #3%
                \font #4\setup #5\begin #6\end #7\endnew{%
  \stripn@me{}#1%
  \toks@={#2\bgroup #4\relax #3\relax #5\relax #6}%
  \expandafter\edef\csname begin\next\endcsname {%
    \the\toks@}%
  \toks@={#7\endgraf\egroup}%
  \expandafter\edef\csname end\next\endcsname {%
    \the\toks@}%
  \long
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}}

\message{special pages,}

% get to a recto page
\def\rectoeject {\par
  \filpage
  \iftwosided
    \ifodd\pageno
      \else \ymessage{{Force recto}}\norunners\null\vfil\eject \fi\fi
  \norunners}

\def\rectosupereject {\par
  \superfilpage
  \iftwosided
    \ifodd\pageno
      \else \ymessage{{Force recto}}\norunners\null\vfil\eject \fi\fi
  \norunners}

% special pages
\long
\def\newpage #1\setup #2\glue #3\begin #4\end #5\endnew{%
  \stripn@me{}#1%
  \toks@={\rectoeject \beginpgroup #2\relax \hrule width\z@\relax #3 #4}%
  \expandafter\edef\csname begin\next \endcsname {%
    \the\toks@}%
  \toks@={#5\relax #3\endpgroup\eject}%
  \expandafter\edef\csname end\next \endcsname {%
    \the\toks@}%
  \long
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}}

\long
\def\newsuperpage #1\setup #2\glue #3\begin #4\end #5\endnew{%
  \stripn@me{}#1%
  \toks@={\rectosupereject \beginpgroup #2\relax \hrule width\z@\relax #3 #4}%
  \expandafter\edef\csname begin\next \endcsname {%
    \the\toks@}%
  \toks@={#5\relax #3\endpgroup\eject}%
  \expandafter\edef\csname end\next \endcsname {%
    \the\toks@}%
  \long
  \edef#1##1{\expandafter\noexpand\csname begin\next\endcsname
             ##1\expandafter\noexpand\csname end\next\endcsname}}

\message {auxiliary files,}

\newif\ifauxfiles

\def\@uxfiles {}
\def\add@uxfile #1{\addtodef\@uxfiles{\do@ux#1}}
\def\map@uxfiles #1{\let\do@ux=#1\@uxfiles}

\def\forgetauxfiles {\def\@uxfiles{}}

\def\perjob {perjob}

{\let\newwrite=\relax                   % allow next def
\gdef\newaux #1\filename #2\extension #3\endnew{%
  \stripn@me{}#1%
  \edef#1{#3}%
  \expandafter\newwrite\csname \next @ut\endcsname
  \expandafter\let\csname write\next \endcsname=\bad@uxwrite
  \expandafter\edef\csname begin\next \endcsname{%
    \expandafter\noexpand\csname input\next \endcsname
    \expandafter\noexpand\csname open\next \endcsname}%
  \expandafter\edef\csname end\next \endcsname{%
    \expandafter\noexpand\csname close\next \endcsname}%
  \ifx #2\perjob
    \add@uxfile #1%
    \expandafter\def\csname input\next \endcsname{\input@ux#1\jobname}%
    \expandafter\def\csname open\next \endcsname{\open@ux#1\jobname}%
    \expandafter\def\csname close\next \endcsname{\close@ux#1}%
  \else
    \expandafter\def\csname input\next \endcsname{\input@ux#1{#2}}%
    \expandafter\def\csname open\next \endcsname{\open@ux#1{#2}}%
    \expandafter\def\csname close\next \endcsname{\close@ux#1}%
  \fi}
} % end of def group

\def\bad@uxwrite #1{%
  \ifauxfiles
    \errhelp={I will write to your log file instead.}%
    \errmessage{Writing on an unopened auxiliary file.}%
    \write\m@ne{#1}%
  \fi}

\def\input@ux #1#2{%
  \ifauxfiles \@input{#2.#1}{\ywarning{{No file #2.#1}}}\fi}

\def\open@ux #1#2{%
  \stripn@me{}#1%
  \ifauxfiles
    \immediate\expandafter\openout\csname \next @ut\endcsname=#2.#1 %
    \expandafter\edef\csname write\next \endcsname {%
      \write \expandafter\noexpand\csname \next @ut\endcsname}%
    \immediate\csname write\next \endcsname{\relax}%
  \else
    \expandafter\edef\csname write\next \endcsname {%
      \write\m@ne}%
  \fi}

\def\close@ux #1{%
  \stripn@me{}#1%
  \ifauxfiles \immediate\expandafter\closeout\csname \next @ut\endcsname \fi
  \expandafter\let\csname write\next \endcsname=\bad@uxwrite}
  
\def\input@uxfile #1{\input@ux#1\jobname}
\def\input@uxfiles {\map@uxfiles\input@uxfile}
\def\open@uxfile #1{\open@ux#1\jobname}
\def\open@uxfiles {\map@uxfiles\open@uxfile}
\def\close@uxfiles {\map@uxfiles\close@ux}

\def\beginjob {\input@uxfiles \open@uxfiles}
\def\endjob {\superfilpage \close@uxfiles \end}

\message{initialization,}

% page layout
\trimpagesfalse
\offheaders
\offfooters
\twosidedfalse
\topglossfalse
\bottomglossfalse
\topglossdrop=2.5pc
\bottomglossdrop=2.5pc
\headerdrop=1.25pc
\footerdrop=1.25pc

% tables
\tablewidth=0pt
\intabskip=\emskip
\pretabskip=\filskip
\posttabskip=\filskip
\padheight=2pt
\tablestyle={\displaystyle}
\hbarheight=.4pt
\dhbarheight=1pt
\vbarwidth=.4pt
\dvbarwidth=1pt

% auxiliary files
\auxfilestrue

% special chars
\makebqnormal
\makebbqaccent
\makeandalign
\makesharpparam
\makelgtother