Mòdul:Italicas biologicas
La documentacion d'utilizacion d'aquel modul se pòt crear a Mòdul:Italicas biologicas/ús
-- gestion de la mise en italique d'un nom scientifique, en respectant les conventions de la biologie
local p = {}
-- fonction basique mettant le titre courant en italique, sauf la partie namespace et la partie homonymie si présente
-- paramètres : lang → optionnel : ajout d'un tag de langue si présent
function p.titre_en_italiques(frame)
local titre = mw.title.getCurrentTitle() -- l'objet titre pour la page courante
local resu -- le résultat qui sera retourné
local page = titre.text -- le nom de la page, sans le namespace
-- paramètre optionnel : la langue
local lang = frame.args["lang"] or frame:getParent().args["lang"]
-- variables contenant l'ouverture et la fermeture du span (ou vide)
local ospan = ""
local fspan = ""
if (lang) then
ospan = '<span lang="' .. lang .. '">'
fspan = '</span>'
end
-- préparation résultat : on commence par le namespace
if (titre.nsText ~= "") then
resu = titre.nsText .. ":"
end
-- on ajoute le span de la langue si demandé
resu = resu .. ospan
-- on ajoute l'italique
resu = resu .. "''"
if (mw.ustring.find(page, " (", 1, true)) then
-- présence d'une homonymie, on ajoute la fin des italiques
-- avant le " (" (une seule fois, au cas où il y aurait plusieurs ())
-- on ajoute aussi la fermeture éventuelle du span
resu = resu .. mw.ustring.gsub(page, " [(]", "''" .. fspan .. " (", 1)
else
-- pas d'homonymie, on ajoute la page + la fin de l'italique + fin du span
resu = resu .. page .. "''" .. fspan
end
-- résultat, dans un preprocess afin d'interpréter son action
return frame:preprocess("{{DISPLAYTITLE:" .. resu .. "|noerror}}")
end
-- retourne le texte après avoir supprimer les espaces, retour ligne... en début et fin de texte.
-- si texte == nil, la fonction retourne nil.
-- Si le texte est vide ou composé uniquement d'espces, la fonction retourne un texte vide ''.
function p.trim (texte)
return texte and string.match (texte, '^%s*(.-)%s*$')
end
-- table des éléments à ne pas mettre en italique
-- note : mettre un " " avant un terme qui existe aussi sous forme longue
-- exemple : " var.", à cause de "convar.". Sans l'espace les deux vont s'appliquer
-- au texte analysé. Notez de bien répercuter ce même espace dans la partie de droite
p.exclude = {
{ " cl[.]", " ''cl.''" },
{ "convar[.]", "''convar.''" },
{ " f[.]", " ''f.''" },
{ " gen[.]", " ''gen.''" },
{ "kl[.]", "''kl.''" },
{ "nothog[.]", "''nothog.''" },
{ "nothosp[.]", "''nothosp.''" },
{ "nothovar[.]", "''nothovar.''" },
{ " ord[.]", " ''ord.''" },
{ " fam[.]", " ''fam.''" },
{ " sect[.]", " ''sect.''" },
{ " ser[.]", " ''ser.''" },
{ " sp[.]", " ''sp.''" },
{ "subg[.]", "''subg.''" },
{ "subsp[.]", "''subsp.''" },
{ " tr[.]", " ''tr.''" },
{ " var[.]", " ''var.''" },
{ "×", "''×''" },
{ "[(]", "''(''" },
{ "[)]", "'')''" }
}
-- liste d'exclusion uniquement pour mettre droit dans la partie {{taxobox}} italique (ifgenre)
p.exclude_span = {
{ " cl[.]", " <span style=\"font-style: normal\">cl.</span>" },
{ "convar[.]", "<span style=\"font-style: normal\">convar.</span>" },
{ " f[.]", " <span style=\"font-style: normal\">f.</span>" },
{ " gen[.]", " <span style=\"font-style: normal\">gen.</span>" },
{ "kl[.]", "<span style=\"font-style: normal\">kl.</span>" },
{ "nothog[.]", "<span style=\"font-style: normal\">nothog.</span>" },
{ "nothosp[.]", "<span style=\"font-style: normal\">nothosp.</span>" },
{ "nothovar[.]", "<span style=\"font-style: normal\">nothovar.</span>" },
{ " ord[.]", " <span style=\"font-style: normal\">ord.</span>" },
{ " fam[.]", " <span style=\"font-style: normal\">fam.</span>" },
{ " sect[.]", " <span style=\"font-style: normal\">sect.</span>" },
{ " ser[.]", " <span style=\"font-style: normal\">ser.</span>" },
{ " sp[.]", " <span style=\"font-style: normal\">sp.</span>" },
{ "subg[.]", "<span style=\"font-style: normal\">subg.</span>" },
{ "subsp[.]", "<span style=\"font-style: normal\">subsp.</span>" },
{ " tr[.]", " <span style=\"font-style: normal\">tr.</span>" },
{ " var[.]", " <span style=\"font-style: normal\">var.</span>" },
{ "×", "<span style=\"font-style: normal\">×</span>" },
{ "[(]", "<span style=\"font-style: normal\">(</span>" },
{ "[)]", "<span style=\"font-style: normal\">)</span>" }
}
--[[
Liste d'exclusion de noms de clades qui sont français et donc ne doivent pas être en italique
--]]
p.exclude_clades = {
"Angiospèrmes"
}
--[[
Retourne vrai si le nom passé est un nom de clade en français (ça *doit* être un rang clade)
--]]
function p.clade_francais(nom)
local tst -- on regarde si présence d'accents
tst = mw.ustring.find(nom, "[éèêëàäâçùüüïîôö]")
if (tst ~= nil) then
return true -- visiblement en français on laisse sans mettre en italique
end
-- liste d'exclusion de noms traités comme français
local i = 1
while (p.exclude_clades[i] ~= nil) do
if (p.exclude_clades[i] == nom) then
-- exception, en français, on laisse sans italiques
return true
end
i = i + 1
end
return false
end
-- si 'true' indique regne tout en italique
p.regnes = {
["tèst"]=false, ["alga"]=true, ["animal"]=false, ["archaea"]=true,
["bactèri"]=true, ["campairòl"]=true, ["protista"]=false, ["vegetal"]=true, ["virús"]=true,
["neutre"]=true, ["eucariòta"]=false, ["procariòta"]=true
}
-- si true indique rang inférieur (ou égal) au genre
p.rangs = {
["clad"]=false, ["tipe"]=false, ["grop"]=false, ["pas classat"]=false, ["sosforma"]=true,
["forma"]=true, ["cultivar"]=true, ["varietat"]=true, ["sosespècia"]=true, ["ibrid"]=true,
["espècia"]=true, ["sosseria"]=true, ["seria"]=true, ["sosseccion"]=false, ["seccion"]=false,
["sosgenre"]=true, ["genre"]=true, ["sostribú"]=false, ["tribú"]=false, ["supertribú"]=false,
["infratribú"]=false, ["sosfamilha"]=false, ["familha"]=false, ["epifamilha"]=false, ["superfamilha"]=false,
["microòrdre"]=false, ["infraòrdre"]=false, ["sosòrdre"]=false, ["òrdre"]=false, ["superòrdre"]=false,
["soscoòrta"]=false, ["coòrta"]=false, ["supercoòrta"]=false, ["infraclassa"]=false, ["sosclassa"]=false,
["classa"]=false, ["superclassa"]=false, ["infraembrancament"]=false, ["sosembrancament"]=false, ["embrancament"]=false,
["superembrancament"]=false, ["sosdivision"]=false, ["division"]=false, ["superdivision"]=false, ["infrarègne"]=false,
["ramèl"]=false, ["sosrègne"]=false, ["règne"]=false, ["superrègne"]=false, ["sosdomeni"]=false,
["domeni"]=false, ["empèri"]=false
}
-- retourne true si rang+regne a besoin de l'italique
function p.rang_regne_it(rang, regne)
if (rang == nil or rang == "" or regne == nil or regne == "") then
return nil
end
local reg = p.regnes[regne]
if (reg == nil) then
return nil
end
if (reg == true) then
return true -- tout en italique
end
local rag = p.rangs[rang]
if (rag == nil) then
return nil
end
if (rag == true) then
return true
else
return false
end
end
-- met un nom scientifique en italique, en respectant les conventions.
-- cette fonction met en italique sans condition.
-- cette fonction présume que le nom passé est *uniquement* un nom scientifique (pas de partie homonyme)
-- la partie rang est utilisée pour détecter les "clades" en français
function p.italique_biologique(nom, rang, regne)
if (nom == nil or nom == "") then
return ""
end
-- si pas besoin de l'italique on laisse
local it = p.rang_regne_it(rang, regne)
if (it == nil or it == false) then
return '<span style="font-style: normal">' .. nom .. '</span>'
end
-- si rang=clade et qu'on détecte que c'est du français on laisse sans modifier
if (rang == "clad") then
if (p.clade_francais(nom)) then
return '<span style="font-style: normal">' .. nom .. '</span>'
end
end
-- on remplace dans le nom toutes les occurrences à protéger
local i = 1
while(p.exclude[i] ~= nil) do
nom = mw.ustring.gsub(nom, p.exclude[i][1], p.exclude[i][2])
i = i + 1
end
-- on retourne la partie traitée
-- en insérant les italiques au début et à la fin
-- attention : si on a traité un élément au tout début (ou fin) il faut le virer et ne
-- pas remettre de '' au début (ou fin)
local deb = "''"
local fin = "''"
if (mw.ustring.find(nom, "^''")) then
nom = mw.ustring.sub(nom, 3) -- on supprime les 2 1er
deb = "" -- pas au début
end
if (mw.ustring.find(nom, "''$")) then
nom = mw.ustring.sub(nom, 1, -3) -- on supprime les 2 derniers
fin = "" -- pas à la fin
end
return '<span lang="la">' .. deb .. nom .. fin .. '</span>'
end
-- traite un nom scientifique pour la mise en italique
function p.ns(frame)
-- on récupère le rang (si cultivar, fonction dédiée)
local rang = mw.ustring.lower(mw.text.trim(frame.args["reng"] or ""))
-- on récupère le règne
local regne = mw.ustring.lower(mw.text.trim(frame.args["règne"] or ""))
-- juste un wrapper
if (rang == "cultivar") then
return ( p.italique_cultivar(p.trim(frame.args[1] or frame:getParent().args[1] or "")) )
else
return ( p.italique_biologique(p.trim(frame.args[1] or frame:getParent().args[1] or ""), rang, regne) )
end
end
-- traite la mise en italiques d'un nom de cultivar. La forme est "XXXXX 'YYY'" (apostrophe simple ou typographique)
-- l'italique n'est que sur la première partie. Retourne nil si cette forme n'est pas détectée
function p.italique_cultivar(nom)
if (nom == nil or nom == "" or type(nom) ~= "string") then
return nil
end
-- on verifie que le nom se termine par ' ou ’
local der = mw.ustring.sub(nom, -1)
if (der ~= "'" and der ~= "’") then
return nil -- pas bon
end
-- on cherche la partie YYY
local pd1, pf1 = mw.ustring.find(nom, "['].*[']$")
local pd2, pf2 = mw.ustring.find(nom, "[‘].*[’]$")
if (pd1 == nil and pd2 == nil) then
return nil -- pas trouvé
end
local debut = pd1 or pd2
local fin = pf1 or pf2
-- on récupère le début (à mettre en italiques)
local part1 = mw.ustring.sub(nom, 1, debut-1)
if (part1 == nil or part1 == "") then
return nil
end
local itpart1 = p.italique_biologique(part1, "espècia", "espèce", "animal")
local reste = mw.ustring.sub(nom, debut)
return itpart1 .. reste
end
-- traite un nom de cultivar pour la mise en italique
function p.nc(frame)
-- juste un wrapper
return ( p.italique_cultivar(p.trim(frame.args[1] or frame:getParent().args[1] or "")) )
end
-- applique la forme italique pour le titre de l'article (DISPLAYTITLE) à partir du
-- nom scientifique reçu en paramètre. Gère la partie homonymie. Détecte un NV
function p.titre(frame)
local ttr
local cat = ""
-- le nom scientifique
local ns = p.trim(frame.args[1] or frame:getParent().args[1] or "")
if (ns == nil or ns == "") then
-- pas de nom scientifique, on ne peut pas travailler
return ""
end
-- on récupère règne et rang si présents
local regne = frame.args["règne"] or frame:getParent().args["règne"]
local rang = frame.args["reng"] or frame:getParent().args["reng"]
regne = mw.text.trim(regne or "")
rang = mw.text.trim(rang or "")
-- test temporaire : si le nom scientifique contient de la mise en forme
-- on range l'article dans une catégorie pour les détecter
--- selon les combinaisons règne+rang on fait des choses différentes
local a_tester = "[[{'†éèêëàâäúùüûçíîïôòóö]"
if (regne == "virús") then
a_tester = nil -- on trouve de tout dans les virus
end
if (rang == "clad") then
a_tester = "[[{'†]" -- pour les clades les noms peuvent être en français
end
if (regne == "animal" and rang == "ibrid") then
a_tester = "[[{'†]" -- pour les hybrides animaux les noms peuvent être en français
end
if (rang == "cultivar") then
a_tester = "[[{†]" -- les cultivars contiennent des ' ou ‘’
end
-- seulement si on a un test à faire
if (a_tester ~= nil) then
local tst = mw.ustring.find(ns, a_tester)
if (tst) then
cat = "{{Article de Biologia de corregir|clef=NS|"
.. "doc=Modèl:Taxobox taxon|messatge=Nom de taxon '"
.. mw.text.nowiki(ns) .. "' pas reconegut}}"
end
end
-- spécial : si paramètre "titre" → on utilise à la place
local ft = frame.args["títol"] or frame:getParent().args["titre"]
if (ft) then
-- titre forcé : on l'utilise à la place du titre réel
-- et on ne vérifie pas le namespace
ttr = ft
else
-- le titre
local titre = mw.title.getCurrentTitle()
if (titre.namespace ~= 0) then
-- seulement les articles !
return ""
end
ttr = titre.text
end
if (ttr == ns) then
-- titre exactement NS → direct
if (ft) then
if (rang == "cultivar") then
return frame:preprocess("<nowiki>" .. cat .. "{{DISPLAYTITLE:" .. p.italique_cultivar(ns) .. "|noerror}}</nowiki>")
else
return frame:preprocess("<nowiki>" .. cat .. "{{DISPLAYTITLE:" .. p.italique_biologique(ns, rang, regne) .. "|noerror}}</nowiki>")
end
else
if (rang == "cultivar") then
return frame:preprocess(cat .. "{{DISPLAYTITLE:" .. p.italique_cultivar(ns) .. "|noerror}}")
else
return frame:preprocess(cat .. "{{DISPLAYTITLE:" .. p.italique_biologique(ns, rang, regne) .. "|noerror}}")
end
end
end
-- si le titre est plus court que le NS ça ne peut être NS+homonymie
local lng = mw.ustring.len(ns)
if ((mw.ustring.len(ttr) <= lng) and (cat ~= "")) then
if (ft) then
return frame:preprocess("<nowiki>" .. cat .. "</nowiki>")
else
return frame:preprocess(cat) -- on ne fait rien
end
end
-- on récupère les 'lng' premiers caractères du titre : ça doit être égal au NS
-- sinon ça veut dire que ce n'est pas NS+homonymie
local p1 = mw.ustring.sub(ttr, 1, lng)
if (p1 ~= ns) then
if (cat ~= "") then
return frame:preprocess(cat) -- on ne fait rien
else
return ""
end
end
-- la partie homonymie seule
local hom = mw.ustring.sub(ttr, lng+1)
-- on valide que la partie homonymie contient des ()
local tst = mw.ustring.find(ttr, "[(]")
if ((tst == nil) and (cat ~= "")) then
-- pas de parenthèse, ce n'est pas NS + homonymie
return frame:preprocess(cat) -- on ne touche rien
end
-- on retourne la mise en forme du NS italique + la partie homonymie
if (ft) then
if (rang == "cultivar") then
return frame:preprocess("<nowiki>" .. cat .. "{{DISPLAYTITLE:" .. p.italique_cultivar(ns) .. hom .. "|noerror}}</nowiki>")
else
return frame:preprocess("<nowiki>" .. cat .. "{{DISPLAYTITLE:" .. p.italique_biologique(ns, rang, regne) .. hom .. "|noerror}}</nowiki>")
end
else
if (rang == "cultivar") then
return frame:preprocess(cat .. "{{DISPLAYTITLE:" .. p.italique_cultivar(ns) .. hom .. "|noerror}}")
else
return frame:preprocess(cat .. "{{DISPLAYTITLE:" .. p.italique_biologique(ns, rang, regne) .. hom .. "|noerror}}")
end
end
end
-- met un nom scientifique en italique, en respectant les conventions. Utilisable uniquement :
-- - dans le modèle {{taxobox}} car il utilise une syntaxe HTML et non wiki pour tenir compte du style CSS associé
-- - sur des taxons qui sont à coup sur en italiques (inf. au genre) car ne sait pas quelles sont les conditions autour
-- - ne gère pas la partie homonymie (pas supposé se rencontrer dans les noms de taxon)
function p.italique_taxon(nom, rang)
if (nom == nil or nom == "") then
return ""
end
-- si c'est un clade et détecté français on enlève l'italique
if (rang == "clad") then
if (p.clade_francais(nom)) then
return '<span style="font-style: normal">' .. nom .. '</span>'
end
end
-- on remplace dans le nom toutes les occurrences à protéger
local i = 1
while(p.exclude[i] ~= nil) do
nom = mw.ustring.gsub(nom, p.exclude_span[i][1], p.exclude_span[i][2])
i = i + 1
end
return nom
end
-- wrapper
function p.nt(frame)
local nom = mw.text.trim(frame.args[1] or frame:getParent().args[1] or "")
if (nom == "") then
return ""
end
local nom2 = mw.text.trim(frame.args[2] or frame:getParent().args[2] or "")
local rang = mw.text.trim(frame.args[3] or frame:getParent().args[3] or "")
local resu
if (nom2 == "") then
resu = p.italique_taxon(nom, rang)
else
resu = p.italique_taxon(nom2, rang)
end
if (nom == resu) then
return " [[" .. resu .. "]]"
else
return frame:preprocess(" [[" .. nom .. "|" .. resu .. "]]")
end
end
-- module
return p