1 files changed, 107 insertions, 0 deletions
diff --git a/tex/context/base/lxml-dir.lua b/tex/context/base/lxml-dir.lua
new file mode 100644
index 000000000..12d7680ed
--- /dev/null
+++ b/tex/context/base/lxml-dir.lua
@@ -0,0 +1,107 @@
+if not modules then modules = { } end modules ['lxml-dir'] = {
+    version   = 1.001,
+    comment   = "this module is the basis for the lxml-* ones",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local format, gsub = string.format, string.gsub
+local get_id = lxml.id
+local texsprint, ctxcatcodes = tex.sprint, tex.ctxcatcodes
+local xmlparseapply = xml.parse_apply
+
+--~ <?xml version="1.0" standalone="yes"?>
+--~ <!-- demo.cdx -->
+--~ <directives>
+--~ <!--
+--~     <directive attribute='id' value="100" setup="cdx:100"/>
+--~     <directive attribute='id' value="101" setup="cdx:101"/>
+--~ -->
+--~ <!--
+--~     <directive attribute='cdx' value="colors"   element="cals:table" setup="cdx:cals:table:colors"/>
+--~     <directive attribute='cdx' value="vertical" element="cals:table" setup="cdx:cals:table:vertical"/>
+--~     <directive attribute='cdx' value="noframe"  element="cals:table" setup="cdx:cals:table:noframe"/>
+--~ -->
+--~ <directive attribute='cdx' value="*" element="cals:table" setup="cdx:cals:table:*"/>
+--~ </directives>
+
+
+
+lxml.directives = lxml.directives or { }
+
+local directives = lxml.directives
+
+local data = {
+    setup  = { },
+    before = { },
+    after  = { }
+}
+
+local function load_setup(filename)
+    local fullname = resolvers.find_file(filename) or ""
+    if fullname ~= "" then
+        filename = fullname
+    end
+    local collection = xmlparseapply({ get_id(xml.load(filename)) },"directive")
+    if collection then
+        for i=1,#collection do
+            local at = collection[i].at
+            local attribute, value, element = at.attribute or "", at.value or "", at.element or '*'
+            local setup, before, after = at.setup or "", at.before or "", at.after or ""
+            if attribute ~= "" and value ~= "" then
+                local key = format("%s::%s::%s",element,attribute,value)
+                local t = data[key] or { }
+                if setup  ~= "" then t.setup  = setup  end
+                if before ~= "" then t.before = before end
+                if after  ~= "" then t.after  = after  end
+                data[key] = t
+            end
+        end
+    end
+end
+
+local function handle_setup(category,root,attribute,element)
+    root = get_id(root)
+    if attribute then
+        local value = root.at[attribute]
+        if value then
+            if not element then
+                local ns, tg = root.rn or root.ns, root.tg
+                if ns == "" then
+                    element = tg
+                else
+                    element = ns .. ':' .. tg
+                end
+            end
+            local setup = data[format("%s::%s::%s",element,attribute,value)]
+            if setup then
+                setup = setup[category]
+            end
+            if setup then
+                texsprint(ctxcatcodes,"\\directsetup{",setup,"}")
+            else
+                setup = data[format("%s::%s::*",element,attribute)]
+                if setup then
+                    setup = setup[category]
+                end
+                if setup then
+                    texsprint(ctxcatcodes,"\\directsetup{",gsub(setup,'%*',value),"}")
+                end
+            end
+        end
+    end
+end
+
+directives.load   = load_setup
+directives.handle = handle_setup
+
+function directives.setup(root,attribute,element)
+    handle_setup('setup',root,attribute,element)
+end
+function directives.before(root,attribute,element)
+    handle_setup('before',root,attribute,element)
+end
+function directives.after(root,attribute,element)
+    handle_setup('after',root,attribute,element)
+end