Software `/` code `/` prosody

Annotate

util/datamapper.lua @ 11438:b7807583de34

util.datamapper: Add logic for "boolean" tags here the presence means true

author	Kim Alvefur <zash@zash.se>
date	Sun, 07 Mar 2021 01:41:39 +0100
parent	11437:87a684df4b65
child	11439:9abcdfdcdb01

rev	line source
11435 a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	1 local st = require("util.stanza");
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	2
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	3 local function toboolean(s)
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	4 if s == "true" or s == "1" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	5 return true
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	6 elseif s == "false" or s == "0" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	7 return false
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	8 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	9 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	10
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	11 local function parse_object(schema, s)
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	12 local out = {}
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	13 if schema.properties then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	14 for prop, propschema in pairs(schema.properties) do
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	15
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	16 local name = prop
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	17 local namespace = s.attr.xmlns;
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	18 local prefix = nil
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	19 local is_attribute = false
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	20 local is_text = false
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	21 local name_is_value = false;
11435 a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	22
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	23 local proptype
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	24 if type(propschema) == "table" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	25 proptype = propschema.type
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	26 elseif type(propschema) == "string" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	27 proptype = propschema
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	28 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	29
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	30 if type(propschema) == "table" and propschema.xml then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	31 if propschema.xml.name then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	32 name = propschema.xml.name
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	33 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	34 if propschema.xml.namespace then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	35 namespace = propschema.xml.namespace
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	36 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	37 if propschema.xml.prefix then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	38 prefix = propschema.xml.prefix
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	39 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	40 if propschema.xml.attribute then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	41 is_attribute = true
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	42 elseif propschema.xml.text then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	43 is_text = true
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	44 elseif propschema.xml.x_name_is_value then
87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	45 name_is_value = true
11435 a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	46 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	47 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	48
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	49 if name_is_value then
87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	50 local c = s:get_child(nil, namespace);
11438 b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	51 if c and proptype == "string" then
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	52 out[prop] = c.name;
11438 b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	53 elseif proptype == "boolean" and c then
b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	54 out[prop] = true;
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	55 end
87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	56 elseif is_attribute then
11435 a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	57 local attr = name
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	58 if prefix then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	59 attr = prefix .. ":" .. name
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	60 elseif namespace ~= s.attr.xmlns then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	61 attr = namespace .. "\1" .. name
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	62 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	63 if proptype == "string" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	64 out[prop] = s.attr[attr]
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	65 elseif proptype == "integer" or proptype == "number" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	66
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	67 out[prop] = tonumber(s.attr[attr])
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	68 elseif proptype == "boolean" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	69 out[prop] = toboolean(s.attr[attr])
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	70
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	71 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	72
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	73 elseif is_text then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	74 if proptype == "string" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	75 out[prop] = s:get_text()
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	76 elseif proptype == "integer" or proptype == "number" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	77 out[prop] = tonumber(s:get_text())
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	78 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	79
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	80 else
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	81
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	82 if proptype == "string" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	83 out[prop] = s:get_child_text(name, namespace)
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	84 elseif proptype == "integer" or proptype == "number" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	85 out[prop] = tonumber(s:get_child_text(name, namespace))
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	86 elseif proptype == "object" and type(propschema) == "table" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	87 local c = s:get_child(name, namespace)
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	88 if c then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	89 out[prop] = parse_object(propschema, c);
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	90 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	91
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	92 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	93 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	94 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	95 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	96
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	97 return out
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	98 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	99
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	100 local function parse(schema, s)
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	101 if schema.type == "object" then
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	102 return parse_object(schema, s)
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	103 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	104 end
a1fa6202fa13 util.datamapper: Library for extracting data from stanzas Kim Alvefur <zash@zash.se> parents: diff changeset	105
11436 5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	106 local function unparse(schema, t, current_name, current_ns)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	107 if schema.type == "object" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	108
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	109 if schema.xml then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	110 if schema.xml.name then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	111 current_name = schema.xml.name
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	112 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	113 if schema.xml.namespace then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	114 current_ns = schema.xml.namespace
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	115 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	116
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	117 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	118
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	119 local out = st.stanza(current_name, {xmlns = current_ns})
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	120
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	121 for prop, propschema in pairs(schema.properties) do
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	122 local v = t[prop]
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	123
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	124 if v ~= nil then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	125 local proptype
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	126 if type(propschema) == "table" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	127 proptype = propschema.type
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	128 elseif type(propschema) == "string" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	129 proptype = propschema
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	130 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	131
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	132 local name = prop
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	133 local namespace = current_ns
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	134 local prefix = nil
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	135 local is_attribute = false
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	136 local is_text = false
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	137 local name_is_value = false;
11436 5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	138
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	139 if type(propschema) == "table" and propschema.xml then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	140
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	141 if propschema.xml.name then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	142 name = propschema.xml.name
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	143 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	144 if propschema.xml.namespace then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	145 namespace = propschema.xml.namespace
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	146 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	147
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	148 if propschema.xml.prefix then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	149 prefix = propschema.xml.prefix
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	150 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	151
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	152 if propschema.xml.attribute then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	153 is_attribute = true
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	154 elseif propschema.xml.text then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	155 is_text = true
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	156 elseif propschema.xml.x_name_is_value then
87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	157 name_is_value = true
11436 5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	158 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	159 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	160
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	161 if is_attribute then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	162 local attr = name
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	163 if prefix then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	164 attr = prefix .. ":" .. name
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	165 elseif namespace ~= current_ns then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	166 attr = namespace .. "\1" .. name
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	167 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	168
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	169 if proptype == "string" and type(v) == "string" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	170 out.attr[attr] = v
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	171 elseif proptype == "number" and type(v) == "number" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	172 out.attr[attr] = string.format("%g", v)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	173 elseif proptype == "integer" and type(v) == "number" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	174 out.attr[attr] = string.format("%d", v)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	175 elseif proptype == "boolean" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	176 out.attr[attr] = v and "1" or "0"
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	177 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	178 elseif is_text then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	179 if type(v) == "string" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	180 out:text(v)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	181 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	182 else
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	183 local propattr
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	184 if namespace ~= current_ns then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	185 propattr = {xmlns = namespace}
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	186 end
11438 b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	187 if name_is_value then
b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	188 if proptype == "string" and type(v) == "string" then
b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	189 out:tag(v, propattr):up();
b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	190 elseif proptype == "boolean" and v == true then
b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	191 out:tag(name, propattr):up();
b7807583de34 util.datamapper: Add logic for "boolean" tags here the presence means true Kim Alvefur <zash@zash.se> parents: 11437 diff changeset	192 end
11437 87a684df4b65 util.datamapper: Invent extension for using tag name as value Kim Alvefur <zash@zash.se> parents: 11436 diff changeset	193 elseif proptype == "string" and type(v) == "string" then
11436 5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	194 out:text_tag(name, v, propattr)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	195 elseif proptype == "number" and type(v) == "number" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	196 out:text_tag(name, string.format("%g", v), propattr)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	197 elseif proptype == "integer" and type(v) == "number" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	198 out:text_tag(name, string.format("%d", v), propattr)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	199 elseif proptype == "boolean" and type(v) == "boolean" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	200 out:text_tag(name, v and "1" or "0", propattr)
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	201 elseif proptype == "object" and type(propschema) == "table" and type(v) == "table" then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	202 local c = unparse(propschema, v, name, namespace);
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	203 if c then
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	204 out:add_direct_child(c);
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	205 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	206
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	207 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	208 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	209 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	210 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	211 return out
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	212
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	213 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	214 end
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	215
5df9ffc25bb4 util.datamapper: Add 'unparse' for turning tables into XML Kim Alvefur <zash@zash.se> parents: 11435 diff changeset	216 return {parse = parse; unparse = unparse}

prosody

b7807583de34

util/datamapper.lua

Software / code / prosody

Annotate

util/datamapper.lua @ 11438:b7807583de34

Software `/` code `/` prosody