prosody: util/xml.lua@5de6b93d0190 (annotated)

5213 cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	1
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	2	local st = require "util.stanza";
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	3	local lxp = require "lxp";
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	4
6780 5de6b93d0190 util.: Remove use of module() function, make all module functions local and return them in a table at the end Kim Alvefur <zash@zash.se>* parents: 6672 diff changeset	5	local _ENV = nil;
5213 cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	6
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	7	local parse_xml = (function()
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	8	local ns_prefixes = {
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	9	["http://www.w3.org/XML/1998/namespace"] = "xml";
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	10	};
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	11	local ns_separator = "\1";
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	12	local ns_pattern = "^([^"..ns_separator.."])"..ns_separator.."?(.)$";
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	13	return function(xml)
6666 d3023dd07cb6 portmanager, s2smanager, sessionmanager, stanza_router, storagemanager, usermanager, util.xml: Add luacheck annotations Matthew Wild <mwild1@gmail.com> parents: 5776 diff changeset	14	--luacheck: ignore 212/self
5213 cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	15	local handler = {};
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	16	local stanza = st.stanza("root");
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	17	function handler:StartElement(tagname, attr)
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	18	local curr_ns,name = tagname:match(ns_pattern);
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	19	if name == "" then
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	20	curr_ns, name = "", curr_ns;
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	21	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	22	if curr_ns ~= "" then
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	23	attr.xmlns = curr_ns;
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	24	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	25	for i=1,#attr do
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	26	local k = attr[i];
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	27	attr[i] = nil;
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	28	local ns, nm = k:match(ns_pattern);
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	29	if nm ~= "" then
5776 bd0ff8ae98a8 Remove all trailing whitespace Florian Zeitz <florob@babelmonkeys.de> parents: 5223 diff changeset	30	ns = ns_prefixes[ns];
bd0ff8ae98a8 Remove all trailing whitespace Florian Zeitz <florob@babelmonkeys.de> parents: 5223 diff changeset	31	if ns then
5213 cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	32	attr[ns..":"..nm] = attr[k];
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	33	attr[k] = nil;
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	34	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	35	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	36	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	37	stanza:tag(name, attr);
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	38	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	39	function handler:CharacterData(data)
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	40	stanza:text(data);
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	41	end
6672 7da8b6bc0966 util.xml: Remove unused parameter (thanks, luacheck) Matthew Wild <mwild1@gmail.com> parents: 6666 diff changeset	42	function handler:EndElement()
5213 cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	43	stanza:up();
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	44	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	45	local parser = lxp.new(handler, "\1");
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	46	local ok, err, line, col = parser:parse(xml);
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	47	if ok then ok, err, line, col = parser:parse(); end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	48	--parser:close();
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	49	if ok then
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	50	return stanza.tags[1];
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	51	else
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	52	return ok, err.." (line "..line..", col "..col..")";
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	53	end
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	54	end;
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	55	end)();
cc487921746b util.xml: Initial commit; exposes parse(), which is now the canonical way to convert a string to a stanza. Waqas Hussain <waqas20@gmail.com> parents: diff changeset	56
6780 5de6b93d0190 util.: Remove use of module() function, make all module functions local and return them in a table at the end Kim Alvefur <zash@zash.se>* parents: 6672 diff changeset	57	return {
5de6b93d0190 util.: Remove use of module() function, make all module functions local and return them in a table at the end Kim Alvefur <zash@zash.se>* parents: 6672 diff changeset	58	parse = parse_xml;
5de6b93d0190 util.: Remove use of module() function, make all module functions local and return them in a table at the end Kim Alvefur <zash@zash.se>* parents: 6672 diff changeset	59	};

author	Kim Alvefur <zash@zash.se>
	Sat, 21 Feb 2015 10:36:37 +0100
changeset 6780	5de6b93d0190
parent 6672	7da8b6bc0966
child 6981	30c96a5db360
permissions	-rw-r--r--