@lofcz/tikz 0.1.0 → 0.2.1

package/runtime/dist/bundles/latex-core/files/tex/latex/base/docstrip.tex

@@ -1,1157 +0,0 @@
-%%
-%% This is file `docstrip.tex',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% docstrip.dtx  (with options: `initex,program,stats')
-%% 
-%% This is a generated file.
-%% 
-%% The source is maintained by the LaTeX Project team and bug
-%% reports for it can be opened at https://latex-project.org/bugs.html
-%% (but please observe conditions on bug reports sent to that address!)
-%% 
-%% 
-%% Copyright (C) 1993-2025
-%% The LaTeX Project and any individual authors listed elsewhere
-%% in this file.
-%% 
-%% This file was generated from file(s) of the LaTeX base system.
-%% --------------------------------------------------------------
-%% 
-%% It may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3c
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%    https://www.latex-project.org/lppl.txt
-%% and version 1.3c or later is part of all distributions of LaTeX
-%% version 2008 or later.
-%% 
-%% This file has the LPPL maintenance status "maintained".
-%% 
-%% This file may only be distributed together with a copy of the LaTeX
-%% base system. You may however distribute the LaTeX base system without
-%% such generated files.
-%% 
-%% The list of all files belonging to the LaTeX base distribution is
-%% given in the file `manifest.txt'. See also `legal.txt' for additional
-%% information.
-%% 
-%% The list of derived (unpacked) files belonging to the distribution
-%% and covered by LPPL is defined by the unpacking scripts (with
-%% extension .ins) which are part of the distribution.
-\catcode`\{=1
-\catcode`\}=2
-\def\filename{docstrip.dtx}
-\def\fileversion{v2.6c}
-\def\filedate{2024-12-23}
-\def\docdate {2024-12-23}
-%%
-%% The docstrip program for use with TeX.
-%% Copyright (C) 1989-1991 Frank Mittelbach
-%% Copyright (C) 1992-1995 Johannes Braams, Denys Duchier,
-%%                         Frank Mittelbach
-%% Copyright (C) 1995 Marcin Woli\'nski
-%% Copyright (C) 1996-1997 Mark Wooding, Marcin Woli\'nski
-%% Copyright (C) 1998-2022 LaTeX Project and the above authors.
-%% All rights are reserved.
-%%
-\catcode`\Z=\catcode`\%
-\ifnum13=\catcode`\~{\egroup\else
-  \catcode`\Z=9
-Z
-Z  \catcode`\{=1  \catcode`\}=2
-Z  \catcode`\#=6  \catcode`\^=7
-Z  \catcode`\@=11 \catcode`\^^L=13
-Z  \let\bgroup={  \let\egroup=}
-Z
-Z  \dimendef\z@=10 \z@=0pt \chardef\@ne=1 \countdef\m@ne=22 \m@ne=-1
-Z  \countdef\count@=255
-Z
-Z  \def\wlog{\immediate\write\m@ne} \def\space{ }
-Z
-Z  \count10=22 % allocates \count registers 23, 24, ...
-Z  \count15=9 % allocates \toks registers 10, 11, ...
-Z  \count16=-1 % allocates input streams 0, 1, ...
-Z  \count17=-1 % allocates output streams 0, 1, ...
-Z
-Z  \def\alloc@#1#2#3{\advance\count1#1\@ne#2#3\count1#1\relax}
-Z
-Z  \def\newcount{\alloc@0\countdef} \def\newtoks{\alloc@5\toksdef}
-Z  \def\newread{\alloc@6\chardef}   \def\newwrite{\alloc@7\chardef}
-Z
-Z \def\newif#1{%
-Z   \count@\escapechar \escapechar\m@ne
-Z     \let#1\iffalse
-Z     \@if#1\iftrue
-Z     \@if#1\iffalse
-Z   \escapechar\count@}
-Z \def\@if#1#2{%
-Z   \expandafter\def\csname\expandafter\@gobbletwo\string#1%
-Z                     \expandafter\@gobbletwo\string#2\endcsname
-Z                        {\let#1#2}}
-Z
-Z  \def\@gobbletwo#1#2{}
-Z  \def\@gobblethree#1#2#3{}
-Z
-Z  \def\loop#1\repeat{\def\body{#1}\iterate}
-Z  \def\iterate{\body \let\next\iterate \else\let\next\relax\fi \next}
-Z  \let\repeat\fi
-Z
-Z  \def\empty{}
-Z
-Z  \def\tracingall{\tracingcommands2 \tracingstats2
-Z    \tracingpages1 \tracingoutput1 \tracinglostchars1
-Z    \tracingmacros2 \tracingparagraphs1 \tracingrestores1
-Z    \showboxbreadth 10000 \showboxdepth 10000 \errorstopmode
-Z    \errorcontextlines 10000 \tracingonline1 }
-Z
-\bgroup}\fi\catcode`\Z=11
-\let\bgroup={  \let\egroup=}
-\catcode`\@=11
-\newlinechar=`\^^J
-\count@=128\relax
-\loop
-  \catcode\count@ 12\relax
-\ifnum\count@ <255\relax
-    \advance\count@\@ne
-\repeat
-\newif\ifGenerate
-\newif\ifContinue
-\newif\ifForlist
-\newif\ifDefault
-\newif\ifMoreFiles \MoreFilestrue
-\newif\ifaskforoverwrite \askforoverwritetrue
-\newcount\blockLevel \blockLevel\z@
-\newcount\emptyLines \emptyLines \z@
-\newcount\processedLines   \processedLines  \z@
-\newcount\commentsRemoved  \commentsRemoved \z@
-\newcount\commentsPassed   \commentsPassed  \z@
-\newcount\codeLinesPassed  \codeLinesPassed \z@
-\newcount\TotalprocessedLines   \TotalprocessedLines  \z@
-\newcount\TotalcommentsRemoved  \TotalcommentsRemoved \z@
-\newcount\TotalcommentsPassed   \TotalcommentsPassed  \z@
-\newcount\TotalcodeLinesPassed  \TotalcodeLinesPassed \z@
-\newcount\NumberOfFiles \NumberOfFiles\z@
-\newread\inFile
-\chardef\ttyin16
-\chardef\ttyout16
-\newread\inputcheck
-\newif\iftopbatchfile \topbatchfiletrue
-\def\ifToplevel{\relax\iftopbatchfile
-   \expandafter\iden \else \expandafter\@gobble\fi}
-\ifx\undefined\@@input \let\@@input\input\fi
-\def\batchinput#1{%
-   \begingroup
-     \def\batchfile{#1}%
-     \topbatchfilefalse
-     \Defaultfalse
-     \usepreamble\org@preamble
-     \usepostamble\org@postamble
-     \let\destdir\WriteToDir
-     \processbatchFile
-   \endgroup
-}
-\def\skip@input#1 {}
-\let\input\skip@input
-\def\guardStack{}
-\def\blockHead{}
-\def\yes{yes}
-\def\y{y}
-\def\n{n}
-\def\DefaultbatchFile{docstrip.cmd}
-{\catcode`\%=12
- \gdef\perCent{%}
- \gdef\DoubleperCent{%%}
-}
-\let\MetaPrefix\DoubleperCent
-\def^^L{ }
-\def\Name#1#2{\expandafter#1\csname#2\endcsname}
-\def\@stripstring{\expandafter\@gobble\string}
-\def\eltStart{}
-\def\eltEnd{}
-\def\qStop{\qStop}
-\def\pop#1#2{%
-  \ifx#1\empty
-    \Msg{Warning: Found end guard without matching begin}%
-    \let#2\empty
-  \else
-    \def\tmp{\expandafter\popX #1\qStop #1#2}%
-    \expandafter\tmp\fi}
-\def\popX\eltStart #1\eltEnd #2\qStop #3#4{\def#3{#2}\def#4{#1}}
-\def\push#1#2{\expandafter\pushX #1\qStop #1{\eltStart #2\eltEnd}}
-\def\pushX #1\qStop #2#3{\def #2{#3#1}}
-\def\forlist#1:=#2\do#3\od{%
-    \edef\ListCondition{#2}%
-    \Forlisttrue
-    \loop
-      \edef#1{\expandafter\FirstElt\ListCondition,\empty.}%
-      \edef\ListCondition{\expandafter\OtherElts\ListCondition,\empty.}%
-      \ifx#1\empty \Forlistfalse \else#3\fi
-      \ifForlist
-    \repeat}
-\def\FirstElt#1,#2.{#1}
-\def\OtherElts#1,#2.{#2}
-\def\whileswitch#1\fi#2{#1\loop#2#1\repeat\fi}
-\ifx\@tempcnta\undefined \newcount\@tempcnta \fi
-\@tempcnta=0
-\loop
-\Name\chardef{s@\number\@tempcnta}=0
-\csname newcount\expandafter\endcsname%
-  \csname off@\number\@tempcnta\endcsname
-\advance\@tempcnta1
-\ifnum\@tempcnta<16\repeat
-\let\s@do\relax
-\edef\@outputstreams{%
-  \s@do\Name\noexpand{s@0}\s@do\Name\noexpand{s@1}%
-  \s@do\Name\noexpand{s@2}\s@do\Name\noexpand{s@3}%
-  \s@do\Name\noexpand{s@4}\s@do\Name\noexpand{s@5}%
-  \s@do\Name\noexpand{s@6}\s@do\Name\noexpand{s@7}%
-  \s@do\Name\noexpand{s@8}\s@do\Name\noexpand{s@9}%
-  \s@do\Name\noexpand{s@10}\s@do\Name\noexpand{s@11}%
-  \s@do\Name\noexpand{s@12}\s@do\Name\noexpand{s@13}%
-  \s@do\Name\noexpand{s@14}\s@do\Name\noexpand{s@15}%
-  \noexpand\@nostreamerror
-  }
-\def\@nostreamerror{\errmessage{No more output streams!}}
-\def\@streamfound#1\@nostreamerror{\fi}
-\bgroup\edef\x{\egroup
- \def\noexpand\@stripstr\string\s@{}}
-\x
-\def\quote@name#1{"\quote@@name#1\@gobble""}
-\def\quote@@name#1"{#1\quote@@name}
-\chardef\stream@closed=16
-\def\StreamOpen#1{%
-  \chardef#1=\stream@closed
-  \def\s@do##1{\ifnum##1=0
-    \chardef#1=\expandafter\@stripstr\string##1 %
-    \global\chardef##1=1 %
-    \edef\q@curr@file{%
-      \expandafter\expandafter\expandafter\quote@name
-      \expandafter\expandafter\expandafter{\csname pth@\@stripstring#1\endcsname}}
-    \immediate\openout#1=\q@curr@file\relax
-    \@streamfound
-    \fi}
-  \@outputstreams
-  }
-\def\StreamClose#1{%
-  \immediate\closeout#1%
-  \def\s@do##1{\ifnum#1=\expandafter\@stripstr\string##1 %
-    \global\chardef##1=0 %
-    \@streamfound
-    \fi}
-  \@outputstreams
-  \chardef#1=\stream@closed
-  }
-\def\StreamPut{\immediate\write}
-\def\showprogress{\let\maybeMsg\message}
-\def\keepsilent{\let\maybeMsg\@gobble}
-\showprogress
-\def\Msg{\immediate\write\ttyout}
-\def\iden#1{#1}
-\def\strip#1#2 \@gobble{\def #1{#2}}
-\def\@defpar{\par}
-\def\Ask#1#2{%
-    \message{#2}\read\ttyin to #1\ifx#1\@defpar\def#1{}\else
-    \iden{\expandafter\strip
-       \expandafter#1#1\@gobble\@gobble} \@gobble\fi}
-\let\OriginalAsk=\Ask
-\def\askonceonly{%
-  \def\Ask##1##2{%
-    \OriginalAsk{##1}{##2}%
-    \global\let\Ask\OriginalAsk
-    \Ask\noprompt{%
-      By default you will be asked this question for every file.^^J%
-      If you enter `y' now,^^J%
-      I will assume `y' for all future questions^^J%
-      without prompting.}%
-    \ifx\y\noprompt\let\noprompt\yes\fi
-    \ifx\yes\noprompt\gdef\Ask####1####2{\def####1{y}}\fi}}
-\def\@gobble#1{}
-\edef\Endinput{\expandafter\@gobble\string\\endinput}
-\def\makeOther#1{\catcode`#1=12\relax}
-\ifx\undefined\@@end\else\let\end\@@end\fi
-\ifx\@temptokena\undefined \csname newtoks\endcsname\@temptokena\fi
-\def\@addto#1#2{%
-  \@temptokena\expandafter{#1}%
-  \edef#1{\the\@temptokena#2}}
-\def\@ifpresent#1#2#3#4{%
-  \def\tmp##1#1##2\qStop{\ifx!##2!}%
-  \expandafter\tmp#2#1\qStop #4\else #3\fi
-  }
-\def\tospaces#1{%
-  \ifx#1\secapsot\secapsot\fi\space\tospaces}
-\def\secapsot\fi\space\tospaces{\fi}
-\def\@spaces{\space\space\space\space\space}
-\def\uptospace#1 #2\qStop{#1}
-\def\afterfi#1#2\fi{\fi#1}
-\def\@ifnextchar#1#2#3{\bgroup
-  \def\reserved@a{\ifx\reserved@c #1 \aftergroup\@firstoftwo
-    \else \aftergroup\@secondoftwo\fi\egroup
-    {#2}{#3}}%
-  \futurelet\reserved@c\@ifnch
-  }
-\def\@ifnch{\ifx \reserved@c \@sptoken \expandafter\@xifnch
-      \else \expandafter\reserved@a
-      \fi}
-\def\@firstoftwo#1#2{#1}
-\def\@secondoftwo#1#2{#2}
-\iden{\let\@sptoken= } %
-\iden{\def\@xifnch} {\futurelet\reserved@c\@ifnch}
-\let\kernel@ifnextchar\@ifnextchar
-\def\Terminal#1#2#3{%
-  \expandafter\ifx\csname eT@#3\endcsname\relax
-    \afterfi{\Terminal{#1}{#2#3}}\else
-    \afterfi{\TerminalX{#1}{#2}#3}\fi
-  }
-\Name\let{eT@>}=1
-\Name\let{eT@&}=1 \Name\let{eT@!}=1
-\Name\let{eT@|}=1 \Name\let{eT@,}=1
-\Name\let{eT@(}=1 \Name\let{eT@)}=1
-\def\TerminalX#1#2{%
-  \ifx>#2> \errmessage{Error in expression: empty terminal}\fi
-  \Name\def{t@#2}##1,#2,##2\qStop{\ifx>##2>0\else1\fi}%
-  #1{\Name\noexpand{t@#2},##1,#2,\noexpand\qStop}%
-  }
-\def\Primary#1#2{%
-  \ifcase \ifx!#20\else\ifx(#21\else2\fi\fi\space
-  \afterfi{\Primary{\NPrimary{#1}}}\or
-  \afterfi{\Expression{\PExpression{#1}}}\or
-  \afterfi{\Terminal{#1}{}#2}\fi
-  }
-\def\NPrimary#1#2{%
-  #1{\noexpand\if1#20\noexpand\else1\noexpand\fi}%
-  }
-\def\PExpression#1#2#3{%
-  \ifx)#3\else
-    \errmessage{Error in expression: expected right parenthesis}\fi
-  #1{#2}}
-\def\Secondary#1{%
-  \Primary{\SecondaryX{#1}}}
-\bgroup\catcode`\&=12
-\gdef\SecondaryX#1#2#3{%
-  \ifx&#3%
-  \afterfi{\Secondary{\SecondaryXX{#1}{#2}}}\else
-  \afterfi{#1{#2}#3}\fi
-  }
-\egroup
-\def\SecondaryXX#1#2#3{%
-  #1{\noexpand\if0#20\noexpand\else#3\noexpand\fi}}
-\def\Expression#1{%
-  \Secondary{\ExpressionX{#1}}}
-\def\ExpressionX#1#2#3{%
-  \if0\ifx|#31\else\ifx,#31\fi\fi0
-  \afterfi{#1{#2}#3}\else
-  \afterfi{\Expression{\ExpressionXX{#1}{#2}}}\fi
-  }
-\def\ExpressionXX#1#2#3{%
-  #1{\noexpand\if1#21\noexpand\else#3\noexpand\fi}}
-\def\StopParse#1#2{%
-  \ifx>#2 \else\errmessage{Error in expression: spurious #2}\fi
-  \edef\Expr##1{#1}}
-\def\Evaluate#1{%
-  \Expression\StopParse#1>}
-\def\normalLine#1\endLine{%
-  \advance\codeLinesPassed\@ne
-  \maybeMsg{.}%
-  \def\inLine{#1}%
-  \replaceModuleInLine
-  \let\do\putline@do
-  \activefiles
-  }
-\def\putline@do#1#2#3{%
-  \StreamPut#1{\inLine}}
-\def\removeComment#1\endLine{%
-    \advance\commentsRemoved\@ne
-    \maybeMsg{\perCent}}
-\bgroup\catcode`\%=12
-\iden{\egroup
-\def\putMetaComment%}#1\endLine{%
-  \advance\commentsPassed\@ne
-  \edef\inLine{\MetaPrefix#1}%
-  \let\do\putline@do
-  \activefiles
-  }
-\begingroup
-\catcode`\%=12 \catcode`\*=14
-\gdef\processLine#1{*
-  \advance\processedLines\@ne
-  \ifx%#1
-    \expandafter\processLineX
-  \else
-    \expandafter\normalLine
-  \fi
-  #1}
-\endgroup
-\begingroup
-\catcode`\%=12 \catcode`\*=14
-\gdef\processLineX%#1{*
-  \ifcase\ifx%#10\else
-         \ifx<#11\else 2\fi\fi\relax
-    \expandafter\putMetaComment\or
-    \expandafter\checkOption\or
-    \expandafter\removeComment\fi
-  #1}
-\endgroup
-\def\checkOption<#1{%
-  \ifcase
-    \ifx*#10\else \ifx/#11\else
-    \ifx+#12\else \ifx-#13\else
-    \ifx<#14\else \ifx @#15\else 6\fi\fi\fi\fi\fi\fi\relax
-  \expandafter\starOption\or
-  \expandafter\slashOption\or
-  \expandafter\plusOption\or
-  \expandafter\minusOption\or
-  \expandafter\verbOption\or
-  \expandafter\moduleOption\or
-  \expandafter\doOption\fi
-  #1}
-\def\doOption#1>#2\endLine{%
-  \maybeMsg{<#1 . >}%
-  \Evaluate{#1}%
-  \def\do##1##2##3{%
-    \if1\Expr{##2}%
-      \def\inLine{#2}%
-      \replaceModuleInLine
-      \StreamPut##1{\inLine}\fi
-    }%
-  \activefiles
-  }
-\def\plusOption+#1>#2\endLine{%
-  \maybeMsg{<+#1 . >}%
-  \Evaluate{#1}%
-  \def\do##1##2##3{%
-    \if1\Expr{##2}%
-      \def\inLine{#2}\replaceModuleInLine
-      \StreamPut##1{\inLine}\fi
-    }%
-  \activefiles
-  }
-\def\minusOption-#1>#2\endLine{%
-  \maybeMsg{<-#1 . >}%
-  \Evaluate{#1}%
-  \def\do##1##2##3{%
-    \if1\Expr{##2}\else
-      \def\inLine{#2}\replaceModuleInLine
-      \StreamPut##1{\inLine}\fi
-    }%
-  \activefiles
-  }
-\def\starOption*#1>#2\endLine{%
-  \maybeMsg{<*#1}%
-  \expandafter\push\expandafter\guardStack\expandafter{\blockHead}%
-  \advance\blockLevel\@ne
-  \def\blockHead{#1}%
-  \Evaluate{#1}%
-  \let\do\checkguard@do
-  \outputfiles
-  \let\do\findactive@do
-  \edef\activefiles{\activefiles}
-  }
-\def\checkguard@do#1#2#3{%
-  \ifnum#3>0
-    \advance#3\@ne
-  \else
-    \if1\Expr{#2}\else
-      \advance#3\@ne\fi
-  \fi}
-\def\findactive@do#1#2#3{%
-  \ifnum#3=0
-    \noexpand\do#1{#2}#3\fi}
-\def\slashOption/#1>#2\endLine{%
-  \def\tmp{#1}%
-  \ifnum\blockLevel<\@ne
-    \errmessage{Spurious end block </\tmp> ignored}%
-  \else
-    \ifx\tmp\blockHead
-      \pop\guardStack\blockHead
-    \else
-      \errmessage{Found </\tmp> instead of </\blockHead>}%
-    \fi
-    \maybeMsg{>}%
-    \advance\blockLevel\m@ne
-  \let\do\closeguard@do
-  \outputfiles
-  \let\do\findactive@do
-  \edef\activefiles{\outputfiles}
-  \fi
-  }
-\def\closeguard@do#1#2#3{%
-  \ifnum#3>0
-    \advance#3\m@ne
-  \fi}
-\def\verbOption<#1\endLine{{%
-  \edef\verbStop{\perCent#1}\maybeMsg{<<<}%
-  \let\do\putline@do
-  \loop
-    \ifeof\inFile\errmessage{Source file ended while in verbatim
-                             mode!}\fi
-    \read\inFile to \inLine
-  \if 1\ifx\inLine\verbStop 0\fi 1% if not inLine==verbStop
-    \activefiles
-    \maybeMsg{.}%
-  \repeat
-  \maybeMsg{>}%
-  }}
-\def\moduleOption @@=#1>#2\endLine{%
-  \maybeMsg{<@@=#1>}%
-  \prepareActiveModule{#1}%
-}
-\begingroup
-  \catcode`\_ = 12 %
-  \long\gdef\prepareActiveModule#1{%
-    \ifx\relax#1\relax
-       \let\replaceModuleInLine\empty
-    \else
-      \edef\replaceModuleInLine{%
-        \noexpand\replaceAllIn\noexpand\inLine{@@@@}{\string aa}%
-        \noexpand\replaceAllIn\noexpand\inLine{__@@}{__#1}%
-        \noexpand\replaceAllIn\noexpand\inLine{_@@}{__#1}%
-        \noexpand\replaceAllIn\noexpand\inLine{@@}{__#1}%
-        \noexpand\replaceAllIn\noexpand\inLine{\string aa}{@@}%
-      }%
-    \fi
-  }
-\endgroup
-\let\replaceModuleInLine\empty
-\long\def\replaceAllIn#1#2#3{%
-  \long\def\tempa##1##2#2{%
-    ##2\qMark\replaceAllInAuxIII#3##1%
-  }%
-  \edef#1{\expandafter\replaceAllInAuxI#1\qMark#2\qStop}%
-}
-\def\replaceAllInAuxI{%
-  \expandafter\replaceAllInAuxII\tempa\replaceAllInAuxI\empty
-}
-\long\def\replaceAllInAuxII#1\qMark#2{#1}
-\long\def\replaceAllInAuxIII#1\qStop{}
-\def\generate#1{\begingroup
-  \let\inputfiles\empty \let\filestogenerate\empty
-  \let\file\@file
-  #1
-  \ifx\filestogenerate\empty\else
-  \Msg{^^JGenerating file(s) \filestogenerate}\fi
-  \def\inFileName{\csname in@\outFileName\endcsname}%
-  \def\ReferenceLines{\csname ref@\outFileName\endcsname}%
-  \processinputfiles
-  \endgroup}
-\def\processinputfiles{%
-  \let\newinputfiles\empty
-  \inputfiles
-  \let\inputfiles\newinputfiles
-  \ifx\inputfiles\empty\else
-    \expandafter\processinputfiles
-  \fi
-  }
-\def\file#1#2{\errmessage{Command `\string\file' only allowed in
-                          argument to `\string\generate'}}
-\def\@file#1{%
-  \Generatetrue
-  \makepathname{#1}%
-  \ifaskforoverwrite
-    \immediate\openin\inFile\@pathname\relax
-    \ifeof\inFile\else
-      \Ask\answer{File \@pathname\space already exists
-                  \ifx\empty\destdir somewhere \fi
-                  on the system.^^J%
-                  Overwrite it%
-                  \ifx\empty\destdir\space if necessary\fi
-                  ? [y/n]}%
-      \ifx\y  \answer \else
-      \ifx\yes\answer \else
-                      \Generatefalse\fi\fi\fi
-    \closein\inFile
-  \fi
-  \ifGenerate
-  \Name\let{pth@#1}\@pathname
-  \@addto\filestogenerate{\@pathname\space}%
-  \Name\@fileX{#1\expandafter}%
-  \else
-    \Msg{Not generating file \@pathname^^J}%
-  \expandafter\@gobble
-  \fi
-  }
-\def\@fileX#1#2{%
-  \ifx#1\relax \else
-     \errmessage{Command \string#1 for denoting the output \noexpand
-       \file stream already defined!^^J
-       \space Current meaning is:^^J^^J\meaning#1^^J^^J
-       \space Extraction will probably fail - check result}%
-  \fi
-  \chardef#1=\stream@closed
-  \def\curout{#1}%
-  \ifx\curout\currentpreamble
-     \errmessage{Declared preamble name \string#1 not allowed if
-       \string\file{\@stripstring#1} is used}%
-  \fi
-  \ifx\curout\currentpostamble
-     \errmessage{Declared postamble name \string#1 not allowed if
-       \string\file{\@stripstring#1} is used}%
-  \fi
-  \let\curinfiles\empty
-  \let\curinnames\empty
-  \def\curref{\MetaPrefix ^^J%
-              \MetaPrefix\space The original source files were:^^J%
-              \MetaPrefix ^^J}%
-  \let\from\@from \let\needed\@needed
-  #2%
-  \let\from\err@from \let\needed\err@needed
-  \checkorder
-  \Name\@addto{e@\curin}{\noexpand\closeoutput{#1}}%
-  \Name\let{pre@\@stripstring#1\expandafter}\currentpreamble
-  \Name\let{post@\@stripstring#1\expandafter}\currentpostamble
-  \Name\edef{in@\@stripstring#1}{\expandafter\iden\curinnames}
-  \Name\edef{ref@\@stripstring#1}{\curref}
-  }
-\def\checkorder{%
-  \expandafter\expandafter\expandafter
-  \checkorderX\expandafter\curinfiles
-  \expandafter\qStop\inputfiles\qStop
-  }
-\def\checkorderX(#1)#2\qStop#3\qStop{%
-  \def\tmp##1\readsource(#1)##2\qStop{%
-    \ifx!##2! \order@error
-    \else\ifx!#2!\else
-       \checkorderXX##2%
-    \fi\fi}%
-  \def\checkorderXX##1\readsource(#1)\fi\fi{\fi\fi
-    \checkorderX#2\qStop##1\qStop}%
-  \tmp#3\readsource(#1)\qStop
-  }
-\def\order@error#1\fi\fi{\fi
-  \errmessage{DOCSTRIP error: Incompatible order of input
-              files specified for file
-              `\iden{\expandafter\uptospace\curin} \qStop'.^^J
-              Read DOCSTRIP documentation for explanation.^^J
-              This is a serious problem, I'm exiting}\end
-  }
-\def\needed#1{\errmessage{\string\needed\space can only be used in
-               argument to \string\file}}
-\let\err@needed\needed
-\def\@needed#1{%
-  \edef\reserved@a{#1}%
-  \expandafter\@need@d\expandafter{\reserved@a}}
-\def\@need@d#1{%
-  \@ifpresent{(#1)}\curinfiles
-    {\@need@d{#1 }}%
-    {\@ifpresent{\readsource(#1)}\inputfiles
-       {}{\@addto\inputfiles{\noexpand\readsource(#1)}%
-       \Name\let{b@#1}\empty
-       \Name\let{o@#1}\empty
-       \Name\let{e@#1}\empty}%
-     \@addto\curinfiles{(#1)}%
-     \def\curin{#1}}%
-  }
-\def\from#1#2{\errmessage{Command `\string\from' only allowed in
-                          argument to `\string\file'}}
-\let\err@from\from
-\def\@from#1#2{%
-  \@addto\curref{\MetaPrefix\space #1 \if>#2>\else
-                              \space (with options: `#2')\fi^^J}%
-  \needed{#1}%
-  \ifx\curinnames\empty
-     \Name\@addto{b@\curin}{\noexpand\openoutput\curout}%
-  \fi
-  \@addto\curinnames{ #1}%
-  \Name\@addto{o@\curin}{\noexpand\do\curout{#2}}%
-  }
-\def\readsource(#1){%
-  \immediate\openin\inFile\uptospace#1 \qStop\relax
-  \ifeof\inFile
-    \errmessage{Cannot find file \uptospace#1 \qStop}%
-  \else
-    \processedLines\z@
-    \commentsRemoved\z@
-    \commentsPassed\z@
-    \codeLinesPassed\z@
-    \let\refusedfiles\empty
-    \csname b@#1\endcsname
-    \Name\let{b@#1}\refusedfiles
-    \Msg{} \def\@msg{Processing file \uptospace#1 \qStop}
-    \def\change@msg{%
-      \edef\@msg{\@spaces\@spaces\@spaces\space
-        \expandafter\tospaces\uptospace#1 \qStop\secapsot}
-      \let\change@msg\relax}
-    \let\do\showfiles@do
-    \let\refusedfiles\empty
-    \csname o@#1\endcsname
-    \ifx\refusedfiles\empty\else
-      \@addto\newinputfiles{\noexpand\readsource(#1)}
-    \fi
-    \let\do\makeoutlist@do
-    \edef\outputfiles{\csname o@#1\endcsname}%
-    \let\activefiles\outputfiles
-    \Name\let{o@#1}\refusedfiles
-    \makeOther\ \makeOther\\\makeOther\$%
-    \makeOther\#\makeOther\^\makeOther\^^K%
-    \makeOther\_\makeOther\^^A\makeOther\%%
-    \makeOther\~\makeOther\{\makeOther\}\makeOther\&%
-    \endlinechar-1\relax
-    \@tempcnta=128\relax
-    \loop
-    \catcode\@tempcnta 12\relax
-    \ifnum\@tempcnta <255\relax
-    \advance\@tempcnta\@ne
-    \repeat
-    \loop
-      \read\inFile to\inLine
-      \ifx\inLine\Endinput
-        \Msg{File #1 ended by \string\endinput.}%
-        \Continuefalse
-      \else
-       \ifeof\inFile
-         \Continuefalse
-       \else
-         \Continuetrue
-         \ifx\inLine\empty
-            \advance\emptyLines\@ne
-          \else
-            \emptyLines\z@
-          \fi
-          \ifnum \emptyLines<2
-            \expandafter\processLine\inLine\endLine
-          \else
-            \maybeMsg{/}%
-          \fi
-       \fi
-      \fi
-    \ifContinue
-    \repeat
-    \closein\inFile
-  \csname e@#1\endcsname
-    \Msg{Lines \space processed: \the\processedLines^^J%
-         Comments removed: \the\commentsRemoved^^J%
-         Comments \space passed: \the\commentsPassed^^J%
-         Codelines passed: \the\codeLinesPassed^^J}%
-      \global\advance\TotalprocessedLines  by \processedLines
-      \global\advance\TotalcommentsRemoved by \commentsRemoved
-      \global\advance\TotalcommentsPassed  by \commentsPassed
-      \global\advance\TotalcodeLinesPassed by \codeLinesPassed
-      \global\advance\NumberOfFiles by \@ne
-    \fi}
-\def\showfiles@do#1#2{%
-  \ifnum#1=\stream@closed
-    \@addto\refusedfiles{\noexpand\do#1{#2}}%
-  \else
-    \Msg{\@msg
-         \ifx>#2>\else\space(#2)\fi
-         \space -> \@stripstring#1}
-    \change@msg
-  \csname off@\number#1\endcsname=\z@
-  \fi
-}
-\def\makeoutlist@do#1#2{%
-  \ifnum#1=\stream@closed\else
-    \noexpand\do#1{#2}\csname off@\number#1\endcsname
-  \fi}
-\def\openoutput#1{%
-  \if 1\ifnum\@maxfiles=\z@ 0\fi
-       \ifnum\@maxoutfiles=\z@ 0\fi1%
-    \advance\@maxfiles\m@ne
-    \advance\@maxoutfiles\m@ne
-    \StreamOpen#1%
-    \WritePreamble#1%
-  \else
-     \@addto\refusedfiles{\noexpand\openoutput#1}%
-  \fi
-  }
-\def\closeoutput#1{%
-  \ifnum#1=\stream@closed\else
-    \WritePostamble#1%
-    \StreamClose#1%
-    \advance\@maxfiles\@ne
-    \advance\@maxoutfiles\@ne
-  \fi}
-\def\ds@heading{%
-  \MetaPrefix ^^J%
-  \MetaPrefix\space This is file `\outFileName',^^J%
-  \MetaPrefix\space  generated with the docstrip utility.^^J%
-  }
-\def\AddGenerationDate{%
-  \def\ds@heading{%
-    \MetaPrefix ^^J%
-    \MetaPrefix\space This is file `\outFileName', generated %
-           on <\the\year/\the\month/\the\day> ^^J%
-    \MetaPrefix\space with the docstrip utility (\fileversion).^^J%
- }}
-\let\inFileName\relax
-\let\outFileName\relax
-\let\ReferenceLines\relax
-\def\declarepreamble{\begingroup
-\catcode`\^^M=13 \catcode`\ =12 %
-\declarepreambleX}
-{\catcode`\^^M=13 %
-\gdef\declarepreambleX#1#2
-\endpreamble{\endgroup%
-  \def^^M{^^J\MetaPrefix\space}%
-  \edef#1{\ds@heading%
-          \ReferenceLines%
-          \MetaPrefix\space\checkeoln#2\empty}}%
-\gdef\checkeoln#1{\ifx^^M#1\else\expandafter#1\fi}%
-}
-\def\declarepostamble{\begingroup
-\catcode`\ =12 \catcode`\^^M=13
-\declarepostambleX}
-{\catcode`\^^M=13 %
-\gdef\declarepostambleX#1#2
-\endpostamble{\endgroup%
-  \def^^M{^^J\MetaPrefix\space}%
-  \edef#1{\MetaPrefix\space\checkeoln#2\empty^^J%
-          \MetaPrefix ^^J%
-          \MetaPrefix\space End of file `\outFileName'.%
-  }}%
-}
-\def\usepreamble#1{\def\currentpreamble{#1}}
-\def\usepostamble#1{\def\currentpostamble{#1}}
-\def\nopreamble{\usepreamble\empty}
-\def\nopostamble{\usepostamble\empty}
-\def\preamble{\usepreamble\defaultpreamble
-  \declarepreamble\defaultpreamble}
-\def\postamble{\usepostamble\defaultpostamble
-  \declarepostamble\defaultpostamble}
-\declarepreamble\org@preamble
-
-IMPORTANT NOTICE:
-
-For the copyright see the source file.
-
-Any modified versions of this file must be renamed
-with new filenames distinct from \outFileName.
-
-For distribution of the original source see the terms
-for copying and modification in the file \inFileName.
-
-This generated file may be distributed as long as the
-original source files, as listed above, are part of the
-same distribution. (The sources need not necessarily be
-in the same archive or directory.)
-\endpreamble
-\edef\org@postamble{\string\endinput^^J%
-  \MetaPrefix ^^J%
-  \MetaPrefix\space End of file `\outFileName'.%
-  }
-\let\defaultpreamble\org@preamble
-\let\defaultpostamble\org@postamble
-\usepreamble\defaultpreamble
-\usepostamble\defaultpostamble
-\declarepreamble\originaldefault
-
-IMPORTANT NOTICE:
-
-For the copyright see the source file.
-
-You are *not* allowed to modify this file.
-
-You are *not* allowed to distribute this file.
-For distribution of the original source see the terms
-for copying and modification in the file \inFileName.
-
-\endpreamble
-\def\WritePreamble#1{%
-  \expandafter\ifx\csname pre@\@stripstring#1\endcsname\empty
-  \else
-    \edef\outFileName{\@stripstring#1}%
-    \StreamPut#1{\csname pre@\@stripstring#1\endcsname}%
-  \fi}
-\def\WritePostamble#1{%
-  \expandafter\ifx\csname post@\@stripstring#1\endcsname\empty
-  \else
-    \edef\outFileName{\@stripstring#1}%
-    \StreamPut#1{\csname post@\@stripstring#1\endcsname}%
-  \fi}
-\def\usedir#1{\edef\destdir{\WriteToDir}}
-\def\showdirectory#1{\WriteToDir}
-\def\BaseDirectory#1{%
-  \@setwritetodir
-  \let\usedir\alt@usedir
-  \let\showdirectory\showalt@directory
-  \edef\basedir{#1\dirsep}}
-\def\convsep#1/#2\qStop{%
-  #1\ifx\qStop#2\qStop \pesvnoc\fi\convsep\dirsep#2\qStop}
-\def\pesvnoc#1\qStop{\fi}
-\def\alt@usedir#1{%
-  \Name\ifx{dir@#1}\relax
-    \undefined@directory{#1}%
-  \else
-    \edef\destdir{\csname dir@#1\endcsname}%
-  \fi}
-\def\showalt@directory#1{%
-  \Name\ifx{dir@#1}\relax
-    \showundef@directory{#1}%
-  \else\csname dir@#1\endcsname\fi}
-\def\undefined@directory#1{%
-  \errhelp{docstrip.cfg should specify a target directory for^^J%
-   #1 using \DeclareDir or \UseTDS.}%
-  \errmessage{You haven't defined the output directory for `#1'.^^J%
-            Subsequent files will be written to the current directory}%
-  \let\destdir\WriteToDir
-  }
-\def\showundef@directory#1{UNDEFINED (label is #1)}
-\def\undefined@TDSdirectory#1{%
-  \edef\destdir{%
-    \basedir\convsep#1/\qStop
-  }}
-\def\showundef@TDSdirectory#1{\basedir\convsep#1/\qStop}
-\def\UseTDS{%
-  \@setwritetodir
-  \let\undefined@directory\undefined@TDSdirectory
-  \let\showundef@directory\showundef@TDSdirectory
-  }
-\def\DeclareDir{\@ifnextchar*{\DeclareDirX}{\DeclareDirX\basedir*}}
-\def\DeclareDirX#1*#2#3{%
-  \@setwritetodir
-  \Name\edef{dir@#2}{#1#3}}
-\def\generateFile#1#2#3{{%
-  \ifx t#2\askforoverwritetrue
-  \else\askforoverwritefalse\fi
-  \generate{\file{#1}{#3}}%
-  }}
-\def\include#1{\def\Options{#1}}
-\def\processFile#1#2#3#4{%
-  \generateFile{#1.#3}{#4}{\from{#1.#2}{\Options}}}
-\def\processfile{\Msg{%
-    ^^Jplease use \string\processFile\space instead of
-       \string\processfile!^^J}%
-    \processFile}
-\def\generatefile{\Msg{%
-    ^^Jplease use \string\generateFile\space instead of
-      \string\generatefile!^^J}%
-    \generateFile}
-\newcount\@maxfiles
-\def\maxfiles#1{%
-  \@maxfiles#1\relax
-  \ifnum\@maxfiles<4
-    \errhelp{I'm not a magician.  I need at least four^^J%
-             streams to be able to work properly, but^^J%
-             you've only let me use \the\@maxfiles.}%
-    \errmessage{\noexpand\maxfiles limit is too strict.}%
-    \@maxfiles4
-  \fi
-}
-\maxfiles{1972} % year of my birth (MW)
-\newcount\@maxoutfiles
-\def\maxoutfiles#1{%
-  \@maxoutfiles=#1\relax
-  \ifnum\@maxoutfiles<1
-    \@maxoutfiles1
-    \errhelp{I'm not a magician.  I need at least one output^^J%
-             stream to be able to do anything useful at all.^^J%
-             Please be reasonable.}%
-    \errmessage{\noexpand\maxoutfiles limit is insane}%
-  \fi
-}
-\maxoutfiles{16}
-\def\checkfilelimit{%
-  \advance\@maxfiles\m@ne
-  \ifnum\@maxfiles<2 %
-    \errhelp{There aren't enough streams left to do any unpacking.^^J%
-             I can't do anything about this, so complain at the^^J%
-             person who made such a complicated installation.}%
-    \errmessage{Too few streams left.}%
-    \end
-  \fi
-}
-\def\strip@meaning#1>{}
-\def\processbatchFile{%
-  \checkfilelimit
-  \let\next\relax
-  \openin\inputcheck \batchfile\relax
-  \ifeof\inputcheck
-    \ifDefault
-    \else
-      \errhelp
-        {A batchfile specified in \batchinput could not be found.}%
-      \errmessage{^^J%
-           **************************************************^^J%
-           * Could not find your \string\batchfile=\batchfile.^^J%
-           **************************************************}%
-    \fi
-  \else
-    \ifDefault
-      \Msg{**************************************************^^J%
-           * Batchfile \DefaultbatchFile\space found Use it? (y/n)?}%
-      \Ask\answer{%
-             **************************************************}%
-    \else
-      \let\answer\y
-    \fi
-    \ifx\answer\y
-      \closein\inputcheck
-      \def\next{\@@input\batchfile\relax}%
-    \fi
-  \fi
-  \next}
-\def\ReportTotals{%
-  \ifnum\NumberOfFiles>\@ne
-    \Msg{Overall statistics:^^J%
-         Files \space processed: \the\NumberOfFiles^^J%
-         Lines \space processed: \the\TotalprocessedLines^^J%
-         Comments removed: \the\TotalcommentsRemoved^^J%
-         Comments \space passed: \the\TotalcommentsPassed^^J%
-         Codelines passed: \the\TotalcodeLinesPassed}%
-  \fi}
-\def\SetFileNames{%
-    \edef\sourceFileName{\MainFileName.\infileext}%
-    \edef\destFileName{\MainFileName.\outfileext}}
-\def\CheckFileNames{%
-    \ifx\sourceFileName\destFileName
-      \Msg{^^J%
-     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J%
-     ! It is not possible to read from and write to the same file !^^J%
-     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J}%
-      \Continuefalse
-    \else
-      \Continuetrue
-      \immediate\openin\inFile \sourceFileName\relax
-      \ifeof\inFile
-        \Msg{^^J%
-              !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J%
-              ! Your input file `\sourceFileName' was not found !^^J%
-              !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J}%
-        \Continuefalse
-      \else
-        \immediate\closein\inFile
-        \immediate\openin\inFile\destdir \destFileName\relax
-        \ifeof\inFile
-          \Continuetrue
-        \else
-          \Continuefalse
-          \Ask\answer{File \destdir\destFileName\space already
-                      exists
-                      \ifx\empty\destdir somewhere \fi
-                      on the system.^^J%
-                      Overwrite it%
-                      \ifx\empty\destdir\space if necessary\fi
-                      ? [y/n]}%
-          \ifx\y  \answer \Continuetrue \else
-          \ifx\yes\answer \Continuetrue \else
-          \fi\fi
-        \fi
-      \fi
-    \fi
-    \closein\inFile}
-\def\interactive{%
-  \whileswitch\ifMoreFiles\fi%
-   {\begingroup
-      \AskQuestions
-      \forlist\MainFileName:=\filelist
-      \do
-        \SetFileNames
-        \CheckFileNames
-        \ifContinue
-        \generateFile{\destFileName}{f}%
-                     {\from{\sourceFileName}{\Options}}
-        \fi%
-      \od
-    \endgroup
-    \Ask\answer{More files to process (y/n)?}%
-    \ifx\y  \answer\MoreFilestrue \else
-    \ifx\yes\answer\MoreFilestrue \else
-                   \MoreFilesfalse\fi\fi
-   }}
-\def\AskQuestions{%
-    \Msg{^^J%
-         ****************************************************}%
-    \Ask\infileext{%
-         * First type the extension of your input file(s): \space  *}%
-    \Msg{****************************************************^^J^^J%
-         ****************************************************}%
-    \Ask\outfileext{%
-         * Now type the extension of your output file(s) \space: *}%
-    \Msg{****************************************************^^J^^J%
-         ****************************************************}%
-    \Ask\Options{%
-       * Now type the name(s) of option(s) to include \space\space: *}%
-    \Msg{****************************************************^^J^^J%
-         ****************************************************^^J%
-       * Finally give the list of input file(s) without \space\space*}%
-    \Ask\filelist{%
-         * extension separated by commas if necessary %
-                                  \space\space\space\space: *}%
-    \Msg{****************************************************^^J}}%
-\Msg{Utility: `docstrip' \fileversion\space <\filedate>^^J%
-     English documentation \space\space\space <\docdate>}%
-\Msg{^^J%
-     **********************************************************^^J%
-     * This program converts documented macro-files into fast *^^J%
-     * loadable files by stripping off (nearly) all comments! *^^J%
-     **********************************************************^^J}%
-\def\@setwritetodir{%
-  \let\setwritetodir\relax
-  \ifx\WriteToDir\@undefined
-    \ifx\@currdir\@undefined
-      \def\WriteToDir{}%
-    \else
-      \let\WriteToDir\@currdir
-    \fi
-  \fi
-  \let\destdir\WriteToDir
-  \def\tmp{[]}%
-  \ifx\tmp\WriteToDir
-    \ifx\dirsep\@undefined
-      \def\dirsep{.}%
-    \fi
-    \ifx\makepathname\@undefined
-      \def\makepathname##1{%
-        \edef\@pathname{\ifx\WriteToDir\destdir
-          \WriteToDir\else[\destdir]\fi##1}}%
-    \fi
-  \fi
-  \ifx\dirsep\@undefined
-    \def\dirsep{/}%
-    \def\tmp{:}%
-    \ifx\tmp\WriteToDir
-      \def\dirsep{:}%
-    \fi
-  \fi
-  \ifx\makepathname\@undefined
-    \def\makepathname##1{%
-      \edef\@pathname{\destdir\ifx\empty\destdir\else
-           \ifx\WriteToDir\destdir\else\dirsep\fi\fi##1}}%
-  \fi}
-\immediate\openin\inputcheck=docstrip.cfg\relax
-\ifeof\inputcheck
-  \Msg{%
-     ********************************************************^^J%
-     * No Configuration file found, using default settings. *^^J%
-     ********************************************************^^J}%
-\else
-  \Msg{%
-     ******************************************^^J%
-     * Using Configuration file docstrip.cfg. *^^J%
-     ******************************************^^J}%
-  \closein\inputcheck
-  \afterfi{\@@input docstrip.cfg\relax}
-\fi
-\@setwritetodir
-\def\process@first@batchfile{%
-  \processbatchFile
-  \ifnum\NumberOfFiles=\z@
-    \interactive
-  \fi
-  \endbatchfile}
-\def\endbatchfile{%
-  \iftopbatchfile
-    \ReportTotals
-    \expandafter\end
-  \else
-    \endinput
-  \fi}
-\edef\@jobname{\lowercase{\def\noexpand\@jobname{\jobname}}}%
-\@jobname
-\def\@docstrip{docstrip}%
-\edef\@docstrip{\expandafter\strip@meaning\meaning\@docstrip}
-\Defaultfalse
-\ifx\undefined\batchfile
-  \ifx\@jobname\@docstrip
-    \let\batchfile\DefaultbatchFile
-    \Defaulttrue
-  \else
-    \let\process@first@batchfile\relax
-  \fi
-\fi
-\process@first@batchfile
-\endinput
-%%
-%% End of file `docstrip.tex'.