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
|
#!/usr/local/bin/lua
local lom = require "lxp.lom"
local tests = {
[[<abc a1="A1" a2="A2">inside tag `abc'</abc>]],
[[<qwerty q1="q1" q2="q2">
<asdf>some text</asdf>
</qwerty>]],
}
function table._tostring (tab, indent, spacing)
local s = {}
spacing = spacing or ""
indent = indent or "\t"
table.insert (s, "{\n")
for nome, val in pairs (tab) do
table.insert (s, spacing..indent)
local t = type(nome)
if t == "string" then
table.insert (s, string.format ("[%q] = ", tostring (nome)))
elseif t == "number" or t == "boolean" then
table.insert (s, string.format ("[%s] = ", tostring (nome)))
else
table.insert (s, t)
end
t = type(val)
if t == "string" or t == "number" then
table.insert (s, string.format ("%q", val))
elseif t == "table" then
table.insert (s, table._tostring (val, indent, spacing..indent))
else
table.insert (s, t)
end
table.insert (s, ",\n")
end
table.insert (s, spacing.."}")
return table.concat (s)
end
function table.print (tab, indent, spacing)
io.write (table._tostring (tab, indent, spacing))
end
for i, s in ipairs(tests) do
--s = string.gsub (s, "[\n\r\t]", "")
local ds = assert (lom.parse ([[<?xml version="1.0" encoding="ISO-8859-1"?>]]..s))
print(table._tostring(ds))
end
|
