tools/serialize.lua

changeset 547
265c4b8f0a8a
parent 546
1e65f64dfabf
child 548
c80137472280
child 549
c0947c0af398
--- a/tools/serialize.lua	Thu Dec 04 23:27:54 2008 +0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,65 +0,0 @@
--- Prosody IM v0.1
--- Copyright (C) 2008 Matthew Wild
--- Copyright (C) 2008 Waqas Hussain
--- 
--- This program is free software; you can redistribute it and/or
--- modify it under the terms of the GNU General Public License
--- as published by the Free Software Foundation; either version 2
--- of the License, or (at your option) any later version.
--- 
--- This program is distributed in the hope that it will be useful,
--- but WITHOUT ANY WARRANTY; without even the implied warranty of
--- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--- GNU General Public License for more details.
--- 
--- You should have received a copy of the GNU General Public License
--- along with this program; if not, write to the Free Software
--- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
---
-
-
-
-local indent = function(i)
-	return string.rep("\t", i);
-end
-local function basicSerialize (o)
-	if type(o) == "number" or type(o) == "boolean" then
-		return tostring(o);
-	else -- assume it is a string -- FIXME make sure it's a string. throw an error otherwise.
-		return (string.format("%q", tostring(o)):gsub("\\\n", "\\n"));
-	end
-end
-local function _simplesave (o, ind, t)
-	if type(o) == "number" then
-		table.insert(t, tostring(o));
-	elseif type(o) == "string" then
-		table.insert(t, (string.format("%q", o):gsub("\\\n", "\\n")));
-	elseif type(o) == "table" then
-		table.insert(t, "{\n");
-		for k,v in pairs(o) do
-			table.insert(t, indent(ind));
-			table.insert(t, "[");
-			table.insert(t, basicSerialize(k));
-			table.insert(t, "] = ");
-			_simplesave(v, ind+1, t);
-			table.insert(t, ",\n");
-		end
-		table.insert(t, indent(ind-1));
-		table.insert(t, "}");
-	elseif type(o) == "boolean" then
-		table.insert(t, (o and "true" or "false"));
-	else
-		error("cannot serialize a " .. type(o))
-	end
-end
-local t_concat = table.concat;
-
-module "serialize"
-
-function serialize(o)
-	local t = {};
-	_simplesave(o, 1, t);
-	return t_concat(t);
-end
-
-return _M;

mercurial