Aitapihikewin:Drapeau
La documentation pour ce module peut être créée à Aitapihikewin:Drapeau/doc
--[[
This module is intended to replace the functionality of {{drapeau2}} and related
templates. It provides several methods, including
]]
local drapeau = {};
--math_mod = mw.loadData( "Module:Math" );
-- Chargement de la banque de données des langues avec gestion d'erreur.
local gdata
local success, resultat = pcall (mw.loadData, "Module:Drapeau/Data" )
if success then
gdata = resultat
else
-- Banque de données à minima en cas de bogue dans le Module:Langue/Data
gdata={}
gdata.data={};
gdata.idByName={};
gdata.idByCIO={};
gdata.data[142]={qid="Q142", flag="Flag_of_France.svg", label="France", sitelink="$label", cio="FRA", genre="fs"}
gdata.idByName['france']=142;
gdata.idByCIO['FRA']=142;
end
local gflag
local success, resultat = pcall (mw.loadData, "Module:Drapeau/Image" )
if success then
gflag = resultat
else
-- Banque de données à minima en cas de bogue dans le Module:Langue/Data
gflag={}
gflag.flag={};
end
local gdomaine
local success, resultat = pcall (mw.loadData, "Module:Drapeau/Domaine" )
if success then
gdomaine = resultat
else
-- Banque de données à minima en cas de bogue dans le Module:Langue/Data
gdomaine={}
gdomaine.domainelist={
defaut = {regexp="[[$sitelink|$label]]" , desc="article sur le pays"}
,drapeau = {regexp="drapeau", desc=""}
}
gdomaine.genre={ms={},msa={},msi={},msia={},fs={},fsa={},fsi={},fsia={},mp={},fp={}}
gdomaine.jo={}
end
local function _getFlag(image,aaaammjj,imagesecours)
local indexdate = aaaammjj .. string.rep('0', 8 - #aaaammjj)
if (indexdate ~= '00000000' and image~=nil) then
for k,v in pairs( image) do
if v["debut"] <= indexdate and indexdate <= v["fin"] then
return v
end
end
end
if(image~=nil) then
d= image[1];
elseif(imagesecours["flag"]~=nil) then
local f=imagesecours["flag"]
d= {civilflag=f,stateflag=f,warflag=f,civilensign=f,stateensign=f,warensign=f};
else
local f="Flag_of_None.svg"
d= {civilflag=f,stateflag=f,warflag=f,civilensign=f,stateensign=f,warensign=f};
end
return d;
end
local function _getCompetition(c,aaaa)
local rep="";
if(c=="CM" or c=="coupedumonde") then
rep="à la Coupe du monde"
elseif(c=="CE" or c=="euro") then
rep="au championnat d'Europe"
elseif(c=="ChM") then
rep="au championnat du monde"
elseif(c=="CAN" or c=="coupedesconfederations") then
rep="à la Coupe des Confédérations"
elseif(c=="en" ) then
rep="en"
elseif(c=="jo" ) then
rep="aux Jeux olympiques"
elseif(c=="jp" ) then
rep="aux Jeux paralympiques"
end
--edition
if(aaaa ~= nil and aaaa ~= "") then
if(c=="jo" or c=="jp" ) then
local o=gdomaine.jo["_"..aaaa];
if(o ~= nil) then
rep=rep.." "..o
end
else
rep=rep.." "..aaaa
end
end
return rep
end
--[[
pays
Affiche le pays accompagné de son drapeau {{drapeau2}}
Usage:
{{ Invoke:Drapeau | pays | France }}
]]
local function printIcon(data,image,domaine,size,day)
local border='';
local alt='';
if data["flagborder"] ~= "no" then
border='border|'
end
local datagenre=data["genre"] or "ms"
alt=string.gsub(gdomaine.domainelist["drapeau"]["regexp"], "%$(%w+)",gdomaine.genre[datagenre])
alt=string.gsub(alt, "%$(%w+)", data)
alt=string.gsub(alt, "%$(%w+)", data) --dernière passe pour $name
local filescr="$civilflag" ;
if(gdomaine.domainelist[domaine]~=nil and gdomaine.domainelist[domaine]["flag"]~=nil) then
--drapeau adéquat
filescr=gdomaine.domainelist[domaine]["flag"]
end
local pastimage=_getFlag(image,day,data)
filescr=string.gsub(filescr, "%$(%w+)", pastimage)
filescr=string.gsub(filescr, "%$(%w+)", pastimage)
return '<span class="flagicon">' ..
'[[File:' .. filescr .. '|' .. size ..'px|' .. border .. alt ..']]' ..
'</span>';
end
local function printData(text,domaine,extra)
local target='';
local datagenre=text["genre"] or "ms"
if text["label"] ~= nil and gdomaine.domainelist[domaine] ~= nil then
target=string.gsub(gdomaine.domainelist[domaine]["regexp"], "%$(%w+)", gdomaine.genre[datagenre])
target=string.gsub(target, "%$(%w+)", text)
target=string.gsub(target, "%$(%w+)", text) --dernière passe pour $name
target=string.gsub(target, "%$(%w+)", extra)
target=string.gsub(target, "%$(%w+)", "") --une toute dernière pour supprimer les non-attribués
end
--Cas spécial des ïles un nom commun avec un espace devant
--target=string.gsub(target, " République", " république") NON cf Usage_des_majuscules_en_français_lorsque_le_spécifique_est_un_adjectif
target=string.gsub(target, " Île", " île")
target=string.gsub(target, "'Île", "'île")
return target;
end
local function _latinise_letters(tmparg)
--2>--remove case
tmparg=mw.ustring.lower(tmparg);
--2>--remove acccent
tmparg=mw.ustring.gsub(tmparg, "[áàâäãå]", "a");
tmparg=mw.ustring.gsub(tmparg, "[æ]", "ae");
tmparg=mw.ustring.gsub(tmparg, "[ç]", "c");
tmparg=mw.ustring.gsub(tmparg, "[éèêë]", "e");
tmparg=mw.ustring.gsub(tmparg, "[íìîï]", "i");
tmparg=mw.ustring.gsub(tmparg, "[ñ]", "n");
tmparg=mw.ustring.gsub(tmparg, "[óòôöõ]", "o");
tmparg=mw.ustring.gsub(tmparg, "[œ]", "oe");
tmparg=mw.ustring.gsub(tmparg, "[úùûü]", "u");
tmparg=mw.ustring.gsub(tmparg, "[ýÿ]", "y");
return tmparg;
end
local function _latinise(tmparg)
--2>--remove case and accents
tmparg=_latinise_letters(tmparg);
--3>--remove ponct
tmparg=mw.ustring.gsub(tmparg, "[' -_]", "");
return tmparg;
end
local function _cletri(tmparg)
local pays=tmparg;
--2>--remove case and accents
tmparg=_latinise_letters(tmparg);
--3>--remove ponct
tmparg=mw.ustring.gsub(tmparg, "['-_]", " ");
--4>--remove forme longue
local result, count = tmparg
:gsub("^republique ", "")
:gsub("^federation ", "")
:gsub("^union ", "")
:gsub("^iles ", "")
:gsub("^de ", "")
:gsub("^des ", "")
:gsub("^du ", "")
return '<span class="datasortkey" data-sort-value="'..result..'" style="display:none;">'..pays..'</span>';
end
function drapeau.list(frame)
local args = frame.args
local res="";
if args[1] == nil then
local pFrame = frame:getParent();
args = pFrame.args;
for k,v in pairs( frame.args ) do
args[k] = v;
end
end
if args[2] == nil then
args[2]=142 --France par défaut
end
local extra={}
if(args[1]=='libelle') then
res="{|class='wikitable sortable' \n!code!!descriptif!!exemple "..mw.wikibase.sitelink(gdata.data[142]["qid"] ).."!!exemple "..mw.wikibase.sitelink(gdata.data[31]["qid"] ).."!!exemple "..mw.wikibase.sitelink(gdata.data[30]["qid"] ).."\n|-\n"
for k,v in pairs( gdomaine.domainelist ) do
res= res .. "|<code>" .. k .. "<\code> ||".. v["desc"] .. "||" ..printData(gdata.data[142],k,extra) .. "||" ..printData(gdata.data[31],k,extra) .. "||" ..printData(gdata.data[30],k,extra) .. "\n|-\n"
end
res=res .. "|}"
end
if(args[1]=='pays') then
res="{|class='wikitable sortable' \n!Nom!!Code CIO!!usage classique!!Drapeau!!Équipe sportive (de football)!!Catégorie sport\n|-\n"
for k,v in pairs( gdata.data ) do
local cio=v["cio"] or ""
if(args[3] == nil or v["group"] == args[3]) then
res= res .. "|"..v["label"].."||<code>" .. cio .. "<\code> ||" .._cletri(v["label"])..printIcon(v,nil,"defaut",'20x15',"")..printData(v,"defaut",extra) .. "|| [[" ..printData(v,"drapeau",extra) .. "]] ||" ..printData(v,"football",extra) .. "||" ..printData(v,"sportcat",extra) .."\n|-\n"
end
end
res=res .. "|}"
end
return res;
end
drapeau.List = drapeau.list
function drapeau.pays(frame)
local args = frame.args
local tmparg;
if args[1] == nil then
local pFrame = frame:getParent();
args = pFrame.args;
for k,v in pairs( frame.args ) do
args[k] = v;
end
end
if args[1] then
args[1] = mw.text.trim(args[1])
else
args[1] = ''
end
local key=_latinise(args[1]);
--par défaut
local taille = args["taille"] or '20x15'
if (args["domaine"] == nil) then args["domaine"] = 'defaut' else args["domaine"] = _latinise(args["domaine"]) end
local align = args["align"] or 'left'
local lien = args["lien"] or 'oui'
local annee = ''
if args[2] then
annee = mw.text.trim(args[2])
elseif args["année"] then
annee = args["année"]
end
local extra={}
if (args["compétition"] ~= nil) then
extra["competition"] = " ".._getCompetition(_latinise(args["compétition"]),args["édition"])
end
local q=0;
local data;
if(#key==3) then
q=gdata.idByCIO[mw.ustring.upper(key)]
elseif(args["CIO"]~= nil) then
q=gdata.idByCIO[args["CIO"]]
else
q=gdata.idByName[key]
end
local data=gdata.data[q];
local image=gflag.flag[q];
local res='';
local reserror='';
--le pays est inconnu !!
if(data == nil) then
data={qid="", flag="Flag_of_None.svg", label=args[1], sitelink="$label", cio=""
, genre="ms" , namelong="$label", gentileMS="$label",gentileFS="$label",gentileMP="$label",gentileFP="$label"}
reserror = reserror .. '<strong class="error">Aucun pays paramétré</strong>'
end
--on ajoute le gentillé en bas de casse
--data["gentileminiMS"]=mw.ustring.lower(data["gentileMS"]);
--data["gentileminiFS"]=mw.ustring.lower(data["gentileFS"]);
--data["gentileminiMP"]=mw.ustring.lower(data["gentileMP"]);
--data["gentileminiFP"]=mw.ustring.lower(data["gentileFP"]);
--clé automatique if(args["t"] == '1') then
if(args["t"] == nil or args["t"] == '1') then
res=res .. _cletri(data["label"]);
end
if(align == 'left') then
res=res .. printIcon(data,image,args["domaine"],taille,annee)..' ';
end
if(args["cible"] ~= nil) then
res=res .. args["cible"] .. ' <span style="font-size:90%;" class="nowrap">(';
end
if(lien == 'oui' and data["label"] ~= '') then
res=res ..printData(data,args["domaine"],extra);
end
if(args["cible"] ~= nil) then
res=res .. ')</span>';
end
if(align == 'right') then
res=res .. ' ' .. printIcon(data,image,args["domaine"],taille,annee);
end
return res .. reserror;
end
drapeau.Pays = drapeau.pays
return drapeau