diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
commit | fc4466b32ed330a956ac603b00fd145524cff49a (patch) | |
tree | 2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/lxml-ctx.lua | |
parent | 50e2368597d5f6fe2057195d0ae6a9f2044923e4 (diff) |
context (22apr16)
git-svn-id: svn://tug.org/texlive/trunk@40691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/lxml-ctx.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/lxml-ctx.lua | 137 |
1 files changed, 0 insertions, 137 deletions
diff --git a/Master/texmf-dist/tex/context/base/lxml-ctx.lua b/Master/texmf-dist/tex/context/base/lxml-ctx.lua deleted file mode 100644 index 1191d6796a9..00000000000 --- a/Master/texmf-dist/tex/context/base/lxml-ctx.lua +++ /dev/null @@ -1,137 +0,0 @@ -if not modules then modules = { } end modules ['lxml-ctx'] = { - version = 1.001, - comment = "companion to lxml-ini.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - --- is this still used? - -local format, find = string.format, string.find - -local xml = xml -xml.ctx = { } -xml.ctx.enhancers = { } - -local context = context -local commands = commands - --- hashen - -function xml.ctx.enhancers.compound(root,lpath,before,tokens,after) -- todo lpeg - local before = before or "[%a%d][%a%d][%a%d]" - local tokens = tokens or "[%/%-]" - local after = after or "[%a%d][%a%d][%a%d]" - local pattern = "(" .. before .. ")(" .. tokens .. ")(" .. after .. ")" - local action = function(a,b,c) - return a .. "<compound token=" .. format("%q",b) .. "/>" .. c -- formatters["%s<compound token=%q/>%s"](a,b,c) - end - xml.enhance(root,lpath,pattern,action) -- still present? -end - -local loaded = { } - -local nodesettostring = xml.nodesettostring - --- maybe use detokenize instead of \type - -function xml.ctx.tshow(specification) - local pattern = specification.pattern - local xmlroot = specification.xmlroot - local attribute = specification.attribute - if context then - local xmlpattern = pattern - if not find(xmlpattern,"^[%a]+://") then - xmlpattern = "xml://" .. pattern - end - local parsed = xml.lpath(xmlpattern) - local titlecommand = specification.title or "type" - if parsed.state then - context[titlecommand]("pattern: " .. pattern .. " (".. parsed.state .. ")") - else - context[titlecommand]("pattern: " .. pattern) - end - context.starttabulate({ "|Tr|Tl|Tp|" } ) - if specification.warning then - local comment = parsed.comment - if comment then - for k=1,#comment do - context.NC() - context("!") - context.NC() - context.rlap(comment[k]) - context.NR() - end - context.TB() - end - end - for p=1,#parsed do - local pp = parsed[p] - local kind = pp.kind - context.NC() - context(p) - context.NC() - context(kind) - context.NC() - if kind == "axis" then - context(pp.axis) - elseif kind == "nodes" then - context(nodesettostring(pp.nodes,pp.nodetest)) - elseif kind == "expression" then ---~ context("%s => %s",pp.expression,pp.converted) - context(pp.expression) - elseif kind == "finalizer" then - context("%s(%s)",pp.name,pp.arguments) - elseif kind == "error" and pp.error then - context(pp.error) - end - context.NC() - context.NR() - end - context.stoptabulate() - if xmlroot and xmlroot ~= "" then - if not loaded[xmlroot] then - loaded[xmlroot] = xml.convert(buffers.getcontent(xmlroot)) - end - local collected = xml.filter(loaded[xmlroot],xmlpattern) - if collected then - local tc = type(collected) - if not tc then - -- skip - else - context.blank() - context.type("result : ") - if tc == "string" then - context.type(collected) - elseif tc == "table" then - if collected.tg then - collected = { collected } - end - for c=1,#collected do - local cc = collected[c] - if attribute and attribute ~= "" then - local ccat = cc.at - local a = ccat and ccat[attribute] - if a and a ~= "" then - context.type(a) - context.type(">") - end - end - local ccns = cc.ns - if ccns == "" then - context.type(cc.tg) - else - context.type(ccns .. ":" .. cc.tg) - end - context.space() - end - else - context.type(tostring(tc)) - end - context.blank() - end - end - end - end -end |