source: doc/theses/lynn_tran_SE499/lstpatch.sty @ 1842167

%%%% This is file `lstpatch.sty', generated manually.%%%% (w)(c) 2004 Carsten Heinz%%%% This file may be distributed under the terms of the LaTeX Project Public%% License from CTAN archives in directory  macros/latex/base/lppl.txt.%% Either version 1.0 or, at your option, any later version.%%%% Send comments and ideas on the package, error reports and additional%% programming languages to <cheinz@gmx.de>.%%%% This patch file will remove the following bugs from the listings package.%% Each item contains the bug finder with date of report and first bug fix%% version, a short description of the problem, and the reason for the bug%% in parenthesis.%%%%  1) Frank Atanassow, 2004/10/07, 1.3b%%%%     space after mathescape is not preserved%%     (\lst@newlines>0)%%%%  2) Benjamin Lings, 2004/10/15, 1.3b (2004/10/17)%%%%     \usepackage{xy,listings} yields:%%     "Forbidden control sequence found while scanning use of \lst@lExtend"%%     (xy-pic correctly resets catcode of ^^L (to active), which is \outer)%%%%%% The following features are added to the base package.%%%% 1.3a (2004/09/07)%%%%  a) H I G H L Y   E X P E R I M E N T A L%%%%     Use the options%%        rangeprefix=<prefix for begin and end of range>%%        rangesuffix=<suffix for begin and end of range>%%%%        rangebeginprefix=<prefix for begin of range>%%        rangebeginsuffix=<suffix for begin of range>%%%%        rangeendprefix=<prefix for end of range>%%        rangeendsuffix=<suffix for end of range>%%%%        includerangemarker=true|false%%     together with%%        firstline=<begin marker>%%        lastline=<end marker>%%     or%%        linerange={<begin marker 1>-<end marker 1>,%%                   <begin marker 2>-<end marker 2>, ...}%%     The according markers in the source code are%%           <prefix><marker><suffix>%%     for begin respectively end of range. Moreover, one can use%%        includerangemarker=true|false%%     to show or hide the range markers in the output.%%%% 1.3b (2004/10/17)%%%%  b) multicols=<number> (requires loaded multicol package)%%%%\lst@CheckVersion{1.3}{\typeout{^^J%    ***^^J%    *** This is a patch for listings 1.3, but you're using^^J%    *** version \lst@version.^^J%    ***^^J    *** Patch file not loaded.^^J%    ***^^J}%    \endinput}\def\fileversion{1.3b}\def\filedate{2004/10/17}\ProvidesFile{lstpatch.sty}[\filedate\space\fileversion\space (Carsten Heinz)]%% 0) Insert % after #1.\def\@@xbitor #1{\@tempcntb \count#1%   \ifnum \@tempcnta =\z@   \else     \divide\@tempcntb\@tempcnta     \ifodd\@tempcntb \@testtrue\fi   \fi}%% 1) Reset \lst@newlines at end of escape.\def\lstpatch@escape{%\gdef\lst@Escape##1##2##3##4{%    \lst@CArgX ##1\relax\lst@CDefX        {}%        {\lst@ifdropinput\else         \lst@TrackNewLines\lst@OutputLostSpace \lst@XPrintToken         \lst@InterruptModes         \lst@EnterMode{\lst@TeXmode}{\lst@modetrue}%         \ifx\^^M##2%             \lst@CArg ##2\relax\lst@ActiveCDefX                 {}%                 {\lst@escapeend ##4\lst@LeaveAllModes\lst@ReenterModes}%                 {\lst@MProcessListing}%         \else             \lst@CArg ##2\relax\lst@ActiveCDefX                 {}%                 {\lst@escapeend ##4\lst@LeaveAllModes\lst@ReenterModes                  \lst@newlines\z@ \lst@whitespacefalse}%                 {}%         \fi         ##3\lst@escapebegin         \fi}%        {}}%}%% 2) Deactivate \outer definition of ^^L temporarily (inside and outside%    of \lst@ScanChars) and restore \catcode at end of package.\begingroup \catcode12=\active\let^^L\@empty\gdef\lst@ScanChars{%  \let\lsts@ssL^^L%  \def^^L{\par}%    \lst@GetChars\lst@RestoreOrigCatcodes\@ne {128}%  \let^^L\lsts@ssL    \lst@GetChars\lst@RestoreOrigExtendedCatcodes{128}{256}}\endgroup\lst@lAddTo\lst@RestoreCatcodes{\catcode12\active}%% a) Let's start with the options:\lst@Key{rangeprefix}\relax{\def\lst@rangebeginprefix{#1}%                            \def\lst@rangeendprefix{#1}}\lst@Key{rangesuffix}\relax{\def\lst@rangebeginsuffix{#1}%                            \def\lst@rangeendsuffix{#1}}\lst@Key{rangebeginprefix}{}{\def\lst@rangebeginprefix{#1}}\lst@Key{rangebeginsuffix}{}{\def\lst@rangebeginsuffix{#1}}\lst@Key{rangeendprefix}{}{\def\lst@rangeendprefix{#1}}\lst@Key{rangeendsuffix}{}{\def\lst@rangeendsuffix{#1}}\lst@Key{includerangemarker}{true}[t]{\lstKV@SetIf{#1}\lst@ifincluderangemarker}%%    The key is a redefinition of \lst@GLI@ checking for numbers.\def\lst@GLI@#1-#2-#3\@nil{%    \lst@IfNumber{#1}%    {\ifx\@empty#1\@empty         \let\lst@firstline\@ne     \else         \def\lst@firstline{#1\relax}%     \fi     \ifx\@empty#3\@empty         \def\lst@lastline{9999999\relax}%     \else         \ifx\@empty#2\@empty             \let\lst@lastline\lst@firstline         \else             \def\lst@lastline{#2\relax}%         \fi     \fi}%%%    If we've found a general marker, we set firstline and lastline to 9999999.%    This prevents (almost) anything to be printed for now.    {\def\lst@firstline{9999999\relax}%     \let\lst@lastline\lst@firstline%%    We add the prefixes and suffixes to the markers.     \let\lst@rangebegin\lst@rangebeginprefix     \lst@AddTo\lst@rangebegin{#1}\lst@Extend\lst@rangebegin\lst@rangebeginsuffix     \ifx\@empty#3\@empty         \let\lst@rangeend\lst@rangeendprefix         \lst@AddTo\lst@rangeend{#1}\lst@Extend\lst@rangeend\lst@rangeendsuffix     \else         \ifx\@empty#2\@empty             \let\lst@rangeend\@empty         \else             \let\lst@rangeend\lst@rangeendprefix             \lst@AddTo\lst@rangeend{#2}\lst@Extend\lst@rangeend\lst@rangeendsuffix         \fi     \fi%    The following definition will be executed in the SelectCharTable hook%    and here right now if we are already processing a listing.     \global\def\lst@DefRange{\expandafter\lst@CArgX\lst@rangebegin\relax\lst@DefRangeB}%     \ifnum\lst@mode=\lst@Pmode \expandafter\lst@DefRange \fi}}%    \lst@DefRange is not inserted via a hook anymore. Instead it is now called%    directly from \lst@SelectCharTable. This was necessary to get rid of an%    interference with the escape-to-LaTeX-feature. The bug was reported by%    \lsthelper{Michael~Bachmann}{2004/07/21}{Keine label-Referenzierung%    m\"oglich...}. Another chance is due to the same bug: \lst@DefRange is%    redefined globally when the begin of code is found, see below. The bug was%    reported by \lsthelper{Tobias~Rapp}{2004/04/06}{undetected end of range if%    listing crosses page break} \lsthelper{Markus~Luisser}{2004/08/13}{Bug mit%    'linerangemarker' in umgebrochenen listings}%\lst@AddToHook{SelectCharTable}{\lst@DefRange}\lst@AddToHookExe{DeInit}{\global\let\lst@DefRange\@empty}%%    Actually defining the marker (via \lst@GLI@, \lst@DefRange, \lst@CArgX as%    seen above) is similar to \lst@DefDelimB---except that we unfold the first%    parameter and use different <execute>, <pre>, and <post> statements.\def\lst@DefRangeB#1#2{\lst@DefRangeB@#1#2}\def\lst@DefRangeB@#1#2#3#4{%    \lst@CDef{#1{#2}{#3}}#4{}%    {\lst@ifincluderangemarker         \lst@LeaveMode         \let#1#4%         \lst@DefRangeEnd         \lst@InitLstNumber     \else         \@tempcnta\lst@lineno \advance\@tempcnta\@ne         \edef\lst@firstline{\the\@tempcnta\relax}%         \gdef\lst@OnceAtEOL{\let#1#4\lst@DefRangeEnd}%         \lst@InitLstNumber     \fi         \global\let\lst@DefRange\lst@DefRangeEnd     \lst@CArgEmpty}%    \@empty}%% Modify labels and define |\lst@InitLstNumber| used above.% \lsthelper{Omair-Inam~Abdul-Matin}{2004/05/10}{experimental linerange% feature does not work with firstnumber}\def\lstpatch@labels{%\gdef\lst@SetFirstNumber{%    \ifx\lst@firstnumber\@undefined        \@tempcnta 0\csname\@lst no@\lst@intname\endcsname\relax        \ifnum\@tempcnta=\z@ \else            \lst@nololtrue            \advance\@tempcnta\lst@advancenumber            \edef\lst@firstnumber{\the\@tempcnta\relax}%        \fi    \fi}%}\lst@AddToAtTop\lsthk@PreInit    {\ifx\lst@firstnumber\@undefined         \def\lst@firstnumber{\lst@lineno}%     \fi}\def\lst@InitLstNumber{%     \global\c@lstnumber\lst@firstnumber     \global\advance\c@lstnumber\lst@advancenumber     \global\advance\c@lstnumber-\lst@advancelstnum     \ifx \lst@firstnumber\c@lstnumber         \global\advance\c@lstnumber-\lst@advancelstnum     \fi}%%    The end-marker is defined if and only if it's not empty. The definition is%    similar to \lst@DefDelimE---with the above exceptions and except that we%    define the re-entry point \lst@DefRangeE@@ as it is defined in the new%    version of \lst@MProcessListing above.\def\lst@DefRangeEnd{%    \ifx\lst@rangeend\@empty\else        \expandafter\lst@CArgX\lst@rangeend\relax\lst@DefRangeE    \fi}\def\lst@DefRangeE#1#2{\lst@DefRangeE@#1#2}\def\lst@DefRangeE@#1#2#3#4{%    \lst@CDef{#1#2{#3}}#4{}%    {\let#1#4%     \edef\lst@lastline{\the\lst@lineno\relax}%     \lst@DefRangeE@@}%    \@empty}\def\lst@DefRangeE@@#1\@empty{%    \lst@ifincluderangemarker        #1\lst@XPrintToken    \fi    \lst@LeaveModeToPmode    \lst@BeginDropInput{\lst@Pmode}}%\def\lst@LeaveModeToPmode{%    \ifnum\lst@mode=\lst@Pmode        \expandafter\lsthk@EndGroup    \else        \expandafter\egroup\expandafter\lst@LeaveModeToPmode    \fi}%%    Eventually we shouldn't forget to install \lst@OnceAtEOL, which must%    also be called in \lst@MSkipToFirst.\lst@AddToHook{EOL}{\lst@OnceAtEOL\global\let\lst@OnceAtEOL\@empty}\gdef\lst@OnceAtEOL{}% Init\def\lst@MSkipToFirst{%    \global\advance\lst@lineno\@ne    \ifnum \lst@lineno=\lst@firstline        \def\lst@next{\lst@LeaveMode \global\lst@newlines\z@        \lst@OnceAtEOL \global\let\lst@OnceAtEOL\@empty        \lst@InitLstNumber % Added to work with modified \lsthk@PreInit.        \lsthk@InitVarsBOL        \lst@BOLGobble}%        \expandafter\lst@next    \fi}\def\lst@SkipToFirst{%    \ifnum \lst@lineno<\lst@firstline        \def\lst@next{\lst@BeginDropInput\lst@Pmode        \lst@Let{13}\lst@MSkipToFirst        \lst@Let{10}\lst@MSkipToFirst}%        \expandafter\lst@next    \else        \expandafter\lst@BOLGobble    \fi}%%    Finally the service macro \lst@IfNumber:\def\lst@IfNumber#1{%    \ifx\@empty#1\@empty        \let\lst@next\@firstoftwo    \else        \lst@IfNumber@#1\@nil    \fi    \lst@next}\def\lst@IfNumber@#1#2\@nil{%    \let\lst@next\@secondoftwo    \ifnum`#1>47\relax \ifnum`#1>57\relax\else        \let\lst@next\@firstoftwo    \fi\fi}%% b) The following is known to fail with some keys.\lst@Key{multicols}{}{\@tempcnta=0#1\relax\def\lst@multicols{#1}}\def\lst@Init#1{%    \begingroup    \ifx\lst@float\relax\else        \edef\@tempa{\noexpand\lst@beginfloat{lstlisting}[\lst@float]}%        \expandafter\@tempa    \fi% chmod begin    \ifx\lst@multicols\@empty\else        \edef\lst@next{\noexpand\multicols{\lst@multicols}}        \expandafter\lst@next    \fi% chmod end    \ifhmode\ifinner \lst@boxtrue \fi\fi    \lst@ifbox        \lsthk@BoxUnsafe        \hbox to\z@\bgroup             $\if t\lst@boxpos \vtop        \else \if b\lst@boxpos \vbox        \else \vcenter \fi\fi        \bgroup \par\noindent    \else        \lst@ifdisplaystyle            \lst@EveryDisplay            \par\penalty-50\relax            \vspace\lst@aboveskip        \fi    \fi    \normalbaselines    \abovecaptionskip\lst@abovecaption\relax    \belowcaptionskip\lst@belowcaption\relax    \lst@MakeCaption t%    \lsthk@PreInit \lsthk@Init    \lst@ifdisplaystyle        \global\let\lst@ltxlabel\@empty        \if@inlabel            \lst@ifresetmargins                \leavevmode            \else                \xdef\lst@ltxlabel{\the\everypar}%                \lst@AddTo\lst@ltxlabel{%                    \global\let\lst@ltxlabel\@empty                    \everypar{\lsthk@EveryLine\lsthk@EveryPar}}%            \fi        \fi        \everypar\expandafter{\lst@ltxlabel                              \lsthk@EveryLine\lsthk@EveryPar}%    \else        \everypar{}\let\lst@NewLine\@empty    \fi    \lsthk@InitVars \lsthk@InitVarsBOL    \lst@Let{13}\lst@MProcessListing    \let\lst@Backslash#1%    \lst@EnterMode{\lst@Pmode}{\lst@SelectCharTable}%    \lst@InitFinalize}\def\lst@DeInit{%    \lst@XPrintToken \lst@EOLUpdate    \global\advance\lst@newlines\m@ne    \lst@ifshowlines        \lst@DoNewLines    \else        \setbox\@tempboxa\vbox{\lst@DoNewLines}%    \fi    \lst@ifdisplaystyle \par\removelastskip \fi    \lsthk@ExitVars\everypar{}\lsthk@DeInit\normalbaselines\normalcolor    \lst@MakeCaption b%    \lst@ifbox        \egroup $\hss \egroup        \vrule\@width\lst@maxwidth\@height\z@\@depth\z@    \else        \lst@ifdisplaystyle            \par\penalty-50\vspace\lst@belowskip        \fi    \fi% chmod begin    \ifx\lst@multicols\@empty\else        \def\lst@next{\global\let\@checkend\@gobble                      \endmulticols                      \global\let\@checkend\lst@@checkend}        \expandafter\lst@next    \fi% chmod end    \ifx\lst@float\relax\else        \expandafter\lst@endfloat    \fi    \endgroup}\let\lst@@checkend\@checkend%%\endinput%%%% End of file `lstpatch.sty'.