Module:Nom dynastique
[voir] [modifier] [historique] [purger]
Ce module est utilisé par les modèles {{Souverain2}}, {{Souverain3}} et {{Souverain-}}.
Utilisation
Fonctions exportables :
fonction(frame)– description (courte description defonction(frame)et autres informations pertinentes).fonction2()– description2 (courte description defonction2()et autres informations pertinentes).
Autres fonctions :
fonction()– description2 (courte description defonction()et autres informations pertinentes).
Modules externes et autres éléments dont ce module a besoin pour fonctionner :
mw.title– description (courte description expliquant la dépendance de ce module externe).
Exemples
Pour des exemples, voir la page de test permettant de tester diverses modifications apportées.
La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis sa sous-page de documentation. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (créer).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.
local p = {}
local Outils = require( 'Module:Outils' )
local trim = Outils.trim
local Romains = require('Module:Chiffres romains')
local conversion = Romains.conversion
-- Ce booléen permet d'indiquer si on doit prendre le complément du lien pour l'afficher (exemple : "Louis Ier d'Italie"); c'est le cas
-- de l'appel par le modèle Souverain3
local afficher_le_complement = false
-- Types de chaînes
local typenom = "[a-zA-ZÇÉÈŒéèàùâêîôûëïöüçæœ%'%-_]+"
local typeromains = "[IVXLCDMer]+"
local typecomplement = "[a-zA-ZÇÉÈŒéèàùâêîôûëïöüçæœ%'%- ]+"
local lien = ""
local complement = ""
local nom = ""
-- Extraction d'une chaîne, on recherche si c'est de la forme : "nom" "chiffres romains" "complément"
-- En retour, le premier paramètre indique s'il y a présence d'un nombre en chiffres romains
function p.chaine (chaine)
local nom = ""
local quantieme = ""
local complement = ""
local type_romain = false
-- Si le paramètre passé n'existe pas, retour
if not chaine then
return false, Outils.erreur('Aucun paramètre')
else
if string.len(chaine) == 0
then
return false, Outils.erreur('Aucun paramètre')
end
end
local nom = string.match(chaine, typenom, 1)
-- Si le nom contient des caractères non prévus, retour
if not nom then
return false, Outils.erreur('Paramètres incorrects')
end
local format_nom_romain_complement = false
local format_nom_romain = false
local format_nom_complement = false
if chaine:match (typenom..' '..typeromains..' ') then format_nom_romain_complement = true end
if chaine:match (typenom..' '..typeromains) then format_nom_romain = true end
local presence_romain = false
if format_nom_romain_complement or format_nom_romain then presence_romain = true end
if presence_romain
then
quantieme = string.match(chaine, typeromains, string.len(nom)+2)
if format_nom_romain_complement
then
complement = string.sub(chaine, string.len(nom..quantieme)+2)
complement = trim(complement)
else
if string.len(nom..' '..quantieme) < string.len(chaine) then
quantieme = string.sub(chaine, string.len(nom)+2)
end
end
end
return true, '', presence_romain, nom, quantieme, complement
end
-- Mise en forme, traitement des donneés
function p.traitement (a1, a2, a3, a4)
local test = true
local message = ''
local lien = ''
local nom = ''
local quantieme = ''
local complement = ''
local nom_affiche = ''
local quantieme_affiche = ''
local complement_affiche = ''
-- Si le premier paramètre n'existe pas, retour
if not a1 then
return false, Outils.erreur('Lien absent')
end
-- Test de présence d'un deuxième paramètre
local parametre2 = false
if a2 then
if string.len(a2) > 0 then
parametre2 = true
end
end
if parametre2 then
-- Ca où il y a au moins deux paramètres
if a2 == string.match(a2, typeromains) then
-- Si le deuxième paramètre est un nombre en chiffres romains, on est dans le cas de :
--{{Souverain|Louis|XIV|(roi de France)|, le Roi Soleil}} et similaires
nom = a1
nom_affiche = a1
quantieme = a2
test, message, quantieme_affiche = p.typo(quantieme)
if not test then return test, message end
lien = nom..' '..quantieme
local parametre3 = false
if a3 then
if string.len(a3) > 0 then
complement = a3
lien = lien..' '..complement
end
end
if afficher_le_complement == true then
complement_affiche = a3
else
if a4 then
if string.len(a4) > 0 then
complement_affiche = a4
end
end
end
else
-- Si le deuxième paramètre n'est pas un nombre en chiffres romains, on est dans le cas de :
--{{Souverain|Louis XIV (roi de France)|, le Roi Soleil}} et similaires
lien = a1
-- On vérifie d'abord si complément contient un texte à mettre en forme, auquel cas il s'impose sur le libellé du lien
test, message, c1, c2, c3, c4 = p.chaine (a2)
if not test then return test, message end
if c1 then
test, message, quantieme_affiche = p.typo(c3)
if not test then return test, message end
nom_affiche = c2
if c4 then
if string.len(c4) > 0 then
complement_affiche = c4
end
end
else
test, message, c1, c2, c3, c4 = p.chaine (a1)
if not test then return test, message end
nom_affiche = c2
test, message, quantieme_affiche = p.typo(c3)
if not test then return test, message end
complement_affiche = a2
end
end
else
-- Si le deuxième paramètre n'existe pas, on est dans le cas de : {{Souverain|Louis XIV de France}} et similaires
test, message, c1, c2, c3, c4 = p.chaine (a1)
if not test then return test, message end
lien = a1
if c1 then
nom_affiche = c2
test, message, quantieme_affiche = p.typo(c3)
if not test then return test, message end
end
if afficher_le_complement == true then
if trim(c4) then
complement_affiche = trim(c4)
else
afficher_le_complement = false
end
end
end
return test, message, lien, nom_affiche, quantieme_affiche, complement_affiche
end
function p.typo(quantieme)
local test = true
local message = ''
-- Mise en forme typographique : éventuelle infobulle et éventuel exposant à partir du chiffre romain envoyé
-- On obtient le "quantième affiché"
-- On teste d'abord si on a une chaine de la forme "Ier" ou "Ire"
local test1 = 'non'
if string.len(quantieme) > 2 then
test1 = string.reverse(quantieme)
test1 = string.sub(test1, 1, 2)
test1 = string.reverse(test1)
end
-- émulation des modèles {{Ire}}, {{III}}
local infobulle = ''
local abbr = ''
local exposant = 'non'
local numero = ''
local fin = ''
local quantieme_affiche = ''
if (test1 == 're') or (test1 == 'er') then
if test1 == 're' then
exposant = '<sup>re</sup>'
infobulle = 'première'
else
exposant = '<sup>er</sup>'
infobulle = "premier"
end
quantieme = 'I'..test1
numero = 'I'
fin = '</span>'..exposant..'</abbr>'
else
quantieme = string.upper(quantieme)
test, message, infobulle = conversion (quantieme)
if not test then return test, message, '' end
numero = quantieme
fin = '</span></abbr>'
end
if infobulle == '' then
infobulle = 'inconnu'
end
quantieme_affiche = '<abbr class="abbr" title="'..infobulle..'" ><span class="romain" style="text-transform:uppercase">'..numero..fin
return test, message, quantieme_affiche
end
-- Fonction de mise en forme du lien à afficher
-- de la forme [[lien | "nom affiché" "quantième affiché" "complément affiché" ]], les éléments de la partie droite sont optionnels
function p.ecriture_avec_lien (lien, nom_affiche, quantieme_affiche, complement_affiche)
local test = true
local texte1 = ''
local complement_affiche2 = complement_affiche
-- si le complement affiché (", le Roi Soleil" dans le cas de Louis XIV) commence par une virgule, on ne met pas d'espace avant,
-- mais on vérifie qu'il y a bien une espace entre la virgule et le mot suivant
if complement_affiche then
if string.len(complement_affiche) > 0 then
if string.sub(complement_affiche, 1, 1) == "," then
if string.sub(complement_affiche, 2, 1) ~= " " then
complement_affiche2 = ", "..string.sub(complement_affiche, 2)
end
end
end
end
texte1 = '[['..lien
if string.len(nom_affiche) > 0 then
if string.len(quantieme_affiche) > 0 then
-- S'il y a un nombre, ajout d'un "nowrap" pour l'espace insécable
texte1 = texte1..'|<span class="nowrap">'..nom_affiche..' '..quantieme_affiche..'</span>'
if complement_affiche2
then
if string.len(complement_affiche2) > 0 then
texte1 = texte1..' '..complement_affiche2
end
end
else
texte1 = texte1..'|'..nom_affiche
if string.len(complement_affiche2) > 0 then
texte1 = texte1..' '..complement_affiche2
end
end
else
if complement_affiche2 then
if string.len(complement_affiche2) > 0 then
texte1 = texte1..'|'..complement_affiche2
end
end
end
texte1 = texte1.."]]"
return test, message, texte1
end
function p.ecriture_sans_lien (lien, nom_affiche, quantieme_affiche, complement_affiche)
local test = true
local message = ''
local texte1 = ''
local complement_affiche2 = complement_affiche
-- si le complement affiché (", le Roi Soleil" dans le cas de Louis XIV) commence par une virgule, on ne met pas d'espace avant,
-- mais on vérifie qu'il y a bien une espace entre la virgule et le mot suivant
if complement_affiche then
if string.len(complement_affiche) > 0 then
if string.sub(complement_affiche, 1, 1) == ',' then
if string.sub(complement_affiche, 2, 1) ~= ' ' then
complement_affiche2 = ', '..string.sub(complement_affiche, 2)
end
end
end
end
if quantieme_affiche and (string.len(nom_affiche) > 0) then
if string.len(quantieme_affiche) > 0 then
-- S'il y a un nombre, ajout d'un "nowrap" pour l'espace insécable
texte1 = texte1..'<span class="nowrap">'..nom_affiche..' '..quantieme_affiche..'</span>'
if complement_affiche2 then
if string.len(complement_affiche2) > 0 then
texte1 = texte1..' '..complement_affiche2
end
end
else
texte1 = texte1..nom_affiche
if string.len(complement_affiche2) > 0 then
texte1 = texte1..' '..complement_affiche2
end
end
else
if complement_affiche2 then
if string.len(complement_affiche2) > 0 then
texte1 = texte1..complement_affiche2
end
end
if texte1 == "" then
texte1 = lien
end
end
return test, message, texte1
end
-- Affichage dans le cas général (émule le modèle Souverain2)
function p.Souverain2 (frame)
local args = Outils.extractArgs( frame )
local arg1, arg2, arg3, arg4 = args[1] or '', args[2] or '', args[3] or '', args[4] or ''
local test, message, t1, t2, t3, t4 = p.traitement(arg1, arg2, arg3, arg4)
if not test then
return message
end
local test, message, texte = p.ecriture_avec_lien (t1, t2, t3, t4)
if not test then
return message
else
return texte
end
end
-- Affichage dans le cas où le lien est de la forme [[Charles V le Sage|{{nobr|Charles V}} le Sage]]
-- correspond au modèle Souverain3, ce qui permet d'écrire :
-- {{Souverain3|Charles V le Sage}}
-- plutôt que:
-- {{Souverain2|Charles V le Sage|le Sage}}
-- (émule le modèle Souverain3)
function p.Souverain3 (frame)
local args = Outils.extractArgs( frame )
local a1, a2, a3 = args[1] or "", args[2] or "", args[3] or ""
afficher_le_complement = true
local test, message, t1, t2, t3, t4 = p.traitement(a1, a2, a3)
if not test then
return message
end
local test, message, texte = p.ecriture_avec_lien (t1, t2, t3, t4)
if not test then
return message
else
return texte
end
end
-- Affichage dans le cas où on veut une mise en forme correspndant à {{nobr|Charles {{V}}}} ou {{nobr|Louis {{Ier}}}}
-- Aucune mise en forme s'il n'y a pas un nombre en chiffres romains
-- (correspond au modèle Souverain-)
function p.Souverain_sans_lien (frame)
local args = Outils.extractArgs( frame )
local a1, a2, a3, a4 = args[1] or "", args[2] or "", args[3] or "", args[4] or ""
afficher_le_complement = true
local test, message, t1, t2, t3, t4 = p.traitement(a1, a2, a3, a4)
if not test then
return message
end
local test, message, texte = p.ecriture_sans_lien (t1, t2, t3, t4)
if not test then
return message
else
return texte
end
end
return p