--[[
* Modulo per implementare le funzionalità di Bio
* Traduce in lua:
* Template:Bio
* Template:Bio/Kategori_attività
* Template:Bio/cat
* Template:Bio/catnatimorti
* Template:Bio/epoca
* Template:Bio/articolo
* Template:Bio/articolo_F
* Template:Bio/link attività
* Template:Bio/link nazionalità
* Template:Bio/plurale_attività
* Template:Bio/plurale_nazionalità
* Template:Bio/warning_A
* Template:Bio/warning_N
* Template:Primo del mese
*
* utilizza:
* Template:Avviso
]]
-- Variabili globali
local p = {} -- per l'esportazione delle funzioni del modulo
local args -- argomenti passati al template
local textTable = {} -- table per contenere la risposta da ritornare
local SPACE = " " -- HTML Entity Code per lo spazio
-- Configurazione
local cfg
local link_attivita
local link_nazionalita
local plurale_attivita
local plurale_nazionalita
local attivitaParams = { "Attività", "Attività2", "Attività3" }
local nazionalitaParams = { "Nazionalità", "NazionalitàNaturalizzato", "Cittadinanza" }
-------------------------------------------------------------------------------
-- Funzioni di utilità
-------------------------------------------------------------------------------
-- Aggiunge testo alla risposta, svolge anche la funzione di concatenatore
local function dumpText(...)
local arg = {...}
for _, val in ipairs(arg) do
table.insert(textTable, val)
end
end
-- Aggiunge una Kategori alla risposta
local function dumpCategory(category)
if mw.title.getCurrentTitle().namespace == 0 then
dumpText("[[Kategori:", category, "]]", "\n")
end
end
-- Aggiunge un wlink alla risposta, se target è nil utilizza label come target.
-- labelPrefix, se presente, viene rimosso dalla label e anteposto al wlink.
local function dumpWlink(target, label, labelPrefix)
if target and label and labelPrefix then
label, count = label:gsub("^" .. labelPrefix .. " ", "")
if count == 1 then
dumpText(labelPrefix, SPACE)
end
end
if target and label then
dumpText("[[", target, "|", label, "]]")
else
dumpText("[[", target or label, "]]")
end
end
-- Aggiunge una immagine alla risposta, size e caption sono opzionali
local function dumpImage(name, size, caption)
dumpText("[[File:", name, "|thumb")
if size then
dumpText("|", size, "px")
end
if caption then
dumpText("|", caption)
end
dumpText("]]", "\n")
end
-- Aggiunge l'output del [[Template:Avviso]] e una Kategori di warning alla risposta
local function dumpAvviso(tipo, immagine, immagine_a_destra, testo, category)
local text
text = mw.getCurrentFrame():expandTemplate {
title = "Avviso",
args = {
["tipo"] = tipo,
["immagine"] = immagine,
["immagine a destra"] = immagine_a_destra,
["testo"] = testo
}
}
dumpText(text)
if category then
dumpCategory(cfg.Kategori[category])
end
end
-- Wrapper di mw.title.exists, verifica sia che name sia valido, sia che esista
local function titleExists(name)
local title = mw.title.new(name)
return title and title.exists
end
-- Traduzione in lua del [[Template:Primo del mese]]
-- Se date inizia con "1 " o "1°" ritorna una nuova data che inizia per "1º", altrimenti date
local function fixFirstOfMonth(date)
date = date:gsub("^1%s", "1º ")
date = date:gsub("^1\194\176", "1º")
return date
end
-- Ritorna "ed" se nextWord inizia con "e", altrimenti "e"
local function getEufonica(nextWord)
return nextWord:sub(1, 1) == "e" and "ed" or "e"
end
-- Parsifica un TimeValue di Wikidata e ne ritorna "giornomese, anno"
local function parseWikidataTimeValue(property)
local entity, value, year, month, day, daymonth
entity = mw.wikibase.getEntityObject()
if entity and entity.claims and
entity.claims[property] and #entity.claims[property] > 0 and
entity.claims[property][1].mainsnak.snaktype == "value" then
value = entity.claims[property][1].mainsnak.datavalue.value
year, month, day = value.time:match(".+(%d%d%d%d%d)%-(%d%d)%-(%d%d).+")
if value.precision == 11 then
month = mw.getLanguage("it"):formatDate("F", tonumber(year) .. "-" .. month .. "-" .. day)
daymonth = tonumber(day) .. " " .. month
end
if value.precision == 9 or value.precision == 11 then
year = tonumber(year) .. (value.time:sub(1, 1) == "-" and " a.C." or "")
end
end
return daymonth, year
end
-------------------------------------------------------------------------------
-- Parsing parametri
-------------------------------------------------------------------------------
-- Utilizzata da parseParams per controllare il valore di un parametro.
-- Ritorna true se il valore è valido altrimenti false.
local function checkParamValue(value, valueTest, otherArgs)
local ret = true
if type(valueTest) == "function" then
ret = valueTest(value, otherArgs)
elseif type(valueTest) == "string" and not value:match(valueTest) then
ret = false
end
return ret
end
-- Parsifica i parametri passati al modulo e aggiunge eventuali Kategori di errore.
-- Ritorna i parametri conosciuti scartando quelli valorizzati a stringa vuota.
local function parseParams(origArgs)
local paramcfg = require("Modulo:Bio/Parametri")
local retArgs = {}
-- controlla i parametri conosciuti e li copia
for k, v in pairs(origArgs) do
if paramcfg.params[k] then
if v ~= "" then
retArgs[k] = v
end
else
dumpAvviso(cfg.warningParams.tipo,
cfg.warningParams.immagine,
cfg.warningParams.immagine_a_destra,
cfg.warningParams.testo:gsub("$1", "il parametro '" ..
(tonumber(k) and (v == "" and " " or v) or k ) .. "' è sconosciuto"), "unknown-params")
end
end
-- controlla il valore
for i, validator in pairs(paramcfg.validators) do
if retArgs[validator.param] then
if not checkParamValue(retArgs[validator.param], validator.valuetest, retArgs) then
if validator.errmsg then
dumpAvviso(cfg.warningParams.tipo,
cfg.warningParams.immagine,
cfg.warningParams.immagine_a_destra,
cfg.warningParams.testo:gsub("$1", validator.errmsg), nil)
end
dumpCategory(cfg.Kategori["wrong-params"])
end
end
end
return retArgs
end
-------------------------------------------------------------------------------
-- Gestione Kategori
-------------------------------------------------------------------------------
-- Ritorna il plurale dell'attività o nil se non trovato (con eventuale warning)
local function getPluralAttivita(attivita, warning)
local plural
plurale_attivita = plurale_attivita or mw.loadData("Modulo:Bio/Plurale attività")
plural = plurale_attivita[attivita]
if not plural and warning then
dumpAvviso(cfg.warningA.tipo, cfg.warningA.immagine, cfg.warningA.immagine_a_destra,
cfg.warningA.testo .. cfg.warningA.testo2a:gsub("$1", attivita) .. cfg.warningA.testo3, "warning")
end
return plural
end
-- Ritorna il plurale della nazionalità o nil se non trovato (con eventuale warning)
local function getPluralNazionalita(nazionalita, warning)
local plural
plurale_nazionalita = plurale_nazionalita or mw.loadData("Modulo:Bio/Plurale nazionalità")
plural = plurale_nazionalita[nazionalita]
if not plural and warning then
dumpAvviso(cfg.warningN.tipo, cfg.warningN.immagine, cfg.warningN.immagine_a_destra,
cfg.warningN.testo .. cfg.warningN.testo2a:gsub("$1", nazionalita) .. cfg.warningN.testo3, "warning")
end
return plural
end
-- Ritorna il plurale dei parametri necessari per le Kategori
local function getPluralsAttivitaNazionalita()
local plurals = {}
if not args["Nazionalità"] then
dumpAvviso(cfg.warningN.tipo, cfg.warningN.immagine, cfg.warningN.immagine_a_destra,
cfg.warningN.testo .. cfg.warningN.testo2b .. cfg.warningN.testo3, "warning")
end
for _, nazionalita in ipairs(nazionalitaParams) do
if args[nazionalita] then
plurals[nazionalita] = getPluralNazionalita(args[nazionalita], true)
end
end
if not args["Attività"] then
dumpAvviso(cfg.warningA.tipo, cfg.warningA.immagine, cfg.warningA.immagine_a_destra,
cfg.warningA.testo .. cfg.warningA.testo2b .. cfg.warningA.testo3, "warning")
end
for _, attivita in ipairs(attivitaParams) do
if args[attivita] then
plurals[attivita] = getPluralAttivita(args[attivita], true)
end
end
return plurals
end
-- Aggiunge le Kategori: Attività nazionalità [del XYZ secolo]
local function addAttivitaKategoris(plurals)
local catname, epoca1, epoca2, added
epoca1 = args["Epoca"] and cfg.epoche[args["Epoca"]]
epoca2 = args["Epoca2"] and cfg.epoche[args["Epoca2"]]
for _, attivita in ipairs(attivitaParams) do
if plurals[attivita] then
for _, nazionalita in ipairs(nazionalitaParams) do
if plurals[nazionalita] then
added = false
catname = plurals[attivita] .. " " .. plurals[nazionalita]
for _, epoca in ipairs({ epoca1, epoca2 }) do
if epoca and titleExists("Kategori:" .. catname .. " " .. epoca) then
dumpCategory(catname .. " " .. epoca)
added = true
end
end
-- se non è stata aggiunta la Kategori per epoca1 e epoca2
-- aggiunge la cat. semplice, e.g. "Scrittori italiani"
if not added then
dumpCategory(catname)
end
end
end
end
end
end
-- Traduzione in lua del [[Template:Bio/catnatimorti]]
-- Aggiunge le Kategori: Nati/Morti nell'anno/giorno/luogo
local function addNatiMortiKategoris()
local cat1, cat2
if args["AnnoNascita"] then
cat1 = "Nati nel " .. args["AnnoNascita"]
cat2 = "Nati nell'" .. args["AnnoNascita"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
end
if args["AnnoMorte"] then
cat1 = "Morti nel " .. args["AnnoMorte"]
cat2 = "Morti nell'" .. args["AnnoMorte"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
else
dumpCategory("Persone viventi")
end
if args["GiornoMeseNascita"] then
cat1 = "Nati il " .. fixFirstOfMonth(args["GiornoMeseNascita"])
cat2 = "Nati l'" .. args["GiornoMeseNascita"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
end
if args["GiornoMeseMorte"] then
cat1 = "Morti il " .. fixFirstOfMonth(args["GiornoMeseMorte"])
cat2 = "Morti l'" .. args["GiornoMeseMorte"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
end
if args["LuogoNascitaLink"] then
cat1 = "Nati a " .. args["LuogoNascitaLink"]
cat2 = "Nati ad " .. args["LuogoNascitaLink"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
elseif args["LuogoNascita"] then
cat1 = "Nati a " .. args["LuogoNascita"]
cat2 = "Nati ad " .. args["LuogoNascita"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
end
if args["LuogoMorteLink"] then
cat1 = "Morti a " .. args["LuogoMorteLink"]
cat2 = "Morti ad " .. args["LuogoMorteLink"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
elseif args["LuogoMorte"] then
cat1 = "Morti a " .. args["LuogoMorte"]
cat2 = "Morti ad " .. args["LuogoMorte"]
if titleExists("Kategori:" .. cat1) then
dumpCategory(cat1)
elseif titleExists("Kategori:" .. cat2) then
dumpCategory(cat2)
end
end
end
-------------------------------------------------------------------------------
-- Creazione incipit
-------------------------------------------------------------------------------
-- Ritorna il link dell'attività o nil se non trovato
local function getLinkAttivita(attivita)
link_attivita = link_attivita or mw.loadData("Modulo:Bio/Link attività")
return link_attivita[attivita]
end
-- Ritorna il link della nazionalità o nil se non trovato.
local function getLinkNazionalita(nazionalita)
link_nazionalita = link_nazionalita or mw.loadData("Modulo:Bio/Link nazionalità")
return link_nazionalita[nazionalita]
end
-- Prova a ottenere alcuni parametri mancanti da Wikidata
local function checkWikidata()
local daymonth, year
-- GiornoMeseNascita e AnnoNascita
if not args["GiornoMeseNascita"] or not args["AnnoNascita"] then
daymonth, year = parseWikidataTimeValue("P569")
args["GiornoMeseNascita"] = args["GiornoMeseNascita"] or daymonth
args["AnnoNascita"] = args["AnnoNascita"] or year
end
-- GiornoMeseMorte e AnnoMorte
if not args["GiornoMeseMorte"] or not args["AnnoMorte"] then
daymonth, year = parseWikidataTimeValue("P570")
args["GiornoMeseMorte"] = args["GiornoMeseMorte"] or daymonth
args["AnnoMorte"] = args["AnnoMorte"] or year
end
end
-- Traduzione in lua del [[Template:Bio/articolo]]
local function getArticleMan(attivita)
local article
if cfg.articoli_maschili["uno"][attivita] then
article = "uno"
elseif cfg.articoli_maschili["una"][attivita] then
article = "una"
else
article = "un"
end
return article
end
-- Traduzione in lua del [[Template:Bio/articolo_F]]
-- aggiunge anche uno spazio nel caso non usi l'apostrofo
local function getArticleWoman(attivita)
local article
if cfg.articoli_femminili["un"][attivita] then
article = "un" .. SPACE
elseif attivita and attivita:match("^[aeiou]") then
article = "un'"
else
article = "una" .. SPACE
end
return article
end
local function addImmagine()
local caption
if args["Immagine"] then
if args["Didascalia"] then
caption = args["Didascalia"]
else
if args["Nome"] then
caption = args["Nome"]
end
if args["Cognome"] then
caption = (caption or "") .. " " .. args["Cognome"]
end
end
if args["Didascalia2"] then
caption = (caption or "") .. "<hr />" .. args["Didascalia2"]
end
dumpImage(args["Immagine"], args["DimImmagine"], caption)
elseif args["Didascalia2"] then
-- parentesi () extra per non ritornare anche il gsub.count
dumpText( (cfg.didascalia2:gsub("$1", args["Didascalia2"])) )
end
end
local function addNomeCognome()
if args["Titolo"] then
dumpText(args["Titolo"], SPACE)
end
-- inizio grassetto
dumpText("'''")
if args["Nome"] then
dumpText(args["Nome"])
end
if args["Cognome"] then
dumpText(SPACE, args["Cognome"])
end
-- fine grassetto
dumpText("'''")
if args["PostCognomeVirgola"] then
dumpText(",", SPACE, args["PostCognomeVirgola"])
end
if args["PostCognome"] then
dumpText(SPACE, args["PostCognome"])
end
end
local function addNascitaMorte()
-- si apre la parentesi
dumpText(SPACE, "(")
if args["PreData"] then
dumpText(args["PreData"], ";", SPACE)
end
if args["LuogoNascita"] then
dumpWlink(args["LuogoNascitaLink"], args["LuogoNascita"])
if args["LuogoNascitaAlt"] then
dumpText(SPACE, args["LuogoNascitaAlt"])
end
dumpText(",", SPACE)
end
if args["GiornoMeseNascita"] then
if titleExists(args["GiornoMeseNascita"]) then
dumpWlink(args["GiornoMeseNascita"])
else
dumpText(args["GiornoMeseNascita"])
end
dumpText(SPACE)
end
if args["AnnoNascita"] then
if titleExists(args["AnnoNascita"]) then
dumpWlink(args["AnnoNascita"])
else
dumpText(args["AnnoNascita"])
end
else
dumpText("...")
end
if args["NoteNascita"] then
dumpText(args["NoteNascita"])
end
if args["AnnoMorte"] then
dumpText(SPACE, "–", SPACE)
if args["LuogoMorte"] then
dumpWlink(args["LuogoMorteLink"], args["LuogoMorte"])
if args["LuogoMorteAlt"] then
dumpText(SPACE, args["LuogoMorteAlt"])
end
dumpText(",", SPACE)
end
if args["GiornoMeseMorte"] then
if titleExists(args["GiornoMeseMorte"]) then
dumpWlink(args["GiornoMeseMorte"])
else
dumpText(args["GiornoMeseMorte"])
end
dumpText(SPACE)
end
if args["AnnoMorte"] then
if args["AnnoMorte"] == "?" then
dumpText("...")
else
if titleExists(args["AnnoMorte"]) then
dumpWlink(args["AnnoMorte"])
else
dumpText(args["AnnoMorte"])
end
end
end
end
if args["NoteMorte"] then
dumpText(args["NoteMorte"])
end
-- si chiude la parentesi
dumpText(")")
end
local function addAttivita()
if args["PreAttività"] then
dumpText(args["PreAttività"], SPACE)
else
dumpText("è", SPACE)
if args["AnnoMorte"] then
dumpText((not args["Sesso"] or args["Sesso"] == "M")
and "stato" or "stata", SPACE)
end
if not args["Sesso"] or args["Sesso"] == "M" then
dumpText(getArticleMan(args["Attività"]), SPACE)
else
dumpText(getArticleWoman(args["Attività"]))
end
end
dumpWlink(getLinkAttivita(args["Attività"]), args["Attività"] or "", "ex")
if args["Attività2"] then
if args["Attività3"] or args["AttivitàAltre"] then
dumpText(",")
else
dumpText(SPACE, getEufonica(args["Attività2"]))
end
dumpText(SPACE)
dumpWlink(getLinkAttivita(args["Attività2"]), args["Attività2"], "ex")
end
if args["Attività3"] then
if args["AttivitàAltre"] then
dumpText(",")
else
dumpText(SPACE, getEufonica(args["Attività3"]))
end
dumpText(SPACE)
dumpWlink(getLinkAttivita(args["Attività3"]), args["Attività3"], "ex")
end
if args["AttivitàAltre"] then
dumpText(args["AttivitàAltre"])
end
dumpText(SPACE)
dumpWlink(getLinkNazionalita(args["Nazionalità"]), args["Nazionalità"] or "")
if args["Cittadinanza"] then
dumpText(SPACE, "con cittadinanza", SPACE)
dumpWlink(getLinkNazionalita(args["Cittadinanza"]), args["Cittadinanza"])
end
if args["NazionalitàNaturalizzato"] then
dumpText(SPACE)
dumpWlink("Naturalizzazione",
(not args["Sesso"] or args["Sesso"] == "M" or
(args["Sesso"] == "F" and getArticleWoman(args["Attività"]) == "un ")) and
"naturalizzato" or "naturalizzata")
dumpText(SPACE)
dumpWlink(getLinkNazionalita(args["NazionalitàNaturalizzato"]), args["NazionalitàNaturalizzato"])
end
if args["PostNazionalità"] then
dumpText(args["PostNazionalità"])
end
end
-- Traduzione in lua di [[Template:Bio]]
local function bio()
local ret, sortkey, plurals
-- lettura configurazione
cfg = mw.loadData("Modulo:Bio/Configurazione")
-- parsifica i parametri e aggiunge eventuali messaggi e Kategori di errore
args = parseParams(mw.getCurrentFrame():getParent().args)
-- prova a ottenere alcuni parametri mancanti da Wikidata
if cfg.wikidata then
checkWikidata()
end
-- controllo attività e nazionalità
if args["Kategori"] ~= "no" then
plurals = getPluralsAttivitaNazionalita()
end
-- le Kategori sono aggiunte solo se la pagina è nel namespace principale (0)
if mw.title.getCurrentTitle().namespace == 0 then
-- imposta la magic word defaultsort
if args["ForzaOrdinamento"] then
sortkey = args["ForzaOrdinamento"]
elseif args["Cognome"] and args["Nome"] then
sortkey = args["Cognome"] .. " ," .. args["Nome"]
end
if sortkey then
mw.getCurrentFrame():preprocess("{{DEFAULTSORT:" .. sortkey .. "}}")
end
-- Kategori impostato a "no" disabilita la categorizzazione per attività
if args["Kategori"] ~= "no" then
addAttivitaKategoris(plurals)
end
addNatiMortiKategoris()
dumpCategory(cfg.Kategori["bot"])
end
addImmagine()
addNomeCognome()
addNascitaMorte()
if args["PostCognomeVirgola"] then
dumpText(",")
end
if args["FineIncipit"] ~= "," then
dumpText(SPACE)
end
if args["FineIncipit"] then
dumpText(args["FineIncipit"])
else
addAttivita()
end
if args["Punto"] ~= "no" then
dumpText((args["FineIncipit"] == "e" or
args["FineIncipit"] == "ed" or
args["FineIncipit"] == ",") and
SPACE or ".")
end
return table.concat(textTable)
end
-- Entry-point per {{Bio/link attività}}
function p.linkAttivita(frame)
return getLinkAttivita(frame:getParent().args[1])
end
-- Entry-point per {{Bio/link nazionalità}}
function p.linkNazionalita(frame)
return getLinkNazionalita(frame:getParent().args[1])
end
-- Entry-point per {{Bio/plurale attività}}
function p.pluraleAttivita(frame)
return getPluralAttivita(frame:getParent().args[1])
end
-- Entry-point per {{Bio/plurale nazionalità}}
function p.pluraleNazionalita(frame)
return getPluralNazionalita(frame:getParent().args[1])
end
-- Entry-point per {{Bio}}
function p.bio(frame)
return bio()
end
return p
