% This macro source file is from the four volume series % "TeX in Practice" by Stephan von Bechtolsheim, published % 1993 by Springer-Verlag, New York. % Copyright 1993 Stephan von 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. Please see the series for further information. % % Version: 1.0 % Date: May 1, 1993 % % % This source code is documented in 19.1.2, p. III-67. % Original source in file "tokens2.TEX", starting line 146. \wlog{L: "cstostrc.tip" ["tokens2.TEX," l. 146, p. III-67]}% % This file DOES belong to format "texip." \InputD{remtlsp.tip} \InputD{genostr.tip} \catcode`\@ = 11 \newread\@CatIn \def\CSToStringCat #1#2{% {% \escapechar = -1 \OpenGenericOStream{cstostrc.tmp}% \immediate\write\GenericOStream{\string#2\%}% \CloseGenericOStream \openin\@CatIn = cstostrc.tmp \global\read\@CatIn to #1% \closein\@CatIn }% } \catcode`\@ = 12