diff options
author | Hans Hagen <pragma@wxs.nl> | 2023-05-27 12:37:50 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2023-05-27 12:37:50 +0200 |
commit | 32381f97e98465953bfde24b4436093e70fbe70f (patch) | |
tree | 1f585cf7af509e76c64aca108cecd23acd6fb437 /tex/context/base/mkxl/trac-tex.mkxl | |
parent | bb8ae12f4f94189fd1540b201e2aea78f485de97 (diff) | |
download | context-32381f97e98465953bfde24b4436093e70fbe70f.tar.gz |
2023-05-27 12:16:00
Diffstat (limited to 'tex/context/base/mkxl/trac-tex.mkxl')
-rw-r--r-- | tex/context/base/mkxl/trac-tex.mkxl | 39 |
1 files changed, 17 insertions, 22 deletions
diff --git a/tex/context/base/mkxl/trac-tex.mkxl b/tex/context/base/mkxl/trac-tex.mkxl index cf46bed26..2926a90b2 100644 --- a/tex/context/base/mkxl/trac-tex.mkxl +++ b/tex/context/base/mkxl/trac-tex.mkxl @@ -13,7 +13,7 @@ \writestatus{loading}{ConTeXt Tracking Macros / TeX} -\registerctxluafile{trac-tex}{} +\registerctxluafile{trac-tex}{autosuffix} %D All tracing flags at the \TEX\ end will be redone this way so %D that we have a similar mechanism for \TEX\ and \LUA. Also, the @@ -40,31 +40,26 @@ \permanent\protected\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}. +%D Finally this one got moved from cont-exp to here (replacing the old one): -\installcorenamespace{profilemacrocount} -\installcorenamespace{profilemacromacro} - -\newtoks\t_syst_profile - -\appendtoks - \the\t_syst_profile -\to \everystoptext +\installcorenamespace{profilemacro} \permanent\protected\def\profilemacro#1% an oldie, but modernized a bit {\edef\p_name{\csstring#1}% - \ifcsname\??profilemacrocount\p_name\endcsname \else - \expandafter\newinteger\csname\??profilemacrocount\p_name\endcsname - \letcsname\??profilemacromacro\p_name\endcsname#1% - \xtoksapp\t_syst_profile - {\writestatus - {profile}% - {\string#1: \noexpand\the\csname\??profilemacrocount\p_name\endcsname}}% - \enforced\protected\xdef#1% - {\global\advanceby\csname\??profilemacrocount\p_name\endcsname\plusone - \expandafter\noexpand\csname\??profilemacromacro\p_name\endcsname}% + \ifcsname\??profilemacro\p_name\endcsname \else + \aliased\letcsname\??profilemacro\p_name\endcsname#1% + % \enforced\protected\xdef#1% + \untraced\enforced\ifflags#1\protected\protected\fi\xdef#1% + {\noexpand\clf_profilemacro\noexpand#1% + \expandafter\noexpand\csname\??profilemacro\p_name\endcsname}% \fi} +% \appendtoks +% {\appendtoks\showprofiledmacros\to\everystoptext}% +% \to \everydump + +\appendtoks + \showprofiledmacros +\to \everystoptext + \protect \endinput |