From 7d7e0d3c8d778650105cfb479f31a2bb54d69d50 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Thu, 19 Aug 2010 10:29:42 +0300
Subject: beta 2010.08.19 01:08

---
 tex/context/base/mult-aux.lua | 128 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 128 insertions(+)
 create mode 100644 tex/context/base/mult-aux.lua

(limited to 'tex/context/base/mult-aux.lua')

diff --git a/tex/context/base/mult-aux.lua b/tex/context/base/mult-aux.lua
new file mode 100644
index 000000000..997760a37
--- /dev/null
+++ b/tex/context/base/mult-aux.lua
@@ -0,0 +1,128 @@
+if not modules then modules = { } end modules ['mult-aux'] = {
+    version   = 1.001,
+    comment   = "companion to mult-aux.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+interfaces.namespaces = interfaces.namespaces or { }
+local namespaces      = interfaces.namespaces
+local variables       = interfaces.variables
+
+local trace_namespaces = false  trackers.register("interfaces.namespaces", function(v) trace_namespaces = v end)
+
+local report_namespaces = logs.new("namespaces")
+
+local v_yes, v_list = variables.yes, variables.list
+
+local prefix  = "????"
+local meaning = "@@@@"
+
+local data = { }
+
+function namespaces.define(namespace,settings)
+    if data[namespace] then
+        report_namespaces("namespace '%s' is already taken",namespace)
+    end
+    if #namespace < 2 then
+        report_namespaces("namespace '%s' should have more than 1 character",namespace)
+    end
+    local ns = { }
+    data[namespace] = ns
+    utilities.parsers.settings_to_hash(settings,ns)
+    local name = ns.name
+    if not name or name == "" then
+        report_namespaces("provide a (command) name in namespace '%s'",namespace)
+    end
+    local self = prefix .. namespace
+    context.unprotect()
+ -- context.installnamespace(namespace)
+    context("\\def\\%s%s{%s%s}",prefix,self,meaning,namespace)
+    if trace_namespaces then
+        report_namespaces("installing namespace '%s' for '%s'",namespace,name)
+    end
+    local parent = ns.parent or ""
+    if parent ~= "" then
+        if trace_namespaces then
+            report_namespaces("namespace '%s' for '%s' uses parent '%s'",namespace,name,parent)
+        end
+        parent = prefix .. parent
+        -- todo: check if defined
+    end
+    context.installparameterhandler(self,name)
+    if trace_namespaces then
+        report_namespaces("installing parameter handler for '%s'",name)
+        end
+    context.installparameterhashhandler(self,name)
+    if trace_namespaces then
+        report_namespaces("installing parameterhash handler for '%s'",name)
+        end
+    local style = ns.style
+    if style == v_yes then
+        context.installattributehandler(self,name)
+        if trace_namespaces then
+            report_namespaces("installing attribute handler for '%s'",name)
+        end
+    end
+    local command = ns.command
+    if command == v_yes then
+        context.installdefinehandler(self,name,parent)
+        if trace_namespaces then
+            report_namespaces("installing definition command for '%s' (single)",name)
+        end
+    elseif command == v_list then
+        context.installdefinehandler(self,name,parent)
+        if trace_namespaces then
+            report_namespaces("installing definition command for '%s' (multiple)",name)
+        end
+    end
+    local setup = ns.setup
+    if setup == v_yes then
+        context.installsetuphandler(self,name)
+        if trace_namespaces then
+            report_namespaces("installing setup command for '%s' (single)",name)
+        end
+    elseif setup == v_list then
+        context.installsetuphandler(self,name)
+        if trace_namespaces then
+            report_namespaces("installing setup command for '%s' (multiple)",name)
+        end
+    end
+    context.protect()
+end
+
+function utilities.formatters.list(data,key,keys)
+    if not keys then
+        keys = { }
+        for _, v in next, data do
+            for k, _ in next, v do
+                keys[k] = true
+            end
+        end
+        keys = table.sortedkeys(keys)
+    end
+    context.starttabulate { "|"..string.rep("l|",#keys+1) }
+    context.NC()
+    context(key)
+    for i=1,#keys do
+        context.NC()
+        context(keys[i])
+    end context.NR()
+    context.HL()
+    for k, v in table.sortedhash(data) do
+        context.NC()
+        context(k)
+        for i=1,#keys do
+            context.NC()
+            context(v[keys[i]])
+        end context.NR()
+    end
+    context.stoptabulate()
+end
+
+function namespaces.list()
+ -- utilities.formatters.list(data,"namespace")
+    local keys = { "type", "name", "comment", "version", "parent", "definition", "setup", "style" }
+    utilities.formatters.list(data,"namespace",keys)
+end
-- 
cgit v1.2.3