DataMuseum.dk

top - metrics - download

    Length: 2148 (0x864)
    Types: TextFile
    Names: »verbwr.tip«

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/doc/verbwr.tip« 

TextFile

% This macro source file is from the four volume series
% "TeX in Practice" by Stephan v. Bechtolsheim, published
% 1990 by the Springer-Verlay, New York.
% Copyright 1990 Stephan v. Bechtolsheim.
% No warranty or liability is assumed.
% This macro may be copied freely if no fees other than
% media cost or shipping charges are charged and as long
% as this copyright and the following source code itself
% is not changed.
%
% Version 1.0
% Date: May 11, 1990
%
% This source code is documented in ?? ?? ??
\InputD{verb-bas.tip}
\InputD{futlet.tip}
\InputD{genaeol.tip}
\InputD{futlet.tip}
\catcode`\@ = 11
\newif\if@VerbFirstLineSuppress
\def\OpenVerbWrFile #1#2#3{%
    \immediate\openout #3 = #1.#2
    \wlog{\string\OpenVerbWrFile: opened "#1.#2" for literal
					    writing.}%
}
\def\CloseVerbWrFile #1{%
    \immediate\closeout #1
    \wlog{\string\CloseVerbWrFile: closed file for literal writing.}%
}
\def\BeginVerbWr #1#2{%
    \begingroup
    \def\@VerbWrStream{#1}%	Local because of \begingroup.
    \wlog{\string\BeginVerbWr: begin}% 
    \@MkOthers
    \MakeEolActive
    \catcode`@ = 11
    \@VerbWrTabHandling
    \@VerbFirstLineSuppresstrue
    \@BeginVerbWrY{#2}%
}
{
    \catcode `| = 0 % | becomes the escape character.
    \catcode`\\ =12 % \ becomes a regular character.
    |gdef|@BeginVerbWrY #1{%
	|def|@BeginVerbWrX ##1\#1{%
	    |@BeginVerbWr ##1% 
	    |@VerbWrDoneToken
	    |@VerbWrDone
	}
	|@BeginVerbWrX
    }
}% Undoes category code changes.
\def\@VerbWrTabHandling{%
    \MakeTabActive
    \@VerbWrTabHandlingOne
}
{\catcode`\^^I = 11
\gdef\@TabAsLiteral{^^I}% 
}
{\MakeTabActive
\gdef\@VerbWrTabHandlingOne{\def^^I{\@TabAsLiteral}}% 
}
\def\@BeginVerbWr{% 
    \DoFutureLet{\ifx}{\@VerbWrDoneToken}% 
	{\@AbsorbVerbDoneToken}{\@BeginVerbWrTwo}% 
}
\def\@AbsorbVerbDoneToken \@VerbWrDoneToken{}
\GenAeol{\@BeginVerbWrTwo}{%
    \if@VerbFirstLineSuppress
    \else
	\immediate\write\@VerbWrStream{#1}%
    \fi
    \@VerbFirstLineSuppressfalse
    \@BeginVerbWr
}
\def\@VerbWrDone{% 
    \wlog{\string\@VerbWrDone}% 
    \endgroup		% Undoes category code changes
    \wlog{\string\@VerbWrDone}% 
}
\catcode`\@ = 12