util.datamapper: Factor out handling of object properties for array reuse

1 files changed, 82 insertions, 79 deletions

diff --git a/teal-src/util/datamapper.tl b/teal-src/util/datamapper.tl
index b5c07f71..2c1b05dc 100644
--- a/teal-src/util/datamapper.tl
+++ b/teal-src/util/datamapper.tl
@@ -216,7 +216,87 @@ local function parse (schema : json_schema_object, s : st.stanza_t) : table
 	end
 end
 
-local function unparse ( schema : json_schema_object, t : table, current_name : string, current_ns : string, ctx : st.stanza_t ) : st.stanza_t
+local unparse : function (json_schema_object, table, string, string, st.stanza_t) : st.stanza_t
+
+local function unparse_property(out : st.stanza_t, v : any, proptype : json_type_name, propschema : schema_t, value_where : value_goes, name : string, namespace : string, current_ns : string, prefix : string, single_attribute : string)
+	if value_where == "in_attribute" then
+		local attr = name
+		if prefix then
+			attr = prefix .. ':' .. name
+		elseif namespace ~= current_ns then
+			attr = namespace .. "\1" .. name
+		end
+
+		if proptype == "string" and v is string then
+			out.attr[attr] = v
+		elseif proptype == "number" and v is number then
+			out.attr[attr] = string.format("%g", v)
+		elseif proptype == "integer" and v is number then -- TODO is integer
+			out.attr[attr] = string.format("%d", v)
+		elseif proptype == "boolean" then
+			out.attr[attr] = v and "1" or "0"
+		end
+	elseif value_where == "in_text" then
+		if v is string then
+			out:text(v)
+		end
+	elseif value_where == "in_single_attribute" then
+		assert(single_attribute)
+		local propattr : { string : string } = {}
+
+		if namespace ~= current_ns then
+			propattr.xmlns = namespace
+		end
+
+		if proptype == "string" and v is string then
+			propattr[single_attribute] = v
+		elseif proptype == "number" and v is number then
+			propattr[single_attribute] = string.format("%g", v)
+		elseif proptype == "integer" and v is number then -- TODO is integer
+			propattr[single_attribute] = string.format("%d", v)
+		elseif proptype == "boolean" and v is boolean then
+			propattr[single_attribute] = v and "1" or "0"
+		end
+		out:tag(name, propattr):up();
+
+	else
+		local propattr : { string : string }
+		if namespace ~= current_ns then
+			propattr = { xmlns = namespace }
+		end
+		if value_where == "in_tag_name" then
+			if proptype == "string" and v is string then
+				out:tag(v, propattr):up();
+			elseif proptype == "boolean" and v == true then
+				out:tag(name, propattr):up();
+			end
+		elseif proptype == "string" and v is string then
+			out:text_tag(name, v, propattr)
+		elseif proptype == "number" and v is number then
+			out:text_tag(name, string.format("%g", v), propattr)
+		elseif proptype == "integer" and v is number then -- TODO is integer
+			out:text_tag(name, string.format("%d", v), propattr)
+		elseif proptype == "boolean" and v is boolean then
+			out:text_tag(name, v and "1" or "0", propattr)
+		elseif proptype == "object" and propschema is json_schema_object and v is table then
+			local c = unparse(propschema, v, name, namespace);
+			if c then
+				out:add_direct_child(c);
+			end
+		elseif proptype == "array" and propschema is json_schema_object and v is table then
+			if value_where == "in_wrapper" then
+				local c = unparse(propschema, v, name, namespace);
+				if c then
+					out:add_direct_child(c);
+				end
+			else
+				unparse(propschema, v, name, namespace, out);
+			end
+		end
+	end
+end
+
+function unparse ( schema : json_schema_object, t : table, current_name : string, current_ns : string, ctx : st.stanza_t ) : st.stanza_t
 
 	if schema.xml then
 		if schema.xml.name then
@@ -236,85 +316,8 @@ local function unparse ( schema : json_schema_object, t : table, current_name :
 			local v = t[prop]
 
 			if v ~= nil then
-
 				local proptype, value_where, name, namespace, prefix, single_attribute = unpack_propschema(propschema, prop, current_ns)
-
-				if value_where == "in_attribute" then
-					local attr = name
-					if prefix then
-						attr = prefix .. ':' .. name
-					elseif namespace ~= current_ns then
-						attr = namespace .. "\1" .. name
-					end
-
-					if proptype == "string" and v is string then
-						out.attr[attr] = v
-					elseif proptype == "number" and v is number then
-						out.attr[attr] = string.format("%g", v)
-					elseif proptype == "integer" and v is number then -- TODO is integer
-						out.attr[attr] = string.format("%d", v)
-					elseif proptype == "boolean" then
-						out.attr[attr] = v and "1" or "0"
-					end
-				elseif value_where == "in_text" then
-					if v is string then
-						out:text(v)
-					end
-				elseif value_where == "in_single_attribute" then
-					local propattr : { string : string } = {}
-
-					if namespace ~= current_ns then
-						propattr.xmlns = namespace
-					end
-
-					if proptype == "string" and v is string then
-						propattr[single_attribute] = v
-					elseif proptype == "number" and v is number then
-						propattr[single_attribute] = string.format("%g", v)
-					elseif proptype == "integer" and v is number then -- TODO is integer
-						propattr[single_attribute] = string.format("%d", v)
-					elseif proptype == "boolean" and v is boolean then
-						propattr[single_attribute] = v and "1" or "0"
-					end
-					out:tag(name, propattr):up();
-
-				else
-					local propattr : { string : string }
-					if namespace ~= current_ns then
-						propattr = { xmlns = namespace }
-					end
-					if value_where == "in_tag_name" then
-						if proptype == "string" and v is string then
-							out:tag(v, propattr):up();
-						elseif proptype == "boolean" and v == true then
-							out:tag(name, propattr):up();
-						end
-					elseif proptype == "string" and v is string then
-						out:text_tag(name, v, propattr)
-					elseif proptype == "number" and v is number then
-						out:text_tag(name, string.format("%g", v), propattr)
-					elseif proptype == "integer" and v is number then -- TODO is integer
-						out:text_tag(name, string.format("%d", v), propattr)
-					elseif proptype == "boolean" and v is boolean then
-						out:text_tag(name, v and "1" or "0", propattr)
-					elseif proptype == "object" and propschema is json_schema_object and v is table then
-						local c = unparse(propschema, v, name, namespace);
-						if c then
-							out:add_direct_child(c);
-						end
-					elseif proptype == "array" and propschema is json_schema_object and v is table then
-						if value_where == "in_wrapper" then
-							local c = unparse(propschema, v, name, namespace);
-							if c then
-								out:add_direct_child(c);
-							end
-						else
-							unparse(propschema, v, name, namespace, out);
-						end
-					else
-						error "NYI"
-					end
-				end
+				unparse_property(out, v, proptype, propschema, value_where, name, namespace, current_ns, prefix, single_attribute)
 			end
 		end
 		return out;