Modul:Anrainerabfrage

Dokumentation und Testfälle unter Modul:Anrainerabfrage/Doku.

---

local p = {}

require("Modul:Hilfsfunktionen")
require("Modul:Text")

function holeanrainersub(frame,anrainer)
 local result={}
 --warum auch immer de und dl vertauscht zurückgeliefert werden...
 for da,dk,de,dl in mw.ustring.gmatch(anrainer, "([^%(]*)%(([^,]*),([^,]*),([^%)]*)%)") do
  result['Artikel']=robusttrim(da)
  result['Kurzname']=robusttrim(dk)
  result['Lehenstyp']=robusttrim(dl)
  result['Einwohner']=robusttrim(de)
 end
 return result
end

function holeanrainer(frame,landschaft)
	if landschaft=='' then return '' end
	local anrainer=mw.smw.ask('[[Anrainer an::'..landschaft..']]'
		.."|mainlabel=-"
		.."|?#-="
		.."|?Kurzname#="
		.."|?Lehenstyp#="
		.."|?Einwohner="
		.."|limit=500"
		.."|sort=Detailstufe von,Einwohner"
		.."|order=asc,desc"
	)
	if anrainer==nil then
		return {}
	end
	return anrainer
end

function kategorisiereUndHegemon(frame,lehen,title,catname,rekursion)
 if lehen=='' then return '' end
 if rekursion==0 then return '' end
 local heg=frame:callParserFunction(
  '#show',lehen,
  '?Vasallenlehen von#'
 )
 hegsub=''
 if heg~=''then
  t=mw.title.new(heg).text
  hegsub=kategorisiereUndHegemon(frame,heg,t,catname,rekursion-1)
 end

 return '[[Kategorie:'..title..'|'..catname..']]'..hegsub
end


function printanrainersub(frame,anrainertable,catname,art,artpl) 
 result=''
 if(anrainertable[art]~=nil) then
  result=''
  for key,value in pairs(anrainertable[art]) do
   t=mw.title.new(value["Artikel"]).text
   result=result..'[['..value["Artikel"]..'|'..value["Kurzname"]..']] ('..value["Einwohner"]..' EW)'..kategorisiereUndHegemon(frame,value["Artikel"],t,catname,7)..', '
  end
 end
 result=mw.ustring.sub(result,1,mw.ustring.len(result)-2)
 return frame:callParserFunction('#invoke','Text','Zeile',artpl,result)
end

function printanrainer(frame,anrainertable,catname,weitereanrainer)
 result=''
 result=result..printanrainersub(frame,anrainertable,catname,'Reich','Reiche')
 result=result..printanrainersub(frame,anrainertable,catname,'Provinz','Provinzen')
 result=result..printanrainersub(frame,anrainertable,catname,'Grafschaft','Grafschaften')
 result=result..printanrainersub(frame,anrainertable,catname,'Baronie','Baronien')
 result=result..printanrainersub(frame,anrainertable,catname,'Junkertum','Junkertümer')
 result=result..printanrainersub(frame,anrainertable,catname,'Ortschaft','Ortschaften')
 result=result..printanrainersub(frame,anrainertable,catname,'Bauwerk','Bauwerke')
 result=result..printanrainersub(frame,anrainertable,catname,'Unbekannt','Unbekannte')
 result=result..frame:callParserFunction('#invoke','Text','Zeile','Sonstige',weitereanrainer)
 return frame:callParserFunction('#invoke','Text','Zeilengruppe','Anrainer',result)
end

function p.Abfrage(frame)
 if (frame.args[1]==nil) then
  return "no parameter found"
 end
 catname=robusttrim(frame.args[2])
 weitereanrainer=robusttrim(frame.args[3])
 landschaft=frame.args[1]
 result=holeanrainer(frame,landschaft)
 return dump(result,"").."\n"..printanrainer(frame,result,catname,weitereanrainer)
end

return p