1
2
3
4
5
6
7
8
9
10
11
12
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 |