Wikipedia

Modulo:Bio/sandbox: differenze tra le versioni

Naviga nella cronologia in modo interattivo
← Differenza precedente
Contenuto cancellato Contenuto aggiunto
aggiunto modulo No globals
aggiorno
 
(111 versioni intermedie di 7 utenti non mostrate)
Riga 1:
--[[
* Modulo perche implementareimplementa le funzionalità delil template Bio.
*
* Nota: non esistendo in Lua una differenziazione tra metodi pubblici e privati,
* per convenzione, quelli privati iniziano con un underscore.
]]
 
require("Module:No globalsstrict")
 
local mString = require("Modulo:String")
-- Variabili globali
local mWikidata = require("Modulo:Wikidata")
local args -- argomenti passati al template
local cfg = -- configurazionemw.loadData("Modulo:Bio/Configurazione")
local ex_attivita = mw.loadData("Modulo:Bio/Ex attività")
local textTable = {} -- table per contenere la risposta da ritornare
-- argomenti passati al template
local SPACE = " " -- HTML Entity Code per lo spazio
local args
-- table per contenere gli errori
local errorTable = {}
-- nomi dei parametri per l'attività e la nazionalità
local attivitaParams = { "Attività", "Attività2", "Attività3" }
local nazionalitaParams = { "Nazionalità", "NazionalitàNaturalizzato", "Cittadinanza" }
 
-- =============================================================================
-------------------------------------------------------------------------------
-- Funzioni di utilità
-- =============================================================================
-------------------------------------------------------------------------------
 
-- Aggiunge testol'output alladel risposta,[[Template:Avviso]] svolgee ancheuna la funzionecategoria di concatenatorewarning a errorTable
local function dumpTextaddAvviso(...testo, category)
local arg = {...}
 
for _, val in ipairs(arg) do
table.insert(textTable, val)
end
end
 
-- Aggiunge una categoria alla risposta
local function dumpCategory(category)
if mw.title.getCurrentTitle().namespace == 0 then
dumpText("[[Categoria:", 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
local count
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 categoria di warning alla risposta
local function dumpAvviso(tipo, immagine, immagine_a_destra, testo, category)
local text
 
Line 72 ⟶ 31:
title = "Avviso",
args = {
["tipo"] = tipo"stile",
["immagine"] = immagine"[[File:Nuvola apps important.svg|40px]]",
["immagine a destra"] = immagine_a_destra"[[File:Crystal Clear app Login Manager.svg|40px]]",
["testo"] = testo
}
}
 
dumpTexttable.insert(errorTable, text)
if mw.title.getCurrentTitle().namespace == 0 then
if category then
dumpCategorytable.insert(errorTable, string.format("[[Categoria:%s]]\n", cfg.categorie[category]))
end
end
Line 88 ⟶ 47:
local function titleExists(name)
local title = mw.title.new(name)
 
return title and title.exists
end
 
local function currentTitleEquals(name)
-- Se date inizia con "1 " o "1°" ritorna una nuova data che inizia per "1º", altrimenti date
local title = mw.title.getCurrentTitle().text
title = mw.text.split(title, " %(")[1]
return title == name or mw.getContentLanguage():lcfirst(title) == name
end
 
-- Se date inizia con "1 " o "1°" restituisce 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
 
-- RitornaRestituisce "ed" se nextWord inizia con "e", altrimenti "e"
local function getEufonica(nextWord)
return nextWord:submatch(1, 1) == "^e[^d]") and "ed" or "e"
end
 
-- Restituisce true se uno degli argomenti del modulo specificati (params) ha almeno
-- Parsifica un TimeValue di Wikidata e ne ritorna "giornomese, anno"
-- un valore tra quelli indicati (values), altrimenti false
local function parseWikidataTimeValue(property)
local function argsSearch(params, values)
local entity, value, year, month, day, daymonth
local ret = false
for _, param in ipairs(params) do
for _, value in ipairs(values) do
if args[param] == value then
return true
end
end
end
return false
end
 
-- Riconosce le ex attività previste e le restituisce senza "ex"
entity = mw.wikibase.getEntityObject()
local function isExAttivita(attivita)
if entity and entity.claims and
local ret
entity.claims[property] and #entity.claims[property] > 0 and
attivita = attivita:match("^ex (.+)$")
entity.claims[property][1].mainsnak.snaktype == "value" then
if attivita then
value = entity.claims[property][1].mainsnak.datavalue.value
for _, v in ipairs(ex_attivita) do
year, month, day = value.time:match(".+(%d%d%d%d%d)%-(%d%d)%-(%d%d).+")
if value.precisionv == 11attivita then
ret = attivita
month = mw.getLanguage("it"):formatDate("F", tonumber(year) .. "-" .. month .. "-" .. day)
break
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 ret
 
return daymonth, year
end
 
-- =============================================================================
-------------------------------------------------------------------------------
-- Parsingclasse parametriArgsParser
-- =============================================================================
-------------------------------------------------------------------------------
 
local ArgsParser = {}
-- 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
 
function ArgsParser:new()
if type(valueTest) == "function" then
local self = {}
ret = valueTest(value, otherArgs)
setmetatable(self, { __index = ArgsParser })
elseif type(valueTest) == "string" and not value:match(valueTest) then
return self
ret = false
end
 
return ret
end
 
-- Parsifica i parametri passati al modulo e aggiunge eventuali categorie di errore.
-- RitornaRestituisce i parametri conosciuti scartando quelli valorizzati a stringa vuota.
local function parseParamsArgsParser:parse(origArgs)
local paramcfg = require("Modulo:Bio/Parametri")
local retArgs = {}
Line 158 ⟶ 122:
end
else
dumpAvvisoaddAvviso(cfg.warningParams.tipotesto:gsub("$1", "il parametro '" ..
(tonumber(k) and (v == "" and " " or v) or k ) .. "' è sconosciuto"), "unknown-params")
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
Line 169 ⟶ 130:
for i, validator in pairs(paramcfg.validators) do
if retArgs[validator.param] then
if not checkParamValueself:_checkParamValue(retArgs[validator.param], validator.valuetest, retArgs) then
if validator.errmsg then
dumpAvvisoaddAvviso(cfg.warningParams.tipotesto:gsub("$1", validator.errmsg), "wrong-params")
cfg.warningParams.immagine,
cfg.warningParams.immagine_a_destra,
cfg.warningParams.testo:gsub("$1", validator.errmsg), nil)
end
dumpCategory(cfg.categorie["wrong-params"])
end
end
end
-- è ammessa l'iniziale maiuscola per i parametri per attività e nazionalità
-- (complicazione inutile. basta eliminare dalle voci le maiuscole esistenti)
local lang = mw.getContentLanguage()
for _, param in ipairs(attivitaParams) do
if retArgs[param] and not cfg.attivita_maiuscolo[retArgs[param]] then
retArgs[param] = lang:lcfirst(retArgs[param])
end
end
for _, param in ipairs(nazionalitaParams) do
retArgs[param] = retArgs[param] and lang:lcfirst(retArgs[param])
end
 
Line 184 ⟶ 153:
end
 
-- Utilizzata da parse per controllare il valore di un parametro.
-- Cerca alcuni parametri se mancanti su Wikidata
-- Restituisce true se il valore è valido altrimenti false.
local function checkWikidata()
function ArgsParser:_checkParamValue(value, valueTest, otherArgs)
local daymonth, year
local ret = true
-- GiornoMeseNascita e AnnoNascita
 
if not args["GiornoMeseNascita"] or not args["AnnoNascita"] then
if type(valueTest) == "function" then
daymonth, year = parseWikidataTimeValue("P569")
ret = valueTest(value, otherArgs)
args["GiornoMeseNascita"] = args["GiornoMeseNascita"] or daymonth
elseif type(valueTest) == "string" and not value:match(valueTest) then
args["AnnoNascita"] = args["AnnoNascita"] or year
ret = false
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
 
return ret
end
 
-- =============================================================================
-------------------------------------------------------------------------------
-- classe CategoriesCategoryManager
-- =============================================================================
-------------------------------------------------------------------------------
 
local CategoriesCategoryManager = {}
 
function CategoriesCategoryManager:new()
local self = {}
 
local sortkey, plurals
setmetatable(self, { __index = Categories,CategoryManager })
__tostring = function(t) return self:_tostring() end })
textTable = {}
self.plurale_attivita = nil
self.plurale_nazionalita = nil
self.categories = {}
-- al di fuori del namespace 0 esegue comunque il controllo di attività e nazionalità
self.plurals = self:_getPluralsAttivitaNazionalita()
 
iflocal title = mw.title.getCurrentTitle().namespace == 0 then
if title.namespace == 0 and title.text ~= 'Pagina principale' or args.Debug then
-- imposta la magic word defaultsort
local sortkey
if args["ForzaOrdinamento"] then
sortkey =if args[".ForzaOrdinamento"] then
sortkey = args.ForzaOrdinamento:gsub("(.-)%s*,%s*(.*)", "%1 ,%2")
elseif args["Cognome"] and args["Nome"] then
sortkeyelseif =args.Soprannome and args[".Cognome"] and currentTitleEquals(args.Soprannome .. " , " .. args["Nome"].Cognome) then
sortkey = mString.collate( { args = { args.Cognome .. " ," .. args.Soprannome } } )
elseif args.Pseudonimo and currentTitleEquals(args.Pseudonimo) then
local pseudonimo = mString.collate( { args = { args.Pseudonimo } } )
if pseudonimo ~= args.Pseudonimo then
sortkey = pseudonimo
end
elseif args.Cognome and args.Nome then
sortkey = mString.collate( { args = { args.Cognome .. " ," .. args.Nome } } )
elseif args.Nome then
local nome = mString.collate( { args = { args.Nome } } )
if nome ~= args.Nome then
sortkey = nome
end
end
if sortkey then
if args.Debug then
mw.getCurrentFrame():preprocess("{{DEFAULTSORT:" .. sortkey .. "}}")
-- per i test di DEFAULTSORT in Modulo:Bio/test
table.insert(self.categories, string.format("DEFAULTSORT:%s", sortkey))
else
mw.getCurrentFrame():preprocess("{{DEFAULTSORT:" .. sortkey .. "}}")
end
end
self:_addAttivita(self.plurals)
-- Categorie impostato a "no" disabilita la categorizzazione per attività
self:_addNatiMorti()
if args["Categorie"] ~= "no" then
self:_addCategory(cfg.categorie["bot"])
self:_addAttivitaCategories(plurals)
-- categoria di servizio per AnnoMorte (o anno corrente) - AnnoNascita > 122
local years = {
birth = tonumber(args.AnnoNascita),
death = not args.AnnoMorte and os.date("%Y") or tonumber(args.AnnoMorte)
}
if years.birth and years.death and years.death - years.birth > 122 then
self:_addCategory(cfg.categorie["controllo-età"])
end
-- eventuali categorie di servizio per Wikidata
self:_addNatiMortiCategories()
if not args.Debug then
dumpCategory(cfg.categorie["bot"])
self:_addCategoriesWikidata()
-- Categoria temporanea, vedi richiesta:
-- Speciale:LinkPermanente/66620402#Add_this_text_to_Template:Bio
if args["Nazionalità"] then
local entity = mw.wikibase.getEntityObject()
if not entity or (entity.claims and not entity.claims["P27"]) then
dumpCategory("Voci con template Bio e nazionalità assente su Wikidata")
end
end
end
Line 247 ⟶ 232:
end
 
function CategoriesCategoryManager:_tostringgetCategories()
return tableself.concat(textTable)categories
end
 
function CategoryManager:_addCategory(cat)
table.insert(self.categories, string.format("[[Categoria:%s]]", cat))
end
 
-- Aggiunge la categoria se la pagina non ha un elemento Wikidata collegato,
-- oppure non ha la proprietà indicata.
function CategoryManager:_addCategoryWikidata(propertyId, cat)
if not mWikidata._getProperty({ propertyId }) then
self:_addCategory(cat)
end
end
 
-- Aggiunge eventuali categorie di servizio per Wikidata, tramite controlli
-- più avanzati di quelli che si effettuano abitualmente con {{Controllo Wikidata}}.
function CategoryManager:_addCategoriesWikidata()
-- Per Speciale:LinkPermanente/80165551#Proposta_categoria_di_servizio_biografie_con_data_di_morte_su_Wikidata
if not args.AnnoMorte and mWikidata._getProperty({ "P570" }) then
self:_addCategory("Voci con template Bio senza AnnoMorte ma con data di morte su Wikidata")
end
if mWikidata._instanceOf({ "Q5" }) then
-- Per Speciale:LinkPermanente/66620402#Add_this_text_to_Template:Bio
if args["Nazionalità"] then
self:_addCategoryWikidata("P27", "Voci con template Bio e nazionalità assente su Wikidata")
end
-- Per Speciale:LinkPermanente/80165551#Wikidata_d:Property:P21
if not args.Sesso or args.Sesso == "M" then
self:_addCategoryWikidata("P21", "Voci con template Bio e sesso (M) assente su Wikidata")
elseif args.Sesso == "F" then
self:_addCategoryWikidata("P21", "Voci con template Bio e sesso (F) assente su Wikidata")
end
-- Per Speciale:LinkPermanente/80254035#Wikidata_properties_P19.2C_P20.2C_P569.2C_P570
if args.LuogoNascita and not args.LuogoNascitaLink then
self:_addCategoryWikidata("P19", "Voci con template Bio e LuogoNascita assente su Wikidata")
end
if args.LuogoNascitaLink then
self:_addCategoryWikidata("P19", "Voci con template Bio e LuogoNascitaLink assente su Wikidata")
end
if args.LuogoMorte and not args.LuogoMorteLink then
self:_addCategoryWikidata("P20", "Voci con template Bio e LuogoMorte assente su Wikidata")
end
if args.LuogoMorteLink then
self:_addCategoryWikidata("P20", "Voci con template Bio e LuogoMorteLink assente su Wikidata")
end
if args.AnnoNascita then
self:_addCategoryWikidata("P569", "Voci con template Bio e AnnoNascita assente su Wikidata")
end
if args.AnnoMorte and args.AnnoMorte ~= "?" then
self:_addCategoryWikidata("P570", "Voci con template Bio e AnnoMorte assente su Wikidata")
end
if args.Immagine and not titleExists("File:" .. args.Immagine) then
self:_addCategoryWikidata("P18", "Voci con template Bio e Immagine assente su Wikidata")
end
-- Per Speciale:LinkPermanente/80336084#Wikidata_properties_P27
-- e Speciale:LinkPermanente/105389666#Year_in_line_278_(for_Wikidata_category)
local annoNascita = tonumber(args.AnnoNascita)
local annoMorte = tonumber(args.AnnoNascita)
if (args["Nazionalità"] == "italiano" or args["Nazionalità"] == "italiana") and
((annoNascita or 0) > 1861 or (annoMorte or 0) > 1861) then
-- Le cittadinanze "Italia" e "Regno d'Italia" non si escludono, quindi non va usato "elseif"
local cittadRegno = false
local cittadRepubblica = false
if ((annoNascita ~= nil and annoNascita < 1946) or (annoMorte ~= nil and annoMorte < 1946)) then
self:_addCategoryWikidata("P27", "Voci con template Bio e cittadinanza Regno d'Italia assente su Wikidata")
cittadRegno = true
end
if ((annoNascita or 0) > 1946 or (annoMorte or 0) > 1946) then
self:_addCategoryWikidata("P27", "Voci con template Bio e cittadinanza Italia assente su Wikidata")
cittadRepubblica = true
end
if not (cittadRegno or cittadRepubblica) then
self:_addCategoryWikidata("P27", "Voci con template Bio e Nazionalità italiana assente su Wikidata")
end
elseif args["Nazionalità"] == "statunitense" and
((annoNascita or 0) > 1776 or (annoMorte or 0) > 1776) then
self:_addCategoryWikidata("P27", "Voci con template Bio e Nazionalità statunitense assente su Wikidata")
elseif args["Nazionalità"] == "francese" and
((annoNascita or 0) > 1799 or (annoMorte or 0) > 1799) then
self:_addCategoryWikidata("P27", "Voci con template Bio e Nazionalità francese assente su Wikidata")
end
-- Per Speciale:LinkPermanente/80431600#Wikidata_properties_P106
if argsSearch(attivitaParams, { "calciatore", "ex calciatore", "calciatrice" }) then
self:_addCategoryWikidata("P106", "Voci con template Bio e Attività assente su Wikidata (calciatore)")
end
if argsSearch(attivitaParams, { "attore", "attrice" }) then
self:_addCategoryWikidata("P106", "Voci con template Bio e Attività assente su Wikidata (attore)")
end
if argsSearch(attivitaParams, { "politico", "politica" }) then
self:_addCategoryWikidata("P106", "Voci con template Bio e Attività assente su Wikidata (politico)")
end
end
end
 
-- RitornaRestituisce il plurale dell'attività o nil se non trovato (con eventuale warning)
function CategoriesCategoryManager:_getPluralAttivita(attivita, warning)
local plural
 
self.plurale_attivita = self.plurale_attivita or mw.loadData("Modulo:Bio/Plurale attività")
plural = self.plurale_attivita[isExAttivita(attivita) or attivita]
if not plural and warning then
dumpAvvisoaddAvviso(cfg.warningA.tipo,testo .. cfg.warningA.immaginetesto2a:gsub("$1", attivita) .. cfg.warningA.immagine_a_destratesto3, "warning")
cfg.warningA.testo .. cfg.warningA.testo2a:gsub("$1", attivita) .. cfg.warningA.testo3, "warning")
end
 
Line 265 ⟶ 341:
end
 
-- RitornaRestituisce il plurale della nazionalità o nil se non trovato (con eventuale warning)
function CategoriesCategoryManager:_getPluralNazionalita(nazionalita, warning)
local plural
 
self.plurale_nazionalita = self.plurale_nazionalita or mw.loadData("Modulo:Bio/Plurale nazionalità")
plural = self.plurale_nazionalita[nazionalita]
if not plural and warning then
dumpAvvisoaddAvviso(cfg.warningN.tipo,testo .. cfg.warningN.immaginetesto2a:gsub("$1", nazionalita) .. cfg.warningN.immagine_a_destratesto3, "warning")
cfg.warningN.testo .. cfg.warningN.testo2a:gsub("$1", nazionalita) .. cfg.warningN.testo3, "warning")
end
 
Line 279 ⟶ 354:
end
 
-- RitornaRestituisce il plurale dei parametri necessari per le categorie
function CategoriesCategoryManager:_getPluralsAttivitaNazionalita()
local plurals = {}
local attnaznecessarie = not (args.Categorie == "no" and args.FineIncipit)
 
-- Nazionalità può essere vuota solo quando c'è Categorie=no e FineIncipit
if not args["Nazionalità"] and not (args["Categorie"] == "no" and args["FineIncipit"])attnaznecessarie then
dumpAvvisoaddAvviso(cfg.warningN.tipo,testo .. cfg.warningN.immagine,testo2b .. cfg.warningN.immagine_a_destratesto3, "warning")
cfg.warningN.testo .. cfg.warningN.testo2b .. cfg.warningN.testo3, "warning")
end
for _, nazionalita in ipairs(nazionalitaParams) do
-- Nazionalità può essere sbagliata solo quando c'è Categorie=no e manca FineIncipit
if not (args["Categorie"] == "no" and not args["FineIncipit"nazionalita]) then
for _, plurals[nazionalita] in= ipairsself:_getPluralNazionalita(nazionalitaParamsargs[nazionalita]) do
if args[nazionalita] then
plurals[nazionalita] = self:_getPluralNazionalita(args[nazionalita], true)
end
end
end
-- Attività può essere vuota solo quando c'è Categorie=no e FineIncipit
if not args["Attività"] and not (args["Categorie"] == "no" and args["FineIncipit"])attnaznecessarie then
dumpAvvisoaddAvviso(cfg.warningA.tipo,testo .. cfg.warningA.immagine,testo2b .. cfg.warningA.immagine_a_destratesto3, "warning")
cfg.warningA.testo .. cfg.warningA.testo2b .. cfg.warningA.testo3, "warning")
end
for _, attivita in ipairs(attivitaParams) do
-- Attività può essere sbagliata solo quando c'è Categorie=no e manca FineIncipit
if not (args["Categorie"] == "no" and not args["FineIncipit"attivita]) then
for _, plurals[attivita] in= ipairsself:_getPluralAttivita(attivitaParamsargs[attivita]) do
if args[attivita] then
plurals[attivita] = self:_getPluralAttivita(args[attivita], true)
end
end
end
 
return plurals
end
 
-- Calcola il valore di Epoca se non inserito dall'utente.
function CategoryManager:_getEpoca()
local ret
local annoNascita = tonumber(args.AnnoNascita)
local annoMorte = tonumber(args.AnnoMorte)
if not annoNascita then
annoNascita = args.AnnoNascita:match('^(%d+) a%.C%.$')
annoNascita = annoNascita and tonumber(annoNascita) * -1
end
if annoNascita and annoNascita >= 2000 then
return "2000"
end
if not annoMorte and args.AnnoMorte then
annoMorte = args.AnnoMorte:match('^(%d+) a%.C%.$')
annoMorte = annoMorte and tonumber(annoMorte) * -1
end
 
if annoNascita and annoMorte and
annoNascita >= -500 and annoNascita <= 2100 and
annoMorte >= -500 and annoMorte <= 2100 and
((annoNascita >= 0 and annoMorte >= 0) or (annoNascita < 0 and annoMorte < 0)) then
local sign = ''
if annoNascita < 0 then
annoNascita, annoMorte = -annoNascita, -annoMorte
sign = '-'
end
local secoloNascita = math.floor((annoNascita - 1) / 100) * 100
local secoloMorte = math.floor((annoMorte - 1) / 100) * 100
ret = secoloNascita == secoloMorte and (sign .. secoloNascita) or nil
end
 
return ret
end
 
-- Aggiunge Categoria:X dei secoli, se esistono
function CategoryManager:_addCatSecolo(catname, epoca1, epoca2)
local ok = false
for _, epoca in ipairs({ epoca1, epoca2 }) do
if epoca and titleExists("Categoria:" .. catname .. " " .. epoca) then
self:_addCategory(catname .. " " .. epoca)
ok = true
end
end
return ok
end
 
-- Aggiunge le categorie: Attività nazionalità [del XYZ secolo]
function CategoriesCategoryManager:_addAttivitaCategories_addAttivita(plurals)
local catname, epoca1, epoca2, added, addatt, addnaz, add1, addbase
addatt = {}
addnaz = {}
 
-- se Epoca e Epoca2 non sono stati inseriti dall'utente
epoca1 = args["Epoca"] and cfg.epoche[args["Epoca"]]
-- e AnnoNascita e AnnoMorte cadono nello stesso secolo
epoca2 = args["Epoca2"] and cfg.epoche[args["Epoca2"]]
-- calcola epoca1 automaticamente
for _, attivita in ipairs(attivitaParams) do
if not args.Epoca and not args.Epoca2 and args.AnnoNascita then
if plurals[attivita] then
epoca1 = self:_getEpoca()
for _, nazionalita in ipairs(nazionalitaParams) do
epoca1 = epoca1 and cfg.epoche[epoca1]
if plurals[nazionalita] then
else
added = false
epoca1 = args.Epoca and cfg.epoche[args.Epoca]
catname = plurals[attivita] .. " " .. plurals[nazionalita]
epoca2 = args.Epoca2 and cfg.epoche[args.Epoca2]
for _, epoca in ipairs({ epoca1, epoca2 }) do
end
if epoca and titleExists("Categoria:" .. catname .. " " .. epoca) then
if not epoca1 and not epoca2 then
dumpCategory(catname .. " " .. epoca)
self:_addCategory(cfg.categorie["no-epoca"])
added = true
end
 
if args.Categorie ~= "no" then
for _, attivita in ipairs(attivitaParams) do
if plurals[attivita] then
for _, nazionalita in ipairs(nazionalitaParams) do
if plurals[nazionalita] then
catname = plurals[attivita] .. " " .. plurals[nazionalita]
added = self:_addCatSecolo(catname, epoca1, epoca2)
-- se non è stata aggiunta la categoria per epoca1 e epoca2
-- aggiunge la cat. semplice, es. "Scrittori italiani"
if added then
add1 = true
addatt[attivita] = true
addnaz[nazionalita] = true
else
self:_addCategory(catname)
addbase = true
end
end
-- se non è stata aggiunta la categoria per epoca1 e epoca2
-- aggiunge la cat. semplice, e.g. "Scrittori italiani"
if not added then
dumpCategory(catname)
end
end
Line 340 ⟶ 469:
end
end
-- in mancanza di "A N del S" prova "A del S" e "N del S"
for _, attivita in ipairs(attivitaParams) do
if plurals[attivita] and not addatt[attivita] then
add1 = self:_addCatSecolo(plurals[attivita], epoca1, epoca2) or add1
end
end
for _, nazionalita in ipairs(nazionalitaParams) do
if plurals[nazionalita] and not addnaz[nazionalita] then
add1 = self:_addCatSecolo(plurals[nazionalita], epoca1, epoca2) or add1
for k, v in ipairs({"cecoslovacchi", "jugoslavi", "sovietici"}) do
if plurals[nazionalita] == v and not add1 and not addbase then
self:_addCategory(plurals[nazionalita])
add1 = true
end
end
end
end
if not add1 and not addbase then
self:_addCatSecolo("Persone", epoca1, epoca2)
end
end
 
-- Utilizzata da addNatiMorti, restituisce il nome della categoria
-- se titleLink o title sono nella lista di eccezioni Cat luoghi, altrimenti nil
function CategoryManager:_getCatLuoghi(titleLink, title, catPrefix)
local cat
 
self.catLuoghi = self.catLuoghi or mw.loadData("Modulo:Bio/Cat luoghi")
if titleLink and title then
cat = self.catLuoghi[titleLink]
elseif title then
cat = self.catLuoghi[title]
end
 
return cat and (catPrefix .. " " .. cat) or nil
end
 
-- Aggiunge le categorie: Nati/Morti nell'anno/giorno/luogo
function CategoriesCategoryManager:_addNatiMortiCategories_addNatiMorti()
local cat1, cat2
 
if args[".AnnoNascita"] then
cat1 = "Nati nel " .. args[".AnnoNascita"]
cat2 = "Nati nell'" .. args[".AnnoNascita"]
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
end
 
if args[".AnnoMorte"] then
if args[".AnnoMorte"] == "?" then
dumpCategoryself:_addCategory(cfg.categorie["annomorte-punto-interrogativo"])
else
cat1 = "Morti nel " .. args[".AnnoMorte"]
cat2 = "Morti nell'" .. args[".AnnoMorte"]
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
end
else
self:_addCategory(cfg.categorie["annomorte-assente"])
dumpCategory("Persone viventi")
end
 
if args[".GiornoMeseNascita"] then
cat1 = "Nati il " .. fixFirstOfMonth(args[".GiornoMeseNascita"])
cat2 = "Nati l'" .. args[".GiornoMeseNascita"]
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
end
if args[".GiornoMeseMorte"] then
cat1 = "Morti il " .. fixFirstOfMonth(args[".GiornoMeseMorte"])
cat2 = "Morti l'" .. args[".GiornoMeseMorte"]
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
end
 
if-- prima di verificare le categorie per args["LuogoNascitaLink"] thene LuogoNascita
-- viene controllata una lista di eccezioni
cat1 = "Nati a " .. args["LuogoNascitaLink"]
cat1 = self:_getCatLuoghi(args.LuogoNascitaLink, args.LuogoNascita, "Nati")
cat2 = "Nati ad " .. args["LuogoNascitaLink"]
if cat1 then
self:_addCategory(cat1)
elseif args.LuogoNascitaLink then
cat1 = "Nati a " .. args.LuogoNascitaLink
cat2 = "Nati ad " .. args.LuogoNascitaLink
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
elseif args[".LuogoNascita"] then
cat1 = "Nati a " .. args[".LuogoNascita"]
cat2 = "Nati ad " .. args[".LuogoNascita"]
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
end
 
if-- prima di verificare le categorie per args["LuogoMorteLink"] thene LuogoMorte
-- viene controllata una lista di eccezioni
cat1 = "Morti a " .. args["LuogoMorteLink"]
cat1 = self:_getCatLuoghi(args.LuogoMorteLink, args.LuogoMorte, "Morti")
cat2 = "Morti ad " .. args["LuogoMorteLink"]
if cat1 then
self:_addCategory(cat1)
elseif args.LuogoMorteLink then
cat1 = "Morti a " .. args.LuogoMorteLink
cat2 = "Morti ad " .. args.LuogoMorteLink
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
elseif args[".LuogoMorte"] then
cat1 = "Morti a " .. args[".LuogoMorte"]
cat2 = "Morti ad " .. args[".LuogoMorte"]
if titleExists("Categoria:" .. cat1) then
dumpCategoryself:_addCategory(cat1)
elseif titleExists("Categoria:" .. cat2) then
dumpCategoryself:_addCategory(cat2)
end
end
end
 
-- =============================================================================
-------------------------------------------------------------------------------
-- classe Incipit
-- =============================================================================
-------------------------------------------------------------------------------
 
local Incipit = {}
Line 438 ⟶ 614:
local self = {}
 
setmetatable(self, { __index = Incipit, })
self.textTable = {}
__tostring = function(t) return self:_tostring() end })
textTable = {}
self:_addImmagine()
self:_addNomeCognome()
self:_addNascitaMorte()
if args[".Soprannome or args.Pseudonimo or args.PostCognomeVirgola"] then
dumpTextself:_addText(",")
end
if args[".FineIncipit"] ~= "," then
if self:_needSpace(args.FineIncipit) then
dumpText(SPACE)
self:_addText(' ')
end
end
if args["FineIncipit"] then
dumpTextself:_addText(args[".FineIncipit"])
else
self:_addAttivita()
end
if args[".Punto"] ~= "no" then
dumpTextself:_addText((args[".FineIncipit"] == "e" or
args[".FineIncipit"] == "ed" or
args[".FineIncipit"] == ",") and
SPACE" " or ".")
end
 
Line 465 ⟶ 640:
end
 
function Incipit:_tostringgetIncipit()
return table.concat(self.textTable)
end
 
-- Aggiunge testo alla risposta, svolge anche la funzione di concatenatore
-- Ritorna true se text (AttivitàAltre, PostNazionalità e PostCognome) necessita di uno spazio iniziale
function Incipit:_addText(...)
local arg = {...}
for _, val in ipairs(arg) do
table.insert(self.textTable, val)
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.
function Incipit:_addWlink(target, label, labelPrefix)
if target and label and labelPrefix then
local count
label, count = label:gsub("^" .. labelPrefix .. " ", "")
if count == 1 then
self:_addText(labelPrefix, " ")
end
end
 
if target and label then
self:_addText("[[", target, "|", label, "]]")
else
self:_addText("[[", target or label, "]]")
end
end
 
-- Aggiunge una immagine alla risposta, size e caption sono opzionali
function Incipit:_addImage(name, size, caption)
self:_addText("[[File:", name, "|thumb")
 
if size then
self:_addText("|", size, "px")
end
if caption then
self:_addText("|", caption)
end
 
self:_addText("]]", "\n")
end
 
 
-- Restituisce true se text necessita di uno spazio iniziale (PostCognome, PostSoprannome, PostPseudonimo, LuogoNascitaAlt, NoteNascita, LuogoMorteAlt, NoteMorte, AttivitàAltre, PostNazionalità, FineIncipit)
function Incipit:_needSpace(text)
return mw.ustring.match(mw.ustring.sub(text, 1, 1), "%w") ~= nil or
Line 495 ⟶ 711:
-- aggiunge anche uno spazio nel caso non usi l'apostrofo
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
Line 506 ⟶ 722:
function Incipit:_addImmagine()
local caption
if args[".Immagine"] then
if args[".Didascalia"] then
caption = args[".Didascalia"]
elseif args.Pseudonimo and currentTitleEquals(args.Pseudonimo) then
caption = args.Pseudonimo
elseif args.Soprannome and args.Cognome and currentTitleEquals(args.Soprannome .. " " .. args.Cognome) then
caption = args.Soprannome .. " " .. args.Cognome
elseif args.Soprannome and currentTitleEquals(args.Soprannome) then
caption = args.Soprannome
else
if args[".CognomePrima and args.Nome"] and args.Cognome then
caption = args[.Cognome .. "Nome "] .. args.Nome
endelse
if args["Cognome"].Nome then
caption = (caption or "") args.. " " .. args["Cognome"]Nome
end
if args.Cognome then
caption = (caption or "") .. " " .. args.Cognome
end
end
end
if args[".Didascalia2"] then
caption = (caption or "") .. "<hr />" .. args[".Didascalia2"]
end
dumpImageself:_addImage(args[".Immagine"], args[".DimImmagine"], caption)
elseif args[".Didascalia2"] then
-- parentesi () extra per non ritornarerestituire anche il gsub.count
dumpTextself:_addText( (cfg.didascalia2:gsub("$1", args[".Didascalia2"])) )
end
end
 
function Incipit:_addNomeCognome()
if args[".Titolo"] then
dumpTextself:_addText(args[".Titolo"], SPACE" ")
end
 
if args.Pseudonimo and currentTitleEquals(args.Pseudonimo) then
self:_addText("'''", args.Pseudonimo, "'''")
if args.PostPseudonimo then
if self:_needSpace(args.PostPseudonimo) then
self:_addText(" ")
end
self:_addText(args.PostPseudonimo)
end
self:_addText(", pseudonimo di ")
end
 
-- inizio grassetto
dumpTextself:_addText("'''")
 
if args[".CognomePrima and args.Nome"] and args.Cognome then
self:_addText(args.Cognome, " ", args.Nome, mw.getCurrentFrame():expandTemplate{
dumpText(args["Nome"])
title = "Nota nome",
end
args = { [1] = args.CognomePrima, [2] = args.Cognome }
 
})
if args["Cognome"] then
else
dumpText(SPACE, args["Cognome"])
local no_space
if args.Nome then
self:_addText(args.Nome)
-- niente spazio prima di Cognome se Nome termina con «d'»
no_space = mw.ustring.match(args.Nome, " d'$") and ''
end
if args.Cognome then
self:_addText(no_space or " ", args.Cognome)
end
end
 
-- fine grassetto
dumpTextself:_addText("'''")
 
if args[".PostCognomeVirgola"] then
dumpTextself:_addText(", ", SPACE, args[".PostCognomeVirgola"])
elseif args.PostCognome then
if self:_needSpace(args.PostCognome) then
self:_addText(" ")
end
self:_addText(args.PostCognome)
end
 
if args["PostCognome"].Soprannome then
self:_addText(", ", (not args.Sesso or args.Sesso == "M") and "detto" or "detta",
if self:_needSpace(args["PostCognome"]) then
" ", "'''", args.Soprannome, "'''")
dumpText(SPACE)
if args.PostSoprannome then
if self:_needSpace(args.PostSoprannome) then
self:_addText(" ")
end
self:_addText(args.PostSoprannome)
end
end
 
if args.Pseudonimo and not currentTitleEquals(args.Pseudonimo) then
self:_addText(", ", (not args.Sesso or args.Sesso == "M") and "noto" or "nota",
" anche con lo pseudonimo di ", "'''", args.Pseudonimo, "'''")
if args.PostPseudonimo then
if self:_needSpace(args.PostPseudonimo) then
self:_addText(" ")
end
self:_addText(args.PostPseudonimo)
end
dumpText(args["PostCognome"])
end
end
Line 560 ⟶ 826:
function Incipit:_addNascitaMorte()
-- si apre la parentesi
dumpTextself:_addText(SPACE, " (")
 
if args[".PreData"] then
dumpTextself:_addText(args[".PreData"], "; ", SPACE)
end
local datimancanti = not (args.LuogoNascita or args.GiornoMeseNascita or args.NoteNascita or args.LuogoMorte or args.GiornoMeseMorte)
local floruit = args.AnnoMorte == "?" and (args.Floruit or cfg.epoche[args.Epoca])
 
if args[".LuogoNascita"] then
dumpWlinkself:_addWlink(args[".LuogoNascitaLink"], args[".LuogoNascita"])
if args[".LuogoNascitaAlt"] then
dumpText(SPACE,if self:_needSpace(args[".LuogoNascitaAlt"]) then
self:_addText(" ")
end
self:_addText(args.LuogoNascitaAlt)
end
dumpTextself:_addText(", ", SPACE)
end
 
if args[".GiornoMeseNascita"] then
if titleExists(args[".GiornoMeseNascita"]) then
dumpWlinkself:_addWlink(args[".GiornoMeseNascita"])
else
dumpTextself:_addText(args[".GiornoMeseNascita"])
end
self:_addText(" ")
dumpText(SPACE)
end
 
if args[".AnnoNascita"] then
if titleExists(args[".AnnoNascita"]) then
dumpWlinkself:_addWlink(args[".AnnoNascita"])
else
dumpTextself:_addText(args[".AnnoNascita"])
end
elseif not floruit or not datimancanti then
else
dumpTextself:_addText("...")
end
 
if args[".NoteNascita"] then
dumpTextif self:_needSpace(args[".NoteNascita"]) then
self:_addText(" ")
end
self:_addText(args.NoteNascita)
end
 
if args[".AnnoMorte"] and (not floruit or not datimancanti) then
dumpTextself:_addText(SPACE, " –", SPACE")
if args[".LuogoMorte"] then
dumpWlinkself:_addWlink(args[".LuogoMorteLink"], args[".LuogoMorte"])
if args[".LuogoMorteAlt"] then
dumpText(SPACE,if self:_needSpace(args[".LuogoMorteAlt"]) then
self:_addText(" ")
end
self:_addText(args.LuogoMorteAlt)
end
dumpTextself:_addText(", ", SPACE)
end
 
if args[".GiornoMeseMorte"] then
if titleExists(args[".GiornoMeseMorte"]) then
dumpWlinkself:_addWlink(args[".GiornoMeseMorte"])
else
dumpTextself:_addText(args[".GiornoMeseMorte"])
end
dumpTextself:_addText(SPACE" ")
end
 
if args[".AnnoMorte"] then
if args[".AnnoMorte"] == "?" then
dumpTextself:_addText("...")
else
if titleExists(args[".AnnoMorte"]) then
dumpWlinkself:_addWlink(args[".AnnoMorte"])
else
dumpTextself:_addText(args[".AnnoMorte"])
end
end
Line 629 ⟶ 907:
end
 
-- se date ignote, usa Floruit o lo ricava da Epoca
if args["NoteMorte"] then
if not args.AnnoNascita and args.AnnoMorte == "?" then
dumpText(args["NoteMorte"])
local fl = args.Floruit
if not fl and cfg.epoche[args.Epoca] then
fl = mw.ustring.gsub(cfg.epoche[args.Epoca], "^del ?l?'?", "")
-- se due epoche, le mette entrambe senza ripetere la parola "secolo"
if cfg.epoche[args.Epoca2] then
if fl ~= "I secolo a.C." then
fl = fl .. "|" .. mw.ustring.gsub(fl, " secolo.*$", "")
end
fl = "[[" .. fl .. "]]-[[" .. mw.ustring.gsub(cfg.epoche[args.Epoca2], "^del ?l?'?", "") .. "]]"
end
end
if fl then
if titleExists(fl) then
fl = "[[" .. fl .. "]]"
end
if not datimancanti then
self:_addText("; ")
end
self:_addText("[[floruit|fl.]] ", fl)
end
end
 
if args.NoteMorte then
if self:_needSpace(args.NoteMorte) then
self:_addText(" ")
end
self:_addText(args.NoteMorte)
end
-- si chiude la parentesi
dumpText(")")
self:_addText(")")
end
 
function Incipit:_addAttivita()
local link_attivita = mw.loadData("Modulo:Bio/Link attività")
local link_nazionalita = mw.loadData("Modulo:Bio/Link nazionalità")
 
self:_addText(" ")
if args["PreAttività"] then
dumpTextself:_addText(args["PreAttività"], SPACE" ")
else
dumpTextself:_addText("è", SPACE")
if args[".AnnoMorte"] then
dumpTextself:_addText((not args[".Sesso"] or args[".Sesso"] == "M")
and "stato " or "stata", SPACE")
end
if not args[".Sesso"] or args[".Sesso"] == "M" then
dumpTextself:_addText(self:_getArticleMan(args["Attività"]), SPACE" ")
else
dumpTextself:_addText(self:_getArticleWoman(args["Attività"]))
end
end
 
local getLinkAttivita = function(attivita)
dumpWlink(link_attivita[args["Attività"]], args["Attività"] or "", "ex")
if not attivita then return end
local ex_attivita = isExAttivita(attivita)
return link_attivita[ex_attivita or attivita] or ex_attivita
end
 
self:_addWlink(getLinkAttivita(args["Attività"]), args["Attività"] or "", "ex")
 
if args["Attività2"] then
if args["Attività3"] or args["AttivitàAltre"] then
dumpTextself:_addText(",")
else
dumpTextself:_addText(SPACE" ", getEufonica(args["Attività2"]))
end
self:_addText(" ")
dumpText(SPACE)
dumpWlinkself:_addWlink(getLinkAttivita(link_attivita[args["Attività2"]]), args["Attività2"], "ex")
end
 
if args["Attività3"] then
if args["AttivitàAltre"] then
dumpTextself:_addText(",")
else
dumpTextself:_addText(SPACE" ", getEufonica(args["Attività3"]))
end
self:_addText(" ")
dumpText(SPACE)
dumpWlinkself:_addWlink(getLinkAttivita(link_attivita[args["Attività3"]]), args["Attività3"], "ex")
end
 
if args["AttivitàAltre"] then
if self:_needSpace(args["AttivitàAltre"]) then
dumpTextself:_addText(SPACE" ")
end
dumpTextself:_addText(args["AttivitàAltre"])
end
 
self:_addText(" ")
dumpText(SPACE)
dumpWlinkself:_addWlink(link_nazionalita[args["Nazionalità"]], args["Nazionalità"] or "")
 
if args[".Cittadinanza"] then
dumpTextself:_addText(SPACE, " con cittadinanza", SPACE")
dumpWlinkself:_addWlink(link_nazionalita[args[".Cittadinanza"]], args[".Cittadinanza"])
end
 
if args["NazionalitàNaturalizzato"] then
self:_addText(" ")
dumpText(SPACE)
dumpWlinkself:_addWlink("Naturalizzazione",
(not args[".Sesso"] or args[".Sesso"] == "M" or
(args[".Sesso"] == "F" and self:_getArticleWoman(args["Attività"]) == "un&#32; ")) and
"naturalizzato" or "naturalizzata")
self:_addText(" ")
dumpText(SPACE)
dumpWlinkself:_addWlink(link_nazionalita[args["NazionalitàNaturalizzato"]], args["NazionalitàNaturalizzato"])
end
 
if args["PostNazionalità"] then
if self:_needSpace(args["PostNazionalità"]) then
dumpTextself:_addText(SPACE" ")
end
dumpTextself:_addText(args["PostNazionalità"])
end
end
 
-- =============================================================================
-------------------------------------------------------------------------------
-- Funzioni APIesportate
-- =============================================================================
-------------------------------------------------------------------------------
 
local p = {}
 
-- Entry-pointFunzione per {{#invoke:Bio|categorie}} utilizzato da Modulo:Bio/test
function p.biocategorie(frame)
args = ArgsParser:new():parse(frame.args)
-- lettura configurazione
local categories = CategoryManager:new():getCategories()
cfg = mw.loadData("Modulo:Bio/Configurazione")
return table.concat(errorTable) ..
(args.Debug and ( table.concat(categories, '<br />'):gsub('%[%[', '[[:') ) .. '<br />' or
-- parsifica i parametri e aggiunge eventuali messaggi e categorie di errore
table.concat(categories))
args = parseParams(frame:getParent().args)
end
 
-- Funzione per il template per {{Bio}}
-- cerca alcuni parametri se mancanti su Wikidata
function p.main(frame)
if cfg.wikidata then
-- gli errori generano avvisi, ma non interrompono l'esecuzione,
checkWikidata()
-- come avveniva nel vecchio template.
end
args = ArgsParser:new():parse(frame:getParent().args)
local catTable = CategoryManager:new():getCategories()
 
return table.concat(textTableerrorTable) .. tostring(Categories:new()) .. tostring(Incipit:new())
Incipit:new():getIncipit() ..
table.concat(catTable)
end
 
Estratto da "https://it.wikipedia.org/wiki/Modulo:Bio/sandbox"