dofile "modules/include/xml2table.lua"

if table.getn(arg) <= 1 then
	print("usage: "..arg[0].." file.xml lang [brief]")
	os.exit(1)
end

_,_,filename = string.find(arg[1],"(.*).xml")

if filename == nil then
	print("filename must be 'pluginname.lua.xml'")
	os.exit(1)
end

_,_,filename1 = string.find(filename,".*/([^/]+)")

plugin_name = filename1 or filename

f,err = io.open(arg[1])
if f == nil then
	print(err)
	os.exit(1)
end
xml = f:read("*a")
f:close()

t = xml2table.xml2table(xml)

if t == nil then
	os.exit(1)
end

lang = arg[2]
if string.len(arg[2]) ~= 2 then
	print("lang must be a 2 chars string")
	os.exit(1)
end

brief = arg[3]

multilang = {}
multilang["author"] = {}
multilang["author"].it = "Autore"
multilang["author"].en = "Author"
multilang["authors"] = {}
multilang["authors"].it = "Autori"
multilang["authors"].en = "Authors"
multilang["name"] = {}
multilang["name"].it = "Nome"
multilang["name"].en = "Name"
multilang["version"] = {}
multilang["version"].it = "Versione"
multilang["version"].en = "Version"
multilang["requires"] = {}
multilang["requires"].it = "Necessita di"
multilang["requires"].en = "Requires"
multilang["license"] = {}
multilang["license"].it = "Licenza"
multilang["license"].en = "License"
multilang["url"] = {}
multilang["url"].it = "Scaricabile da"
multilang["url"].en = "Available at"
multilang["homepage"] = {}
multilang["homepage"].it = "Homepage"
multilang["homepage"].en = "Homepage"
multilang["domain"] = {}
multilang["domain"].it = "Dominio"
multilang["domain"].en = "Domain"
multilang["domains"] = {}
multilang["domains"].it = "Domini"
multilang["domains"].en = "Domains"
multilang["regex"] = {}
multilang["regex"].it = "Dominio(regex)"
multilang["regex"].en = "Domain(regex)"
multilang["regexes"] = {}
multilang["regexes"].it = "Domini(regex)"
multilang["regexes"].en = "Domains(regex)"
multilang["description"] = {}
multilang["description"].it = "Descrizione"
multilang["description"].en = "Description"
multilang["parameter"] = {}
multilang["parameter"].it = "Paramtero"
multilang["parameter"].en = "Parameter"
multilang["parameters"] = {}
multilang["parameters"].it = "Parametri"
multilang["parameters"].en = "Parameters"
multilang["tpl"] = {}
multilang["tpl"].it = "Questo plugin supporta i seguenti domini: "
multilang["tpl"].en = "This plugin supports these domains: "

function E(s)
	s = string.gsub(s,"_","\\_")
	s = string.gsub(s,"#","$\\sharp$")
	s = string.gsub(s,"&egrave;","\\`e")
	s = string.gsub(s,"&agrave;","\\`a")
	s = string.gsub(s,"&ograve;","\\`o")
	s = string.gsub(s,"&ugrave;","\\`u")
	s = string.gsub(s,"&igrave;","\\`i")
	s = string.gsub(s,"&apos;","`")
	s = string.gsub(s,"&quote;","``")
	s = string.gsub(s,"&quot;","``")
	s = string.gsub(s,"<br/>","\n\n")
	return s
end

if brief then
-- BRIEF -------------------------------------
s = ""
s = s .. "\\item["..E(plugin_name).." ("..E(t.name._content)..
	")]:\\\\\n"..multilang["tpl"][lang]
xml2table.forach_son(t.domains,"domain",function(k)
	s = s .. E(k._content)..", "
end)
if string.sub(s,-2,-1) == ", " then
	s = string.sub(s,1,-3) .. "\n"
end

else
-- COMPLETE ----------------------------------
s = ""
s = s .. "\\subsection{"..E(plugin_name).."}\n"
s = s .. "\\begin{description}\n"
s = s .. "\\item["..multilang["name"][lang]..":]"..E(t.name._content).."\n"
s = s .. "\\item["..multilang["version"][lang]..":]"..
	E(t.version._content).."\n"
s = s .. "\\item["..multilang["requires"][lang]..":]FreePOPs "..
	E(t.require_version._content).."\n"
s = s .. "\\item["..multilang["license"][lang]..":]"..
	E(t.license._content).."\n"
s = s .. "\\item["..multilang["url"][lang]..":]"..E(t.url._content).."\n"
s = s .. "\\item["..multilang["homepage"][lang]..":]"..
	E(t.homepage._content).."\n"
--------
if table.getn(t.authors) > 1 then
	s = s .. "\\item["..multilang["authors"][lang]..":]"
else
	s = s .. "\\item["..multilang["author"][lang]..":]"
end
xml2table.forach_son(t.authors,"author",function(k)
	s = s .. E(k.name._content).." <"..E(k.contact._content)..">, "
end)
if string.sub(s,-2,-1) == ", " then
	s = string.sub(s,1,-3) .. "\n"
end
-------
if (t.domains ~= nil) then
	if table.getn(t.domains) > 1 then
		s = s .. "\\item["..multilang["domains"][lang]..":]"
	else
		s = s .. "\\item["..multilang["domain"][lang]..":]"
	end
	xml2table.forach_son(t.domains,"domain",function(k)
		s = s .. E(k._content)..", "
	end)
	if string.sub(s,-2,-1) == ", " then
		s = string.sub(s,1,-3) .. "\n"
	end
end
if(t.regexes ~= nil) then
	if table.getn(t.regexes) > 1 then
		s = s .. "\\item["..multilang["regexes"][lang]..":]"
	else
		s = s .. "\\item["..multilang["regex"][lang]..":]"
	end
	xml2table.forach_son(t.domains,"regex",function(k)
		s = s .. E(k._content)..", "
	end)
	if string.sub(s,-2,-1) == ", " then
		s = string.sub(s,1,-3) .. "\n"
	end
end
------
s = s .. "\\item["..multilang["description"][lang]..":]"
xml2table.forach_son(t.descriptions,"description",function(k)
		if k.lang == lang then
			s = s .. E(k._content).."\n"
			return true
		end
	end)
------
if table.getn(t.parameters) > 0 then
	if table.getn(t.parameters) > 1 then
		s = s .. "\\item["..multilang["parameters"][lang]..":]\n"	
	else	
		s = s .. "\\item["..multilang["parameter"][lang]..":]\n"	
	end
	s = s .."\\hspace{\\stretch{1}}  \\begin{description}\n"
	xml2table.forach_son(t.parameters,"parameter",function(k)
		s = s .."    \\item["..E(k.name).."]"
		xml2table.forach_son(k.descriptions,"description",function(k)
			if k.lang == lang then
				s = s .. E(k._content).."\n"
				return true
			end
		end)
	end)
	s = s .."  \\end{description}\n"
end
s = s .. "\\end{description}\n"
end

print(s)