prosody
9bd36e871f05

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / prosody

Changeset

11475:9bd36e871f05

util.datamapper: Factor out conversion from any value to XML string Since this was the last severely duplicated code left.
author Kim Alvefur <zash@zash.se>
date Mon, 22 Mar 2021 22:24:39 +0100
parents 11474:8fba807e5256
children 11476:83e127eb91f9
files teal-src/util/datamapper.tl util/datamapper.lua
diffstat 2 files changed, 34 insertions(+), 58 deletions(-) [+]
line wrap: on
line diff
--- a/teal-src/util/datamapper.tl	Mon Mar 22 22:01:49 2021 +0100
+++ b/teal-src/util/datamapper.tl	Mon Mar 22 22:24:39 2021 +0100
@@ -231,6 +231,18 @@
 	end
 end
 
+local function toxmlstring(proptype : json_type_name, v : any) : string
+	if proptype == "string" and v is string then
+		return  v
+	elseif proptype == "number" and v is number then
+		return  string.format("%g", v)
+	elseif proptype == "integer" and v is number then -- TODO is integer
+		return  string.format("%d", v)
+	elseif proptype == "boolean" then
+		return  v and "1" or "0"
+	end
+end
+
 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)
@@ -242,19 +254,9 @@
 			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
+		out.attr[attr] = toxmlstring(proptype, v)
 	elseif value_where == "in_text" then
-		if v is string then
-			out:text(v)
-		end
+		out:text(toxmlstring(proptype, v))
 	elseif value_where == "in_single_attribute" then
 		assert(single_attribute)
 		local propattr : { string : string } = {}
@@ -263,15 +265,7 @@
 			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
+		propattr[single_attribute] = toxmlstring(proptype, v)
 		out:tag(name, propattr):up();
 
 	else
@@ -285,14 +279,6 @@
 			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
@@ -307,6 +293,8 @@
 			else
 				unparse(propschema, v, name, namespace, out);
 			end
+		else
+			out:text_tag(name, toxmlstring(proptype, v), propattr)
 		end
 	end
 end
--- a/util/datamapper.lua	Mon Mar 22 22:01:49 2021 +0100
+++ b/util/datamapper.lua	Mon Mar 22 22:24:39 2021 +0100
@@ -199,6 +199,18 @@
 	end
 end
 
+local function toxmlstring(proptype, v)
+	if proptype == "string" and type(v) == "string" then
+		return v
+	elseif proptype == "number" and type(v) == "number" then
+		return string.format("%g", v)
+	elseif proptype == "integer" and type(v) == "number" then
+		return string.format("%d", v)
+	elseif proptype == "boolean" then
+		return v and "1" or "0"
+	end
+end
+
 local unparse
 
 local function unparse_property(out, v, proptype, propschema, value_where, name, namespace, current_ns, prefix, single_attribute)
@@ -210,19 +222,9 @@
 			attr = namespace .. "\1" .. name
 		end
 
-		if proptype == "string" and type(v) == "string" then
-			out.attr[attr] = v
-		elseif proptype == "number" and type(v) == "number" then
-			out.attr[attr] = string.format("%g", v)
-		elseif proptype == "integer" and type(v) == "number" then
-			out.attr[attr] = string.format("%d", v)
-		elseif proptype == "boolean" then
-			out.attr[attr] = v and "1" or "0"
-		end
+		out.attr[attr] = toxmlstring(proptype, v)
 	elseif value_where == "in_text" then
-		if type(v) == "string" then
-			out:text(v)
-		end
+		out:text(toxmlstring(proptype, v))
 	elseif value_where == "in_single_attribute" then
 		assert(single_attribute)
 		local propattr = {}
@@ -231,15 +233,7 @@
 			propattr.xmlns = namespace
 		end
 
-		if proptype == "string" and type(v) == "string" then
-			propattr[single_attribute] = v
-		elseif proptype == "number" and type(v) == "number" then
-			propattr[single_attribute] = string.format("%g", v)
-		elseif proptype == "integer" and type(v) == "number" then
-			propattr[single_attribute] = string.format("%d", v)
-		elseif proptype == "boolean" and type(v) == "boolean" then
-			propattr[single_attribute] = v and "1" or "0"
-		end
+		propattr[single_attribute] = toxmlstring(proptype, v)
 		out:tag(name, propattr):up();
 
 	else
@@ -253,14 +247,6 @@
 			elseif proptype == "boolean" and v == true then
 				out:tag(name, propattr):up();
 			end
-		elseif proptype == "string" and type(v) == "string" then
-			out:text_tag(name, v, propattr)
-		elseif proptype == "number" and type(v) == "number" then
-			out:text_tag(name, string.format("%g", v), propattr)
-		elseif proptype == "integer" and type(v) == "number" then
-			out:text_tag(name, string.format("%d", v), propattr)
-		elseif proptype == "boolean" and type(v) == "boolean" then
-			out:text_tag(name, v and "1" or "0", propattr)
 		elseif proptype == "object" and type(propschema) == "table" and type(v) == "table" then
 			local c = unparse(propschema, v, name, namespace);
 			if c then
@@ -275,6 +261,8 @@
 			else
 				unparse(propschema, v, name, namespace, out);
 			end
+		else
+			out:text_tag(name, toxmlstring(proptype, v), propattr)
 		end
 	end
 end