/usr/share/lua/5.1/lxp/lom.lua is in lua-expat 1.3.0-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | -- See Copyright Notice in license.html
-- $Id: lom.lua,v 1.6 2005/06/09 19:18:40 tuler Exp $
local lxp = require "lxp"
local tinsert, tremove = table.insert, table.remove
local assert, type, print = assert, type, print
local function starttag (p, tag, attr)
local stack = p:getcallbacks().stack
local newelement = {tag = tag, attr = attr}
tinsert(stack, newelement)
end
local function endtag (p, tag)
local stack = p:getcallbacks().stack
local element = tremove(stack)
assert(element.tag == tag)
local level = #stack
tinsert(stack[level], element)
end
local function text (p, txt)
local stack = p:getcallbacks().stack
local element = stack[#stack]
local n = #element
if type(element[n]) == "string" then
element[n] = element[n] .. txt
else
tinsert(element, txt)
end
end
local function parse (o)
local c = { StartElement = starttag,
EndElement = endtag,
CharacterData = text,
_nonstrict = true,
stack = {{}}
}
local p = lxp.new(c)
local status, err
if type(o) == "string" then
status, err = p:parse(o)
if not status then return nil, err end
else
for l in pairs(o) do
status, err = p:parse(l)
if not status then return nil, err end
end
end
status, err = p:parse()
if not status then return nil, err end
p:close()
return c.stack[1][1]
end
return { parse = parse }
|