home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / Cs-tex-4.0 / cstex4-1.zoo / inputs.lzh / INPUTS / VERBATIM.TEX (.txt) < prev   
LaTeX Document  |  1990-02-28  |  1KB  |  40 lines
  1. % macros for verbatim scanning
  2. % im wesentlichen dem file MANHDR TEX von DEK entnommen
  3. \catcode`@=11
  4. \def\tt{\fam\ttfam\tentt}%
  5. \newskip\ttglue  \ttglue=.5em plus .25em minus .15em
  6. \chardef\other=12
  7. \def\ttverbatim{\begingroup
  8.   \catcode`\\=\other
  9.   \catcode`\{=\other
  10.   \catcode`\}=\other
  11.   \catcode`\$=\other
  12.   \catcode`\&=\other
  13.   \catcode`\#=\other
  14.   \catcode`\%=\other
  15.   \catcode`\~=\other
  16.   \catcode`\_=\other
  17.   \catcode`\^=\other
  18.   \catcode`\"=\other
  19.   \parskip \z@
  20.   \obeyspaces \obeylines \tt}
  21. \def\begintt{$$\let\par=\endgraf \ttverbatim
  22.   \catcode`\|=0 \rightskip-5pc \ttfinish}
  23. {\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
  24.   |obeylines % end of line is active
  25.   |gdef|ttfinish#1^^M#2\endtt{|vbox{#2}|endgroup$$}}
  26. \catcode`\|=11
  27. \def\|{\char`\|}
  28. \catcode`\|=\active
  29. {\obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let^^M=\  \let|=\endgroup}}
  30. %\def\ttspace{{\tt\hskip\ttglue}}
  31. \def\vrt{\hbox{\tt\char`\|}} % vertical line
  32. \def\dn{\hbox{\tt\char'14}} % downward arrow
  33. \def\up{\hbox{\tt\char'13}} % upward arrow
  34. \def\]{\hbox{\tt\char`\ }} % visible space
  35. \catcode`@=12 % at signs are no longer letters
  36. \def\verbatimon{\catcode`\|=\active}
  37. \def\verbatimoff{\catcode`\|=\other}
  38. \verbatimoff
  39. % -eof-
  40.