diff options
| author | Hans Hagen <pragma@wxs.nl> | 2019-05-18 11:17:14 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-05-18 11:17:14 +0200 |
| commit | caee9d5ac3c65f78671a9786318358cd647247eb (patch) | |
| tree | faac5ae546fa3146f0b8622b6a41f73dc3341489 /tex/context/base/mkiv/trac-tex.mkiv | |
| parent | 5f6a7c6790baa7e524de5b5bf71a29ea757378f6 (diff) | |
| download | context-caee9d5ac3c65f78671a9786318358cd647247eb.tar.gz | |
2019-05-18 10:50:00
Diffstat (limited to 'tex/context/base/mkiv/trac-tex.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/trac-tex.mkiv | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/trac-tex.mkiv b/tex/context/base/mkiv/trac-tex.mkiv index d659f4bab..c69f3febb 100644 --- a/tex/context/base/mkiv/trac-tex.mkiv +++ b/tex/context/base/mkiv/trac-tex.mkiv @@ -39,4 +39,31 @@ \unexpanded\def\nomkivstatistics{\enabledirectives[system.nostatistics]} +%D This is not really a tracker but for decades it lived in my \type {cont-loc} +%D file. I moved it here because I wanted someone else to use it. This macro is not +%D really useful for users. I kept the \LUA\ variant in \type {cont-loc.mkiv}. + +\installcorenamespace{profilemacrocount} +\installcorenamespace{profilemacromacro} + +\newtoks\t_syst_profile + +\appendtoks + \the\t_syst_profile +\to \everystoptext + +\unexpanded\def\profilemacro#1% an oldie, but modernized a bit + {\edef\p_name{\csstring#1}% + \ifcsname\??profilemacrocount\p_name\endcsname \else + \expandafter\newcount\csname\??profilemacrocount\p_name\endcsname + \expandafter\let\csname\??profilemacromacro\p_name\endcsname#1% + \xtoksapp\t_syst_profile + {\writestatus + {profile}% + {\string#1: \noexpand\the\csname\??profilemacrocount\p_name\endcsname}}% + \unexpanded\xdef#1% + {\global\advance\csname\??profilemacrocount\p_name\endcsname\plusone + \expandafter\noexpand\csname\??profilemacromacro\p_name\endcsname}% + \fi} + \protect \endinput |