From 78b3e4e756687dac5b747f4a4e9cf83091b9f9de Mon Sep 17 00:00:00 2001 From: Waqas Hussain Date: Sun, 20 Feb 2011 19:16:56 +0500 Subject: util.stanza: Rewrite clone() to be more optimized. --- util/stanza.lua | 27 ++++++++++++--------------- 1 file changed, 12 insertions(+), 15 deletions(-) diff --git a/util/stanza.lua b/util/stanza.lua index ca79a728..de83977f 100644 --- a/util/stanza.lua +++ b/util/stanza.lua @@ -320,24 +320,21 @@ function deserialize(stanza) return stanza; end -function clone(stanza) - local lookup_table = {}; - local function _copy(object) - if type(object) ~= "table" then - return object; - elseif lookup_table[object] then - return lookup_table[object]; +local function _clone(stanza) + local attr, tags = {}, {}; + for k,v in pairs(stanza.attr) do attr[k] = v; end + local new = { name = stanza.name, attr = attr, tags = tags }; + for i=1,#stanza do + local child = stanza[i]; + if child.name then + child = _clone(child); + t_insert(tags, child); end - local new_table = {}; - lookup_table[object] = new_table; - for index, value in pairs(object) do - new_table[_copy(index)] = _copy(value); - end - return setmetatable(new_table, getmetatable(object)); + t_insert(new, child); end - - return _copy(stanza) + return setmetatable(new, stanza_mt); end +clone = _clone; function message(attr, body) if not body then -- cgit v1.2.3