mirror of
https://github.com/bjc/prosody.git
synced 2025-04-04 05:37:39 +03:00
96 lines
2.2 KiB
Lua
96 lines
2.2 KiB
Lua
local st = require("util.stanza");
|
|
|
|
local function toboolean(s)
|
|
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, s)
|
|
local out = {}
|
|
if schema.properties then
|
|
for prop, propschema in pairs(schema.properties) do
|
|
|
|
local name = prop
|
|
local namespace = s.attr.xmlns;
|
|
local prefix = nil
|
|
local is_attribute = false
|
|
local is_text = false
|
|
|
|
local proptype
|
|
if type(propschema) == "table" then
|
|
proptype = propschema.type
|
|
elseif type(propschema) == "string" then
|
|
proptype = propschema
|
|
end
|
|
|
|
if type(propschema) == "table" 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
|
|
|
|
out[prop] = tonumber(s.attr[attr])
|
|
elseif proptype == "boolean" then
|
|
out[prop] = toboolean(s.attr[attr])
|
|
|
|
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 type(propschema) == "table" then
|
|
local c = s:get_child(name, namespace)
|
|
if c then
|
|
out[prop] = parse_object(propschema, c);
|
|
end
|
|
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
return out
|
|
end
|
|
|
|
local function parse(schema, s)
|
|
if schema.type == "object" then
|
|
return parse_object(schema, s)
|
|
end
|
|
end
|
|
|
|
return {parse = parse}
|