diff options
Diffstat (limited to 'tex/context/base/lxml-dir.lua')
-rw-r--r-- | tex/context/base/lxml-dir.lua | 112 |
1 files changed, 112 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..617ce3e20 --- /dev/null +++ b/tex/context/base/lxml-dir.lua @@ -0,0 +1,112 @@ +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.findtexfile(filename) or "" + if fullname ~= "" then + filename = fullname + end + local collection = xmlparseapply({ get_id(xml.load(filename)) },"directive") + if collection then + local valid = 0 + 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 + valid = valid + 1 + end + end + commands.writestatus("lxml","%s directives found in '%s', %s valid",#collection,filename,valid) + else + commands.writestatus("lxml","no directives found in '%s'",filename) + 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 |