Mòdul:Cartas

La documentacion d'utilizacion d'aquel modul se pòt crear a Mòdul:Cartas/ús

--[[
  Module retournant les couleurs liées à la charte indiquée
--]]

local p = {}

-- on charge le module de données
local success, data = pcall(mw.loadData, "Mòdul:Cartas/data")

--[[
  Fonction traitant réellement la demande (voir les paramètres ci-dessous)
  Permet d'être appelé directement depuis un autre module, sans passer par
    un appel de modèle/module en wikicode
--]]
function p.carta_m(infobox, categoria, tpe, diesi)
	-- validation des paramètres (valeur par défaut)
	if (infobox == nil) then infobox = "biografia" end
	if (categoria == nil) then categoria = "primari" end
	if ((tpe == nil) or (tpe == "")) then tpe = "defaut" end
	-- interruption si le chargement du module de données a échoué
	if (not success) then
		return "<span class=\"error\">Problèma intèrne al mòdul (data)</span>"
	end
	
	-- vérification de l'existence des données pour l'infobox
	if (data[infobox] == nil) then
		infobox = "biografia"
		if (data[infobox] == nil) then
			-- ne devrait pas se produire !
			return "<span class=\"error\">Problèma intèrne al mòdul (infobox)</span>"
		end
	end

	-- si ce type contient une chaîne (au lieu d'une table) c'est un "redirect", on remplace
	if (type(data[infobox][tpe]) == "string") then
		tpe = data[infobox][tpe]
	end
	-- on vérifie l'existence du type
	if (data[infobox][tpe] == nil) then
		tpe = "defaut"
		if (data[infobox][tpe] == nil) then
			return "<span class=\"error\">Problèma intèrne al mòdul (tipe)</span>"
		end
	end

	-- on cherche le numéro d'ordre de la catégorie
	local n = 1
	if (categoria == "primari" or categoria == "1" or categoria == "principala") then
		n = 1
	elseif (categoria == "segondari" or categoria == "2") then
		n = 2
	elseif (categoria == "terciari" or categoria == "3") then
		n = 3
		-- le 3ème est optionnel
		if (data[infobox][tpe][n] == nil) then
			n = 1
		end
	end -- si pas trouvé on reste sur "1"
	
	-- on vérifie qu'on a bien un élément
	if (data[infobox][tpe][n] == nil) then
		return "<span class=\"error\">Problèma intèrne al mòdul (élément)</span>"
	end
	
	-- on retourne la valeur
	if ((diesi == "òc") or (diesi == true)) then
		return "#" .. data[infobox][tpe][n]
	else
		return data[infobox][tpe][n]
	end
end

--[[
  Retourne la couleur correspondant à la charte graphique demandée.
  Les paramètres sont :
    tipe : lo tipe de carta demandada (depend de l'infobox)
    categoria : primari o segondari (o terciari), la sous-couleur concernée
    infobox : l'infobox concernida (valeur par défaut : biografia)
    dièsi : définir à "òc" pour préfixer la valeur retournée avec un caractère "#"
  Si la catégorie n'est pas précisée ou erronée, primaire est retournée
  Si le type n'est pas précisé ou invalide, "défaut" est retourné
  Si l'infobox n'est pas précisée ou invalide, "biographie" est retournée
  
  Les paramètres peuvent venir de l'appel au module ou de l'appel au modèle (évalué dans cet ordre).
  
  Note : wrapper récupérant les paramètres et appelant la « vraie » fonction
--]]
function p.carta(frame)
	local infobox = frame.args["infobox"] or frame:getParent().args["infobox"]
	local categoria = frame.args["categoria"] or frame:getParent().args["categoria"]
	local tpe = mw.ustring.lower(frame.args["tipe"] or frame:getParent().args["tipe"] or "")
	local diesi = frame.args["dièsi"] or frame:getParent().args["dièsi"]
	
	return p.carta_m(infobox, categoria, tpe, diesi)
end

return p