1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus{loading}{ConTeXt Tracking Macros TeX}
15
16\registerctxluafile{tractex}{}
17
18
19
20
21
22\unprotect
23
24
25
26
27\let\alltextracers\empty
28
29\unexpanded\def\installtextracer#1
30 {\addtocommalist{#1}\alltextracers}
31
32\unexpanded\def\enabletextracers [#1]{\processcommalist[#1]\syst_textracers_enable }
33\unexpanded\def\disabletextracers[#1]{\processcommalist[#1]\syst_textracers_disable}
34
35\def\syst_textracers_enable #1{\begincsname enabletracer#1\endcsname}
36\def\syst_textracers_disable#1{\begincsname disabletracer#1\endcsname}
37
38
39
40\unexpanded\def\nomkivstatistics{\enabledirectives[system.nostatistics]}
41
42
43
44
45
46\installcorenamespace{profilemacrocount}
47\installcorenamespace{profilemacromacro}
48
49\newtoks\t_syst_profile
50
51\appendtoks
52 \the\t_syst_profile
53\to \everystoptext
54
55\unexpanded\def\profilemacro#1
56 {\edef\p_name{\csstring#1}
57 \ifcsname\??profilemacrocount\p_name\endcsname \else
58 \expandafter\newcount\csname\??profilemacrocount\p_name\endcsname
59 \expandafter\let\csname\??profilemacromacro\p_name\endcsname#1
60 \xtoksapp\t_syst_profile
61 {\writestatus
62 {profile}
63 {\string#1: \noexpand\the\csname\??profilemacrocount\p_name\endcsname}}
64 \unexpanded\xdef#1
65 {\global\advance\csname\??profilemacrocount\p_name\endcsname\plusone
66 \expandafter\noexpand\csname\??profilemacromacro\p_name\endcsname}
67 \fi}
68
69\protect \endinput
70 |