File r34.1/lib/reduce.tex artifact 47254a9c6a part of check-in d9e362f11e


\relax
% ======================================================================
%    T h e  T e X - R e d u c e - I n t e r f a c e:   TeX-Module
% ======================================================================
% (C) 1987 by Rechenzentrum der Universitaet zu Koeln
%             (University of Cologne Computer Center)
%             Abt. Anwendungssoftware
%             (Application Software Department)
%             Robert-Koch-Str. 10
%             5000 Koeln 41
%             Federal Republic of Germany
%             e-mail: reduce@dk0rrzk0.bitnet
% All rights reserved.  Permission to copy without fee all  or  part  of
% this  software  product is hereby granted provided that the copies are
% not made or distributed for direct commercial  advantage,  this  copy-
% right notice and its date appear,  and notice is given that copying is
% by permission of the authors.  To copy otherwise requires a fee and/or
% specific permission.
% ======================================================================
% 25-Jul-89               Author: Werner Antweiler          Version 0.10
% ======================================================================
%
\def\frac#1#2{{#1\over#2}}
\def\CO{,}\def\<{\langle}\def\>{\rangle}\def\d{\hbox{\rm d}}
\newcount\parenthesis \parenthesis=0 \newcount\n
\def\({\global\advance\parenthesis by1\left(}
\def\){\global\advance\parenthesis by-1\right)}
\def\{{\global\advance\parenthesis by1\left\lbrace}
\def\}{\global\advance\parenthesis by-1\right\rbrace}
\def\[{\relax} % dummy parenthesis
\def\]{\relax} % dummy parenthesis
\def\Loop#1\Repeat{\global\n=0\global\let\body=#1\iterate}
\def\iterate{\body\let\next=\iterate\else\let\next=\relax\fi\next}
\def\ldd{\ifnum\n<\parenthesis\global\advance\n by1
\left.\nulldelimiterspace=0pt\mathsurround=0pt}
\def\rdd{\ifnum\n<\parenthesis\global\advance\n by1
\right.\nulldelimiterspace=0pt\mathsurround=0pt}
\def\nl{\Loop\rdd\Repeat\hfill\cr\qdd\Loop\ldd\Repeat{}}
\def\OFF#1{\hskip#1sp\relax}
\def\off#1{\hskip#1sp\relax}
\def\Nl{\hfill\cr}
\def\qdd{\quad\quad}
% ---------------- special code for TRI examples --------------
\newcount\exacount\exacount=0\font\caps=cmcsc10
\def\Istrut{\vrule height11pt depth4pt width0pt}
\def\TRIexa#1#2#3#4{\global\advance\exacount by1\par\filbreak
{\offinterlineskip
  \vbox{\hrule\hbox to\hsize{\Istrut\vrule
      \hbox to 8mm{\hfil\caps\the\exacount\hfil}\vrule
      \quad\rm#1\hfill\vrule
      \hbox to 32mm{\hfill{\caps Mode: }{\tt #2}\hfill}\vrule
      \hbox to 32mm{\hfill{\caps Tolerance: }{\tt #3}\hfill}\vrule}
    \hrule\hbox to\hsize{\Istrut\vrule\hfill#4\hfill\vrule}\hrule}
}\nobreak}
% End.


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]