Comparison

util.stanza: Rewrite clone() to be more optimized.

author	Waqas Hussain <waqas20@gmail.com>
date	Sun, 20 Feb 2011 19:16:56 +0500
parent	4168:4919831b5b56
child	4184:7e3a570f33f4

comparison

equal deleted inserted replaced

-:760f644c0ca3
+:aa07a381e5a6
 	end
 	return stanza;
 end
-function clone(stanza)
+local function _clone(stanza)
-	local lookup_table = {};
+	local attr, tags = {}, {};
-	local function _copy(object)
+	for k,v in pairs(stanza.attr) do attr[k] = v; end
-		if type(object) ~= "table" then
+	local new = { name = stanza.name, attr = attr, tags = tags };
-			return object;
+	for i=1,#stanza do
-		elseif lookup_table[object] then
+		local child = stanza[i];
-			return lookup_table[object];
+		if child.name then
-		end
+			child = _clone(child);
-		local new_table = {};
+			t_insert(tags, child);
-		lookup_table[object] = new_table;
+		end
-		for index, value in pairs(object) do
+		t_insert(new, child);
-			new_table[_copy(index)] = _copy(value);
+	end
-		end
+	return setmetatable(new, stanza_mt);
-		return setmetatable(new_table, getmetatable(object));
+end
-	end
+clone = _clone;
-	return _copy(stanza)
-end
 function message(attr, body)
 	if not body then
 		return stanza("message", attr);
 	else