1 files changed, 183 insertions, 0 deletions
diff --git a/tex/context/base/mult-clm.lua b/tex/context/base/mult-clm.lua
new file mode 100644
index 000000000..6e6597e2a
--- /dev/null
+++ b/tex/context/base/mult-clm.lua
@@ -0,0 +1,183 @@
+if not modules then modules = { } end modules ['mult-clm'] = {
+    version   = 1.001,
+    comment   = "companion to mult-clm.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+-- another experiment
+-- todo: multilingual
+
+local texsprint, ctxcatcodes, vrbcatcodes = tex.sprint, tex.ctxcatcodes, tex.vrbcatcodes
+local format, insert, remove, concat = string.format, table.insert, table.remove, table.concat
+
+local trace_define = false  trackers.register("context.define", function(v) trace_define = v end)
+
+mkiv = mkiv or { }
+
+mkiv.h, mkiv.a = aux.settings_to_hash, aux.settings_to_array
+
+local starters, stoppers, macros, stack = { }, { }, { }, { }
+
+local checkers = {
+    "\\dosingleempty",
+    "\\dodoubleempty",
+    "\\dotripleempty",
+    "\\doquadrupleempty",
+    "\\doquintupleempty",
+    "\\dosixtupleempty",
+}
+
+function mkiv.m(name,...)
+    macros[name](...)
+end
+
+function mkiv.b(name,...)
+    local sn = stack[name]
+    insert(sn,{...})
+    starters[name](...)
+end
+
+function mkiv.e(name)
+    local sn = stack[name]
+    local sv = remove(sn)
+    if sv then
+        stoppers[name](unpack(sv))
+    else
+        -- nesting error
+    end
+end
+
+mkiv.n = tonumber
+
+function mkiv.define(name,specification) -- name is optional
+    if type(name) == "table" then
+        specification = name
+        name = specification.name
+    end
+    if name and specification then
+        local arguments = specification.arguments
+        local na = (arguments and #arguments) or 0
+        local environment = specification.environment
+        if na == 0 then
+            if environment then
+                texsprint(ctxcatcodes,"\\defmkstart{",name,"}{\\ctxlua{mkiv.b('",name,"')}}")
+                texsprint(ctxcatcodes,"\\defmkstop{", name,"}{\\ctxlua{mkiv.b('",name,"')}}")
+            else
+                texsprint(ctxcatcodes,"\\defmkiv{",   name,"}{\\ctxlua{mkiv.m('",name,"')}}")
+            end
+        else
+            stack[name] = { }
+            local opt, done = 0, false
+            local mkivdo = "\\mkivdo" .. name
+            texsprint(ctxcatcodes,"\\def",mkivdo)
+            for i=1,na do
+                local a = arguments[i]
+                local kind = a[1]
+                if kind == "option" then
+                    texsprint(ctxcatcodes,"[#",i,"]")
+                    if not done then
+                        opt = opt + 1
+                    end
+                else
+                    done = true -- no more optional checking after this
+                    texsprint(ctxcatcodes,"#",i)
+                end
+            end
+            if environment then
+                texsprint(ctxcatcodes,"{\\ctxlua{mkiv.b('",name,"'")
+            else
+                texsprint(ctxcatcodes,"{\\ctxlua{mkiv.m('",name,"'")
+            end
+            for i=1,na do
+                local a = arguments[i]
+                local kind = a[2]
+                if kind == "list" then
+                    texsprint(ctxcatcodes,",mkiv.a([[#",i,"]])")
+                elseif kind == "hash" then
+                    texsprint(ctxcatcodes,",mkiv.h([[#",i,"]])")
+                elseif kind == "number" then
+                    texsprint(ctxcatcodes,",mkiv.n([[#",i,"]])")
+                else
+                    texsprint(ctxcatcodes,",[[#",i,"]]")
+                end
+            end
+            texsprint(ctxcatcodes,")}}")
+            if environment then
+                texsprint(ctxcatcodes,"\\defmkivstop{" ,name,"}{\\ctxlua{mkiv.e('",name,"')}}")
+                texsprint(ctxcatcodes,"\\defmkivstart{",name,"}{",checkers[opt],mkivdo,"}")
+            else
+                texsprint(ctxcatcodes,"\\defmkiv{",     name,"}{",checkers[opt],mkivdo,"}")
+            end
+        end
+        if environment then
+            starters[name] = specification.starter
+            stoppers[name] = specification.stopper
+        else
+            macros[name] = specification.macro
+        end
+    end
+end
+
+function mkiv.tolist(t)
+    local r = { }
+    for i=1,#t do
+        r[i] = t[i]
+    end
+    for k,v in table.sortedpairs(t) do
+        if type(k) ~= "number" then
+            r[#r+1] = k .. "=" .. v
+        end
+    end
+    return concat(r,", ")
+end
+
+--~ \startluacode
+--~ function test(opt_1, opt_2, arg_1)
+--~     context.startnarrower()
+--~     context("options 1: %s",mkiv.tolist(opt_1))
+--~     context.par()
+--~     context("options 2: %s",mkiv.tolist(opt_2))
+--~     context.par()
+--~     context("argument 1: %s",arg_1)
+--~     context.stopnarrower()
+--~ end
+
+--~ mkiv.define {
+--~     name = "test",
+--~     arguments = {
+--~         { "option", "list" },
+--~         { "option", "hash" },
+--~         { "content", "string" },
+--~     },
+--~     macro = test,
+--~ }
+--~ \stopluacode
+
+--~ test: \test[1][a=3]{whatever}
+
+--~ \startluacode
+--~ local function startmore(opt_1)
+--~     context.startnarrower()
+--~     context("start more, options: %s",mkiv.tolist(opt_1))
+--~     context.startnarrower()
+--~ end
+
+--~ local function stopmore(opt_1)
+--~     context.stopnarrower()
+--~     context("stop more, options: %s",mkiv.tolist(opt_1))
+--~     context.stopnarrower()
+--~ end
+
+--~ mkiv.define ( "more", {
+--~     environment = true,
+--~     arguments = {
+--~         { "option", "list" },
+--~     },
+--~     starter = startmore,
+--~     stopper = stopmore,
+--~ } )
+--~ \stopluacode
+
+--~ more: \startmore[1] one \startmore[2] two \stopmore one \stopmore