summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty')
-rw-r--r--Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty15
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty
new file mode 100644
index 00000000000..633e5cd13d5
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty
@@ -0,0 +1,15 @@
+%% READ_LaTeX_Counter : string -> int
+%% (\readLaTeXCounter str) -> i
+%% where i = \the\c@str
+\addassoc\@globalenv\readLaTeXCounter{\@tlabel@func{\@tex@read@latex@counter}}
+\def\@tex@read@latex@counter#1#2#3{%
+ \expandafter\expandafter\expandafter\gdef
+ \expandafter\expandafter\expandafter#1%
+ \expandafter\expandafter\expandafter{%
+ \expandafter\expandafter\expandafter\@tlabel@int
+ \expandafter\expandafter\expandafter{%
+ \expandafter\the\csname c@#3\endcsname}}}
+
+\addassoc\@globalenv\message{\@tlabel@func{\@tex@lisp@message}}
+\def\@tex@lisp@message#1\@tlabel@string#2{%
+ \gdef#1{\@tlabel@nil{}}\message{^^J#2^^J}} \ No newline at end of file