oberdiek update 11/11

git-svn-id: svn://tug.org/texlive/trunk@5458 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 63 insertions, 7 deletions

diff --git a/Master/texmf-dist/source/latex/oberdiek/etexcmds.dtx b/Master/texmf-dist/source/latex/oberdiek/etexcmds.dtx
index 0d989897b1d..6f8076e1e62 100644
--- a/Master/texmf-dist/source/latex/oberdiek/etexcmds.dtx
+++ b/Master/texmf-dist/source/latex/oberdiek/etexcmds.dtx
@@ -78,6 +78,7 @@
 \keepsilent
 \askforoverwritefalse
 
+\let\MetaPrefix\relax
 \preamble
 
 This is a generated file.
@@ -103,6 +104,7 @@ and the derived files
    etexcmds-test4.tex.
 
 \endpreamble
+\let\MetaPrefix\DoubleperCent
 
 \generate{%
   \file{etexcmds.ins}{\from{etexcmds.dtx}{install}}%
@@ -124,6 +126,10 @@ and the derived files
 \Msg{*}
 \Msg{*     etexcmds.sty}
 \Msg{*}
+\Msg{* And install the following script file:}
+\Msg{*}
+\Msg{*     }
+\Msg{*}
 \Msg{* To produce the documentation run the file `etexcmds.drv'}
 \Msg{* through LaTeX.}
 \Msg{*}
@@ -141,14 +147,14 @@ and the derived files
 \ProvidesFile{etexcmds.drv}%
   [2007/09/09 v1.1 Prefix for e-TeX command names (HO)]%
 \documentclass{ltxdoc}
-\usepackage{holtxdoc}[2007/10/21]
+\usepackage{holtxdoc}[2007/11/11]
 \begin{document}
   \DocInput{etexcmds.dtx}%
 \end{document}
 %</driver>
 % \fi
 %
-% \CheckSum{315}
+% \CheckSum{405}
 %
 % \CharacterTable
 %  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
@@ -232,6 +238,9 @@ and the derived files
       \fi
     \fi
   \else
+    \catcode35 6 % #
+    \catcode123 1 % {
+    \catcode125 2 % }
     \expandafter\ifx\csname PackageInfo\endcsname\relax
       \def\x#1#2{%
         \immediate\write-1{Package #1 Info: #2.}%
@@ -248,6 +257,7 @@ and the derived files
 %    Package identification:
 %    \begin{macrocode}
 \begingroup
+  \catcode35 6 % #
   \catcode40 12 % (
   \catcode41 12 % )
   \catcode44 12 % ,
@@ -256,6 +266,8 @@ and the derived files
   \catcode47 12 % /
   \catcode58 12 % :
   \catcode64 11 % @
+  \catcode123 1 % {
+  \catcode125 2 % }
   \expandafter\ifx\csname ProvidesPackage\endcsname\relax
     \def\x#1#2#3[#4]{\endgroup
       \immediate\write-1{Package: #3 #4}%
@@ -277,10 +289,22 @@ and the derived files
 % \subsection{Catcodes}
 %
 %    \begin{macrocode}
-\expandafter\edef\csname etexcmds@AtEnd\endcsname{%
-  \catcode64 \the\catcode64\relax
-}
+\begingroup
+  \catcode123 1 % {
+  \catcode125 2 % }
+  \def\x{\endgroup
+    \expandafter\edef\csname etexcmds@AtEnd\endcsname{%
+      \catcode35 \the\catcode35\relax
+      \catcode64 \the\catcode64\relax
+      \catcode123 \the\catcode123\relax
+      \catcode125 \the\catcode125\relax
+    }%
+  }%
+\x
+\catcode35 6 % #
 \catcode64 11 % @
+\catcode123 1 % {
+\catcode125 2 % }
 \def\TMP@EnsureCode#1#2{%
   \edef\etexcmds@AtEnd{%
     \etexcmds@AtEnd
@@ -364,7 +388,39 @@ and the derived files
 %<*test1>
 %    \end{macrocode}
 %    \begin{macrocode}
+\catcode`\{=1 %
+\catcode`\}=2 %
+\catcode`\#=6 %
 \catcode`\@=11 %
+\expandafter\ifx\csname count@\endcsname\relax
+  \countdef\count@=255 %
+\fi
+\expandafter\ifx\csname @gobble\endcsname\relax
+  \long\def\@gobble#1{}%
+\fi
+\expandafter\ifx\csname @firstofone\endcsname\relax
+  \long\def\@firstofone#1{#1}%
+\fi
+\expandafter\ifx\csname loop\endcsname\relax
+  \expandafter\@firstofone
+\else
+  \expandafter\@gobble
+\fi
+{%
+  \def\loop#1\repeat{%
+    \def\body{#1}%
+    \iterate
+  }%
+  \def\iterate{%
+    \body
+      \let\next\iterate
+    \else
+      \let\next\relax
+    \fi
+    \next
+  }%
+  \let\repeat=\fi
+}%
 \def\RestoreCatcodes{}
 \count@=0 %
 \loop
@@ -373,7 +429,7 @@ and the derived files
     \catcode\the\count@=\the\catcode\count@\relax
   }%
 \ifnum\count@<255 %
-  \advance\count@\@ne
+  \advance\count@ 1 %
 \repeat
 
 \def\RangeCatcodeInvalid#1#2{%
@@ -381,7 +437,7 @@ and the derived files
   \loop
     \catcode\count@=15 %
   \ifnum\count@<#2\relax
-    \advance\count@\@ne
+    \advance\count@ 1 %
   \repeat
 }
 \def\Test{%