Fix simplexml (still has issues with <bla/> tags)

This commit is contained in:
Antoine Cellerier 2010-02-14 23:30:31 +01:00
parent 43848e7ed4
commit c628569832
2 changed files with 19 additions and 8 deletions

View File

@ -54,6 +54,10 @@ end
-- print a table (recursively)
function table_print(t,prefix)
local prefix = prefix or ""
if not t then
print(prefix.."/!\\ nil")
return
end
for a,b in pairs_sorted(t) do
print(prefix..tostring(a),b)
if type(b)==type({}) then

View File

@ -37,25 +37,32 @@ local function parsexml(stream)
local parents = {}
while reader:read() > 0 do
local nodetype = reader:node_type()
--print(nodetype, reader:name())
if nodetype == 'startelem' then
local name = reader:name()
local node = { name: '', attributes: {}, children: {} }
local node = { name= '', attributes= {}, children= {} }
node.name = name
while reader:NextAttr() == 0 do
node.attributes[reader:Name()] = reader:Value()
while reader:next_attr() == 0 do
node.attributes[reader:name()] = reader:value()
end
if tree then
tree.children[#tree.children] = node
parents[#parents] = tree
tree = node
table.insert(tree.children, node)
table.insert(parents, tree)
end
tree = node
elseif nodetype == 'endelem' then
tree = parents[#parents-1]
if #parents > 0 then
tree = parents[#parents]
table.remove(parents)
end
elseif nodetype == 'text' then
node.children[#node.children] = reader:Value()
table.insert(tree.children, reader:value())
end
end
if #parents > 0 then
error("XML parser error/Missing closing tags")
end
return tree
end