1 % The UCW Macro Collection: Verbatim environment
2 % Written by Martin Mares <mj@ucw.cz> in 2010 and placed into public domain
3 % -------------------------------------------------------------------------
5 % We'll use internal macros of plain TeX
8 % New \frenchspacing, which doesn't leave unwanted spaces in text.
9 \def\frenchsp@cing{\sfcode`\.\@m \sfcode`\?\@m \sfcode`\!\@m%
10 \sfcode`\:\@m \sfcode`\;\@m \sfcode`\,\@m}
12 % Typesetting of one verbatim word: |word|
14 % Set if spaces should be rendered as "bath-tub" glyphs
18 \def\make@ther#1{\catcode`#1=12\relax}
19 \def\setverb@tim{\tt\frenchsp@cing\catcode`\`=13\catcode`\'=13\n@ligs%
20 \let\do=\make@ther\dospecials\obeyspaces\showsp@ces}
24 \gdef\n@ligs{\def`{\relax\lq}\def'{\relax\rq}}}
27 \global\chardef\sp@ce=32
28 \gdef\showsp@ces{\ifshowspaces\let =\sp@ce\fi}
31 \catcode124=\active % Make | active
32 \def\ttst@rt{\begingroup\setverb@tim\let|=\endgroup}
35 % Typesetting of verbatim blocks:
36 % - the block is enclosed in balanced {}'s
37 % - leading and trailing empty lines are ignored
38 % - all other empty lines are converted to \verbemptylineskip's
39 % - tabs are interpreted (one tab stop per \verbtabsize columns)
40 % - \showspacestrue works here, too, but it does not apply to tabs
42 \newskip\verbstartskip % vskip before \verbatim
43 \newskip\verbendskip % vskip after \verbatim
44 \newskip\verbinterlineskip % between adjacent non-empty lines
45 \newskip\verbemptylineskip % instead of every empty line
46 \newskip\verbleftskip % left and right margin
47 \newskip\verbrightskip
49 \verbstartskip=3pt plus 1pt minus 0.3pt
50 \verbendskip=\verbstartskip
51 \verbinterlineskip=0pt
52 \verbemptylineskip=5pt plus 2pt
54 \verbrightskip=0pt plus 1fil
56 % Can be re-defined to customize the verbatim environment
59 % Size of a single tab
67 % When a complete line is assembled in \box0, \verbship is called to add it
68 % to the main vertical list. You can override it to get e.g. line numbering.
76 \vskip\verbinterlineskip
79 \line{\hskip\verbleftskip \box0 \hskip\verbrightskip}
82 \advance\v@rbspace by \verbemptylineskip
87 \def\v@rbend{\par\egroup\endgroup\vskip\verbendskip}
88 \def\v@rbl{\ifnum\verbcnt>0\{\fi\global\advance\verbcnt by 1\relax}
89 \def\v@rbr{\ifnum\verbcnt>1\}\else\v@rbend\fi\global\advance\verbcnt by -1\relax}
102 \def\startb@x{\setbox0=\hbox\bgroup}
103 \def\endb@x{\egroup\verbship\startb@x}
105 {\catcode`\^^I=\active
106 \gdef\setupt@bs{\catcode`\^^I=\active
107 \setbox0=\hbox{\ }\t@bwidth=\wd0\multiply\t@bwidth by \verbtabsize
108 \def^^I{\egroup\t@b=\wd0\divide\t@b by \t@bwidth%
109 \multiply\t@b by \t@bwidth%
110 \advance\t@b by \t@bwidth\advance\t@b by -\wd0\startb@x\box0\hbox to \t@b{}}%
114 \catcode`[=1\catcode`]=2\catcode123=\active\catcode125=\active
115 \gdef\verbatim[\begingroup\v@rbparams\catcode123=\active\catcode125=\active%
116 \let{=\v@rbl\let}=\v@rbr\chardef\{=123\chardef\}=125\verblocaldefs\setupt@bs\startb@x%
119 % Input file verbatim
121 \def\verbinput#1{\begingroup\v@rbparams\verblocaldefs\setupt@bs\startb@x\input #1 \egroup\endgroup}
123 % Let's hide all internal macros