buildsys: switch source download to quincy

[ceph.git] / ceph / src / civetweb / src / third_party / LuaXML.lua

local base = _G\r
\r
-- symbolic name for tag index, this allows accessing the tag by var[xml.TAG]\r
xml.TAG = 0\r
\r
-- sets or returns tag of a LuaXML object\r
function xml.tag(var,tag)\r
	if base.type(var)~="table" then return end\r
	if base.type(tag)=="nil" then \r
		return var[xml.TAG]\r
	end\r
	var[xml.TAG] = tag\r
end\r
\r
-- creates a new LuaXML object either by setting the metatable of an existing Lua table or by setting its tag\r
function xml.new(arg)\r
	if base.type(arg)=="table" then \r
		base.setmetatable(arg,{__index=xml, __tostring=xml.str})\r
		return arg\r
	end\r
	local var={}\r
	base.setmetatable(var,{__index=xml, __tostring=xml.str})\r
	if base.type(arg)=="string" then var[xml.TAG]=arg end\r
	return var\r
end\r
\r
-- appends a new subordinate LuaXML object to an existing one, optionally sets tag\r
function xml.append(var,tag)\r
	if base.type(var)~="table" then return end\r
	local newVar = xml.new(tag)\r
	var[#var+1] = newVar\r
	return newVar\r
end\r
\r
-- converts any Lua var into an XML string\r
function xml.str(var,indent,tagValue)\r
	if base.type(var)=="nil" then return end\r
	local indent = indent or 0\r
	local indentStr=""\r
	for i = 1,indent do indentStr=indentStr.."	" end\r
	local tableStr=""\r
\r
	if base.type(var)=="table" then\r
		local tag = var[0] or tagValue or base.type(var)\r
		local s = indentStr.."<"..tag\r
		for k,v in base.pairs(var) do -- attributes \r
			if base.type(k)=="string" then\r
				if base.type(v)=="table" and k~="_M" then -- otherwise recursiveness imminent\r
					tableStr = tableStr..xml.str(v,indent+1,k)\r
				else\r
					s = s.." "..k.."=\""..xml.encode(base.tostring(v)).."\""\r
				end\r
			end\r
		end\r
		if #var==0 and #tableStr==0 then\r
			s = s.." />\n"\r
		elseif #var==1 and base.type(var[1])~="table" and #tableStr==0 then -- single element\r
			s = s..">"..xml.encode(base.tostring(var[1])).."</"..tag..">\n"\r
		else\r
			s = s..">\n"\r
			for k,v in base.ipairs(var) do -- elements\r
				if base.type(v)=="string" then\r
					s = s..indentStr.."	"..xml.encode(v).." \n"\r
				else\r
					s = s..xml.str(v,indent+1)\r
				end\r
			end\r
			s=s..tableStr..indentStr.."</"..tag..">\n"\r
		end\r
		return s\r
	else\r
		local tag = base.type(var)\r
		return indentStr.."<"..tag.."> "..xml.encode(base.tostring(var)).." </"..tag..">\n"\r
	end\r
end\r
\r
\r
-- saves a Lua var as xml file\r
function xml.save(var,filename)\r
	if not var then return end\r
	if not filename or #filename==0 then return end\r
	local file = base.io.open(filename,"w")\r
	file:write("<?xml version=\"1.0\"?>\n<!-- file \"",filename, "\", generated by LuaXML -->\n\n")\r
	file:write(xml.str(var))\r
	base.io.close(file)\r
end\r
\r
\r
-- recursively parses a Lua table for a substatement fitting to the provided tag and attribute\r
function xml.find(var, tag, attributeKey,attributeValue)\r
	-- check input:\r
	if base.type(var)~="table" then return end\r
	if base.type(tag)=="string" and #tag==0 then tag=nil end\r
	if base.type(attributeKey)~="string" or #attributeKey==0 then attributeKey=nil end\r
	if base.type(attributeValue)=="string" and #attributeValue==0 then attributeValue=nil end\r
	-- compare this table:\r
	if tag~=nil then\r
		if var[0]==tag and ( attributeValue == nil or var[attributeKey]==attributeValue ) then\r
			base.setmetatable(var,{__index=xml, __tostring=xml.str})\r
			return var\r
		end\r
	else\r
		if attributeValue == nil or var[attributeKey]==attributeValue then\r
			base.setmetatable(var,{__index=xml, __tostring=xml.str})\r
			return var\r
		end\r
	end\r
	-- recursively parse subtags:\r
	for k,v in base.ipairs(var) do\r
		if base.type(v)=="table" then\r
			local ret = xml.find(v, tag, attributeKey,attributeValue)\r
			if ret ~= nil then return ret end\r
		end\r
	end\r
end\r
\r