From fce6d72bc19f78deadfe4551a3188abfd6ecd6eb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Manuel=20P=C3=A9gouri=C3=A9-Gonnard?= <mpg@elzevir.fr>
Date: Thu, 21 Jan 2010 20:34:10 +0100
Subject: Fix \*blk macros too.

---
 luatexbase-regs.dtx | 136 ++++++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 111 insertions(+), 25 deletions(-)

(limited to 'luatexbase-regs.dtx')

diff --git a/luatexbase-regs.dtx b/luatexbase-regs.dtx
index 14242a1..7d1a25d 100644
--- a/luatexbase-regs.dtx
+++ b/luatexbase-regs.dtx
@@ -278,38 +278,108 @@ and the derived files
 %    using \verb|\mathchardef| since it had the biggest range under \eTeX
 %    (15-bit number).  However, this is not enough for \LuaTeX's extended
 %    registers. Fortunately, \verb|chardef|'s range is extended, and now large
-%    enough, so use it.
+%    enough, so use it everywhere instead of \verb+\mathchardef+. Do this
+%    inside a group and use \verb+\toks0+ to store the list of actions.
 %
-%    Take care that the macros remain \verb|\outer| if they previously were
-%    (actually, iff \verb+\globbox+ is). The somewhat tricky lines below,
-%    besides that, are just equivalent to:
-%    \begin{quote}
-%      \verb+\def \globbox    {\et@xglob 4\box    \mathchardef}+\\
-%      \verb+\def \globmarks  {\et@xglob 6\marks  \mathchardef}+
-%    \end{quote}
+%    \begin{macrocode}
+  \begingroup \toks0{}
+    \def\@namedef #1{\expandafter                  \def\csname#1\endcsname}
+    \def\@outerdef#1{\expandafter\outer\expandafter\def\csname#1\endcsname}
+%    \end{macrocode}
+%
+%    Notice that the auxiliary macros will automatically expand to the desired
+%    level when necessary, see below.
+%
+%    First, here are the definitions from \texttt{etex.src}, in a form adapted
+%    to our needs.
 %
 %    \begin{macrocode}
-  \begingroup
-    \def\z#1{\endgroup
-      #1\expandafter\def\csname globbox\endcsname
-        {\et@xglob 4\box    \chardef}%
-      #1\expandafter\def\csname globmarks\endcsname
-        {\et@xglob 6\marks  \chardef}}%
-    \edef\x{\meaning\globbox   \string\outer   \relax}%
-    \edef\y{\def\noexpand\y ##1\string\outer##2\relax}%
-    \y{\ifx\relax#1\relax
-      \expandafter\z\expandafter\outer
-    \else
-      \expandafter\z\expandafter\relax
-    \fi}%
-  \expandafter\y\x
+    \def\def@globbox   #1#2{\@outerdef{#1}{\et@xglob 4 \box    #2}}
+    \def\def@locbox    #1#2{\@namedef {#1}{\et@xloc  4 \box    #2}}
+    \def\def@globmarks #1#2{\@outerdef{#1}{\et@xglob 6 \marks  #2}}
+    \def\def@locmarks  #1#2{\@namedef {#1}{\et@xloc  6 \marks  #2}}
+    \def\def@et@xgblk#1#2{\@namedef{#1}##1##2##3##4%
+      {\et@xchkblk ##1##2{##4}%
+        {\allocationnumber=\count 26##1
+          \global \advance \count 26##1 by ##4%
+          \global #2##3=\allocationnumber
+          \wlog {\string ##3=\string ##2blk{\number ##4}
+            at \the \allocationnumber}%
+          }%
+        }}
+    \def\def@et@xlblk#1#2{\@namedef{#1}##1##2##3##4%
+      {\et@xchkblk ##1##2{##4}%
+        {\advance \count 27##1 by -##4%
+          \allocationnumber=\count 27##1
+          #2##3=\allocationnumber
+          \wlog {\string ##3=\string ##2blk{\number ##4}
+            at \the \allocationnumber \space (local)%
+            }%
+          }%
+        }}
+%    \end{macrocode}
+%
+%    Then, the definitions from \texttt{etex.sty} since they are subtly
+%    different (\verb+\outer+ status, but also optional spaces or \verb+=+
+%    signs).
+%
+%    \begin{macrocode}
+    \def\alt@globbox   #1#2{\@namedef{#1}{\et@xglob 4\box    #2}}
+    \def\alt@locbox    #1#2{\@namedef{#1}{\et@xloc  4\box    #2}}
+    \def\alt@globmarks #1#2{\@namedef{#1}{\et@xglob 6\marks  #2}}
+    \def\alt@locmarks  #1#2{\@namedef{#1}{\et@xloc  6\marks  #2}}
+    \def\alt@et@xgblk#1#2{\@namedef{#1}##1##2##3##4%
+      {\et@xchkblk##1##2{##4}%
+        {\allocationnumber\count26##1%
+          \global\advance\count26##1by##4%
+          \global#2##3\allocationnumber
+          \wlog{\string##3=\string##2blk{\number##4} at
+            \the\allocationnumber}%
+          }%
+        }}
+    \def\alt@et@xlblk#1#2{\@namedef{#1}##1##2##3##4%
+      {\et@xchkblk##1##2{##4}%
+        {\advance\count27##1-##4%
+          \allocationnumber\count27##1%
+          #2##3\allocationnumber
+          \et@xwlog{\string##3=\string##2blk{\number##4} at
+            \the\allocationnumber\space(local)}%
+          }%
+        }}
+%    \end{macrocode}
+%
+%    Now, a macro checking the definitions, and making the appropriate
+%    re-definition.
+%
+%    \begin{macrocode}
+    \def\check@def#1{%
+      \csname def@#1\endcsname{test@#1}\mathchardef
+      \expandafter\ifx\csname test@#1\expandafter\endcsname
+                      \csname #1\endcsname
+        \expandafter\let\csname #1\endcsname\relax
+        \toks0\expandafter{\the\toks0\csname def@#1\endcsname{#1}\chardef}
+      \else
+        \csname alt@#1\endcsname{test@#1}\mathchardef
+        \expandafter\ifx\csname test@#1\expandafter\endcsname
+                        \csname #1\endcsname
+          \toks0\expandafter{\the\toks0\csname alt@#1\endcsname{#1}\chardef}
+        \else
+          \expandafter\show\csname BAD#1\endcsname
+        \fi
+      \fi}
 %    \end{macrocode}
 %
-%    \verb+\loc...+ versions are never \verb+\outer+.
+%    Now, actually do it.
 %
 %    \begin{macrocode}
-  \def \locbox     {\et@xloc  4\box    \chardef}
-  \def \locmarks   {\et@xloc  6\marks  \chardef}
+    \check@def{globbox}
+    \check@def{locbox}
+    \check@def{globmarks}
+    \check@def{locmarks}
+    \check@def{et@xgblk}
+    \check@def{et@xlblk}
+  \expandafter \endgroup
+  \the\toks0
 %    \end{macrocode}
 %
 %    Finally, make allocation of \verb|\count|, \verb|\dimen|, \verb|skip| and
@@ -371,6 +441,22 @@ and the derived files
   \csname newinsert\endcsname\dummy
   \advance\count0 1
 \repeat
+
+\globcountblk \dummy{3000}
+\globdimenblk \dummy{3000}
+\globskipblk  \dummy{3000}
+\globmuskipblk\dummy{3000}
+\globboxblk   \dummy{3000}
+\globtoksblk  \dummy{3000}
+\globmarksblk \dummy{3000}
+
+\loccountblk  \dummy{1000}
+\locdimenblk  \dummy{1000}
+\locskipblk   \dummy{1000}
+\locmuskipblk \dummy{1000}
+\locboxblk    \dummy{1000}
+\loctoksblk   \dummy{1000}
+\locmarksblk  \dummy{1000}
 %</testplain,testlatex>
 %<testplain>\bye
 %<testlatex>\stop
-- 
cgit v1.2.3

