blob: b58f94aec1865b52d8fb32e39d159f71a03a7c0f (
plain)
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
local st = require "util.stanza";
local js = require "util.jsonschema"
local function toboolean ( s : string ) : boolean
if s == "true" or s == "1" then
return true
elseif s == "false" or s == "0" then
return false
end
end
local function parse_object (schema : js.schema_t, s : st.stanza_t) : table
local out : { string : any } = {}
if schema.properties then
for prop, propschema in pairs(schema.properties) do
-- TODO factor out, if it's generic enough
local name = prop
local namespace = s.attr.xmlns;
local prefix : string = nil
local is_attribute = false
local is_text = false
local proptype : js.schema_t.type_e
if propschema is js.schema_t then
proptype = propschema.type
elseif propschema is js.schema_t.type_e then
proptype = propschema
end
if propschema is js.schema_t and propschema.xml then
if propschema.xml.name then
name = propschema.xml.name
end
if propschema.xml.namespace then
namespace = propschema.xml.namespace
end
if propschema.xml.prefix then
prefix = propschema.xml.prefix
end
if propschema.xml.attribute then
is_attribute = true
elseif propschema.xml.text then
is_text = true
end
end
if is_attribute then
local attr = name
if prefix then
attr = prefix .. ':' .. name
elseif namespace ~= s.attr.xmlns then
attr = namespace .. "\1" .. name
end
if proptype == "string" then
out[prop] = s.attr[attr]
elseif proptype == "integer" or proptype == "number" then
-- TODO floor if integer ?
out[prop] = tonumber(s.attr[attr])
elseif proptype == "boolean" then
out[prop] = toboolean(s.attr[attr])
-- else TODO
end
elseif is_text then
if proptype == "string" then
out[prop] = s:get_text()
elseif proptype == "integer" or proptype == "number" then
out[prop] = tonumber(s:get_text())
end
else
if proptype == "string" then
out[prop] = s:get_child_text(name, namespace)
elseif proptype == "integer" or proptype == "number" then
out[prop] = tonumber(s:get_child_text(name, namespace))
elseif proptype == "object" and propschema is js.schema_t then
local c = s:get_child(name, namespace)
if c then
out[prop] = parse_object(propschema, c);
end
-- else TODO
end
end
end
end
return out
end
local function parse (schema : js.schema_t, s : st.stanza_t) : table
if schema.type == "object" then
return parse_object(schema, s)
end
end
return {
parse = parse,
-- unparse = unparse, -- TODO
}
|
