Info Istruzioni per l'uso
Questo è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:Wikibase/man (modifica · cronologia)
Sandbox: Modulo:Wikibase/sandbox (modifica · cronologia) · Test: Modulo:Wikibase/test (modifica · cronologia · Esegui)

Il modulo Wikibase implementa le funzionalità base di accesso a Wikidata orientate al popolamento del template {{Quickbar}}.



--[[
	Source script:	https://it.wikivoyage.org/wiki/Modulo:Wikibase
	Maintainers:		Andyrom75, Nastoshka
]]

local item = mw.wikibase.getEntityObject()

local function is_defined(s)
	if s and s ~= '' then return s end
	return nil
end

function getId( id )	
	if id then
		return id
	end
	if item then
		return item.id
	end
	return nil
end

-- Restituisce il collegamento corrispondente al codice fornito.
function sitelink(dbname)
	if is_defined(dbname) and item and item:getSitelink(dbname) then
		return item:getSitelink(dbname)
	end
	return ''
end

-- Restituisce le coordinate geografiche corrispondenti all'elemento
function coords(typ, fallback)
	if is_defined(fallback) and string.match(fallback, '^<%!%-%-.*%-%->$') == nil then
		return fallback
	end
	if item and item.claims then
		local coords = item.claims.P625
		if coords and #coords == 1 and coords[1].mainsnak and coords[1].mainsnak.datavalue and coords[1].mainsnak.datavalue.value then
			return coords[1].mainsnak.datavalue.value[typ]
		end
	end
	return ''
end

function normalize_timezone(tz)
	local k = string.gsub(tz, '%+0(%d)$', '+%1')
	k = string.gsub(k, '%+0(%d:%d%d)$', '+%1')
	return string.gsub(k, '(%+%d%d?):00$', '%1')
end

function normalize_timezone_list(list)
	--alphaindexline
	return mw.text.listToText(list)
end

-- Restituisce l'elemento più aggiornato tra una serie di asserzioni
-- TODO: ranks
function aggiornato(prop, frame)
	if item and item.claims and item.claims[prop] then
		for index, claim in pairs(item.claims[prop]) do
			local qual = claim.qualifiers
			if qual == nil or qual.P582 == nil then
				-- P582 è la data di fine, significa che non è il valore attuale
				if claim.mainsnak and claim.mainsnak.datavalue and claim.mainsnak.datavalue.value then
					local val = claim.mainsnak.datavalue.value
					if val['numeric-id'] then
						local id = 'Q'..val['numeric-id']
						local sl = mw.wikibase.sitelink(id)
						local lb = mw.wikibase.label(id)
						if is_defined(sl) then
							return frame:preprocess('[['..sl..'|'..lb..']]')
						end
						return lb
					end
					return val
				end
			end
		end
	end
	return ''
end

local p = {}

-- Restituisce l'ID dell'elemento collegato alla pagina corrente.
function p.id(frame)
	return getId(frame.args[1])
end


-- Restituisce l'ID dell'elemento collegato alla pagina corrente sotto forma di link a Wikidata.
function p.idLink(frame)
	local id = getId(frame.args[1])
	if id then
		return '[[d:' .. id .. '|' .. id .. ']]'
	end
	return '(nessun elemento trovato)'
end


-- Restituisce l'etichetta di un elemento.
function p.label(frame)
	local id = getId(frame.args[1])
	if id then
		   return mw.wikibase.label( id )
	end
	return '(nessun elemento trovato)'
end

-- Restituisce il primo valore non nullo (nell'ordine) tra il: parametro passato in ingresso, etichetta dell'entità Wikidata, nome della pagina.
function p.pagename(frame)
	if frame and is_defined(frame.args[1]) then
		return frame.args[1]
	end
	local id = getId()
	if id then
		   return mw.wikibase.label( id )
	end
	return mw.title.getCurrentTitle().text
end

-- Restituisce la pagina locale dell'elemento di Wikidata fornito.
function p.page(frame)
	local id = getId(frame.args[1])
	if id then
		   return mw.wikibase.sitelink( id )
	end
	return '(nessun elemento trovato)'
end

-- Restituisce il collegamento corrispondente al codice fornito.
function p.sitelink(frame)
	return sitelink(frame.args.dbname or frame.args[1])
end

function p.wikilink(wikiname, frame)
	if frame and is_defined(frame.args[1]) then
		return frame.args[1]
	end
	local sl = sitelink(wikiname)
	if is_defined(sl) then
		return sl
	end
--[[	local t = mw.title.getCurrentTitle().text
	if is_defined(t) then
		return t
	end
	]]
	return ''
end

-- Restituisce il collegamento corrispondente a Wikipedia in italiano.
function p.itwikilink(frame)
	return p.wikilink('itwiki', frame)
end

-- Restituisce il collegamento corrispondente a Wikiquote in italiano.
function p.itwikiquotelink(frame)
	return p.wikilink('itwikiquote', frame)
end

-- Restituisce il collegamento corrispondente a Wikisource in italiano.
function p.itwikisourcelink(frame)
	return p.wikilink('itwikisource', frame)
end

-- Restituisce il collegamento corrispondente a Wikinotizie in italiano.
function p.itwikinewslink(frame)
	return p.wikilink('itwikinews', frame)
end

-- Restituisce il collegamento corrispondente a Wikibooks in italiano.
function p.itwikibookslink(frame)
	return p.wikilink('itwikibooks', frame)
end

-- Restituisce il nome della categoria di Commons collegata all'articolo attraverso Wikidata.
function p.commonslink(frame)
	if frame and is_defined(frame.args[1]) then
		return 'Category:'..frame.args[1]
	end
	if item and item.claims then
		local cat = item.claims.P373
		if cat and #cat == 1 and cat[1].mainsnak and cat[1].mainsnak.datavalue and cat[1].mainsnak.datavalue.value then
			return 'Category:'..(cat[1].mainsnak.datavalue.value)
		end
	end
	return ''
end

function p.sito(frame)
	if frame then
		if is_defined(frame.args[1]) then
			return frame.args[1]
		end
		local parent = frame:getParent()
		if parent then
			local args = parent.args
			if is_defined(args.Sito) then
				return args.Sito
			end
			if is_defined(args['Sito ufficiale']) then
				return args['Sito ufficiale']
			end
		end
	end
	return aggiornato('P856',frame)
end

function p.WDProperty(PID, ExtVar, frame)
	if frame then
		if is_defined(frame.args[1]) then
			return frame.args[1]
		end
		local parent = frame:getParent()
		if parent and is_defined(parent.args[ExtVar]) then
			return parent.args[ExtVar]
		end
	end
	return aggiornato(PID, frame)
end

-- Restituisce il nome della capitale o del capoluogo attuale dell'elemento.
function p.capitale(frame)
	return p.WDProperty('P36', 'Capitale', frame)
end
function p.capoluogo(frame)
	return p.WDProperty('P36', 'Capoluogo', frame)
end

function p.valuta(frame)
	return p.WDProperty('P38', 'Valuta', frame)
end

function p.banner(frame)
	return p.WDProperty('P948', 'Banner', frame)
end

function p.stemma(frame)
	return p.WDProperty('P94', 'Stemma', frame)
end

function p.bandiera(frame)
	return p.WDProperty('P41', 'Bandiera', frame)
end

function p.abitanti(frame)
	return p.WDProperty('P1082', 'Abitanti', frame)
end

function p.stato(frame)
	return p.WDProperty('P17', 'Stato', frame)
end

function p.immagine( frame )
	return p.WDProperty('P18', 'Immagine', frame)
end

function p.localizzazione(frame)
	return p.WDProperty('P242', 'Localizzazione', frame)
end

-- metri sul livello del mare (senza unità)
function p.altitudine( frame )
	
	-- Use the passed param if available, otherwise continue with fetching from Wikidata
	if frame then
		if is_defined(frame.args[1]) then
			return frame.args[1]
		end
	end
	
	local elevation = p.WDProperty('P2044', 'Altitudine', frame)
	if elevation then
		return elevation["amount"]
	end
	return nil
end

function p.unesco(frame)
	return p.WDProperty('P757', 'Unesco', frame)
end

function p.CAP(frame)
	return p.WDProperty('P281', 'CAP', frame)
end

function p.IATA(frame)
	return p.WDProperty('P238', 'IATA', frame)
end

function p.airport_status(frame)
	return p.WDProperty('P5817', 'Status', frame)
end

-- Può essere una città, regione, stato federato etc... 
function p.situato_in(frame)
	return p.WDProperty('P131', 'Unità amministrativa', frame)
end



-- Type of airport (international, domestic, commercial...)
function p.airport_type(frame)
	
	-- Use the passed param if available, otherwise continue with fetching from Wikidata
	if frame and is_defined(frame.args[1]) then
			return frame.args[1]
	end
    
    local airport_type = p.get_instanceof_numeric_ids()
    -- Non davvero plausibile, c'è sempre un instanceof ma chissà...
    if #airport_type == 0 then
    	return ""
    end
	
    -- Define a table mapping Wikidata entity IDs to their corresponding airport types
    local airportCategorization = {
        -- Internazionale
        [644371] = "Internazionale",  -- Aeroporto internazionale
        [10536263] = "Internazionale",  -- Aeroporto internazionale di compagnia

        -- Regionale o Nazionale
        [837800] = "Domestico",  -- Aeroporto nazionale
        [2138424] = "Domestico",  -- Aeroporto regionale

--[[
        -- Specializzato
        [1479818] = "",  -- Aeroporto speciale
        [4811588] = "",  -- Hub di compagnia
        [5419792] = "",  -- Aeroporto esecutivo
        [5196508] = "",  -- Aeroporto privato
        [17144062] = "",  -- Aeroporto senza torre di comando
        [106643740] = "",  -- Aeroporto federale
        [94993988] = "",  -- Aerodromo commerciale
        [117475712] = "",  -- Vertiport

        -- Standard (generic type for airports not fitting other categories)
        [1248784] = "",  -- Scalo
        [20977786] = "",  -- Aeroporto commerciale
        [392406] = "",  -- Aeroporto alternato
        [62782337] = "",  -- Aeroporto di aviazione generale
        [15733670] = "",  -- Aeroporto di partenza
        [15733672] = "",  -- Aeroporto di arrivo
        [55612991] = "",  -- Greenfield Airport
        [109558168] = "",  -- Outstation
]]--
    }
    
    -- Check each airport type against the categorization and return the first match
    for _, item in ipairs(airport_type) do
        local label = airportCategorization[item]
        if is_defined(label) then
            return label
        end
    end

    return '' -- Return empty string if no match is found
end

-- Restituisce l'etichetta dell'elemento rappresentante la bandiera relativa all'elemento dell'articolo
function p.bandiera_titolo(frame)
	if item then
		local claims = item.claims
		if claims and claims.P163 and claims.P163[0] and claims.P163[1] == nil then
			return mw.wikibase.label('Q'..claims.P163[0].mainsnak.datavalue.value['numeric-id'])
		end
	end
	return mw.title.getCurrentTitle().text..' - Bandiera'
end

-- Restituisce l'etichetta dell'elemento rappresentante lo stemma relativo all'elemento dell'articolo
function p.stemma_titolo(frame)
	if item then
		local claims = item.claims
		if claims and claims.P237 and claims.P237[0] and claims.P237[1] == nil then
			return mw.wikibase.label('Q'..claims.P237[0].mainsnak.datavalue.value['numeric-id'])
		end
	end
	return mw.title.getCurrentTitle().text..' - Stemma'
end

-- Restituisce la latitudine corrispondente all'articolo.
function p.latitudine(frame)
	return coords('latitude',frame.args[1])
end

-- Restituisce la longitudine corrispondente all'articolo.
function p.longitudine(frame)
	return coords('longitude',frame.args[1])
end

function p.fuso_orario(frame)
	local link = false
	for i, e in pairs(frame.args) do
		if e == 'link' then
			link = true
			break
		end
	end
	if item and item.claims and item.claims.P421 then
		local zone = {}
		for i, e in pairs(item.claims.P421) do
			local id = e.mainsnak.datavalue.value['numeric-id']
			local z = normalize_timezone(mw.wikibase.label('Q'..id))
			if link then
				z = frame:preprocess('[[d:Q'..id..'|'..z..']]')
			end
			table.insert(zone, z)
		end
		return normalize_timezone_list(zone)
	end
	return ''
end

function p.disambig(frame)
	if p.instanceof(4167410) then
		return true
	end
end

function p.instanceof(arg)
	arg = tonumber(arg.args[1] or arg)
	if item and item.claims and item.claims.P31 then
		for index, claim in pairs(item.claims.P31) do
			if claim.mainsnak and claim.mainsnak.datavalue then
				local val = claim.mainsnak.datavalue.value
				if val and val['numeric-id'] and arg == val['numeric-id'] then
					return true
				end
			end
		end
	end
	return false
end

-- Used to loop through tables to operate with instances of certain types 
-- at moment types of airports but in principles would work also for cities, regions, beaches etc...
function p.get_instanceof_numeric_ids( )
	
	-- Early return se sappiamo che non c'è quel che ci interessa
    if not item or not item.claims or not item.claims['P31'] then
        return nil
    end
	
	local numeric_ids = {}
    for _, claim in pairs(item.claims['P31']) do
        local qual = claim.qualifiers
        -- Proceed if there are no disqualifying qualifiers
        if not qual or not qual.P582 then
            if claim.mainsnak and claim.mainsnak.datavalue and claim.mainsnak.datavalue.value then
                local val = claim.mainsnak.datavalue.value
                if val['numeric-id'] then
                    table.insert(numeric_ids, val['numeric-id'])
                end
            end
        end
    end

    return numeric_ids  -- Return the table (can be empty)
end

return p