2023-04-27 09:37:00

1 files changed, 32 insertions, 0 deletions

diff --git a/tex/context/base/mkxl/node-pag.lmt b/tex/context/base/mkxl/node-pag.lmt
new file mode 100644
index 000000000..42b79695c
--- /dev/null
+++ b/tex/context/base/mkxl/node-pag.lmt
@@ -0,0 +1,32 @@
+if not modules then modules = { } end modules ['node-pag'] = {
+    version   = 1.001,
+    comment   = "companion to node-pag.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+-- Currently we have no usage for this and it can even be dangerous to mess with
+-- the list at this stage, so this is effectively just a placeholder. Users can
+-- only mess with before and after hooks.
+
+pagebuilders = pagebuilders or { }
+
+local starttiming, stoptiming = statistics.starttiming, statistics.stoptiming
+
+local actions = nodes.tasks.actions("pagebuilders")
+
+local function processor(head,groupcode,size,packtype,maxdepth,direction)
+    if head then
+        starttiming(pagebuilders)
+        head = actions(head,groupcode,size,packtype,maxdepth,direction)
+        stoptiming(pagebuilders)
+    end
+    return head
+end
+
+callbacks.register("pre_output_filter",processor,"preparing output box")
+
+statistics.register("output preparation time", function()
+    return statistics.elapsedseconds(pagebuilders)
+end)