1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus { loading }{ ConTeXt Token Support Tracing }
15
16\registerctxluafile { toks tra }{}
17
18\unprotect
19
20
21
22
23\unexpanded \def \starttokens [# 1 ] { \ctxcommand{ collecttokens ( " #1 " , " stoptokens " ) } }
24 \let \stoptokens \relax
25\unexpanded \def \flushtokens [# 1 ] { \ctxcommand{ flushtokens ( " #1 " ) } }
26\unexpanded \def\showtokens [# 1 ] { \ctxcommand{ showtokens ( " #1 " ) } }
27\unexpanded \def \testtokens [# 1 ] { \ctxcommand{ testtokens ( " #1 " ) } }
28\unexpanded \def \registertoken # 1 { \ctxcommand{ registertoken ( " #1 " ) } }
29
30\let \toks_show \showtokens
31
32\unexpanded \def\showtokens { \doifelsenextoptional \toks_show \normalshowtokens }
33
34\protect \endinput
35 |