diff options
| author | Hans Hagen <pragma@wxs.nl> | 2019-02-22 20:29:46 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-02-22 20:29:46 +0100 |
| commit | 7b271baae19db1528fbe6621bdf50af89a5a336b (patch) | |
| tree | 4fc24a8f2be20aa90e90f6e1bcb62d69f4946235 /tex/context/base/mkiv/toks-aux.mkiv | |
| parent | 67b9965fe473d18f13ed4c40f1e4e008eb870322 (diff) | |
| download | context-7b271baae19db1528fbe6621bdf50af89a5a336b.tar.gz | |
2019-02-22 19:43:00
Diffstat (limited to 'tex/context/base/mkiv/toks-aux.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/toks-aux.mkiv | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/toks-aux.mkiv b/tex/context/base/mkiv/toks-aux.mkiv new file mode 100644 index 000000000..5b43de596 --- /dev/null +++ b/tex/context/base/mkiv/toks-aux.mkiv @@ -0,0 +1,51 @@ +%D \module +%D [ file=toks-aux, +%D version=2018.11.29, +%D title=\CONTEXT\ Token Support, +%D subtitle=Helpers, +%D author=Wolfgang Schuster, +%D date=\currentdate, +%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] +%C +%C This module is part of the \CONTEXT\ macro||package and is +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. + +\writestatus{loading}{ConTeXt Token Support / Helpers} + +\unprotect + +\installcorenamespace {tokenlist} + +\unexpanded\def\definetokenlist[#1]% + {\ifcsname\??tokenlist#1\endcsname + \global\lastnamedcs\emptytoks + \else + \expandafter\newtoks\csname\??tokenlist#1\endcsname + \fi} + +\unexpanded\def\starttokenlist[#1]#2\stoptokenlist + {\ifcsname\??tokenlist#1\endcsname \else + \expandafter\newtoks\csname\??tokenlist#1\endcsname + \fi + \toksapp\lastnamedcs{#2}} + +\let\stoptokenlist\relax + +\def\gettokenlist[#1]% + {\ifcsname\??tokenlist#1\endcsname + \the\lastnamedcs + \fi} + +\def\settokenlist[#1]#2% + {\ifcsname\??tokenlist#1\endcsname \else + \expandafter\newtoks\csname\??tokenlist#1\endcsname + \fi + \toksapp\lastnamedcs{#2}} + +\unexpanded\def\resettokenlist[#1]% + {\ifcsname\??tokenlist#1\endcsname + \lastnamedcs\emptytoks + \fi} + +\protect |