394 lines
13 KiB
TeX
394 lines
13 KiB
TeX
%%
|
|
%% 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'.
|