| 1 |
%% |
| 2 |
%% This is file `lstdoc.sty', |
| 3 |
%% generated with the docstrip utility. |
| 4 |
%% |
| 5 |
%% The original source files were: |
| 6 |
%% |
| 7 |
%% listings.dtx (with options: `doc') |
| 8 |
%% |
| 9 |
%% Please read the software license in listings.dtx or listings.pdf. |
| 10 |
%% |
| 11 |
%% (w)(c) 1996 -- 2003 Carsten Heinz and/or any other author |
| 12 |
%% listed elsewhere in this file. |
| 13 |
%% |
| 14 |
%% This file is distributed under the terms of the LaTeX Project Public |
| 15 |
%% License from CTAN archives in directory macros/latex/base/lppl.txt. |
| 16 |
%% Either version 1.0 or, at your option, any later version. |
| 17 |
%% |
| 18 |
%% Permission is granted to modify this file. If your changes are of |
| 19 |
%% general interest, please contact the address below. |
| 20 |
%% |
| 21 |
%% Send comments and ideas on the package, error reports and additional |
| 22 |
%% programming languages to <cheinz@gmx.de>. |
| 23 |
%% |
| 24 |
\def\filedate{2003/06/21} |
| 25 |
\def\fileversion{1.1} |
| 26 |
\ProvidesPackage{lstdoc} |
| 27 |
[\filedate\space\fileversion\space(Carsten Heinz)] |
| 28 |
\let\lstdoc@currversion\fileversion |
| 29 |
\RequirePackage[writefile]{listings}[2002/04/01] |
| 30 |
\newif\iffancyvrb \IfFileExists{fancyvrb.sty}{\fancyvrbtrue}{} |
| 31 |
\newif\ifcolor \IfFileExists{color.sty}{\colortrue}{} |
| 32 |
\newif\ifhyper \@ifundefined{pdfoutput}{} |
| 33 |
{\IfFileExists{hyperref.sty}{\hypertrue}{}} |
| 34 |
\newif\ifalgorithmic \IfFileExists{algorithmic.sty}{\algorithmictrue}{} |
| 35 |
\newif\iflgrind \IfFileExists{lgrind.sty}{\lgrindtrue}{} |
| 36 |
\iffancyvrb \RequirePackage{fancyvrb}\fi |
| 37 |
\ifhyper \RequirePackage[colorlinks]{hyperref}\else |
| 38 |
\def\href#1{\texttt}\fi |
| 39 |
\ifcolor \RequirePackage{color}\fi |
| 40 |
\ifalgorithmic \RequirePackage{algorithmic}\fi |
| 41 |
\iflgrind \RequirePackage{lgrind}\fi |
| 42 |
\RequirePackage{nameref} |
| 43 |
\renewcommand\ref{\protect\T@ref} |
| 44 |
\renewcommand\pageref{\protect\T@pageref} |
| 45 |
\def\lst@BeginRemark#1{% |
| 46 |
\begin{quote}\topsep0pt\let\small\footnotesize\small#1:} |
| 47 |
\def\lst@EndRemark{\end{quote}} |
| 48 |
\newenvironment{TODO} |
| 49 |
{\lst@BeginRemark{To do}}{\lst@EndRemark} |
| 50 |
\newenvironment{ALTERNATIVE} |
| 51 |
{\lst@BeginRemark{Alternative}}{\lst@EndRemark} |
| 52 |
\newenvironment{REMOVED} |
| 53 |
{\lst@BeginRemark{Removed}}{\lst@EndRemark} |
| 54 |
\newenvironment{OLDDEF} |
| 55 |
{\lst@BeginRemark{Old definition}}{\lst@EndRemark} |
| 56 |
\def\advise{\par\list\labeladvise |
| 57 |
{\advance\linewidth\@totalleftmargin |
| 58 |
\@totalleftmargin\z@ |
| 59 |
\@listi |
| 60 |
\let\small\footnotesize \small\sffamily |
| 61 |
\parsep \z@ \@plus\z@ \@minus\z@ |
| 62 |
\topsep6\p@ \@plus1\p@\@minus2\p@ |
| 63 |
\def\makelabel##1{\hss\llap{##1}}}} |
| 64 |
\let\endadvise\endlist |
| 65 |
\def\advisespace{\hbox{}\qquad} |
| 66 |
\def\labeladvise{$\to$} |
| 67 |
\newenvironment{syntax} |
| 68 |
{\list{}{\itemindent-\leftmargin |
| 69 |
\def\makelabel##1{\hss\lst@syntaxlabel##1,,,,\relax}}} |
| 70 |
{\endlist} |
| 71 |
\def\lst@syntaxlabel#1,#2,#3,#4\relax{% |
| 72 |
\llap{\scriptsize\itshape#3}% |
| 73 |
\def\lst@temp{#2}% |
| 74 |
\expandafter\lst@syntaxlabel@\meaning\lst@temp\relax |
| 75 |
\rlap{\hskip-\itemindent\hskip\itemsep\hskip\linewidth |
| 76 |
\llap{\ttfamily\lst@temp}\hskip\labelwidth |
| 77 |
\def\lst@temp{#1}% |
| 78 |
\ifx\lst@temp\lstdoc@currversion#1\fi}} |
| 79 |
\def\lst@syntaxlabel@#1>#2\relax |
| 80 |
{\edef\lst@temp{\zap@space#2 \@empty}} |
| 81 |
\newcommand*\syntaxnewline{\newline\hbox{}\kern\labelwidth} |
| 82 |
\newcommand*\syntaxor{\qquad or\qquad} |
| 83 |
\newcommand*\syntaxbreak |
| 84 |
{\hfill\kern0pt\discretionary{}{\kern\labelwidth}{}} |
| 85 |
\let\syntaxfill\hfill |
| 86 |
\def\alternative#1{\lst@true \alternative@#1,\relax,} |
| 87 |
\def\alternative@#1,{% |
| 88 |
\ifx\relax#1\@empty |
| 89 |
\expandafter\@gobble |
| 90 |
\else |
| 91 |
\ifx\@empty#1\@empty\else |
| 92 |
\lst@if \lst@false \else $\vert$\fi |
| 93 |
\textup{\texttt{#1}}% |
| 94 |
\fi |
| 95 |
\fi |
| 96 |
\alternative@} |
| 97 |
\long\def\m@cro@#1#2#3{\endgroup \topsep\MacroTopsep \trivlist |
| 98 |
\edef\saved@macroname{\string#3}% |
| 99 |
\def\makelabel##1{\llap{##1}}% |
| 100 |
\if@inlabel |
| 101 |
\let\@tempa\@empty \count@\macro@cnt |
| 102 |
\loop \ifnum\count@>\z@ |
| 103 |
\edef\@tempa{\@tempa\hbox{\strut}}\advance\count@\m@ne \repeat |
| 104 |
\edef\makelabel##1{\llap{\vtop to\baselineskip |
| 105 |
{\@tempa\hbox{##1}\vss}}}% |
| 106 |
\advance \macro@cnt \@ne |
| 107 |
\else \macro@cnt\@ne \fi |
| 108 |
\edef\@tempa{\noexpand\item[% |
| 109 |
#1% |
| 110 |
\noexpand\PrintMacroName |
| 111 |
\else |
| 112 |
\expandafter\noexpand\csname Print#2Name\endcsname % MODIFIED |
| 113 |
\fi |
| 114 |
{\string#3}]}% |
| 115 |
\@tempa |
| 116 |
\global\advance\c@CodelineNo\@ne |
| 117 |
#1% |
| 118 |
\SpecialMainIndex{#3}\nobreak |
| 119 |
\DoNotIndex{#3}% |
| 120 |
\else |
| 121 |
\csname SpecialMain#2Index\endcsname{#3}\nobreak % MODIFIED |
| 122 |
\fi |
| 123 |
\global\advance\c@CodelineNo\m@ne |
| 124 |
\ignorespaces} |
| 125 |
\def\macro{\begingroup |
| 126 |
\catcode`\\12 |
| 127 |
\MakePrivateLetters \m@cro@ \iftrue {Macro}}% MODIFIED |
| 128 |
\def\environment{\begingroup |
| 129 |
\catcode`\\12 |
| 130 |
\MakePrivateLetters \m@cro@ \iffalse {Env}}% MODIFIED |
| 131 |
\def\newdocenvironment#1#2#3#4{% |
| 132 |
\@namedef{#1}{#3\begingroup \catcode`\\12\relax |
| 133 |
\MakePrivateLetters \m@cro@ \iffalse {#2}}% |
| 134 |
\@namedef{end#1}{#4\endmacro}% |
| 135 |
\@ifundefined{Print#2Name}{\expandafter |
| 136 |
\let\csname Print#2Name\endcsname\PrintMacroName}{}% |
| 137 |
\@ifundefined{SpecialMain#2Index}{\expandafter |
| 138 |
\let\csname SpecialMain#2Index\endcsname\SpecialMainIndex}{}} |
| 139 |
\newdocenvironment{aspect}{Aspect}{}{} |
| 140 |
\def\PrintAspectName#1{} |
| 141 |
\def\SpecialMainAspectIndex#1{% |
| 142 |
\@bsphack |
| 143 |
\index{aspects:\levelchar\protect\aspectname{#1}\encapchar main}% |
| 144 |
\@esphack} |
| 145 |
\newdocenvironment{lstkey}{Key}{}{} |
| 146 |
\def\PrintKeyName#1{\strut\keyname{#1}\ } |
| 147 |
\def\SpecialMainKeyIndex#1{% |
| 148 |
\@bsphack |
| 149 |
\index{keys\levelchar\protect\keyname{#1}\encapchar main}% |
| 150 |
\@esphack} |
| 151 |
\newcounter{argcount} |
| 152 |
\def\labelargcount{\texttt{\#\arabic{argcount}}\hskip\labelsep$=$} |
| 153 |
\def\macroargs{\list\labelargcount |
| 154 |
{\usecounter{argcount}\leftmargin=2\leftmargin |
| 155 |
\parsep \z@ \@plus\z@ \@minus\z@ |
| 156 |
\topsep4\p@ \@plus\p@ \@minus2\p@ |
| 157 |
\itemsep\z@ \@plus\z@ \@minus\z@ |
| 158 |
\def\makelabel##1{\hss\llap{##1}}}} |
| 159 |
\def\endmacroargs{\endlist\@endparenv} |
| 160 |
\lst@RequireAspects{writefile} |
| 161 |
\newbox\lst@samplebox |
| 162 |
\lstnewenvironment{lstsample}[3][] |
| 163 |
{\global\let\lst@intname\@empty |
| 164 |
\gdef\lst@sample{#2}% |
| 165 |
\setbox\lst@samplebox=\hbox\bgroup |
| 166 |
\setkeys{lst}{language={},style={},tabsize=4,gobble=5,% |
| 167 |
basicstyle=\small\ttfamily,basewidth=0.51em,point={#1}} |
| 168 |
#3% |
| 169 |
\lst@BeginAlsoWriteFile{\jobname.tmp}} |
| 170 |
{\lst@EndWriteFile\egroup |
| 171 |
\ifdim \wd\lst@samplebox>.5\linewidth |
| 172 |
\begin{center}% |
| 173 |
\hbox to\linewidth{\box\lst@samplebox\hss}% |
| 174 |
\end{center}% |
| 175 |
\lst@sampleInput |
| 176 |
\else |
| 177 |
\begin{center}% |
| 178 |
\begin{minipage}{0.45\linewidth}\lst@sampleInput\end{minipage}% |
| 179 |
\qquad |
| 180 |
\begin{minipage}{0.45\linewidth}% |
| 181 |
\hbox to\linewidth{\box\lst@samplebox\hss}% |
| 182 |
\end{minipage}% |
| 183 |
\end{center}% |
| 184 |
\fi} |
| 185 |
\lst@InstallKeywords{p}{point}{pointstyle}\relax{keywordstyle}{}ld |
| 186 |
\lstnewenvironment{lstxsample}[1][] |
| 187 |
{\begingroup |
| 188 |
\setkeys{lst}{belowskip=-\medskipamount,language={},style={},% |
| 189 |
tabsize=4,gobble=5,basicstyle=\small\ttfamily,% |
| 190 |
basewidth=0.51em,point={#1}} |
| 191 |
\lst@BeginAlsoWriteFile{\jobname.tmp}} |
| 192 |
{\endgroup |
| 193 |
\endgroup} |
| 194 |
\def\lst@sampleInput{% |
| 195 |
\MakePercentComment\catcode`\^^M=10\relax |
| 196 |
\small\lst@sample |
| 197 |
{\setkeys{lst}{SelectCharTable=\lst@ReplaceInput{\^\^I}% |
| 198 |
{\lst@ProcessTabulator}}% |
| 199 |
\leavevmode \input{\jobname.tmp}}\MakePercentIgnore} |
| 200 |
\renewcommand\paragraph{\@startsection{paragraph}{4}{\z@}% |
| 201 |
{1.25ex \@plus1ex \@minus.2ex}% |
| 202 |
{-1em}% |
| 203 |
{\normalfont\normalsize\bfseries}} |
| 204 |
\def\lstref#1{\emph{\ref{#1} \nameref{#1}}} |
| 205 |
\def\@part[#1]#2{\addcontentsline{toc}{part}{#1}% |
| 206 |
{\parindent\z@ \raggedright \interlinepenalty\@M |
| 207 |
\normalfont \huge \bfseries #2\markboth{}{}\par}% |
| 208 |
\nobreak\vskip 3ex\@afterheading} |
| 209 |
\renewcommand*\l@section[2]{% |
| 210 |
\addpenalty\@secpenalty |
| 211 |
\addvspace{.25em \@plus\p@}% |
| 212 |
\setlength\@tempdima{1.5em}% |
| 213 |
\begingroup |
| 214 |
\parindent \z@ \rightskip \@pnumwidth |
| 215 |
\parfillskip -\@pnumwidth |
| 216 |
\leavevmode |
| 217 |
\advance\leftskip\@tempdima |
| 218 |
\hskip -\leftskip |
| 219 |
#1\nobreak\hfil \nobreak\hb@xt@\@pnumwidth{\hss #2}\par |
| 220 |
\endgroup} |
| 221 |
\renewcommand*\l@subsection{\@dottedtocline{2}{0pt}{2.3em}} |
| 222 |
\renewcommand*\l@subsubsection{\@dottedtocline{3}{0pt}{3.2em}} |
| 223 |
\newcommand\ikeyname[1]{% |
| 224 |
\lstkeyindex{#1}{}% |
| 225 |
\lstaspectindex{#1}{}% |
| 226 |
\keyname{#1}} |
| 227 |
\newcommand\ekeyname[1]{% |
| 228 |
\@bsphack |
| 229 |
\lstkeyindex{#1}{\encapchar usage}% |
| 230 |
\lstaspectindex{#1}{\encapchar usage}% |
| 231 |
\@esphack} |
| 232 |
\newcommand\rkeyname[1]{% |
| 233 |
\@bsphack |
| 234 |
\lstkeyindex{#1}{\encapchar main}% |
| 235 |
\lstaspectindex{#1}{\encapchar main}% |
| 236 |
\@esphack{\rstyle\keyname{#1}}} |
| 237 |
\newcommand\icmdname[1]{% |
| 238 |
\@bsphack |
| 239 |
\lstaspectindex{#1}{}% |
| 240 |
\@esphack\texttt{\string#1}} |
| 241 |
\newcommand\rcmdname[1]{% |
| 242 |
\@bsphack |
| 243 |
\lstaspectindex{#1}{\encapchar main}% |
| 244 |
\@esphack\texttt{\rstyle\string#1}} |
| 245 |
\def\lstaspectindex#1#2{% |
| 246 |
\global\@namedef{lstkandc@\string#1}{}% |
| 247 |
\@ifundefined{lstisaspect@\string#1} |
| 248 |
{\index{unknown\levelchar |
| 249 |
\protect\texttt{\protect\string\string#1}#2}}% |
| 250 |
{\index{\@nameuse{lstisaspect@\string#1}\levelchar |
| 251 |
\protect\texttt{\protect\string\string#1}#2}}% |
| 252 |
} |
| 253 |
\def\lstkeyindex#1#2{% |
| 254 |
} |
| 255 |
\def\lstisaspect[#1]#2{% |
| 256 |
\global\@namedef{lstaspect@#1}{#2}% |
| 257 |
\lst@AddTo\lst@allkeysandcmds{,#2}% |
| 258 |
\@for\lst@temp:=#2\do |
| 259 |
{\ifx\@empty\lst@temp\else |
| 260 |
\global\@namedef{lstisaspect@\lst@temp}{#1}% |
| 261 |
\fi}} |
| 262 |
\gdef\lst@allkeysandcmds{} |
| 263 |
\def\lstprintaspectkeysandcmds#1{% |
| 264 |
\lst@true |
| 265 |
\expandafter\@for\expandafter\lst@temp |
| 266 |
\expandafter:\expandafter=\csname lstaspect@#1\endcsname\do |
| 267 |
{\lst@if\lst@false\else, \fi \texttt{\lst@temp}}} |
| 268 |
\def\lstcheckreference{% |
| 269 |
\@for\lst@temp:=\lst@allkeysandcmds\do |
| 270 |
{\ifx\lst@temp\@empty\else |
| 271 |
\@ifundefined{lstkandc@\lst@temp} |
| 272 |
{\typeout{\lst@temp\space not in reference guide?}}{}% |
| 273 |
\fi}} |
| 274 |
\newcommand*\lst{\texttt{lst}} |
| 275 |
\newcommand*\Cpp{C\texttt{++}} |
| 276 |
\let\keyname\texttt |
| 277 |
\let\keyvalue\texttt |
| 278 |
\let\hookname\texttt |
| 279 |
\newcommand*\aspectname[1]{{\normalfont\sffamily#1}} |
| 280 |
\DeclareRobustCommand\packagename[1]{% |
| 281 |
{\leavevmode\text@command{#1}% |
| 282 |
\switchfontfamily\sfdefault\rmdefault |
| 283 |
\check@icl #1\check@icr |
| 284 |
\expandafter}}% |
| 285 |
\renewcommand\packagename[1]{{\normalfont\sffamily#1}} |
| 286 |
\def\switchfontfamily#1#2{% |
| 287 |
\begingroup\xdef\@gtempa{#1}\endgroup |
| 288 |
\ifx\f@family\@gtempa\fontfamily#2% |
| 289 |
\else\fontfamily#1\fi |
| 290 |
\selectfont} |
| 291 |
\ifcolor |
| 292 |
\definecolor{darkgreen}{rgb}{0,0.5,0} |
| 293 |
\def\rstyle{\color{darkgreen}} |
| 294 |
\else |
| 295 |
\let\rstyle\empty |
| 296 |
\fi |
| 297 |
\gdef\lst@emails{} |
| 298 |
\newcommand*\lstthanks[2] |
| 299 |
{#1\lst@AddTo\lst@emails{,#1,<#2>}% |
| 300 |
\ifx\@empty#2\@empty\typeout{Missing email for #1}\fi} |
| 301 |
\newcommand*\lsthelper[3] |
| 302 |
{{\let~\ #1}% |
| 303 |
\lst@IfOneOf#1\relax\lst@emails |
| 304 |
{}{\typeout{^^JWarning: Unknown helper #1.^^J}}} |
| 305 |
\lstdefinelanguage[doc]{Pascal}{% |
| 306 |
morekeywords={alfa,and,array,begin,boolean,byte,case,char,const,div,% |
| 307 |
do,downto,else,end,false,file,for,function,get,goto,if,in,% |
| 308 |
integer,label,maxint,mod,new,not,of,or,pack,packed,page,program,% |
| 309 |
procedure,put,read,readln,real,record,repeat,reset,rewrite,set,% |
| 310 |
text,then,to,true,type,unpack,until,var,while,with,write,writeln},% |
| 311 |
sensitive=false,% |
| 312 |
morecomment=[s]{(*}{*)},% |
| 313 |
morecomment=[s]{\{}{\}},% |
| 314 |
morestring=[d]{'}} |
| 315 |
\lstdefinestyle{} |
| 316 |
{basicstyle={},% |
| 317 |
keywordstyle=\bfseries,identifierstyle={},% |
| 318 |
commentstyle=\itshape,stringstyle={},% |
| 319 |
numberstyle={},stepnumber=1,% |
| 320 |
pointstyle=\pointstyle} |
| 321 |
\def\pointstyle{% |
| 322 |
{\let\lst@um\@empty \xdef\@gtempa{\the\lst@token}}% |
| 323 |
\expandafter\lstkeyindex\expandafter{\@gtempa}{}% |
| 324 |
\expandafter\lstaspectindex\expandafter{\@gtempa}{}% |
| 325 |
\rstyle} |
| 326 |
\lstset{defaultdialect=[doc]Pascal,language=Pascal,style={}} |
| 327 |
\def\lstscanlanguages#1#2#3{% |
| 328 |
\begingroup |
| 329 |
\def\lst@DefDriver@##1##2##3##4[##5]##6{% |
| 330 |
\lst@false |
| 331 |
\lst@lAddTo\lst@scan{##6(##5),}% |
| 332 |
\begingroup |
| 333 |
\@ifnextchar[{\lst@XDefDriver{##1}##3}{\lst@DefDriver@@##3}}% |
| 334 |
\def\lst@XXDefDriver[##1]{}% |
| 335 |
\lst@InputCatcodes |
| 336 |
\def\lst@dontinput{#3}% |
| 337 |
\let\lst@scan\@empty |
| 338 |
\lst@for{#2}\do{% |
| 339 |
\lst@IfOneOf##1\relax\lst@dontinput |
| 340 |
{}% |
| 341 |
{\InputIfFileExists{##1}{}{}}}% |
| 342 |
\global\let\@gtempa\lst@scan |
| 343 |
\endgroup |
| 344 |
\let#1\@gtempa} |
| 345 |
\def\lstprintlanguages#1{% |
| 346 |
\def\do##1{\setbox\@tempboxa\hbox{##1\space\space}% |
| 347 |
\ifdim\wd\@tempboxa<.5\linewidth \wd\@tempboxa.5\linewidth |
| 348 |
\else \wd\@tempboxa\linewidth \fi |
| 349 |
\box\@tempboxa\allowbreak}% |
| 350 |
\begin{quote} |
| 351 |
\par\noindent |
| 352 |
\hyphenpenalty=\@M \rightskip=\z@\@plus\linewidth\relax |
| 353 |
\lst@BubbleSort#1% |
| 354 |
\expandafter\lst@NextLanguage#1\relax(\relax),% |
| 355 |
\end{quote}} |
| 356 |
\def\lst@NextLanguage#1(#2),{% |
| 357 |
\ifx\relax#1\else |
| 358 |
\def\lst@language{#1}\def\lst@dialects{(#2),}% |
| 359 |
\expandafter\lst@NextLanguage@ |
| 360 |
\fi} |
| 361 |
\def\lst@NextLanguage@#1(#2),{% |
| 362 |
\def\lst@temp{#1}% |
| 363 |
\ifx\lst@temp\lst@language |
| 364 |
\lst@lAddTo\lst@dialects{(#2),}% |
| 365 |
\expandafter\lst@NextLanguage@ |
| 366 |
\else |
| 367 |
\do{\lst@language |
| 368 |
\ifx\lst@dialects\lst@emptydialect\else |
| 369 |
\expandafter\lst@NormedDef\expandafter\lst@language |
| 370 |
\expandafter{\lst@language}% |
| 371 |
\space(% |
| 372 |
\lst@BubbleSort\lst@dialects |
| 373 |
\expandafter\lst@PrintDialects\lst@dialects(\relax),% |
| 374 |
)% |
| 375 |
\fi}% |
| 376 |
\def\lst@next{\lst@NextLanguage#1(#2),}% |
| 377 |
\expandafter\lst@next |
| 378 |
\fi} |
| 379 |
\def\lst@emptydialect{(),} |
| 380 |
\def\lst@PrintDialects(#1),{% |
| 381 |
\ifx\@empty#1\@empty empty\else |
| 382 |
\lst@PrintDialect{#1}% |
| 383 |
\fi |
| 384 |
\lst@PrintDialects@} |
| 385 |
\def\lst@PrintDialects@(#1),{% |
| 386 |
\ifx\relax#1\else |
| 387 |
, \lst@PrintDialect{#1}% |
| 388 |
\expandafter\lst@PrintDialects@ |
| 389 |
\fi} |
| 390 |
\def\lst@PrintDialect#1{% |
| 391 |
\lst@NormedDef\lst@temp{#1}% |
| 392 |
\expandafter\ifx\csname\@lst dd@\lst@language\endcsname\lst@temp |
| 393 |
\texttt{\underbar{#1}}% |
| 394 |
\else |
| 395 |
\texttt{#1}% |
| 396 |
\fi} |
| 397 |
\def\lst@IfLE#1#2\@empty#3#4\@empty{% |
| 398 |
\ifx #1\relax |
| 399 |
\let\lst@next\@firstoftwo |
| 400 |
\else \ifx #3\relax |
| 401 |
\let\lst@next\@secondoftwo |
| 402 |
\else |
| 403 |
\lowercase{\ifx#1#3}% |
| 404 |
\def\lst@next{\lst@IfLE#2\@empty#4\@empty}% |
| 405 |
\else |
| 406 |
\lowercase{\ifnum`#1<`#3}\relax |
| 407 |
\let\lst@next\@firstoftwo |
| 408 |
\else |
| 409 |
\let\lst@next\@secondoftwo |
| 410 |
\fi |
| 411 |
\fi |
| 412 |
\fi \fi |
| 413 |
\lst@next} |
| 414 |
\def\lst@BubbleSort#1{% |
| 415 |
\ifx\@empty#1\else |
| 416 |
\lst@false |
| 417 |
\expandafter\lst@BubbleSort@#1\relax,\relax,% |
| 418 |
\expandafter\lst@BubbleSort@\expandafter,\lst@sorted |
| 419 |
\relax,\relax,% |
| 420 |
\let#1\lst@sorted |
| 421 |
\lst@if |
| 422 |
\def\lst@next{\lst@BubbleSort#1}% |
| 423 |
\expandafter\expandafter\expandafter\lst@next |
| 424 |
\fi |
| 425 |
\fi} |
| 426 |
\def\lst@BubbleSort@#1,#2,{% |
| 427 |
\ifx\@empty#1\@empty |
| 428 |
\def\lst@sorted{#2,}% |
| 429 |
\def\lst@next{\lst@BubbleSort@@}% |
| 430 |
\else |
| 431 |
\let\lst@sorted\@empty |
| 432 |
\def\lst@next{\lst@BubbleSort@@#1,#2,}% |
| 433 |
\fi |
| 434 |
\lst@next} |
| 435 |
\def\lst@BubbleSort@@#1,#2,{% |
| 436 |
\ifx\relax#1\else |
| 437 |
\ifx\relax#2% |
| 438 |
\lst@lAddTo\lst@sorted{#1,}% |
| 439 |
\expandafter\expandafter\expandafter\lst@BubbleSort@@@ |
| 440 |
\else |
| 441 |
\lst@IfLE #1\relax\@empty #2\relax\@empty |
| 442 |
{\lst@lAddTo\lst@sorted{#1,#2,}}% |
| 443 |
{\lst@true \lst@lAddTo\lst@sorted{#2,#1,}}% |
| 444 |
\expandafter\expandafter\expandafter\lst@BubbleSort@@ |
| 445 |
\fi |
| 446 |
\fi} |
| 447 |
\def\lst@BubbleSort@@@#1\relax,{} |
| 448 |
\endinput |
| 449 |
%% |
| 450 |
%% End of file `lstdoc.sty'. |
