reduce-historical/r34/lib/tritest.tex

\relax
% ----------------------------------------------------------------------
% The REDUCE-TeX-Interface Test Package
% ----------------------------------------------------------------------
% File:    TRITEST.TEX
% Author:  Werner Antweiler, RRZK/UCCC, Cologne/West Germany
% Date:    01-Sep-88
% Version: 1.4
% This module defines macros to be used for processing output produced
% by a testing run with the REDUCE-TeX-Interface
% ----------------------------------------------------------------------
\input reduce
\hsize=175mm
\font\caps=cmcsc10
\font\smallcaps=cmcsc10 at 8pt
\def\today{\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
\space\number\day,\space\number\year}
% verbatim
\def\uncatcodespecials{\def\do##1{\catcode`##1=12}\dospecials\do\"}
\def\setupverbatim{\tt\Obeylines\uncatcodespecials\obeyspaces}
\def\newlinepar{~\par}
{\catcode`\^^M=\active %
  \gdef\Obeylines{\catcode`\^^M=\active\def^^M{\newlinepar}}}%
{\obeyspaces\global\let =\ }
\def\verbatim{\par\begingroup\parskip=0pt plus 1pt
              \setupverbatim\doverbatim}
\def\verb{\begingroup\setupverbatim\doverb}
\def\doverb#1{\def\next##1#1{##1\endgroup}\next}
% ** -- ** -- ** -- ** -- ** -- ** -- ** -- ** -- ** -- ** -- ** -- **
\centerline{\bf Tests for the REDUCE-\TeX-Interface}\bigskip
\centerline{\rm compiled by W. Antweiler, \today}\bigskip\bigskip
\input tritst
\bye