diff options
Diffstat (limited to 'tex/context/base/mkxl/node-aux.lmt')
-rw-r--r-- | tex/context/base/mkxl/node-aux.lmt | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tex/context/base/mkxl/node-aux.lmt b/tex/context/base/mkxl/node-aux.lmt index 5915f5985..a640addc1 100644 --- a/tex/context/base/mkxl/node-aux.lmt +++ b/tex/context/base/mkxl/node-aux.lmt @@ -385,3 +385,38 @@ end function nodes.hpack(h,...) return tonode(hpack_nodes(tonut(h),...)) end function nodes.vpack(h,...) return tonode(vpack_nodes(tonut(h),...)) end + +-- + +local report_slide = logs.reporter("nodes", "slide") + +function nuts.checkslide(head,banner) + local c = head + local x = nil + local b = false + while c do + local p, n = getboth(c) + if p and p ~= x then + b = true + end + x = c + c = n + end + if b then + report_slide("") + report_slide(banner or "?") + report_slide("") + c = head + x = nil + while c do + local p, n = getboth(c) + report_slide("%s %s",(p and p ~= x and "!") or " ",tostring(tonode(c))) + x = c + c = getnext(c) + end + report_slide("") + nuts.show(head) + report_slide("") + nuts.slide(head) + end +end |