From 85b7bc695629926641c7cb752fd478adfdf374f3 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Sun, 4 Jul 2010 15:32:09 +0300
Subject: stable 2010-05-24 13:10

---
 tex/context/base/lxml-inf.lua | 53 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 tex/context/base/lxml-inf.lua

(limited to 'tex/context/base/lxml-inf.lua')

diff --git a/tex/context/base/lxml-inf.lua b/tex/context/base/lxml-inf.lua
new file mode 100644
index 000000000..629c869ec
--- /dev/null
+++ b/tex/context/base/lxml-inf.lua
@@ -0,0 +1,53 @@
+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 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(get_id(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
-- 
cgit v1.2.3