src/patches/lltjp-lstmisc.sty

   1 %
   2 % lltjp-lstmisc.sty
   3 %
   4
   5 % this file is loaded by \input in LTXexample environment,
   6 % which is defined in showexpl.sty.
   7 % So, this file does not contain any header.
   8 \begingroup \catcode`\^^I=11
   9 \gdef\lst@WFBegin#1#2{%
  10     \begingroup
  11     \let\lst@OutputBox#1%
  12     \def\lst@Append##1{%
  13         \advance\lst@length\@ne
  14         \expandafter\lst@token\expandafter{\the\lst@token##1}%
  15         \ifx ##1\lst@outputspace \else
  16             \lst@WFAppend##1%
  17         \fi}%
  18     \lst@lAddTo\lst@PreGotoTabStop{\lst@WFAppend{^^I}}%
  19     \def\lst@ProcessSpace##1{%
  20        \lst@WFAppend{ }\lst@check@chartype{##1}%
  21           \lst@@ProcessSpace
  22           \lst@whitespacetrue}%
  23     \let\lst@DeInit\lst@WFDeInit
  24     \let\lst@MProcessListing\lst@WFMProcessListing
  25     \lst@WFifopen\else
  26         \immediate\openout\lst@WF=#2\relax
  27         \global\let\lst@WFifopen\iftrue
  28         \@gobbletwo\fi\fi
  29     \fi}
  30 \endgroup
  31 \gdef\lst@frameBlock#1#2#3#4{%
  32     %\typeout{FB: \string#1, \the#2, \the#3, \the#4.}%
  33     \color@begingroup
  34       #1%
  35       \setbox\z@\hbox{\vrule\@height#3\@depth#4%
  36                       \ifx#1\@empty \@width\z@ \kern#2\relax
  37                               \else \@width#2\relax \fi}%
  38       \box\z@
  39     \color@endgroup}
  40 \endinput