diff options
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.sty | 15 |
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 |