DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T v

⟦f410bb65b⟧ TextFile

    Length: 1843 (0x733)
    Types: TextFile
    Names: »vwrt-mac.tip«

Derivation

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/doc/vwrt-mac.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{verbwr.tip}
\InputD{defauarg.tip}
\InputD{verb-mac.tip}
\catcode`\@ = 11
\newwrite\@VStream
\newif\if@VStreamOpen	    \@VStreamOpenfalse
\newcount\@VerbWriteCount
\@VerbWriteCount = 0
\def\BeginVerbWrite #1#2{%
    \global\advance\@VerbWriteCount by 1
    \wlog{\string\BeginVerbWrite: [\the\@VerbWriteCount]}
    \DefaultArg{\@VerbWriteBaseName}{#1}{\jobname}%
    \DefaultArg{\@VerbWriteFileExt}{#2}{ver}% 
    \xdef\@VerbWriteFileName{\@VerbWriteBaseName.\@VerbWriteFileExt}%
    \if@VStreamOpen
	\errmessage{\string\BeginVerbWrite: ERROR, file still open.}
    \fi
    \OpenVerbWrFile{\@VerbWriteBaseName}{\@VerbWriteFileExt}% 
		    {\@VStream}%
    \global\@VStreamOpentrue
    \BeginVerbWr{\@VStream}{EndVerbWrite}%
}
\def\CloseVerbWriteFile{% 
    \if@VStreamOpen
	\CloseVerbWrFile{\@VStream}%
	\global\@VStreamOpenfalse
    \fi
}
\def\AppendVerbWrite{%
    \wlog{\string\AppendVerbWrite: [\the\@VerbWriteCount]}
    \xdef\@VerbWriteFileName{\@VerbWriteBaseName.\@VerbWriteFileExt}%
    \if@VStreamOpen
    \else
	\errmessage{\string\AppendVerbWrite: no file open.}
    \fi
    \BeginVerbWr{\@VStream}{EndVerbWrite}%
}
\def\VerbAsVerb{%
    \CloseVerbWriteFile
    {\CaretTabtrue\ListVerbBook{\@VerbWriteFileName}}%
}
\def\VerbAsSource{%
    \CloseVerbWriteFile
    \input \@VerbWriteFileName \relax
}
\catcode`\@ = 12