tex2pagedeprecated.tex

% last change 2018-06-14

\let\maybeendinput\relax
\ifx\shipout\UnDeFiNeD
  \let\maybeendinput\endinput
\fi\maybeendinput

\input plainsection
\input defun

\edef\atcatcodebeforetexzpage{%
  \noexpand\catcode`\noexpand\@=\the\catcode`\@}
\catcode`\@11


%

\csname plaintextweaks\endcsname

%

\def\emph{\bgroup\it
  \ifmmode\else\aftergroup\italiccorrection\fi
  \let\dummy=}

\def\begin#1{\begingroup
  \def\end##1{\csname end#1\endcsname\endgroup}%
  \csname #1\endcsname}

%\def\hr{\smallskip\line{\leaders\hbox{~.~}\hfill}\smallskip}

%

% don't let caps disable end-of-sentence spacing -- assumes we won't use
% dots after caps for abbrevs

\def\nocapdot{%
\count255=`\A
\loop
\sfcode\the\count255=1000
\ifnum\count255<`\Z
\advance\count255 by 1
\repeat
}

% " -->  `` or ''

\def\smartdoublequotes{%
  \defcsactive\"{\futurelet\smartdoublequotesI
    \smartdoublequotesII}%
  \def\smartdoublequotesII{%
    \ifcat\noexpand\smartdoublequotesI a``\else
    \if\noexpand\smartdoublequotesI 0``\else
    \if\noexpand\smartdoublequotesI 1``\else
    \if\noexpand\smartdoublequotesI 2``\else
    \if\noexpand\smartdoublequotesI 3``\else
    \if\noexpand\smartdoublequotesI 4``\else
    \if\noexpand\smartdoublequotesI 5``\else
    \if\noexpand\smartdoublequotesI 6``\else
    \if\noexpand\smartdoublequotesI 7``\else
    \if\noexpand\smartdoublequotesI 8``\else
    \if\noexpand\smartdoublequotesI 9``\else
    ''\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
}

%

\def\emailliketext{\nocapdot\smartdoublequotes}

%

\def\gobbleencl{\bgroup
  \def\do##1{\catcode`##1=12 }\dospecials
  \catcode`\{1 \catcode`\}2 \catcode`\^^M=9
  \futurelet\gobbleenclQnext\gobbleenclQii}

\def\gobbleenclQii{\ifx\gobbleenclQnext\bgroup
    \let\gobbleenclQnext\gobblegroupQii
  \else\let\gobbleenclQnext\gobbleenclQiii\fi
  \gobbleenclQnext}

\def\gobbleenclQiii#1{%
  \def\gobbleenclQiv##1#1{\egroup}%
  \gobbleenclQiv}

%

\let\strike\fiverm % can be much better!
%

% \packindex declares that subitems be bundled into one
% semicolon-separated paragraph

\def\packindex{%
  \def\theindex{\begingroup
    \parskip0pt \parindent0pt
    \def\item{\par\hangindent20pt \hangafter1 }%
    \def\subitem{\unskip; }%
    \def\subsubitem{\unskip; }%
    \def\see{\bgroup\it see \aftergroup\gobblegroup\let\dummy=}%
    \let\indexspace\medskip}}

% Use \printindex instead of \inputindex if you want
% the section heading ``Index'' automatically generated.

\def\printindex{\csname beginsection\endcsname Index\par
  \inputindex}

\ifx\pdfoutput\UnDeFiNeD\else
  %but remember to \input epsf or supp-pdf as appropriate
  \def\epsfbox#1{\convertMPtoPDF{#1}{1}{1}}%
\fi

\def\r#1{{\accent23 #1}}

\def\verbc{\begingroup
  \verbsetup\afterassignment\verbcI
  \let\verbcII=}

\def\verbcI{{\verbfont\verbcII}\endgroup}

\let\E\verbc

% The current font is cmtt iff fontdimen3 = 0 _and_
% fontdimen7 != 0

\def\noncmttQspecific{\let\noncmttQspecificQdoit y%
  \ifdim\the\fontdimen3\the\font=0.0pt
    \ifdim\the\fontdimen7\the\font=0.0pt
      \let\noncmttQspecificQdoit n\fi\fi
  \ifx\noncmttQspecificQdoit y%
    \defcsactive\<{\relax\char`\<}%
    \defcsactive\>{\relax\char`\>}%
    \defcsactive\-{\variablelengthhyphen}%
  \fi}

% In a nonmonospaced font, - followed by a letter
% is a regular hyphen.  Followed by anything else, it is a
% typewriter hyphen.

\def\variablelengthhyphen{\futurelet\variablelengthhyphenI
  \variablelengthhyphenII}

\def\variablelengthhyphenII{\ifcat\noexpand\variablelengthhyphenI
 a-\else{\tt\char`\-}\fi}

% uppercase version of \romannumeral

\def\Romannumeral{\afterassignment\RomannumeralQii\count255=}

\def\RomannumeralQii{\uppercase\expandafter{\romannumeral\the\count255 }}

%

\def\quote{\bgroup\narrower\smallbreak}
\def\endquote{\smallbreak\egroup}

% \mailto{ADDRESS} becomes
% <a href="mailto:ADDRESS">ADDRESS</a> in HTML, and
% ADDRESS in DVI.

\let\mailto\url

%

\ifx\bull\UnDeFiNeD
% from manmac
\def\bull{\vrule height .9ex width .8ex depth -.1ex } % square bullet
\fi


%\def\rawhtml{\errmessage{Can't occur outside
%  \string\htmlonly}}
%\def\endrawhtml{\errmessage{Can't occur outside
%  \string\htmlonly}}

\let\rawhtml\iffalse
\let\endrawhtml\fi

\let\htmlheadonly\iffalse
\let\endhtmlheadonly\fi

\let\cssblock\iffalse
\let\endcssblock\fi

\def\inputcss#1 {\relax}
\let\htmladdimg\gobblegroup

\def\htmlref{\bgroup\aftergroup\gobblegroup\let\dummy=}

%

\let\htmlcolophon\gobblegroup
\let\htmldoctype\gobblegroup
\let\htmlmathstyle\gobblegroup

\let\slatexlikecomments\relax
\let\noslatexlikecomments\relax

\let\imgpreamble\iffalse
\let\endimgpreamble\fi

\def\inputexternallabels#1 {\relax}
\def\includeexternallabels#1 {\relax}

\let\evalh\gobblegroup
\let\evalq\gobblegroup

\ifx\TZPcommonlisp\UnDeFiNeD
\let\TZPcommonlisp=0
\fi

\let\htmlpagebreak\relax

\let\htmlpagelabel\gobblegroup

\def\htmlpageref{\errmessage{Can't occur except inside
  \string\htmlonly}}

% Miscellaneous stuff

%\def\hr{$$\hbox{---}$$}
\def\hr{\medbreak\centerline{---}\medbreak}
%\def\hr{\par\centerline{$*$}\par}

\let\htmlimageformat\gobblegroup
\let\htmlimageconversionprogram\gobblegroup

\let\externaltitle\gobblegroup
\let\ignorenextinputtimestamp\relax

%

\let\htmladvancedentities\relax
\let\n\noindent
\let\f\numberedfootnote
\let\scmp\scm
\let\numfootnote\numberedfootnote
\let\writetotoc\writenumberedtocline
\let\tag\xrtag
\let\scmfilename\verbwritefile
\let\scmwrite\verbwrite

%

\atcatcodebeforetexzpage

% end of file