diff options
author | Karl Berry <karl@freefriends.org> | 2021-03-06 21:58:15 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-03-06 21:58:15 +0000 |
commit | 974640d66e61e81cb197ad96fdff7b08343e4c5a (patch) | |
tree | 2e1f75f32f312b7f24ba82b4590ae230bcd6f399 /Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex | |
parent | b4fa72e61230aca75f7f6fbf988821f71edfb6b2 (diff) |
context
git-svn-id: svn://tug.org/texlive/trunk@58167 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex b/Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex index 88b81ef041e..2ec66780eb5 100644 --- a/Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex +++ b/Master/texmf-dist/tex/context/base/mkiv/mtx-context-meaning.tex @@ -31,19 +31,31 @@ \setupbodyfont [dejavu] -\def\showmeaning#1% +\unexpanded\def\ShowMeaning#1% {\ctxlua{logs.pushtarget("both")}% \writestatus{meaning}{\strippedcsname#1}% \writestring{}% \writestring{\expandafter\meaning\begincsname#1\endcsname}% \ctxlua{logs.poptarget()}} +\unexpanded\def\ShowTokens#1% + {\ctxlua{logs.pushtarget("both")}% + \writestatus{tokens}{\strippedcsname#1}% + \writestring{}% + \ifcase\contextlmtxmode + \writestring{only supported in lmtx}% + \else + \expandafter\showluatokens\begincsname#1\endcsname + \fi + \ctxlua{logs.poptarget()}} + \starttext \usemodule[setups-macros] \startluacode local h = tex.hashtokens() + local t = environment.arguments.tokens local function showmeaning(str) local h = interfaces.macros.collect(str) @@ -54,7 +66,11 @@ local hi = h[i] context.type(hi) context.par() - context.showmeaning(hi) + if t then + context.ShowTokens(hi) + else + context.ShowMeaning(hi) + end end context.page() end |