26 lines
626 B
TeX
26 lines
626 B
TeX
% S_Verbatim.TeX Macro
|
|
%
|
|
% macros for verbatim scanning
|
|
\chardef\other=12
|
|
\newskip\ttglue
|
|
\ttglue=.5em plus.25em minus.15em
|
|
\def\ttverbatim{\begingroup
|
|
\catcode`\\=\other
|
|
\catcode`\{=\other
|
|
\catcode`\}=\other
|
|
\catcode`\$=\other
|
|
\catcode`\&=\other
|
|
\catcode`\#=\other
|
|
\catcode`\%=\other
|
|
\catcode`\_=\other
|
|
\catcode`\^=\other
|
|
\catcode`\"=\other % this line is new stuff
|
|
\catcode`\|=\other
|
|
\catcode`\~=\other
|
|
\obeyspaces \obeylines \tt}
|
|
|
|
\catcode`\"=\active
|
|
\def"#1{\ttverbatim \spaceskip\ttglue% \let^^M=\
|
|
\def\readit##1#1{##1\endgroup}\expandafter\readit}
|
|
%
|