Artifact 6b8a4ee3e9da24588db5ccf4a5428577b0bb0d802215cf4011175c3dcfb33f59:

• File r34/doc/gentran.sty — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1663) [annotate] [blame] [check-ins using] [more...]

\begingroup \catcode `|=0 \catcode `[= 1
\catcode`]=2 \catcode `\{=12 \catcode `\}=12
\catcode`\\=12 |gdef|@xframedverbatim#1\end{framedverbatim}[#1|end[framedverbatim]]
|gdef|@sxframedverbatim#1\end{framedverbatim*}[#1|end[framedverbatim*]]
|endgroup
\newdimen\@mcdheight 
\def\@sframedverbatim{\obeyspaces\@framedverbatim}
\def\@mcdrule{\@mcdheight=\baselineskip\advance\@mcdheight by-2pt
\setbox0=\hbox{\vrule height\@mcdheight depth 2pt width 1pt}%
\ht0=\@mcdheight\dp0=0pt\wd0=1pt\box0} 
\def\@mcdendrule{\@mcdheight=\baselineskip%
\setbox0=\hbox{\vrule height\@mcdheight depth 2pt width 1pt}%
\ht0=\@mcdheight\dp0=0pt\wd0=1pt\box0} 
\def\@framedverbatim{\trivlist \item[]
\parskip 0pt
\hrule height 1pt depth 0pt width\textwidth
\everypar{\global \@minipagefalse \global \@newlistfalse \if@inlabel%
\global \@inlabelfalse \hskip -\parindent \box \@labels \penalty \z@ \fi%
\hbox to 6pt{\rlap{\@mcdrule}\hskip\textwidth\llap{\@mcdrule}\hss}}
\if@minipage\else\vskip\parskip\fi 
\leftskip\@totalleftmargin\rightskip\z@
\parindent\z@\parfillskip\@flushglue\parskip\z@
\@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
\obeylines \tt \catcode``=13 \@noligs \let\do\@makeother \dospecials}
 
\def\framedverbatim{\@framedverbatim \frenchspacing\@vobeyspaces \@xframedverbatim}
\def\endframedverbatim{\nointerlineskip%
{\everypar{}\baselineskip=4pt\vbox to 4pt{\par\noindent\hbox to 6pt{\rlap{\@mcdendrule}\hskip\textwidth\llap{\@mcdendrule}\hss}}%
\vskip1pt\hrule height 1pt depth 0pt width\textwidth}\endtrivlist}%
\@namedef{framedverbatim*}{\@framedverbatim\@sxframedverbatim}
\expandafter\let\csname endframedverbatim*\endcsname =\endtrivlist