mirror of
https://github.com/bjc/prosody.git
synced 2025-04-03 21:27:38 +03:00
fallbacks/lxp.lua: CRLF -> LF.
This commit is contained in:
Waqas Hussain
parent
3b3d75ec34
commit
f3682db37b
1 changed files with 149 additions and 149 deletions
|
|
@ -1,149 +1,149 @@
|
||||||
|
|
||||||
local coroutine = coroutine;
|
local coroutine = coroutine;
|
||||||
local tonumber = tonumber;
|
local tonumber = tonumber;
|
||||||
local string = string;
|
local string = string;
|
||||||
local setmetatable, getmetatable = setmetatable, getmetatable;
|
local setmetatable, getmetatable = setmetatable, getmetatable;
|
||||||
local pairs = pairs;
|
local pairs = pairs;
|
||||||
|
|
||||||
local deadroutine = coroutine.create(function() end);
|
local deadroutine = coroutine.create(function() end);
|
||||||
coroutine.resume(deadroutine);
|
coroutine.resume(deadroutine);
|
||||||
|
|
||||||
module("lxp")
|
module("lxp")
|
||||||
|
|
||||||
local entity_map = setmetatable({
|
local entity_map = setmetatable({
|
||||||
["amp"] = "&";
|
["amp"] = "&";
|
||||||
["gt"] = ">";
|
["gt"] = ">";
|
||||||
["lt"] = "<";
|
["lt"] = "<";
|
||||||
["apos"] = "'";
|
["apos"] = "'";
|
||||||
["quot"] = "\"";
|
["quot"] = "\"";
|
||||||
}, {__index = function(_, s)
|
}, {__index = function(_, s)
|
||||||
if s:sub(1,1) == "#" then
|
if s:sub(1,1) == "#" then
|
||||||
if s:sub(2,2) == "x" then
|
if s:sub(2,2) == "x" then
|
||||||
return string.char(tonumber(s:sub(3), 16));
|
return string.char(tonumber(s:sub(3), 16));
|
||||||
else
|
else
|
||||||
return string.char(tonumber(s:sub(2)));
|
return string.char(tonumber(s:sub(2)));
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
});
|
});
|
||||||
local function xml_unescape(str)
|
local function xml_unescape(str)
|
||||||
return (str:gsub("&(.-);", entity_map));
|
return (str:gsub("&(.-);", entity_map));
|
||||||
end
|
end
|
||||||
local function parse_tag(s)
|
local function parse_tag(s)
|
||||||
local name,sattr=(s):gmatch("([^%s]+)(.*)")();
|
local name,sattr=(s):gmatch("([^%s]+)(.*)")();
|
||||||
local attr = {};
|
local attr = {};
|
||||||
for a,b in (sattr):gmatch("([^=%s]+)=['\"]([^'\"]*)['\"]") do attr[a] = xml_unescape(b); end
|
for a,b in (sattr):gmatch("([^=%s]+)=['\"]([^'\"]*)['\"]") do attr[a] = xml_unescape(b); end
|
||||||
return name, attr;
|
return name, attr;
|
||||||
end
|
end
|
||||||
|
|
||||||
local function parser(data, handlers, ns_separator)
|
local function parser(data, handlers, ns_separator)
|
||||||
local function read_until(str)
|
local function read_until(str)
|
||||||
local pos = data:find(str, nil, true);
|
local pos = data:find(str, nil, true);
|
||||||
while not pos do
|
while not pos do
|
||||||
data = data..coroutine.yield();
|
data = data..coroutine.yield();
|
||||||
pos = data:find(str, nil, true);
|
pos = data:find(str, nil, true);
|
||||||
end
|
end
|
||||||
local r = data:sub(1, pos);
|
local r = data:sub(1, pos);
|
||||||
data = data:sub(pos+1);
|
data = data:sub(pos+1);
|
||||||
return r;
|
return r;
|
||||||
end
|
end
|
||||||
local function read_before(str)
|
local function read_before(str)
|
||||||
local pos = data:find(str, nil, true);
|
local pos = data:find(str, nil, true);
|
||||||
while not pos do
|
while not pos do
|
||||||
data = data..coroutine.yield();
|
data = data..coroutine.yield();
|
||||||
pos = data:find(str, nil, true);
|
pos = data:find(str, nil, true);
|
||||||
end
|
end
|
||||||
local r = data:sub(1, pos-1);
|
local r = data:sub(1, pos-1);
|
||||||
data = data:sub(pos);
|
data = data:sub(pos);
|
||||||
return r;
|
return r;
|
||||||
end
|
end
|
||||||
local function peek()
|
local function peek()
|
||||||
while #data == 0 do data = coroutine.yield(); end
|
while #data == 0 do data = coroutine.yield(); end
|
||||||
return data:sub(1,1);
|
return data:sub(1,1);
|
||||||
end
|
end
|
||||||
|
|
||||||
local ns = { xml = "http://www.w3.org/XML/1998/namespace" };
|
local ns = { xml = "http://www.w3.org/XML/1998/namespace" };
|
||||||
ns.__index = ns;
|
ns.__index = ns;
|
||||||
local function apply_ns(name, dodefault)
|
local function apply_ns(name, dodefault)
|
||||||
local prefix,n = name:match("^([^:]*):(.*)$");
|
local prefix,n = name:match("^([^:]*):(.*)$");
|
||||||
if prefix and ns[prefix] then
|
if prefix and ns[prefix] then
|
||||||
return ns[prefix]..ns_separator..n;
|
return ns[prefix]..ns_separator..n;
|
||||||
end
|
end
|
||||||
if dodefault and ns[""] then
|
if dodefault and ns[""] then
|
||||||
return ns[""]..ns_separator..name;
|
return ns[""]..ns_separator..name;
|
||||||
end
|
end
|
||||||
return name;
|
return name;
|
||||||
end
|
end
|
||||||
local function push(tag, attr)
|
local function push(tag, attr)
|
||||||
ns = setmetatable({}, ns);
|
ns = setmetatable({}, ns);
|
||||||
for k,v in pairs(attr) do
|
for k,v in pairs(attr) do
|
||||||
local xmlns = k == "xmlns" and "" or k:match("^xmlns:(.*)$");
|
local xmlns = k == "xmlns" and "" or k:match("^xmlns:(.*)$");
|
||||||
if xmlns then
|
if xmlns then
|
||||||
ns[xmlns] = v;
|
ns[xmlns] = v;
|
||||||
attr[k] = nil;
|
attr[k] = nil;
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
local newattr, n = {}, 0;
|
local newattr, n = {}, 0;
|
||||||
for k,v in pairs(attr) do
|
for k,v in pairs(attr) do
|
||||||
n = n+1;
|
n = n+1;
|
||||||
k = apply_ns(k);
|
k = apply_ns(k);
|
||||||
newattr[n] = k;
|
newattr[n] = k;
|
||||||
newattr[k] = v;
|
newattr[k] = v;
|
||||||
end
|
end
|
||||||
tag = apply_ns(tag, true);
|
tag = apply_ns(tag, true);
|
||||||
ns[0] = tag;
|
ns[0] = tag;
|
||||||
ns.__index = ns;
|
ns.__index = ns;
|
||||||
return tag, newattr;
|
return tag, newattr;
|
||||||
end
|
end
|
||||||
local function pop()
|
local function pop()
|
||||||
local tag = ns[0];
|
local tag = ns[0];
|
||||||
ns = getmetatable(ns);
|
ns = getmetatable(ns);
|
||||||
return tag;
|
return tag;
|
||||||
end
|
end
|
||||||
|
|
||||||
while true do
|
while true do
|
||||||
if peek() == "<" then
|
if peek() == "<" then
|
||||||
local elem = read_until(">"):sub(2,-2);
|
local elem = read_until(">"):sub(2,-2);
|
||||||
if elem:sub(1,1) == "!" or elem:sub(1,1) == "?" then -- neglect comments and processing-instructions
|
if elem:sub(1,1) == "!" or elem:sub(1,1) == "?" then -- neglect comments and processing-instructions
|
||||||
elseif elem:sub(1,1) == "/" then -- end tag
|
elseif elem:sub(1,1) == "/" then -- end tag
|
||||||
elem = elem:sub(2);
|
elem = elem:sub(2);
|
||||||
local name = pop();
|
local name = pop();
|
||||||
handlers:EndElement(name); -- TODO check for start-end tag name match
|
handlers:EndElement(name); -- TODO check for start-end tag name match
|
||||||
elseif elem:sub(-1,-1) == "/" then -- empty tag
|
elseif elem:sub(-1,-1) == "/" then -- empty tag
|
||||||
elem = elem:sub(1,-2);
|
elem = elem:sub(1,-2);
|
||||||
local name,attr = parse_tag(elem);
|
local name,attr = parse_tag(elem);
|
||||||
name,attr = push(name,attr);
|
name,attr = push(name,attr);
|
||||||
handlers:StartElement(name,attr);
|
handlers:StartElement(name,attr);
|
||||||
name = pop();
|
name = pop();
|
||||||
handlers:EndElement(name);
|
handlers:EndElement(name);
|
||||||
else -- start tag
|
else -- start tag
|
||||||
local name,attr = parse_tag(elem);
|
local name,attr = parse_tag(elem);
|
||||||
name,attr = push(name,attr);
|
name,attr = push(name,attr);
|
||||||
handlers:StartElement(name,attr);
|
handlers:StartElement(name,attr);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
local text = read_before("<");
|
local text = read_before("<");
|
||||||
handlers:CharacterData(xml_unescape(text));
|
handlers:CharacterData(xml_unescape(text));
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function new(handlers, ns_separator)
|
function new(handlers, ns_separator)
|
||||||
local co = coroutine.create(parser);
|
local co = coroutine.create(parser);
|
||||||
return {
|
return {
|
||||||
parse = function(self, data)
|
parse = function(self, data)
|
||||||
if not data then
|
if not data then
|
||||||
co = deadroutine;
|
co = deadroutine;
|
||||||
return true; -- eof
|
return true; -- eof
|
||||||
end
|
end
|
||||||
local success, result = coroutine.resume(co, data, handlers, ns_separator);
|
local success, result = coroutine.resume(co, data, handlers, ns_separator);
|
||||||
if result then
|
if result then
|
||||||
co = deadroutine;
|
co = deadroutine;
|
||||||
return nil, result; -- error
|
return nil, result; -- error
|
||||||
end
|
end
|
||||||
return true; -- success
|
return true; -- success
|
||||||
end;
|
end;
|
||||||
};
|
};
|
||||||
end
|
end
|
||||||
|
|
||||||
return _M;
|
return _M;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue