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/telprint.dtx b/Master/texmf-dist/source/latex/oberdiek/telprint.dtx
index b6d8ea642d4..3c2bdf0c2bd 100644
--- a/Master/texmf-dist/source/latex/oberdiek/telprint.dtx
+++ b/Master/texmf-dist/source/latex/oberdiek/telprint.dtx
@@ -75,6 +75,7 @@
 \keepsilent
 \askforoverwritefalse
 
+\let\MetaPrefix\relax
 \preamble
 
 This is a generated file.
@@ -100,6 +101,7 @@ and the derived files
    telprint-test1.tex.
 
 \endpreamble
+\let\MetaPrefix\DoubleperCent
 
 \generate{%
   \file{telprint.ins}{\from{telprint.dtx}{install}}%
@@ -118,6 +120,10 @@ and the derived files
 \Msg{*}
 \Msg{*     telprint.sty}
 \Msg{*}
+\Msg{* And install the following script file:}
+\Msg{*}
+\Msg{*     }
+\Msg{*}
 \Msg{* To produce the documentation run the file `telprint.drv'}
 \Msg{* through LaTeX.}
 \Msg{*}
@@ -135,7 +141,7 @@ and the derived files
 \ProvidesFile{telprint.drv}%
   [2007/09/09 v1.9 Formatting of German phone numbers (HO)]%
 \documentclass{ltxdoc}
-\usepackage{holtxdoc}[2007/10/21]
+\usepackage{holtxdoc}[2007/11/11]
 \usepackage[ngerman,english]{babel}
 \begin{document}
   \DocInput{telprint.dtx}%
@@ -143,7 +149,7 @@ and the derived files
 %</driver>
 % \fi
 %
-% \CheckSum{422}
+% \CheckSum{512}
 %
 % \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
@@ -330,6 +336,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.}%
@@ -346,6 +355,7 @@ and the derived files
 %    Package identification:
 %    \begin{macrocode}
 \begingroup
+  \catcode35 6 % #
   \catcode40 12 % (
   \catcode41 12 % )
   \catcode44 12 % ,
@@ -354,6 +364,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}%
@@ -375,10 +387,22 @@ and the derived files
 % \subsection{Catcodes}
 %
 %    \begin{macrocode}
-\expandafter\edef\csname TELAtEnd\endcsname{%
-  \catcode64 \the\catcode64\relax
-}
+\begingroup
+  \catcode123 1 % {
+  \catcode125 2 % }
+  \def\x{\endgroup
+    \expandafter\edef\csname TELAtEnd\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\TELAtEnd{%
     \TELAtEnd
@@ -566,7 +590,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
@@ -575,7 +631,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{%
@@ -583,7 +639,7 @@ and the derived files
   \loop
     \catcode\count@=15 %
   \ifnum\count@<#2\relax
-    \advance\count@\@ne
+    \advance\count@ 1 %
   \repeat
 }
 \def\Test{%