r3tex

commit 15284bb24903877a83ad34a7884fef6caa6fb650
parent a36b9a6d71abf92ef1d1f88f599450b115339987
Author: robert <robertrussell.72001@gmail.com>
Date:   Sun, 10 Oct 2021 14:16:41 -0700

Add util macros; move glet fallback

Diffstat:
M
primitive.tex
 | 
5
+++++
M
util.tex
 | 
9
+++++----

2 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/primitive.tex b/primitive.tex
@@ -1,5 +1,10 @@
 \directlua{tex.enableprimitives("", tex.extraprimitives())}
 
+%%% Old LuaTeX compatibility
+\ifprimitive\glet \else
+	\protected\def\glet{\global\let}
+\fi
+
 %%% pdfTeX compatibility
 \let\pdfpagewidth       \pagewidth
 \let\pdfpageheight      \pageheight
diff --git a/util.tex b/util.tex
@@ -3,6 +3,7 @@
 % Primitive abbreviations.
 \let\ea=\expandafter
 \let\attr=\attribute
+\let\attrdef=\attributedef
 \let\cctab=\catcodetable
 \let\initcctab=\initcatcodetable
 \let\savecctab=\savecatcodetable
@@ -10,7 +11,9 @@
 \let\endcs=\endcsname
 \let\ifcs=\ifcsname
 
-\def\nea{\noexpand\expandafter} % Useful inside \edef's.
+% Useful inside \edef's:
+\def\nea{\noexpand\ea}
+\def\eonce#1{\unexpanded\ea{#1}}
 
 \def\wlog{\immediate\write-1 }
 \def\wterm{\immediate\write16 }
@@ -29,10 +32,8 @@
 \protected\def\gcsdef#1{\ea\gdef\begcs#1\endcs}
 \protected\def\xcsdef#1{\ea\xdef\begcs#1\endcs}
 \protected\def\undef#1{\let#1\@undefined}
+\protected\def\gundef#1{\glet#1\@undefined}
 
-\ifprimitive\glet \else
-	\protected\def\glet{\global\let}
-\fi
 \protected\def\cslet#1{\ea\let\begcs#1\endcs}
 \protected\def\gcslet#1{\ea\glet\begcs#1\endcs}
 \protected\def\letcs#1#2{\ea\let\ea#1\begcs#2\endcs}