From f5962d7193fbd92687248ef97b4673248defc751 Mon Sep 17 00:00:00 2001 From: Kim Alvefur Date: Sat, 20 Mar 2021 20:45:06 +0100 Subject: util.datamapper: Finally implement support for parsing arrays --- teal-src/util/datamapper.tl | 30 +++++++++++++----------------- 1 file changed, 13 insertions(+), 17 deletions(-) (limited to 'teal-src') diff --git a/teal-src/util/datamapper.tl b/teal-src/util/datamapper.tl index 54ecdacf..b5c07f71 100644 --- a/teal-src/util/datamapper.tl +++ b/teal-src/util/datamapper.tl @@ -60,7 +60,7 @@ end local function unpack_propschema( propschema : schema_t, propname : string, current_ns : string ) : json_type_name, value_goes, string, string, string, string, { any } local proptype : json_type_name = "string" - local value_where : value_goes = "in_text_tag" + local value_where : value_goes = propname and "in_text_tag" or "in_text" local name = propname local namespace = current_ns local prefix : string @@ -191,21 +191,17 @@ function parse_object (schema : schema_t, s : st.stanza_t) : { string : any } end function parse_array (schema : json_schema_object, s : st.stanza_t) : { any } - local proptype, value_where, child_name, namespace = unpack_propschema(schema.items, nil, s.attr.xmlns) + local proptype, value_where, child_name, namespace, prefix, single_attribute, enums = unpack_propschema(schema.items, nil, s.attr.xmlns) + local attr_name : string + if value_where == "in_single_attribute" then -- FIXME this shouldn't be needed + value_where = "in_attribute"; + attr_name = single_attribute; + end local out : { any } = {} for c in s:childtags(child_name, namespace) do - local value : string; - if value_where == "in_text_tag" then - value = c:get_text(); - else - error "NYI" - end - - value = totype(proptype, value) + local value : string = extract_value (c, value_where, proptype, attr_name or child_name, namespace, prefix, single_attribute, enums) - if value ~= nil then - table.insert(out, value); - end + table.insert(out, totype(proptype, value)); end return out; end @@ -329,10 +325,10 @@ local function unparse ( schema : json_schema_object, t : table, current_name : if proptype == "string" then for _, item in ipairs(t as { string }) do if value_where == "in_text_tag" then - out:text_tag(name, item, { xmlns = namespace }); - else - error "NYI" - end + out:text_tag(name, item, { xmlns = namespace }); + else + error "NYI" + end end else error "NYI" -- cgit v1.2.3