TeX verbatim typesetting

verb.tex

% Verbatim typesetting

\catcode`@=11

\def\uncatcodespecials{\begingroup
  \def\do##1{\catcode`\noexpand##1=12 }%
  \edef\next{\endgroup\dospecials}\next}

\let\verbfont=\tentt
\def\nohyphenation{\hyphenchar\font\m@ne}
{\obeyspaces\gdef\verbspaces{\obeyspaces\let =\ }}

% in-line verbatim typesetting
\newtoks\everyverb
\def\verb{\bgroup \uncatcodespecials
  \verbfont \nohyphenation \verbspaces \verb@}
\def\verb@#1{\catcode`#1=\tw@ \the\everyverb}

% multi-line verbatim typesetting
\let\verbatimfont=\tentt
\newtoks\everyverbatim
\newdimen\verbatimindent \verbatimindent=0pt
\newcount\interverbatimpenalty \interverbatimpenalty=100

\def\setupverbatim{\uncatcodespecials \verbatimfont \nohyphenation \verbspaces
  \parindent\verbatimindent
  \def\par{\leavevmode\endgraf % allow empty lines
    \penalty\interverbatimpenalty}\obeylines}
\def\verbatim{\bgroup \setupverbatim \verbatim@}
{\lccode`\|=`\\ \catcode`\^^M=\active \lowercase{\gdef\verbatim@#1
  {\long\def\next##1|endverbatim#1{\the\everyverbatim##1\egroup}\next}}}

\def\listing#1{\bgroup \setupverbatim
  \expandafter\the\expandafter\everyverbatim \input#1 \egroup}

\catcode`@=12

% vim: ts=2:sw=2:et