diff options
author | Karl Berry <karl@freefriends.org> | 2013-03-05 00:33:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-03-05 00:33:46 +0000 |
commit | d472c7d8c47d5a08e34a9f4713164afc5e7a1406 (patch) | |
tree | 4249b1eff690be906945d15b1e39e33037b1abdc /Master/texmf-dist/tex/latex/lisp-on-tex/lisp-latexutil.sty | |
parent | 0d0778a39975e8293bde2267504f53bd9d3610a6 (diff) |
lisp-on-tex (4mar13)
git-svn-id: svn://tug.org/texlive/trunk@29291 c570f23f-e606-0410-a88d-b1316a301751
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 |