Module:Wikidata
La documentation pour ce module peut être créée à Module:Wikidata/doc
local formatDate = require( 'Module:Date')
local formatCoord = require( 'Module:Coordinates/Test')
local i18n = {
["errors"] = {
["property-param-not-provided"] = "Paramètre propriété non renseigné.",
["qualifier-param-not-provided"] = "Paramètre qualifier non renseigné.",
["entity-not-found"] = "Entité non trouvée.",
["unknown-claim-type"] = "type d'affirmation inconnu.",
["unknown-snak-type"] = "Type de snak inconnu.",
["unknown-datavalue-type"] = "Type de donnée non reconnu.",
["unknown-entity-type"] = "Type d'entité non reconnu.",
["unknown-value-module"] = "You must set both value-module and value-function parameters.",
["value-module-not-found"] = "The module pointed by value-module not found.",
["value-function-not-found"] = "The function pointed by value-function not found.",
["ambigous"] = "Ambigu : plusieurs valeurs possible",
},
["somevalue"] = "''unknown value''",
["novalue"] = "''no value''"
}
function getEntityFromId( id )
return mw.wikibase.getEntity() --TODO support for getting other entities
end
function getId( id ) -- semble nécessaire pour récupérer l'ID correspondant à la page Wikipédia active
entity = getEntityFromId( id )
return entity.id
end
function formatError( key )
return '<span class="error">' .. i18n.errors[key] .. '</span>'
end
function getClaims( options )
if not options.property then
return formatError( 'property-param-not-provided' )
end
--Get entity
local entity = nil
local property = string.lower(options.property)
if options.entity and type( options.entity ) == "table" then
entity = options.entity
else
entity = getEntityFromId( options.entityId )
end
if not entity or not entity.claims or not entity.claims[property] then
return nil
end
claims = entity.claims[property]
if options.excludespecial == 'true' then
oldclaims = claims
claims = {}
for i, statement in pairs(oldclaims) do
if statement.mainsnak.snaktype == 'value' then
table.insert(claims, statement)
end
end
end
if options.targetvalue then
targetvalue = options.targetvalue
oldclaims = claims
claims = {}
for i, statement in pairs(oldclaims) do
if formatDatavalue(statement.mainsnak) == targetvalue then
table.insert(claims, statement)
end
end
end
if options.qualifier then -- ne marche que pour les propriétés de type item
qualifier = options.qualifier
qualifiervalue = options.qualifiervalue
oldclaims = claims
claims = {}
for i, statement in pairs(oldclaims) do
if statement.qualifiers and statement.qualifiers[qualifier] then
if qualifiervalue then
for j, qualif in pairs(statement.qualifiers[qualifier]) do
if formatDatavalue(qualif) == qualifiervalue then
table.insert(claims, statement)
end
end
else
table.insert(claims, statement)
end
end
end
end
if options.source then
if options.sourceproperty then
sourceproperty = options.sourceproperty
else
sourceproperty = "p248"
end
sourcevalue = options.source
oldclaims = claims
claims = {}
for i, statement in pairs(oldclaims) do
if statement.references then
for j, reference in pairs(statement.references) do
for k, prop in pairs(reference.snaks) do
if k == sourceproperty then
for l, m in pairs(prop) do
if formatDatavalue(m) == "Q" .. sourcevalue then
table.insert(claims, statement)
end
end
end
end
end
end
end
end
return claims
end
function formatDatavalue(snak, formatting)
datatype = snak.datavalue.type
if datatype == 'wikibase-entityid' then
if formatting then
return formatEntityId("Q" .. tostring(snak.datavalue.value['numeric-id']))
else
return "Q" .. tostring(snak.datavalue.value['numeric-id'])
end
elseif datatype == 'string' then
return snak.datavalue.value
elseif datatype == 'time' then
d = snak.datavalue.value.time
precision = snak.datavalue.value.precision
era = ''
if string.sub(d,1,1) == '-' or string.sub(d,2,12) == '00000000000' then -- Before Christ or year 0 (see datamodel)
era = '-'
end
year = ''
if precision >= 9 then
year = string.sub(d, 9, 12)
if era == '-' then -- remove one Year for BC years because of year 0 in the datamodel
year = tostring(tonumber(year) + 1)
end
end
month = ''
if precision >= 10 then
month = string.sub(d, 14, 15)
end
if precision >= 11 then
day = string.sub(d, 17, 18)
end
return formatDate.modeleDate({day, month, era .. year})
elseif datatype == 'globecoordinate' then
latitude = tostring(snak.datavalue.value.latitude)
longitude = tostring(snak.datavalue.value.longitude)
-- precision = snak.datavalue.value.precision
--globe = to do transform string like http://www.wikidata.org/entity/Q2 into the globe parameter of Module:Coordinates
return formatCoord.coord2({latitude, longitude})
else return formatError( 'unknown-datavalue-type' )
end
end
function numOfClaims( claims )
if type(claims) ~= "table" then
return 0
elseif claims == {} then
return 0
elseif claims[0] then -- table Wikibase non modifiée avec une clé 0 (buggy)
return #claims + 1
else
return #claims
end
end
function getQualifier( options )
claims = getClaims( options )
if options.qualifier then
qualifier = options.qualifier
else
return formatError( 'qualifier-param-not-provided' )
end
if not claims or numOfClaims(claims) == 0 then
return nil
elseif numOfClaims(claims) > 1 then
return formatError( 'ambiguous' )
else
qualifiers = {}
for i, j in pairs( claims[1].qualifiers[qualifier] ) do
table.insert(qualifiers, formatDatavalue(j, 'standard'))
end
return mw.text.listToText(qualifiers)
end
end
function formatStatements( options )--Format statement and concat them cleanly
local formattedStatements = {}
local rawStatements = getClaims( options )
if notrawStatements or numOfClaims(rawStatements) == 0 then
return nil
end
for i, statement in pairs( rawStatements ) do
if options.rank == 'one' then
return formatStatement( statement, options ) --Output only one value
else
table.insert( formattedStatements, formatStatement( statement, options ) )
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
return formatSnak( statement.mainsnak, options )
--TODO reference and qualifiers
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, true)
else
return formatError( 'unknown-snak-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 --TODO what if no links and label + fallback language?
end
end
function formatFromPattern( str, options )
return mw.ustring.gsub( options.pattern, '$1', str ) .. '' --Hack to get only the first result of the function
end
local p = {}
function p.id(frame)
return getId(frame.args[1])
end
function p.formatStatements( frame )
local args = frame.args
--If a value if already set, use it
if args.value and args.value ~= '' then
return args.value
end
return formatStatements( frame.args )
end
function p.formatStatementsFromLua( options )
--If a value if already set, use it
if options.value and options.value ~= '' then
return options.value
end
return formatStatements( options )
end
function p.numOfClaims(frame)
return numOfClaims( getClaims(frame.args) )
end
function p.getQualifier(frame)
return getQualifier(frame.args)
end
return p