Source Browser ?

1
%D \module
2
%D   [       file=toks-aux,
3
%D        version=2018.11.29,
4
%D          title=\CONTEXT\ Token Support,
5
%D       subtitle=Helpers,
6
%D         author=Wolfgang Schuster,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
\writestatus
{
loading
}{
ConTeXt
 
Token
 
Support
 
/
 
Helpers
}
15
16
\unprotect
17
18
\installcorenamespace
 
{
tokenlist
}
19
20
\unexpanded
\def
\definetokenlist
[#
1
]
%
21  
{
\ifcsname
\??tokenlist
#
1
\endcsname
22     
\global\lastnamedcs
\emptytoks
23   
\else
24     
\expandafter
\newtoks
\csname
\??tokenlist
#
1
\endcsname
25   
\fi
}
26
27
\unexpanded
\def
\starttokenlist
[#
1
]#
2
\stoptokenlist
28  
{
\ifcsname
\??tokenlist
#
1
\endcsname
 
\else
29     
\expandafter
\newtoks
\csname
\??tokenlist
#
1
\endcsname
30   
\fi
31   
\toksapp\lastnamedcs
{
#
2
}}
32
33
\let
\stoptokenlist
\relax
34
35
\def
\gettokenlist
[#
1
]
%
36  
{
\ifcsname
\??tokenlist
#
1
\endcsname
37     
\the\lastnamedcs
38   
\fi
}
39
40
\def
\settokenlist
[#
1
]#
2
%
41  
{
\ifcsname
\??tokenlist
#
1
\endcsname
 
\else
42     
\expandafter
\newtoks
\csname
\??tokenlist
#
1
\endcsname
43   
\fi
44   
\toksapp\lastnamedcs
{
#
2
}}
45
46
\unexpanded
\def
\resettokenlist
[#
1
]
%
47  
{
\ifcsname
\??tokenlist
#
1
\endcsname
48     
\lastnamedcs
\emptytoks
49   
\fi
}
50
51
\protect
52