From 55ae6e504d04d806c4c5ac253dedb98196fc1c35 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Fri, 16 Nov 2007 11:24:40 +0000
Subject: oberdiek update 11/11

git-svn-id: svn://tug.org/texlive/trunk@5458 c570f23f-e606-0410-a88d-b1316a301751
---
 .../doc/latex/oberdiek/test/grfext-test1.tex       | 36 ++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

(limited to 'Master/texmf-dist/doc/latex/oberdiek/test/grfext-test1.tex')

diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/grfext-test1.tex b/Master/texmf-dist/doc/latex/oberdiek/test/grfext-test1.tex
index 4d8e64b1138..8b5ba6b2442 100644
--- a/Master/texmf-dist/doc/latex/oberdiek/test/grfext-test1.tex
+++ b/Master/texmf-dist/doc/latex/oberdiek/test/grfext-test1.tex
@@ -29,7 +29,39 @@
 %% 
 \input miniltx.tex\relax
 \resetatcatcode
+\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
@@ -38,7 +70,7 @@
     \catcode\the\count@=\the\catcode\count@\relax
   }%
 \ifnum\count@<255 %
-  \advance\count@\@ne
+  \advance\count@ 1 %
 \repeat
 
 \def\RangeCatcodeInvalid#1#2{%
@@ -46,7 +78,7 @@
   \loop
     \catcode\count@=15 %
   \ifnum\count@<#2\relax
-    \advance\count@\@ne
+    \advance\count@ 1 %
   \repeat
 }
 \def\Test{%
-- 
cgit v1.2.3

