diff options
Diffstat (limited to 'tex/context/base/lxml-inf.lua')
-rw-r--r-- | tex/context/base/lxml-inf.lua | 116 |
1 files changed, 58 insertions, 58 deletions
diff --git a/tex/context/base/lxml-inf.lua b/tex/context/base/lxml-inf.lua index 2c130791a..8f1157c7d 100644 --- a/tex/context/base/lxml-inf.lua +++ b/tex/context/base/lxml-inf.lua @@ -1,58 +1,58 @@ -if not modules then modules = { } end modules ['lxml-inf'] = {
- 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"
-}
-
--- This file will be loaded runtime by x-pending.tex.
-
-local concat = table.concat
-
-local xmlwithelements = xml.withelements
-local getid = lxml.getid
-
-local status, stack
-
-local function get(e,d)
- local ns, tg = e.ns, e.tg
- local name = tg
- if ns ~= "" then name = ns .. ":" .. tg end
- stack[d] = name
- local ec = e.command
- if ec == true then
- ec = "system: text"
- elseif ec == false then
- ec = "system: skip"
- elseif ec == nil then
- ec = "system: not set"
- elseif type(ec) == "string" then
- ec = "setup: " .. ec
- else -- function
- ec = tostring(ec)
- end
- local tag = concat(stack," => ",1,d)
- local s = status[tag]
- if not s then
- s = { }
- status[tag] = s
- end
- s[ec] = (s[ec] or 0) + 1
-end
-
-local function get_command_status(id)
- status, stack = {}, {}
- if id then
- xmlwithelements(getid(id),get)
- return status
- else
- local t = { }
- for id, _ in next, loaded do
- t[id] = get_command_status(id)
- end
- return t
- end
-end
-
-lxml.get_command_status = get_command_status
+if not modules then modules = { } end modules ['lxml-inf'] = { + 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" +} + +-- This file will be loaded runtime by x-pending.tex. + +local concat = table.concat + +local xmlwithelements = xml.withelements +local getid = lxml.getid + +local status, stack + +local function get(e,d) + local ns, tg = e.ns, e.tg + local name = tg + if ns ~= "" then name = ns .. ":" .. tg end + stack[d] = name + local ec = e.command + if ec == true then + ec = "system: text" + elseif ec == false then + ec = "system: skip" + elseif ec == nil then + ec = "system: not set" + elseif type(ec) == "string" then + ec = "setup: " .. ec + else -- function + ec = tostring(ec) + end + local tag = concat(stack," => ",1,d) + local s = status[tag] + if not s then + s = { } + status[tag] = s + end + s[ec] = (s[ec] or 0) + 1 +end + +local function get_command_status(id) + status, stack = {}, {} + if id then + xmlwithelements(getid(id),get) + return status + else + local t = { } + for id, _ in next, loaded do + t[id] = get_command_status(id) + end + return t + end +end + +lxml.get_command_status = get_command_status |