From 2017d30b4ca772c8eeac4fc0eb9b54e547a9a1d8 Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Tue, 17 May 2016 19:31:15 +0200
Subject: 2016-05-17 19:25:00

---
 tex/context/modules/mkiv/m-timing.mkiv | 102 +++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100644 tex/context/modules/mkiv/m-timing.mkiv

(limited to 'tex/context/modules/mkiv/m-timing.mkiv')

diff --git a/tex/context/modules/mkiv/m-timing.mkiv b/tex/context/modules/mkiv/m-timing.mkiv
new file mode 100644
index 000000000..5502768f6
--- /dev/null
+++ b/tex/context/modules/mkiv/m-timing.mkiv
@@ -0,0 +1,102 @@
+%D \module
+%D   [       file=m-timing,
+%D        version=2007.12.23,
+%D          title=\CONTEXT\ Modules,
+%D       subtitle=Timing,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\ifdefined\ShowNamedUsage \endinput \fi
+
+%D Written at the end of 2007, this module is dedicated to Taco. Reaching this
+%D point in \LUATEX\ was a non trivial effort. By visualizing a bit what happens
+%D when pages come out of \LUATEX, you may get an idea what is involved. It took
+%D much time an dedication to reach this point in the development. Add to that
+%D those daily Skype intense discussion, testing and debugging moments. Time flies
+%D but progress is impressive. The motto of this module could be: what you see
+%D is what you get. An there is much more to come \unknown.
+
+% \usemodule[timing]
+% \setupcolors[state=start]
+% \starttext
+%     \dorecurse{200}{\input tufte \par} \ShowUsage{}
+% \stoptext
+
+\definecolor[usage:line] [darkred]
+\definecolor[usage:time] [darkblue]
+\definecolor[usage:frame][darkgray]
+
+\ctxloadluafile{trac-tim}{}
+
+\startluacode
+local progress = moduledata.progress
+
+function progress.show(filename,parameters,nodes,other)
+    for n, name in pairs(parameters or progress.parameters()) do
+        context.ShowNamedUsage(filename or progress.defaultfilename,name,other or "")
+    end
+    for n, name in pairs(nodes or progress.nodes(filename)) do
+        context.ShowNamedUsage(filename or progress.defaultfilename,name,other or "")
+    end
+end
+\stopluacode
+
+% \everyfirstshipout
+
+\startnotmode[no-timing]
+    \appendtoks\ctxlua{moduledata.progress.store()}\to\everystarttext
+    \appendtoks\ctxlua{moduledata.progress.store()}\to\everyshipout
+    \ctxlua{luatex.registerstopactions(function() moduledata.progress.save() end)}
+\stopnotmode
+
+\unexpanded\def\ShowNamedUsage#1#2#3%
+  {\setbox\scratchbox\vbox\bgroup
+    \startMPcode
+      begingroup ; save p, q, b, h, w ;
+      path p, q, b ; numeric h, w ;
+      p := \cldcontext{moduledata.progress.path("#1","#2")} ;
+    % p := p shifted -llcorner p ;
+      if bbwidth(p) > 0 :
+        h := 100 ; w := 2 * h ;
+        w := \the\textwidth-3pt ; % correct for pen
+        p := p xstretched w ;
+        b := boundingbox (llcorner p -- llcorner p shifted (w,h)) ;
+        pickup pencircle scaled 3pt ; linecap := butt ;
+        draw b withcolor \MPcolor{usage:frame} ;
+        draw p withcolor \MPcolor{usage:line} ;
+        if ("#3" <> "") and ("#3" <> "#2") :
+          q := \cldcontext{moduledata.progress.path("#1","#3")} ;
+        % q := q shifted -llcorner q ;
+          if bbwidth(q) > 1 :
+            q := q xstretched w ;
+            pickup pencircle scaled 1.5pt ; linecap := butt ;
+            draw q withcolor \MPcolor{usage:time} ;
+          fi ;
+        fi ;
+      fi ;
+      endgroup ;
+   \stopMPcode
+   \egroup
+   \scratchdimen\wd\scratchbox
+   \ifdim\scratchdimen>\zeropoint
+     \startlinecorrection
+         \box\scratchbox \endgraf
+         \hbox to \scratchdimen{\tttf\strut\detokenize{#2}\hss
+          min:\cldcontext{moduledata.progress.bot("#1","\detokenize{#2}")}, %
+          max:\cldcontext{moduledata.progress.top("#1","\detokenize{#2}")}, %
+          pages:\cldcontext{moduledata.progress.pages("#1")}%
+         }%
+     \stoplinecorrection
+   \fi}
+
+\unexpanded\def\LoadUsage      #1{\ctxlua{moduledata.progress.convert("#1")}}
+\unexpanded\def\ShowUsage      #1{\ctxlua{moduledata.progress.show("#1",nil,nil,"elapsed_time")}}
+\unexpanded\def\ShowMemoryUsage#1{\ctxlua{moduledata.progress.show("#1",nil,{}, "elapsed_time")}}
+\unexpanded\def\ShowNodeUsage  #1{\ctxlua{moduledata.progress.show("#1",{},nil, "elapsed_time")}}
+
+\endinput
-- 
cgit v1.2.3