Modulo:Fûzo orâio
Instruçioìn pe l'ûzoQuésto o l'é 'n mòdolo scrîto in Lua. E instruçioìn chi de sótta són contegnûe inta sotopàgina Modulo:Fûzo orâio/man (modìfica · stöia)
Sandbox: Modulo:Fûzo orâio/sandbox (modìfica · stöia) · Test: Modulo:Fûzo orâio/test (modìfica · stöia · ezegoi)
Mòdolo ch'o l'inplementa o template {{Determina fuso orario}} (utilizòu into {{Divisione amministrativa}}).
A sotopàgina de configuraçion l'è: Modulo:Fûzo orâio/Configuraçión.
--[[
* Modulo che implementa il template Fuso orario.
]]--
require('strict')
local getArgs = require('Modulo:Arguments').getArgs
local mWikidata = require('Modulo:Wikidata')
-- Configurazione
local cfg = mw.loadData('Modulo:Fûzo orâio/Configuraçión')
local p = {}
local function titleExists(name)
local title = mw.title.new(name)
return title and title.exists
end
local function makeSequence(tbl)
local ret = {}
for item, _ in pairs(tbl) do
table.insert(ret, item)
end
return ret
end
local function compValues(val1, val2)
val1 = val1:match('UTC(.*)%]%]'):gsub(':', '.')
val2 = val2:match('UTC(.*)%]%]'):gsub(':', '.')
return tonumber(val1) < tonumber(val2)
end
local function formatList(values)
table.sort(values, compValues)
return string.format('<ul><li>%s</li></ul>', mw.text.listToText(values, '</li><li>', '</li><li>'))
end
local function formatTimezones(items)
local formattedItems = {}
for _, item in ipairs(items) do
table.insert(formattedItems, string.format('[[%s]]', mw.wikibase.getSitelink(item)))
end
return #formattedItems > 1 and formatList(formattedItems) or formattedItems[1]
end
-- per retrocompatibilità con l'input di Divisione amministrativa
local function formatUserInput(value)
return titleExists('UTC' .. value) and string.format('[[UTC%s]]', value) or nil
end
local function checkTimezone(item)
local ret = cfg.validTimezones[item] and item or nil
-- se non è tra i validTimezones verifica la proprietà "conscideròu pægio a (P460)"
if not ret then
ret = mWikidata._getProperty( { 'P460', from = item, formatting = 'raw', n = 1 } )
if ret then
ret = cfg.alias[ret] or ret
ret = cfg.validTimezones[ret] and ret or nil
end
end
-- invece di P460 in alcuni casi è stato usato P421
if not ret then
ret = mWikidata._getProperty( { 'P421', from = item, formatting = 'raw', n = 1 } )
if ret then
ret = cfg.alias[ret] or ret
ret = cfg.validTimezones[ret] and ret or nil
end
end
return ret
end
-- Se i claims hanno un qualifier P518 (parte coinvolta), restituisce quelli
-- il cui valore è tra i P131 dell'elemento, altrimenti quelli senza P518.
local function filterByP518(claims, args)
local inP518, noP518 = {}, {}
for _, claim in ipairs(claims) do
local items = mWikidata._formatQualifiers(claim, 'P518', { formatting = 'raw' }, true)
if #items > 0 then
for _, item in ipairs(items) do
if mWikidata._indexOf({ 'P131', item, from = args.from }) then
table.insert(inP518, claim)
end
end
else
table.insert(noP518, claim)
end
end
return #inP518 > 0 and inP518 or noP518
end
local function getTimezones(args)
local ret = {}
local country = mWikidata._getProperty( { 'P17', from = args.from, formatting = 'raw', n = 1 } )
-- entità amministrative soppresse con P17 a novalue (in futuro il modulo:Wikidata restituirà nil)
if country == "''nessun valore''" then
country = nil
end
-- ricerca la proprietà fuso orario (P421)
local claims = mWikidata._getClaims('P421', { from = args.from } ) or {}
-- risultato temporaneo per Q142
if #claims == 0 and (args.iso3166 == 'FRA' or country == 'Q142') then
return { 'Q6655' }
end
-- se non presente la ricerca nell'elemento ottenuto da iso3166
if #claims == 0 and args.iso3166 then
claims = mWikidata._getClaims('P421', { noqualifier = 'P518', from = cfg.iso3166[args.iso3166] } ) or {}
end
-- se non presente la ricerca nell'item in paese (P17)
if #claims == 0 then
claims = mWikidata._getClaims('P421', { noqualifier = 'P518', from = country } ) or {}
end
-- se non è uno Stato filtra i fusi orari in base a P518 (parte coinvolta), se presente
if not mWikidata._instanceOf({ 'Q6256', from = args.from }) then
-- per ora limitato alla Spagna, per una introduzione graduale
if country == 'Q29' then
claims = filterByP518(claims, args)
end
end
for _, claim in ipairs(claims) do
local item = mWikidata._formatStatement(claim, { formatting = 'raw' })
-- se ha "periodo di validità (P1264)" deve valere "tempo standard (Q1777301)"
local period = mWikidata._formatQualifiers(claim, 'P1264', { formatting = 'raw' })
if not period or period == 'Q1777301' then
item = cfg.alias[item] or item
item = checkTimezone(item)
if item then
-- chiave = boolean, per non avere duplicati
ret[item] = true
end
end
end
-- trasforma in una più semplice sequence
return makeSequence(ret)
end
local function getWikidataCategory(userval, wdval)
local cat
if userval then
if not wdval then
cat = 'P421 asénte in sce Wikidata'
elseif wdval == userval then
cat = 'P421 pægio in sce Wikidata'
else
cat = 'P421 despægio in sce Wikidata'
end
elseif wdval then
cat = 'P421 lètta da Wikidata'
end
return string.format('[[Categorîa:%s]]', cat)
end
-- Per l'utilizzo da altro modulo
function p._main(args)
local userval, wdval, cat
-- valore utente
if args[1] then
userval = formatUserInput(args[1])
if not userval and args.errmsg then
local msg = mw.ustring.gsub(args.errmsg, '\\{', '{')
msg = mw.ustring.gsub(msg, '\\}', '}')
return mw.getCurrentFrame():preprocess(msg)
end
end
-- valore letto da Wikidata
local timezones = getTimezones(args)
if #timezones == 1 or (#timezones > 1 and args.multiplo ~= 'no') then
wdval = formatTimezones(timezones)
end
-- categorie di servizio
if mw.title.getCurrentTitle().namespace == 0 then
if not userval and not wdval and args.cat then
cat = string.format('[[Categorîa:%s]]', args.cat)
elseif userval or (wdval and #timezones <= 1) then
cat = getWikidataCategory(userval, wdval)
end
end
return (userval or wdval or '') .. (cat or '')
end
-- Entry-point per il template {{Fuso orario}}
function p.main(frame)
return p._main(getArgs(frame, {parentOnly = true}))
end
return p