local i18n = {
["errors"] = {
["property-param-not-provided"] = "Parametro ''property'' non fornito.",
["entity-not-found"] = "Entità non trovata.",
["unknown-claim-type"] = "Tipo asserzione sconosciuta.",
["unknown-snak-type"] = "Tipo di snak sconosciuto.",
["unknown-datavalue-type"] = "Tipo di dato sconosciuto.",
["unknown-entity-type"] = "Tipo di entità sconosciuta.",
["unknown-value-module"] = "Devi impostare entrambi i parametri: ''value-module'' e ''value-function''.",
["value-module-not-found"] = "Modulo indicato da ''value-module'' non trovato.",
["value-function-not-found"] = "Funzione indicata da ''value-function'' non trovata."
},
["somevalue"] = "''valore sconosciuto''",
["novalue"] = "''nessun valore''"
}
function getEntityFromId( id )
if id then
return mw.wikibase.getEntity( id )
end
return mw.wikibase.getEntity()
end
function getEntityIdFromValue( value )
local prefix = ''
if value['entity-type'] == 'item' then
prefix = 'Q'
elseif value['entity-type'] == 'property' then
prefix = 'P'
else
return formatError( 'unknown-entity-type' )
end
return prefix .. value['numeric-id']
end
-- Ritorna l'n-esimo statement con il rank richiesto, oppure nil se non trovato
function getStatementByRank(claims, n, rank)
local statement
local currPos = 1
for i = 0, #claims do
if claims[i].rank == rank then
if currPos == n then
statement = claims[i]
break
end
currPos = currPos + 1
end
end
return statement
end
function formatError( key )
return '<span class="error">' .. i18n.errors[key] .. '</span>'
end
function formatStatements( options )
if not options.property then
return formatError( 'property-param-not-provided' )
end
local property = string.lower( options.property )
--Get entity
local entity = getEntityFromId( options.entityId )
if not entity then
return -- formatError( 'entity-not-found' )
end
if (entity.claims == nil) or (not entity.claims[property]) then
return '' --TODO error?
end
--Format statement and concat them cleanly
local formattedStatements = {}
local list_end
if options.list or options.orderedlist then
if options.list then
formattedStatements[1] = '<ul><li>'
list_end = '</li></ul>'
else
formattedStatements[1] = '<ol><li>'
list_end = '</li></ol>'
end
options.separator = '</li><li>'
options.conjunction = options.separator
end
if options.n then
local n = tonumber( options.n )
-- "+ 1" perché #entity.claims[property] inizia da 0
if n and n <= #entity.claims[property] + 1 then
local statement = options.rank and
getStatementByRank( entity.claims[property], n, options.rank ) or
entity.claims[property][n - 1]
if statement then
table.insert( formattedStatements, formatStatement( statement, options ) )
end
end
else
for i = 0, #entity.claims[property] do
local statement = entity.claims[property][i]
if not options.rank or statement.rank == options.rank then
table.insert( formattedStatements, formatStatement( statement, options ) )
end
end
end
if list_end then table.insert( formattedStatements, list_end ) end
return mw.text.listToText( formattedStatements, options.separator, options.conjunction )
end
function formatStatement( statement, options )
if not statement.type or statement.type ~= 'statement' then
return formatError( 'unknown-claim-type' )
end
if options.qualifier then
return (statement.qualifiers and statement.qualifiers[options.qualifier]) and
formatDatavalue( statement.qualifiers[options.qualifier][0].datavalue, options ) or ''
else
return formatSnak( statement.mainsnak, options )
end
--TODO reference
end
function formatSnak( snak, options )
if snak.snaktype == 'somevalue' then
return i18n['somevalue']
elseif snak.snaktype == 'novalue' then
return i18n['novalue']
elseif snak.snaktype == 'value' then
return formatDatavalue( snak.datavalue, options )
else
return formatError( 'unknown-snak-type' )
end
end
function formatDatavalue( datavalue, options )
local ret
--Use the customize handler if provided
if options['value-module'] or options['value-function'] then
if not options['value-module'] or not options['value-function'] then
return formatError( 'unknown-value-module' )
end
local formatter = require ('Module:' .. options['value-module'])
if formatter == nil then
return formatError( 'value-module-not-found' )
end
local fun = formatter[options['value-function']]
if fun == nil then
return formatError( 'value-function-not-found' )
end
return fun( datavalue.value, options )
end
--Default formatters
if datavalue.type == 'wikibase-entityid' then
ret = formatEntityId( getEntityIdFromValue( datavalue.value ), options )
elseif datavalue.type == 'string' then
ret = datavalue.value
elseif datavalue.type == 'time' then
ret = formatTime( datavalue.value, options )
elseif datavalue.type == 'globecoordinate' then
ret = formatGlobecoordinate( datavalue.value, options )
end
-- Optional pattern
if ret then
return options.pattern and formatFromPattern( ret, options ) or ret
else
return formatError( 'unknown-datavalue-type' )
end
end
function formatEntityId( entityId, options )
local label = mw.wikibase.label( entityId )
local link = mw.wikibase.sitelink( entityId )
if link then
if label then
return '[[' .. link .. '|' .. label .. ']]'
else
return '[[' .. link .. ']]'
end
else
return label or '[[d:' .. entityId .. '|' .. entityId .. ']]'
end
end
function formatTime( value, options )
local year, month, day
local ret = ''
year, month, day = value.time:match('.+(%d%d%d%d%d)%-(%d%d)%-(%d%d).+')
if value.precision == 9 then
ret = tonumber(year)
elseif value.precision == 11 then
ret = mw.getLanguage('it'):formatDate('j F Y', tonumber(year) .. '-' .. month .. '-' .. day)
end
if value.precision == 9 or value.precision == 11 then
ret = ret .. (value.time:sub(1, 1) == '-' and ' a.C.' or '')
end
return ret
end
function formatGlobecoordinate( value, options )
return value.globe == 'http://www.wikidata.org/entity/Q2' and
(value.latitude .. ', ' .. value.longitude) or ''
end
function formatFromPattern( str, options )
-- la parentesi () extra serve per non ritornare anche il gsub.count
return ( mw.ustring.gsub( options.pattern, '$1', str ) )
end
-- Ritorna gli argomenti passati al modulo, scartando quelli valorizzati a stringhe vuote
local function getArgs(frame)
local args = {}
for k, v in pairs(frame.args) do
if v ~= '' then
args[k] = v
end
end
return args
end
local p = {}
function p.formatStatements( frame )
local args, value
--value è l'unico parametro che può anche essere una stringa vuota
value = frame.args.value
args = getArgs(frame)
--If a value is already set, use it
if value and value ~= '' then
return args.pattern and formatFromPattern( value, args ) or value
end
return formatStatements( args )
end
function p.N(frame)
local count = 0
property = string.lower(frame.args[1])
entity = mw.wikibase.getEntity()
if entity and entity.claims and entity.claims[property] then
count = #entity.claims[property] + 1
end
return count
end
return p
