Software `/` code `/` prosody

Annotate

teal-src/util/datamapper.tl @ 11437:87a684df4b65

util.datamapper: Invent extension for using tag name as value Useful for certain enum-like uses where the element name is the relevant information, e.g. chat states.

author	Kim Alvefur <zash@zash.se>
date	Sat, 06 Mar 2021 23:14:23 +0100
parent	11436:5df9ffc25bb4
child	11438:b7807583de34

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

prosody

87a684df4b65

teal-src/util/datamapper.tl

Software / code / prosody

Annotate

teal-src/util/datamapper.tl @ 11437:87a684df4b65

Software `/` code `/` prosody