1 files changed, 60 insertions, 0 deletions
diff --git a/tex/context/base/mkxl/tabl-tbl.lmt b/tex/context/base/mkxl/tabl-tbl.lmt
new file mode 100644
index 000000000..50d871905
--- /dev/null
+++ b/tex/context/base/mkxl/tabl-tbl.lmt
@@ -0,0 +1,60 @@
+if not modules then modules = { } end modules ['tabl-tbl'] = {
+    version   = 1.001,
+    comment   = "companion to tabl-tbl.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+-- A couple of hacks ... easier to do in Lua than in regular TeX. More will
+-- follow.
+
+local tonumber = tonumber
+local gsub, rep, sub, find = string.gsub, string.rep, string.sub, string.find
+local P, C, Cc, Ct, lpegmatch = lpeg.P, lpeg.C, lpeg.Cc, lpeg.Ct, lpeg.match
+
+local context     = context
+local commands    = commands
+
+local texsetcount = tex.setcount
+local texiscount  = tex.iscount
+
+local separator   = P("|")                  -- keep   { }
+----- nested      = C(lpeg.patterns.nested) -- remove { }
+local nested      = lpeg.patterns.argument
+local pattern     = Ct((separator * (nested + Cc("")) * C((1-separator)^0))^0)
+
+local ctx_settabulatelastentry = context.settabulatelastentry
+local ctx_settabulateentry     = context.settabulateentry
+
+local c_tabl_tabulate_nofcolumns          = texiscount("c_tabl_tabulate_nofcolumns")
+local c_tabl_tabulate_has_rule_spec_first = texiscount("c_tabl_tabulate_has_rule_spec_first")
+local c_tabl_tabulate_has_rule_spec_last  = texiscount("c_tabl_tabulate_has_rule_spec_last")
+
+-- the lmtx raw processor handles {} like the normal one so we need to prune
+
+local function presettabulate(preamble)
+    preamble = gsub(preamble,"~","d") -- let's get rid of ~ mess here
+    if find(preamble,"*",1,true) then
+        -- todo: lpeg but not now
+        preamble = gsub(preamble, "%*(%b{})(%b{})", function(n,p)
+            return rep(sub(p,2,-2),tonumber(sub(n,2,-2)) or 1)
+        end)
+    end
+    local t = lpegmatch(pattern,preamble)
+    local m = #t - 2
+    texsetcount("global",c_tabl_tabulate_nofcolumns, m/2)
+    texsetcount("global",c_tabl_tabulate_has_rule_spec_first, t[1]   == "" and 0 or 1)
+    texsetcount("global",c_tabl_tabulate_has_rule_spec_last,  t[m+1] == "" and 0 or 1)
+    for i=1,m,2 do
+        ctx_settabulateentry(t[i],t[i+1])
+    end
+    ctx_settabulatelastentry(t[m+1])
+end
+
+interfaces.implement {
+    name      = "presettabulate",
+    actions   = presettabulate,
+    arguments = "string",
+    scope     = "private",
+}