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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33\registerctxluafile{toksaux}{autosuffix}
34
35\installcorenamespace {tokenlist}
36
37\permanent\protected\def\definetokenlist[#1]
38 {\ifcsname\??tokenlist#1\endcsname
39 \global\lastnamedcs\emptytoks
40 \else
41 \expandafter\newtoks\csname\??tokenlist#1\endcsname
42 \fi}
43
44\permanent\protected\def\starttokenlist[#1]#2\stoptokenlist
45 {\ifcsname\??tokenlist#1\endcsname \else
46 \expandafter\newtoks\csname\??tokenlist#1\endcsname
47 \fi
48 \toksapp\lastnamedcs{#2}}
49
50\permanent\protected\lettonothing\stoptokenlist
51
52\permanent\def\gettokenlist[#1]
53 {\ifcsname\??tokenlist#1\endcsname
54 \the\lastnamedcs
55 \fi}
56
57\permanent\protected\def\settokenlist[#1]#2
58 {\ifcsname\??tokenlist#1\endcsname \else
59 \expandafter\newtoks\csname\??tokenlist#1\endcsname
60 \fi
61 \toksapp\lastnamedcs{#2}}
62
63\permanent\protected\def\resettokenlist[#1]
64 {\ifcsname\??tokenlist#1\endcsname
65 \lastnamedcs\emptytoks
66 \fi}
67
68\protect
69 |