Module:Wikidata - Historique des versions

Arthur : 1 révision importée

2016-01-27T20:14:11Z

1 révision importée

Nouvelle page

--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua

wd = wd or {}
reference = reference or require "Module:Wikidata/Références"

local linguistic = require "Module:Linguistique"
local formatDate = require "Module:Date complexe"
local formatNum = require 'Module:Conversion'
local units = require 'Module:Dictionnaire Wikidata/Unités'
local langmodule = require'Module:Langue'
local cite = require "Module:Biblio"
local langcodes = mw.loadData "Module:Dictionnaire Wikidata/Codes langue"
local getData = require 'Module:Wikidata/Récup'
local entities = require 'Module:Wikidata/Formatage entité'
local tools = require 'Module:Wikidata/Outils'
local defaultlang = mw.getContentLanguage():getCode()

local translate = tools.translate

function wd.addtrackingcat(prop, cat) -- doit parfois être appelé par d'autres modules
if not prop and not cat then
return error("no property provided")
end
if not cat then
cat = translate('trackingcat', prop or 'P??')
end
return tools.addcat(cat )
end

local function removeblanks(args)
for i, j in pairs(args) do
if j == '' then args[i] = nil end
end
return args
end

local function unknownvalue(displayformat) -- à améliorer
if not displayformat then
return translate('somevalue')
end
if type(displayformat) == 'string' then
return displayformat
end
return tools.formatError()
end

local function novalue(displayformat)
if not displayformat then
return translate('novalue')
end
if type(displayformat) == 'string' then
return displayformat
end
return tools.formatError()
end

local function getlangcode(entityid)
return langcodes[tonumber(entityid:sub(2))]
end

local function showlang(statement) -- retourne le code langue entre paranthèse avant la valeur (par exemple pour les biblios et liens externes)
local mainsnak = statement.mainsnak
if mainsnak.snaktype ~= 'value' then
return nil
end
local langlist = {}
if mainsnak.datavalue.type == 'monolingualtext' then
langlist = {mainsnak.datavalue.value.language}
elseif (not statement.qualifiers) or (not statement.qualifiers.P407) then
return
else
for i, j in pairs( statement.qualifiers.P407 ) do
if j.snaktype == 'value' then
local langentity = tools.getId(j)
local langcode = getlangcode(langentity)
table.insert(langlist, langcode)
end
end
end
if (#langlist > 1) or (#langlist == 1 and langlist[1] ~= defaultlang) then -- si c'est en français, pas besoin de le dire
return langmodule.indicationMultilingue(langlist)
end
end

local function formattable(statements, params) -- transform a table of claims into a table of formatted values
for i, j in pairs(statements) do
j = wd.formatStatement(j, params)
end
return statements
end

local function tableToText(values, params) -- takes a list of already formatted values and make them a text
if not values then
return nil
end
return linguistic.quickconj( values, params.conjtype)--linguistic.conj( values, params.lang, params.conjtype )
end

function wd.rangeobject(begin, ending, params)
--[[
objet comportant un timestamp pour le classement chronologique et deux dateobject (begin et ending)
]]--
local timestamp
if begin then
timestamp = begin.timestamp
else
timestamp = ending.timestamp
end
return {begin = begin, ending = ending, timestamp = timestamp, type = 'rangeobject'}
end

function wd.dateobject(orig, params)
--[[ transforme un snak en un nouvel objet utilisable par Module:Date complexe
{type = 'dateobject', timestamp = str, era = '+' ou '-', year = number, month = number, day = number, calendar = calendar}
]]--
if not params then
params = {}
end

local newobj = formatDate.splitDate(orig.time, orig.calendar)

newobj.precision = params.precision or orig.precision
newobj.type = 'dateobject'
return newobj
end

function wd.objecttotext(obj, params)
if obj.type == 'dateobject' then
return formatDate.simplestring(obj, params)
elseif obj.type == 'rangeobject' then
return formatDate.daterange(obj.begin, obj.ending, params)
end
end

function wd.getDate(statement)
--[[
returns an object containing a timestamp for easy sorting, and other data
2 types of object
dateobject
{timestamp = string, year = number, month = number, day = number, calendar = string}
rangeobject
{timestamp = string, begin = dateobject, ending = dateobject}
]]--
local q = statement.qualifiers
if not q or not (q.P585 or q.P580 or q.P582) then
return nil
end
local begin, ending
-- si p585 : dateobject
if q.P585 and q.P585[1].snaktype == 'value' then -- P585: punctual date
return wd.dateobject(q.P585[1].datavalue.value)
end

-- si p580 ou P582 : rangeobject avec une date de début et/ou une date de fin
if q.P582 and q.P582[1].snaktype == 'value' then
ending = wd.dateobject(q.P582[1].datavalue.value)
end
if (q.P580 and q.P580[1].snaktype == 'value') then
begin = wd.dateobject(q.P580[1].datavalue.value)
end
if begin or ending then -- sinon ce sont des 'specialvalues', il faudrait aussi les prendre en charge
return wd.rangeobject(begin, ending)
end
end

function wd.getFormattedDate(statement, params)
local datetable = wd.getDate(statement)
if not datetable then
return nil
end
return wd.objecttotext(datetable, params)
end

function wd.getDatavalue(snak, params)
if not params then
params = {}
end
local speciallabels = params.speciallabels -- parfois on a besoin de faire une liste d'éléments pour lequel le libellé doit être changé, pas très pratique d'utiliser une fonction pour ça

if snak.snaktype ~= 'value' then
return nil
end

local datatype = snak.datavalue.type
local value = snak.datavalue.value

local displayformat = params.displayformat
if type(displayformat) == 'function' then
return displayformat(snak, params)
end

if (datatype == 'wikibase-entityid') then
return entities.formatEntity(tools.getId(snak), params)
end

if datatype == ('string') then
if params.displayformat == 'weblink' then
return require('Module:Weblink').makelink(value, params.text)
end
if type(params.displayformat) == 'function' then
value = params.displayformat(value)
end
if params.urlpattern then
local urlpattern = params.urlpattern
if type(urlpattern) == 'function' then
urlpattern = urlpattern(value)
end
value = '[' .. mw.ustring.gsub(urlpattern, '$1', value) .. ' ' .. (params.text or value) .. ']'
end
return value
end

if datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
local precision = params.precision -- degré de précision à afficher ('day', 'month', 'year'), inférieur ou égal à value.precision
if displayformat == 'raw' then
return value.time
else
return wd.objecttotext(wd.dateobject(value, {precision = precision}), {linktopic = params.linktopic})
end
end

if datatype == 'globecoordinate' then
-- retourne une table avec clés latitude, longitude, précision et globe à formater par un autre module (à changer ?)
value.globe = require('Module:Wikidata/Globes')[value.globe] -- transforme l'ID du globe en nom anglais utilisable par geohack
if formatting == 'latitude' then
return value.latitude
elseif formatting == 'longitude' then
return value.longitude
else
return value -- note : les coordonnées Wikidata peuvent être utilisée depuis Module:Coordinates. Faut-il aussi autoriser à appeler Module:Coordiantes ici ?
end
end

if datatype == 'quantity' then -- todo : gérer les paramètre précision
local amount, unit = value.amount, value.unit
if displayformat == 'raw' then
return amount
end
local showunit = params.showunit or true
if showunit == '-' then
showunit = false
end
local targetunit = params.targetunit
if unit and showunit then --récupération des données sur l'unité
local unititem = unit:match('Q%d+')
unit = units[unititem]
if (not unit) then -- si pas de données sur l'unité, on essaye dans l'élément
unit = {
[3] = wd.formatStatements{entity = unititem, property = 'P558'}, -- symbole de l'unité
[6] = wd.getLabel(unititem),
}
end
end

return formatNum.displayvalue(amount, unit,
{targetunit = params.targetunit, displayformat = params.displayformat, rounding = params.rounding, showunit = showunit}
)
end
if datatype == 'monolingualtext' then
return langmodule.langue({value.language, value.text})
end

return tools.formatError('unknown-datavalue-type' )

end

function wd.getClaims( args ) -- returns a table of the claims matching some conditions given in args
return getData.getClaims(args)
end

function wd.formatClaimList(claims, args)
if not claims then
return nil
end
for i, j in pairs(claims) do
claims[i] = wd.formatStatement(j, args)
end
if args.removedupes and (args.removedupes ~= '-') then
claims = tools.addnewvalues({}, claims)
end
return claims
end

function wd.stringTable(args) -- like getClaims, but get a list of string rather than a list of snaks, for easier manipulation
local claims = wd.getClaims(args)
return wd.formatClaimList(claims, args)
end

local function getQualifiers(statement, qualifs, params)
if not statement.qualifiers then
return nil
end
local vals = {}
for i, j in pairs(qualifs) do
if statement.qualifiers[j] then
for k, l in pairs(statement.qualifiers[j]) do
table.insert(vals, l)
end
end
end
if #vals == 0 then
return nil
end
return vals
end

function wd.getFormattedQualifiers(statement, qualifs, params)
if not params then params = {} end
local qualiftable = getQualifiers(statement, qualifs)
if not qualiftable then
return nil
end
for i, j in pairs(qualiftable) do
qualiftable[i] = wd.formatSnak(j, params)
end
return linguistic.conj(qualiftable)
end

function wd.formatStatement( statement, args )
if not args then
args = {}
end
if not statement.type or statement.type ~= 'statement' then
return tools.formatError( 'unknown-claim-type' )
end
local str = wd.formatSnak( statement.mainsnak, args )
if args.showlang == true then
str = (showlang(statement) or '') .. ' ' .. str
end
if args.showqualifiers then
local qualifs = args.showqualifiers
if type(qualifs) == 'string' then
qualifs = mw.text.split(qualifs, ',')
end
local qualifargs = {}
-- formatage des qualificateur = args commençant par "qualif", ou à défaut, les mêmes que pour la valeur principale
qualifargs.displayformat = args.qualifdisplayformat or args.displayformat
qualifargs.labelformat = args.qualiflabelformat or args.labelformat
qualifargs.link = args.qualiflink or args.link

local formattedqualifs = wd.getFormattedQualifiers(statement, qualifs, qualifargs)
if formattedqualifs then
str = str .. linguistic.inparentheses(formattedqualifs, lang)
end
end

if args.showdate then -- when "showdate and chronosort are both set, date retrieval is performed twice
local timedata = wd.getDate(statement)
if timedata then
local formatteddate = wd.objecttotext(timedata, args)
formatteddate = linguistic.inparentheses(formatteddate, lang)
str = str .. '' .. formatteddate ..''
end
end

if args.showsource and statement.references then
local sourcestring = ''
for i, ref in pairs(statement.references) do
local s = ''

local function hasValue(prop) -- checks that the prop is here with valid value
if ref.snaks[prop] and ref.snaks[prop][1].snaktype == 'value' then
return true
end
return false
end
local function firstsnak(prop)
return wd.formatSnak(prop[1])
end
if ref.snaks.P248 then
for j, source in pairs(ref.snaks.P248) do
if source.snaktype == 'value' then
local page, accessdate
if hasValue('P304') then
page = wd.formatSnak(ref.snaks.P304[1])
end
if hasValue('P813') then
accessdate = wd.formatSnak(ref.snaks.P813[1])
end
s = reference.citeitem(tools.getId(source), {['page'] = page, ['accessdate'] = accessdate})
s = mw.getCurrentFrame():extensionTag( 'ref', s )
sourcestring = sourcestring .. s
end
end
elseif hasValue('P854') and hasValue('P1476') then
local url, title, accessdate, publishdate, publishlang
url, title = wd.formatSnak(ref.snaks.P854[1]), wd.formatSnak(ref.snaks.P1476[1])
if hasValue('P813') then
accessdate = wd.formatSnak(ref.snaks.P813[1])
end
-- publishdate avec P577 ? (ne semble pas vraiment correspondre)
if hasValue('P407') then
local id = tools.getId(ref.snaks.P407[1])
publishlang = getlangcode(id)
end
s = cite.lienWeb{titre = title, url = url, langue = publishlang, ['en ligne le'] = publishdate, ['consulté le'] = accessdate}
s = mw.getCurrentFrame():extensionTag( 'ref', s)
sourcestring = sourcestring .. s
elseif ref.snaks.P854 and ref.snaks.P854[1].snaktype == 'value' then
s = mw.getCurrentFrame():extensionTag( 'ref', wd.formatSnak(ref.snaks.P854[1]))
sourcestring = sourcestring .. s
end
end
str = str .. sourcestring
end
return str
end

function wd.formatSnak( snak, params )
if not params then params = {} end -- pour faciliter l'appel depuis d'autres modules
if snak.snaktype == 'somevalue' then
return unknownvalue(params.unknownlabel)
elseif snak.snaktype == 'novalue' then
return novalue(params.novaluelabel)
elseif snak.snaktype == 'value' then
return wd.getDatavalue( snak, params)
else
return tools.formatError( 'unknown-snak-type' )
end
end

function wd.getDescription(entity, lang)
lang = lang or defaultlang

local description
if lang == defaultlang then
return mw.wikibase.descriptionl(qid)
end
if not entity.descriptions then
return translate('no description')
end
local descriptions = entity.descriptions
if not descriptions then
return nil
end
if descriptions[lang] then
return descriptions[delang].value
end
return entity.id
end

function wd.addLinkback(str, id, property)
if not id then
id = tools.getEntity()
end
if type(id) == 'table' then
id = id.id
end

local class = ''
if property then
class = 'wd_' .. string.lower(property)
end
local title = translate('see-wikidata-value')
local icon = '[%s [[File:Blue pencil.svg|%s|10px|baseline|link=]] ]'
local url = mw.uri.fullUrl('d:' .. id, 'uselang=fr')
url.fragment = property
url = tostring(url)
local v = mw.html.create('span')
:addClass(class)
:wikitext(str)
:tag('span')
:addClass('noprint plainlinks wikidata-linkback')
:css('padding-left', '.5em')
:wikitext(icon:format(url, title))
:allDone()
return tostring(v)
end

function wd.addRefAnchor(str, id)
--[[
Insère une ancre pour une référence générée à partir d'un élément Wikidata.
L'id Wikidata sert d'identifiant à l'ancre, à utiliser dans les modèles type "harvsp"
--]]
return tostring(mw.html.create('span'):attr('id', id)
:attr('class', "ouvrage")
:wikitext(str)
)
end

function wd.formatStatements( args )--Format statement and concat them cleanly
if args.value == '-' then
return nil
end
--If a value is already set, use it
if args.value and args.value ~= '' then
return args.value
end
args.entity = tools.getEntity(args.entity)
local valuetable = wd.stringTable(args)

local str = tableToText(valuetable, args)

if not str then
return nil
end
if args.addcat and (args.addcat ~= '-') then
str = str .. wd.addtrackingcat(args.property)
end
if args.linkback and (args.linkback ~= '-') then
str = wd.addLinkback(str, args.entity, args.property)
end
return str
end

function wd.showQualifier( args )
local qualifs = args.qualifiers or args.qualifier
if type(qualifs) == 'string' then
qualifs = mw.text.split(qualifs, ',')
end
if not qualifs then
return tools.formatError( 'property-param-not-provided' )
end
local claims = wd.getClaims(args)
if not claims then
return nil
end
local str = ''
for i, j in pairs(claims) do
local new = wd.getFormattedQualifiers(j, qualifs, args) or ''
str = str .. new
end
return str
end

function wd.formatAndCat(args)
if not args then
return nil
end
args.linkback = true
args.addcat = true
if args.value then -- do not ignore linkback and addcat, as formatStatements do
local val = args.value .. wd.addtrackingcat(args.property)
val = wd.addLinkback(val, args.entity, args.property)
return val
end
return wd.formatStatements( args )
end

function wd.getTheDate(args)
local claims = wd.getClaims(args)
if not claims then
return nil
end
local formattedvalues = {}
for i, j in pairs(claims) do
table.insert(formattedvalues, wd.getFormattedDate(j))
end
local val = linguistic.conj(formattedvalues)
if not val then
return nil
end
if args.addcat == true then
val = val .. wd.addtrackingcat(args.property)
end
val = wd.addLinkback(val, args.entity, args.property)
return val
end

-- Complex functions using several items
local function getids(query)
query.excludespecial = true
query.displayformat = 'raw'
return wd.stringTable(query)
end

function wd.Dump(entity)
entity = tools.getEntity(entity)
if not entity then
return tools.formatError("entity-param-not-provided")
end
return "<pre>"..mw.dumpObject(entity).."</pre>"
end

wd.getid = tools.getId
wd.getmainid = tools.getMainId

-- fonctions obsolètes
function wd.getLabel(entity, args)
entities.getLabel(entity)
end

function wd.formatEntity(entity, args)
return entities.formatEntity(entity, args)
end

function wd._getLabel(entity, args)
return wd.getLabel(entity, args)
end

function wd._formatAndCat(args)
return wd.formatAndCat(args)
end
function wd._formatStatements(args)
return wd.formatStatements(args)
end
return wd

Arthur : 1 révision importée

2015-11-09T20:49:23Z

1 révision importée

Nouvelle page

--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua

local p = {}
local linguistic = require "Module:Linguistique"
local formatDate = require "Module:Date complexe"
local formatNum = require 'Module:Conversion'
local units = require 'Module:Dictionnaire Wikidata/Unités'
local langmodule = require'Module:Langue'
local cite = require "Module:Biblio"
local langcodes = mw.loadData "Module:Dictionnaire Wikidata/Codes langue"
local getData = require 'Module:Wikidata/Récup'
local entities = require 'Module:Wikidata/Formatage entité'
local tools = require 'Module:Wikidata/Outils'
local defaultlang = mw.getContentLanguage():getCode()

local translate = tools.translate

function p.addtrackingcat(prop, cat) -- doit parfois être appelé par d'autres modules
if not prop and not cat then
return error("no property provided")
end
if not cat then
cat = translate('trackingcat', prop or 'P??')
end
return tools.addcat(cat )
end

local function removeblanks(args)
for i, j in pairs(args) do
if j == '' then args[i] = nil end
end
return args
end

local function unknownvalue(displayformat) -- à améliorer
if not displayformat then
return translate('somevalue')
end
if type(displayformat) == 'string' then
return displayformat
end
return tools.formatError()
end

local function novalue(displayformat)
if not displayformat then
return translate('novalue')
end
if type(displayformat) == 'string' then
return displayformat
end
return tools.formatError()
end

local function getlangcode(entityid)
return langcodes[tonumber(entityid:sub(2))]
end

local function showlang(statement) -- retourne le code langue entre paranthèse avant la valeur (par exemple pour les biblios et liens externes)
local mainsnak = statement.mainsnak
if mainsnak.snaktype ~= 'value' then
return nil
end
local langlist = {}
if mainsnak.datavalue.type == 'monolingualtext' then
langlist = {mainsnak.datavalue.value.language}
elseif (not statement.qualifiers) or (not statement.qualifiers.P407) then
return
else
for i, j in pairs( statement.qualifiers.P407 ) do
if j.snaktype == 'value' then
local langentity = tools.getId(j)
local langcode = getlangcode(langentity)
table.insert(langlist, langcode)
end
end
end
if (#langlist > 1) or (#langlist == 1 and langlist[1] ~= defaultlang) then -- si c'est en français, pas besoin de le dire
return langmodule.indicationMultilingue(langlist)
end
end

local function formattable(statements, params) -- transform a table of claims into a table of formatted values
for i, j in pairs(statements) do
j = p.formatStatement(j, params)
end
return statements
end

local function tableToText(values, params) -- takes a list of already formatted values and make them a text
if not values then
return nil
end
return linguistic.quickconj( values, params.conjtype)--linguistic.conj( values, params.lang, params.conjtype )
end

function p.rangeobject(begin, ending, params)
--[[
objet comportant un timestamp pour le classement chronologique et deux dateobject (begin et ending)
]]--
local timestamp
if begin then
timestamp = begin.timestamp
else
timestamp = ending.timestamp
end
return {begin = begin, ending = ending, timestamp = timestamp, type = 'rangeobject'}
end

function p.dateobject(orig, params)
--[[ transforme un snak en un nouvel objet utilisable par Module:Date complexe
{type = 'dateobject', timestamp = str, era = '+' ou '-', year = number, month = number, day = number, calendar = calendar}
]]--
if not params then
params = {}
end

local newobj = formatDate.splitDate(orig.time, orig.calendar)

newobj.precision = params.precision or orig.precision
newobj.type = 'dateobject'
return newobj
end

function p.objecttotext(obj, params)
if obj.type == 'dateobject' then
return formatDate.simplestring(obj, params)
elseif obj.type == 'rangeobject' then
return formatDate.daterange(obj.begin, obj.ending, params)
end
end

function p.getDate(statement)
--[[
returns an object containing a timestamp for easy sorting, and other data
2 types of object
dateobject
{timestamp = string, year = number, month = number, day = number, calendar = string}
rangeobject
{timestamp = string, begin = dateobject, ending = dateobject}
]]--
local q = statement.qualifiers
if not q or not (q.P585 or q.P580 or q.P582) then
return nil
end
local begin, ending
-- si p585 : dateobject
if q.P585 and q.P585[1].snaktype == 'value' then -- P585: punctual date
return p.dateobject(q.P585[1].datavalue.value)
end

-- si p580 ou P582 : rangeobject avec une date de début et/ou une date de fin
if q.P582 and q.P582[1].snaktype == 'value' then
ending = p.dateobject(q.P582[1].datavalue.value)
end
if (q.P580 and q.P580[1].snaktype == 'value') then
begin = p.dateobject(q.P580[1].datavalue.value)
end
if begin or ending then -- sinon ce sont des 'specialvalues', il faudrait aussi les prendre en charge
return p.rangeobject(begin, ending)
end
end

function p.getFormattedDate(statement, params)
local datetable = p.getDate(statement)
if not datetable then
return nil
end
return p.objecttotext(datetable, params)
end

function p.getDatavalue(snak, params)
if not params then
params = {}
end
local speciallabels = params.speciallabels -- parfois on a besoin de faire une liste d'éléments pour lequel le libellé doit être changé, pas très pratique d'utiliser une fonction pour ça

if snak.snaktype ~= 'value' then
return nil
end

local datatype = snak.datavalue.type
local value = snak.datavalue.value

local displayformat = params.displayformat
if type(displayformat) == 'function' then
return displayformat(snak, params)
end

if (datatype == 'wikibase-entityid') then
return entities.formatEntity(tools.getId(snak), params)
end

if datatype == ('string') then
if params.displayformat == 'weblink' then
return require('Module:Weblink').makelink(value, params.text)
end
if type(params.displayformat) == 'function' then
value = params.displayformat(value)
end
if params.urlpattern then
local urlpattern = params.urlpattern
if type(urlpattern) == 'function' then
urlpattern = urlpattern(value)
end
value = '[' .. mw.ustring.gsub(urlpattern, '$1', value) .. ' ' .. (params.text or value) .. ']'
end
return value
end

if datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
local precision = params.precision -- degré de précision à afficher ('day', 'month', 'year'), inférieur ou égal à value.precision
if displayformat == 'raw' then
return value.time
else
return p.objecttotext(p.dateobject(value, {precision = precision}), {linktopic = params.linktopic})
end
end

if datatype == 'globecoordinate' then
-- retourne une table avec clés latitude, longitude, précision et globe à formater par un autre module (à changer ?)
value.globe = require('Module:Wikidata/Globes')[value.globe] -- transforme l'ID du globe en nom anglais utilisable par geohack
if formatting == 'latitude' then
return value.latitude
elseif formatting == 'longitude' then
return value.longitude
else
return value -- note : les coordonnées Wikidata peuvent être utilisée depuis Module:Coordinates. Faut-il aussi autoriser à appeler Module:Coordiantes ici ?
end
end

if datatype == 'quantity' then -- todo : gérer les paramètre précision
local amount, unit = value.amount, value.unit
if displayformat == 'raw' then
return amount
end
local showunit = params.showunit or true
if showunit == '-' then
showunit = false
end
local targetunit = params.targetunit
if unit and showunit then --récupération des données sur l'unité
local unititem = unit:match('Q%d+')
unit = units[unititem]
if (not unit) then -- si pas de données sur l'unité, on essaye dans l'élément
unit = {
[3] = p.formatStatements{entity = unititem, property = 'P558'}, -- symbole de l'unité
[6] = p.getLabel(unititem),
}
end
end

return formatNum.displayvalue(amount, unit,
{targetunit = params.targetunit, displayformat = params.displayformat, rounding = params.rounding, showunit = showunit}
)
end
if datatype == 'monolingualtext' then
return langmodule.langue({value.language, value.text})
end

return tools.formatError('unknown-datavalue-type' )

end

function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
return getData.getClaims(args)
end

function p.formatClaimList(claims, args)
if not claims then
return nil
end
for i, j in pairs(claims) do
claims[i] = p.formatStatement(j, args)
end
if args.removedupes and (args.removedupes ~= '-') then
claims = tools.addnewvalues({}, claims)
end
return claims
end

function p.citeitem(entity, page, accessdate)
if not entity then
return nil
end
entity = tools.getEntity(entity)
if not entity then
return "invalid entity id"
end
local author = p.formatStatements{entity = entity, property = 'P50', defaultlink = '-'}
if not author then -- il n'y a pas de paramètre simple dans Modèle:Ouvrage pour le directeur de la publication
author = p.formatStatements{entity = entity, property = 'P98', defaultlink = '-'}
if author then author = author .. ' (dir.)' end
end
local isbn = p.formatStatements{entity = entity, property = 'P212'}
local doi = p.formatStatements{entity = entity, property = 'P356'}
local ednumber = p.formatStatements{entity = entity, property = 'P393'}
local publisher = p.formatStatements{entity = entity, property = 'P123', defaultlink = '-'}
local journal = p.formatStatements{entity = journalid , property = 'P1433', defaultlink = '-'}
local journalnumber = p.formatStatements{entity = entity, property = 'P433'}
local volume = p.formatStatements{entity = entity, property = 'P478'}
local publishdate = p.formatStatements{entity = entity, property = 'P577', linktopic = '-'}
local title = p.formatStatements{entity = entity, property = 'P1476', numval = 1, } or entities.getLabel(entity)
local titlelink = entities.getLink(entity)
if not titlelink then -- si pas de lien, on peut essayer de voir si c'est l'édition de quelque chose d'autre
local edition = p.formatStatements{entity = entity, property = 'P747', displayformat = 'raw', numval = 1}
if edition then
titlelink = entities.getLink(edition)
end
end
if title and titlelink then
title = '[[' .. titlelink .. '|' .. title .. ']]'
end
local url = p.formatStatements{entity = entity, property = 'P854', numval = 1}
local worklang = p.formatStatements{entity = journalid , property = 'P407'}

-- choose relevant cite type
local entitytype = p.formatStatements{property = 'P31', entity = entity, numval = 1, displayformat = 'raw'}
local funtype

if (entitytype == "Q3331189") then --book edition
funtype = cite.ouvrage
elseif entitytype == "Q191067" then -- article
funtype = cite.article
else -- default: concatenate whatever there is
funtype = function()
if title then
title = '' .. title .. ''
end
if page then
page = 'p.' .. page
end
if accessdate then
accessdate = 'consulté le ' .. accessdate
end
return linguistic.conj({author, title, publisher, publishdate, page, accessdate}, 'comma')
end
end

local val = funtype {
['auteur'] = author,
['titre'] = title,
['volume'] = volume,
['date'] = publishdate,
['périodique'] = journal,
["numéro d'édition"] = ednumber,
['éditeur'] = publisher,
['lire en ligne'] = url,
['isbn'] = isbn,
['doi'] = doi,
['page'] = page,
['langue'] = worklang,
['consulté le'] = accessdate,
}

if val then
return p.addRefAnchor(p.addLinkback(val, entity), tools.EntityId(entity))
end
return tools.formatError()
end

function p.stringTable(args) -- like getClaims, but get a list of string rather than a list of snaks, for easier manipulation
local claims = p.getClaims(args)
return p.formatClaimList(claims, args)
end

local function getQualifiers(statement, qualifs, params)
if not statement.qualifiers then
return nil
end
local vals = {}
for i, j in pairs(qualifs) do
if statement.qualifiers[j] then
for k, l in pairs(statement.qualifiers[j]) do
table.insert(vals, l)
end
end
end
if #vals == 0 then
return nil
end
return vals
end

function p.getFormattedQualifiers(statement, qualifs, params)
if not params then params = {} end
local qualiftable = getQualifiers(statement, qualifs)
if not qualiftable then
return nil
end
for i, j in pairs(qualiftable) do
qualiftable[i] = p.formatSnak(j, params)
end
return linguistic.conj(qualiftable)
end

function p.formatStatement( statement, args )
if not args then
args = {}
end
if not statement.type or statement.type ~= 'statement' then
return tools.formatError( 'unknown-claim-type' )
end
local str = p.formatSnak( statement.mainsnak, args )
if args.showlang == true then
str = (showlang(statement) or '') .. ' ' .. str
end
if args.showqualifiers then
local qualifs = args.showqualifiers
if type(qualifs) == 'string' then
qualifs = mw.text.split(qualifs, ',')
end
local qualifargs = {}
-- formatage des qualificateur = args commençant par "qualif", ou à défaut, les mêmes que pour la valeur principale
qualifargs.displayformat = args.qualifdisplayformat or args.displayformat
qualifargs.labelformat = args.qualiflabelformat or args.labelformat
qualifargs.link = args.qualiflink or args.link

local formattedqualifs = p.getFormattedQualifiers(statement, qualifs, qualifargs)
if formattedqualifs then
str = str .. linguistic.inparentheses(formattedqualifs, lang)
end
end

if args.showdate then -- when "showdate and chronosort are both set, date retrieval is performed twice
local timedata = p.getDate(statement)
if timedata then
local formatteddate = p.objecttotext(timedata, args)
formatteddate = linguistic.inparentheses(formatteddate, lang)
str = str .. '' .. formatteddate ..''
end
end

if args.showsource and statement.references then
local sourcestring = ''
for i, ref in pairs(statement.references) do
if ref.snaks.P248 then
for j, source in pairs(ref.snaks.P248) do
if source.snaktype == 'value' then
local page, accessdate
if ref.snaks.P304 and tools.isValue(ref.snaks.P304[1]) then
page = p.formatSnak(ref.snaks.P304[1])
end
if ref.snaks.P813 and tools.isValue(ref.snaks.P813[1]) then
accessdate = p.formatSnak(ref.snaks.P813[1])
end
local s = p.citeitem(tools.getId(source), page, accessdate)
s = mw.getCurrentFrame():extensionTag( 'ref', s )
sourcestring = sourcestring .. s
end
end
elseif ref.snaks.P854 and ref.snaks.P854[1].snaktype == 'value' then
s = mw.getCurrentFrame():extensionTag( 'ref', p.formatSnak(ref.snaks.P854[1]))
sourcestring = sourcestring .. s
end
end
str = str .. sourcestring
end
return str
end

function p.formatSnak( snak, params )
if not args then args = {} end -- pour faciliter l'appel depuis d'autres modules
if snak.snaktype == 'somevalue' then
return unknownvalue(params.unknownlabel)
elseif snak.snaktype == 'novalue' then
return novalue(params.novaluelabel)
elseif snak.snaktype == 'value' then
return p.getDatavalue( snak, params)
else
return tools.formatError( 'unknown-snak-type' )
end
end

function p.getDescription(entity, lang)
lang = lang or defaultlang

local description
if lang == defaultlang then
return mw.wikibase.descriptionl(qid)
end
if not entity.descriptions then
return translate('no description')
end
local descriptions = entity.descriptions
if not descriptions then
return nil
end
if descriptions[lang] then
return descriptions[delang].value
end
return entity.id
end

function p.addLinkback(str, id, property)
if not id then
id = tools.getEntity()
end
if type(id) == 'table' then
id = id.id
end

local anchor = ''
if property then
anchor = '#' .. property
end
local class = ''
if property then
class = 'wd_' .. string.lower(property)
end
local title = translate('see-wikidata-value')
local icon = '+'
icon = '' .. icon .. ''
local v = mw.html.create('span')
:addClass(class)
:wikitext(str .. ' ')
:tag('span')
:wikitext('[[d:' .. id .. anchor .. '|' .. icon .. ']]')
:allDone()
return tostring(v)
end

function p.addRefAnchor(str, id)
--[[
Insère une ancre pour une référence générée à partir d'un élément Wikidata.
L'id Wikidata sert d'identifiant à l'ancre, à utiliser dans les modèles type "harvsp"
--]]
return tostring(mw.html.create('span'):attr('id', id)
:attr('class', "ouvrage")
:wikitext(str)
)
end

function p.formatStatements( args )--Format statement and concat them cleanly
if args.value == '-' then
return nil
end
--If a value is already set, use it
if args.value and args.value ~= '' then
return args.value
end
args.entity = tools.getEntity(args.entity)
local valuetable = p.stringTable(args)

local str = tableToText(valuetable, args)

if not str then
return nil
end
if args.addcat and (args.addcat ~= '-') then
str = str .. p.addtrackingcat(args.property)
end
if args.linkback and (args.linkback ~= '-') then
str = p.addLinkback(str, args.entity, args.property)
end
return str
end

function p.showQualifier( args )
local qualifs = args.qualifiers or args.qualifier
if type(qualifs) == 'string' then
qualifs = mw.text.split(qualifs, ',')
end
if not qualifs then
return tools.formatError( 'property-param-not-provided' )
end
local claims = p.getClaims(args)
if not claims then
return nil
end
local str = ''
for i, j in pairs(claims) do
local new = p.getFormattedQualifiers(j, qualifs, args) or ''
str = str .. new
end
return str
end

function p.formatAndCat(args)
if not args then
return nil
end
args.linkback = true
args.addcat = true
if args.value then -- do not ignore linkback and addcat, as formatStatements do
local val = args.value .. p.addtrackingcat(args.property)
val = p.addLinkback(val, args.entity, args.property)
return val
end
return p.formatStatements( args )
end

function p.getTheDate(args)
local claims = p.getClaims(args)
if not claims then
return nil
end
local formattedvalues = {}
for i, j in pairs(claims) do
table.insert(formattedvalues, p.getFormattedDate(j))
end
local val = linguistic.conj(formattedvalues)
if not val then
return nil
end
if args.addcat == true then
val = val .. p.addtrackingcat(args.property)
end
val = p.addLinkback(val, args.entity, args.property)
return val
end

-- Complex functions using several items
local function getids(query)
query.excludespecial = true
query.displayformat = 'raw'
return p.stringTable(query)
end

function p.Dump(entity)
entity = tools.getEntity(entity)
if not entity then
return tools.formatError("entity-param-not-provided")
end
return "<pre>"..mw.dumpObject(entity).."</pre>"
end

p.getid = tools.getId
p.getmainid = tools.getMainId

-- fonctions obsolètes
function p.getLabel(entity, args)
entities.getLabel(entity)
end

function p.formatEntity(entity, args)
return entities.formatEntity(entity, args)
end

function p._getLabel(entity, args)
return p.getLabel(entity, args)
end

function p._formatAndCat(args)
return p.formatAndCat(args)
end
function p._formatStatements(args)
return p.formatStatements(args)
end
return p

Arthur : 1 version

2014-10-03T21:58:56Z

1 version

Nouvelle page

--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua

local p = {}
local linguistic = require('Module:Linguistique')
local dates = require('Module:Wikidata/Dates')
local langmodule = require('Module:Langue')
lang = 'fr' -- peut-être écrasé par args.lang

local i18n = {
["errors"] = {
["property-param-not-provided"] = "property parameter missing",
["qualifier-param-not-provided"] = "qualifier parameter missing",
["entity-not-found"] = "entity not found",
["unknown-claim-type"] = "unknown claim type",
["unknown-snak-typeg"] = "unknown snak type",
["unknown-datavalue-type"] = "unknown datavalue type.",
["unknown-entity-type"] = "unknown entity type",
["invalid-id"] = "invalid ID"
},
["no-label"] = "pas de libellé",
['no description'] = "pas description",
["novalue"] = "not applicable",
["somevalue"] = "inconnu",
["trackingcat"] = 'Page utilisant des données de Wikidata'
}

local function formatError( key )
return error(i18n.errors[key])
end

local function addtrackingcat(prop, cat)
if not prop and not cat then
return error("no property provided")
end
if not cat then
cat = i18n.trackingcat .. '/' .. string.upper(prop)
end
return '[[Category:' .. cat .. ']]'
end

function formatTheUnknown() -- voir si on peut accorder/adapter l'usage de "inconnu"
return i18n.somevalue
end

local function samevalue(snak, target)
if snak.snaktype == 'value' and p.getRawvalue(snak) == target then
return true
end
end

local function getEntity( val )
if type(val) == 'table' then
return val
end
return mw.wikibase.getEntityObject(val)
end

local function formattable(statements, params) -- transform a table of claims into a table of formatted values
for i, j in pairs(statements) do
j = p.formatStatement(j, params)
end
return statements
end

local function tableToText(values, params) -- takes a list of already formatted values and make them a text
if not values then
return nil
end
return linguistic.quickconj( values, params.conjtype)--linguistic.conj( values, params.lang, params.conjtype )
end

function p.getDate(statement)
--[[
return a "timedata" object as used by the date modules with the date of an item from the p580, p582 and p585 qualifiers
object format:
* timestamp 28 char string value for the timepoint, or if non the beginning or if none, the end (for easy sorting)
* timepoint: snak
* begin: snak
]]--
local q = statement.qualifiers
if not q or not (q.P585 or q.P580 or q.P582) then
return nil
end
if q.P585 and q.P585[1].snaktype == 'value' then -- P585: punctual date
return dates.dateobject(q.P585[1].datavalue.value)
end
local begin, ending

if q.P582 and q.P582[1].snaktype == 'value' then
ending = dates.dateobject(q.P582[1].datavalue.value)
end
if q.P580 and q.P580[1].snaktype == 'value' then
begin = dates.dateobject(q.P580[1].datavalue.value)
end
return dates.daterange(begin, ending)
end

function p.getFormattedDate(statement, params)
local datetable = p.getDate(statement)
if not datetable then
return nil
end
return dates.objecttotext(datetable, params)
end

local function withtargetvalue(claims, targetvalue)
targetvalue = string.upper(targetvalue)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if samevalue(statement.mainsnak, targetvalue) then
table.insert(claims, statement)
end
end
return claims
end

local function validclaims(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == 'preferred' or statement.rank == 'normal' then
table.insert(claims, statement)
end
end
return claims
end

local function withrank(claims, rank)
if rank == 'best' then
local preferred = withrank(claims, 'preferred')
if #preferred > 0 then
return preferred
else
return withrank(claims, 'normal')
end
end

if rank == 'valid' then
return validclaims(claims)
end

local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == rank then
table.insert(claims, statement)
end
end
return claims
end

local function withqualifier(claims, qualifier, qualifiervalue)
qualifier, qualifiervalue = string.upper(qualifier), string.upper(qualifiervalue or '')

local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.qualifiers and statement.qualifiers then
if qualifiervalue ~= '' then
for j, qualif in pairs(statement.qualifiers[qualifier]) do
if p.getRawvalue(qualif) == qualifiervalue then
table.insert(claims, statement)
end
end
else
table.insert(claims, statement)
end
end
end
return claims
end
local function withsource(claims, source, sourceproperty)
local oldclaims = claims
local claims = {}
sourceproperty = string.upper(sourceproperty or 'P248')
local sourcevalue = string.upper(source or '')
for i, statement in pairs(oldclaims) do
local success
if statement.references then
for j, reference in pairs(statement.references) do
if success then break end -- sp that it does not return twice the same reference when the property is used twice
for prop, content in pairs(reference.snaks) do
if prop == sourceproperty then
if sourcevalue == '' then
table.insert(claims, statement)
success = true
else
for l, m in pairs(content) do
if p.getRawvalue(m) == source then
table.insert(claims, statement)
success = true
end
end
end
end
end
end
end
end
return claims
end

local function isinlanguage(claims, lang) -- ne fonctionne que pour les monolingualtext / étendre aux autres types en utilisant les qualifiers ?
local newclaims = {}
for i, j in pairs(claims) do
if j.mainsnak.snaktype == 'value' and j.mainsnak.datavalue.type == 'monolingualtext' then
if j.mainsnak.datavalue.value.language == lang then
table.insert(newclaims,j)
end
end
end
return newclaims
end

local function excludespecial(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.mainsnak.snaktype == 'value' then
table.insert(claims, statement)
end
end
return claims
end

local function comparedate(a, b) -- returns true if a is earlier than B or if a has a date but not b
if a and b then
return a.timestamp < b.timestamp
elseif a then
return true
end
end

local function chronosort(claims, inverted)
table.sort(claims, function(a,b)
local timeA = p.getDate(a)
local timeB = p.getDate(b)
if inverted then
return comparedate(timeB, timeA)
else
return comparedate(timeA, timeB)
end
end
)
return claims
end

function p.sortclaims(claims, sorttype)
if sorttype == 'chronological' then
return chronosort(claims)
elseif sorttype == 'inverted' then
return chronosort(claims, true)
elseif type(sorttype) == 'function' then
table.sort(claims, sorttype)
return claims
end
return claims
end

local function numval(claims, numval)
local numval = tonumber(numval) or 0 -- raise a error if numval is not a positive integer ?
local newclaims = {}
for i, j in pairs(claims) do
if #newclaims == numval then
return newclaims
end
table.insert(newclaims,j)
end
return newclaims
end

function p.getRawvalue(snak)
return p.getDatavalue(snak, {format = 'raw'})
end

function p.getDatavalue(snak, params)
if not params then
params = {}
end
local formatting = params.formatting
if snak.snaktype ~= 'value' then
return nil
end

local datatype = snak.datavalue.type
local value = snak.datavalue.value
local displayformat = params.format
if datatype == 'wikibase-entityid' then
if displayformat == 'raw' then
return "Q" .. tostring(value['numeric-id'])
else
return p.formatEntity('Q' .. value['numeric-id'], params)
end

elseif datatype == 'string' then
if params.displayformat == 'weblink' then
return require('Module:Weblink').makelink(value)
end
return value

elseif datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
local precision = params.precision -- degré de précision à afficher ('day', 'month', 'year'), inférieur ou égal à value.precision
if formatting == 'raw' then
return value.time
else
return dates.objecttotext(dates.dateobject(value))
end

elseif datatype == 'globecoordinate' then
-- retourne une table avec clés latitude, longitude, précision et globe à formater par un autre module (à changer ?)
value.globe = require('Module:Wikidata/Globes')[value.globe] -- transforme l'ID du globe en nom anglais utilisable par geohack
if formatting == 'latitude' then
return value.latitude
elseif formatting == 'longitude' then
return value.longitude
else
return value -- note : les coordonnées Wikidata peuvent être utilisée depuis Module:Coordinates. Faut-il aussi autoriser à appeler Module:Coordiantes ici ?
end

elseif datatype == 'quantity' then
if displayformat == 'raw' then
return value.amount
else
local str = string.sub(value.amount,2) --
return str
end
elseif datatype == 'monolingualtext' then
return langmodule.langue({value.language, value.text})
else
return formatError('unknown-datavalue-type' )
end
end

local function getMultipleClaims(args)
local newargs = args
local claims = {}
for i, j in pairs(args.property) do
newargs.property = j
local newclaims = p.getClaims(args)
for k, l in pairs(newclaims) do
table.insert(claims, l)
end
end
return claims
end
function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
if not args.property then
return formatError( 'property-param-not-provided' )
end
if type(args.property) == 'table' then
return getMultipleClaims(args)
end
--Get entity
if args.item then args.entity = args.item end -- synonyms
local entity = args.entity
if type(entity) ~= 'table' then
entity = getEntity( args.entity )
end
if (not entity) or (not entity.claims) then
return nil
end
local property = string.upper(args.property)
local claims = entity.claims[property]
if not claims then return nil end
-- mettre ~= '' pour le cas ou le paramètre est écrit mais laissé blanc ({{#invoke:formatStatements|property=pXX|targetvalue = xx}})
if args.targetvalue and args.targetvalue ~= '' then
claims = withtargetvalue(claims, args.targetvalue)
end

if args.qualifier and args.qualifier ~= '' then
claims = withqualifier(claims, args.qualifier, args.qualifiervalue)
end
if (args.source and args.source ~= '') or (args.sourceproperty and args.sourceproperty ~= '') then
claims = withsource(claims, args.source, args.sourceproperty)
end
if (args.isinlanguage and args.isinlanguage ~= '') then
claims = isinlanguage(claims, args.inlanguage)
end
if args.excludespecial and args.excludespecial ~= '' then
claims = excludespecial(claims)
end

if args.rank ~= 'all' then
if not args.rank or args.rank == '' then
args.rank = 'best'
end
claims = withrank(claims, args.rank)
end

if args.sorttype then
claims = p.sortclaims(claims, args.sorttype)
end

if args.numval and args.numval ~= '' then --keep at the end, after other filters have been implmented
claims = numval(claims, args.numval)
end
if #claims > 0 then
return claims
end
end

function p.formatClaimList(claims, args)
if not claims then
return nil
end
for i, j in pairs(claims) do
claims[i] = p.formatStatement(j, args)
end
return claims
end

function p.stringTable(args) -- like getClaims, but get a list of string rather than a list of snaks, for easier manipulation
local claims = p.getClaims(args)
return p.formatClaimList(claims, args)
end

local function getQualifiers(statement, qualifs, params)
if not statement.qualifiers then
return nil
end
local vals = {}
for i, j in pairs(qualifs) do
if statement.qualifiers[j] then
for k, l in pairs(statement.qualifiers[j]) do
table.insert(vals, l)
end
end
end
if #vals == 0 then
return nil
end
return vals
end

function p.getFormattedQualifiers(statement, qualifs, params)
if not params then params = {} end
local qualiftable = getQualifiers(statement, qualifs)
if not qualiftable then
return nil
end
for i, j in pairs(qualiftable) do
qualiftable[i] = p.formatSnak(j, params)
end
return linguistic.conj(qualiftable, params)
end

function p.formatStatement( statement, args )
if not statement.type or statement.type ~= 'statement' then
return formatError( 'unknown-claim-type' )
end
local str = p.formatSnak( statement.mainsnak, args )
if args.showqualifiers then
local qualifs = args.showqualifiers
if type(qualifs) == 'string' then
qualifs = mw.text.split(qualifs, ',')
end
local foundvalues = p.getFormattedQualifiers(statement, qualifs, args)
if foundvalues then
str = str .. linguistic.inparentheses(foundvalues, lang)
end
end

if args.showdate then -- when "withdate and chronosort are both set, date retrieval is performed twice
local timedata = p.getDate(statement)
if timedata then
local formatteddate = dates.objecttotext(timedata, args)
formattteddate = linguistic.inparentheses(formatteddate, lang)
str = str .. '' .. formattteddate ..''
end
end

if args.showsource and statement.references then --[[needs abritrary access
local sourcestring = ''
for i, ref in pairs(statement.references) do
if ref.snaks.P248 then
for j, source in pairs(ref.snaks.P248) do
if source.snaktype == 'value' then
local page
if ref.snaks.P304 and ref.snaks.P304[1].snaktype == 'value' then
page = ref.snaks.P304[1].datavalue.value
end
local s = require('Module:Cite/sandbox').citeitem('Q' .. source.datavalue.value['numeric-id'], lang, page)
s = mw.getCurrentFrame():extensionTag( 'ref', s )
sourcestring = sourcestring .. s
end
end
elseif ref.snaks.P854 and ref.snaks.P854[1].snaktype == 'value' then
s = mw.getCurrentFrame():extensionTag( 'ref', formatLink(ref.snaks.P854[1].datavalue.value))
sourcestring = sourcestring .. s
end
end
str = str .. sourcestring ]]--
end
return str
end

function p.formatSnak( snak, params )
if not args then args = {} end -- pour faciliter l'appel depuis d'autres modules
if snak.snaktype == 'somevalue' then
return formatTheUnknown()
elseif snak.snaktype == 'novalue' then
return i18n['novalue'] --todo
elseif snak.snaktype == 'value' then
return p.getDatavalue( snak, params)
else
return formatError( 'unknown-snak-type' )
end
end

function p._getLabel(entity, default, inlanguage)
local label
if not entity then
return nil
end
if inlanguage then -- cherche dans l'élément complet s'il est déjà chargé, ou s'il faut une libellé non-français, inacessible par mw.wikibase.label
entity = getEntity(entity)
end
if type(entity) == 'table' then
if entity and entity.labels and entity.labels[lang] then
label = entity.labels[lang].value
end
else
label = mw.wikibase.label(entity)
end
if label then
return label
end

if default == 'nolabel' then
return i18n['no-label']
end
return entity.id
end

function p._getDescription(entity, lang)
if type(entity) ~= 'table' then
entity = getEntity(entity)
end
if not entity.descriptions then
return i18n['no description']
end
local descriptions = entity.descriptions
if not descriptions then
return nil
end
if descriptions[lang] then
return descriptions[lang].value
end
local fblist = require('Module:Fallback').fblist(lang) -- list of fallback languages in no label in the desired language
for i, j in pairs (mw.language.getFallbacksFor(lang)) do
if descriptions.lang then
return descriptions[lang].value
end
end
if default == 'nolabel' then
return i18n['no-label']
end
return entity.id
end

local function formattedLabel(label, entity, args)
if args.link== '-' then
return label
end
local link = mw.wikibase.sitelink( entity )
if not link then
link = 'd:' .. entity
end
return '[[' .. link .. '|' .. label .. ']]'
end

function p.getmainid(claim)
if claim and claim.mainsnak.snaktype == 'value' then
return 'Q' .. claim.mainsnak.datavalue.value['numeric-id']
end
end

function p.formatEntity( entity, args )
local label = p._getLabel(entity, lang)
if not label then
label = entity
end
return formattedLabel(label, entity, args)
end

function p.getLabel(frame) -- simple for simple templates like {{Q|}}}
local args = frame.args
local entity = args.entity
local lang = lang
if args.lang and args.lang ~= '' then
lang = args.lang
end
if string.sub(entity, 1, 10) == 'Property:P' then
entity = string.sub(entity, 10)
elseif (string.sub(entity, 1, 1) ~= 'P' and string.sub(entity, 1, 1) ~= 'Q') or (not tonumber(string.sub(entity, 2))) then
return i18n.errors['invalid-id']
end
if not args.link or args.link == '' then -- by default: no link
args.link = '-'
end
if args.link == '-' then
return p._getLabel(entity, lang) or i18n.errors['invalid-id']
else
lang = lang
return p.formatEntity(entity, args)
end
end

function p._formatStatements( args )--Format statement and concat them cleanly
if args.item == '-' then
return nil
end
local valuetable = p.stringTable(args)
return tableToText(valuetable, args)
end

function p._formatAndCat(args)
local val = p._formatStatements( args )
if val then
return val .. addtrackingcat(args.property)
end
end

function p.getTheDate(args)
local claims = p.getClaims(args)
if not claims then
return nil
end
local formattedvalues = {}
for i, j in pairs(claims) do
table.insert(formattedvalues, p.getFormattedDate(j))
end
return linguistic.conj(formattedvalues)
end
---FONCTIONS depuis le FRAME
function p.getaDate(frame)
return p.getTheDate(frame.args)
end

function p.getQualifier( frame )
local claims = p.getClaims(frame.args)
local str = ''
local qualifs = frame.args.qualifiers or frame.args.qualifier
if not qualifs then
return formatError( 'property-param-not-provided' )
end
qualifs = mw.text.split(qualifs, ',')
for i, j in pairs(claims) do
local new = p.getFormattedQualifiers(j, qualifs) or ''
str = str .. new
end
return str
end

function p.getDescription(frame) -- simple for simple templates like {{Q|}}}
local entity = frame.args.entity
if frame.args.lang then
lang = frame.args.lang
end
if (string.sub(entity, 1, 1) ~= 'P' and string.sub(entity, 1, 1) ~= 'Q') or (not tonumber(string.sub(entity, 2))) then
return i18n.errors['invalid-id']
end
return p._getDescription(entity, lang) or i18n.errors['invalid-id']
end

function p.numOfClaims(frame)
local claims = p.getClaims(frame.args)
if claims then
return #claims
else
return 0
end
end

function p.formatStatements( frame )
local args = {}
if frame == mw.getCurrentFrame() then
args = frame:getParent().args -- paramètres du modèle appelant (est-ce vraiment une bonne idée ?)
for k, v in pairs(frame.args) do
args[k] = v
end
else
args = frame
end
return p._formatStatements( args )
end

return p

Arthur : 1 version

2014-07-09T12:42:40Z

1 version

Nouvelle page

--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua

local p = {}

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 possibles",
},
["somevalue"] = "inconnu",
["novalue"] = "pas applicable"
}

local function getEntityFromId( id )
return mw.wikibase.getEntityObject() --TODO support for getting other entities
end

local function formatError( key )
return '' .. i18n.errors[key] .. ''
end

local function withtargetvalue(claims, targetvalue)
targetvalue = string.upper(targetvalue)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if p.getRawvalue(statement.mainsnak) == targetvalue then
table.insert(claims, statement)
end
end
return claims
end

local function validclaims(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == 'preferred' or statement.rank == 'normal' then
table.insert(claims, statement)
end
end
return claims
end

local function withrank(claims, rank)
if rank == 'best' then
local preferred = withrank(claims, 'preferred')
if #preferred > 0 then
return preferred
else
return withrank(claims, 'normal')
end
end

if rank == 'valid' then
return validclaims(claims)
end

local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == rank then
table.insert(claims, statement)
end
end
return claims
end

local function withqualifier(claims, qualifier, qualifiervalue)
qualifier, qualifiervalue = string.upper(qualifier), string.upper(qualifiervalue or '')

local oldclaims = claims
local 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 p.getRawvalue(qualif) == qualifiervalue then
table.insert(claims, statement)
end
end
else
table.insert(claims, statement)
end
end
end
return claims
end

local function withsource(claims, source, sourceproperty)
local oldclaims = claims
local claims = {}
source = string.upper(source or '')
sourceproperty = string.upper(sourceproperty or 'P248')

for i, statement in pairs(oldclaims) do
if statement.references then
for j, reference in pairs(statement.references) do
for prop, content in pairs(reference.snaks) do
if prop == sourceproperty then
for l, m in pairs(content) do
if p.getRawvalue(m) == source then
table.insert(claims, statement)
end
end
end
end
end
end
end
return claims
end

local function excludespecial(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.mainsnak.snaktype == 'value' then
table.insert(claims, statement)
end
end
return claims
end

local function firstvalue(claims)
-- return just the first value (useful for images for instance)
-- returns in priority claims with rank = 'preferred', else with rank == 'normal' do not return claims with rank == 'deprecated'
for i, statement in pairs(claims) do -- choisit en priorité les données "preferred"
if statement.rank == 'preferred' then
return {statement}
end
end
for i, statement in pairs(claims) do
if statement.rank == 'normal' then
return {statement}
end
end
end

function p.getRawvalue(snak)
return p.getDatavalue(snak, 'raw')
end

function p.getDatavalue(snak, formatting)
if snak.snaktype ~= 'value' then
return nil
end

local datatype = snak.datavalue.type
local value = snak.datavalue.value

if datatype == 'wikibase-entityid' then
if formatting == 'raw' then
return "Q" .. tostring(value['numeric-id'])
else
return p.formatEntityId("Q" .. tostring(value['numeric-id']), formatting)
end

elseif datatype == 'string' then
if formatting == 'weblink' then
local link = require ('Module:Weblink')
return link.makelink(value)
else
return value
end

elseif datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
if formatting == 'raw' then
return value.time
else
local wdate = require('Module:Wikidata/Dates')
return wdate.objecttotext(wdate.dateobject(value))
end

elseif datatype == 'globecoordinate' then
-- retourne une table avec clés latitude, longitude, précision et globe à formater par un autre module (à changer ?)
value.globe = require('Module:Wikidata/Globes')[value.globe] -- transforme l'ID du globe en nom anglais utilisable par geohack
if formatting == 'latitude' then
return value.latitude
elseif formatting == 'longitude' then
return value.longitude
else
return value -- note : les coordonnées Wikidata peuvent être utilisée depuis Module:Coordinates. Faut-il aussi autoriser à appeler Module:Coordiantes ici ?
end

elseif datatype == 'url' then
return value.url

elseif datatype == 'quantity' then
return value.amount

else
return formatError( 'unknown-datavalue-type' )
end
end

function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
if not args.property then
return formatError( 'property-param-not-provided' )
end
--Get entity
local entity = nil
local property = string.upper(args.property)
if args.entity and type( args.entity ) == "table" then
entity = args.entity
else
entity = getEntityFromId( args.entityId )
end

if not entity or not entity.claims or not entity.claims[property] then
return nil
end
claims = entity.claims[property]
-- mettre ~= '' pour le cas ou le paramètre est écrit mais laissé blanc ({{#invoke:formatStatements|property=pXX|targetvalue = xx}})

if args.targetvalue and args.targetvalue ~= '' then
claims = withtargetvalue(claims, args.targetvalue)
end

if args.qualifier and args.qualifier ~= '' then
claims = withqualifier(claims, args.qualifier, args.qualifiervalue)
end
if args.source and args.source ~= '' then
claims = withsource(claims, args.source, args.sourceproperty)
end

if args.excludespecial == 'true' and args.excludespecial ~= '' then
claims = excludespecial(claims)
end

if args.rank ~= 'all' then -- à laisser vers la fin, quan les élimination sont faites
if not args.rank or args.rank == '' then
args.rank = 'best'
end
claims = withrank(claims, args.rank)
end

if args.first == 'true' and args.first ~= '' then -- retourne une seule valeur
claims = firstvalue(claims)
end
return claims
end

function p.numOfClaims(frame)
local claims = p.getClaims(frame.args)
if claims then
return #claims
else
return 0
end
end

function p._getQualifier(args)
claims = p.getClaims( args )
if args.qualifier then
qualifier = args.qualifier
else
return formatError( 'qualifier-param-not-provided' )
end
if not claims or #claims == 0 then
return nil
else
result = {}
for i, j in pairs(claims) do
for k, l in pairs( j.qualifiers[qualifier] ) do
table.insert(result, p.getDatavalue(l, 'standard'))
end
end
end
return mw.text.listToText(result)
end

function p.getQualifier( frame )
return p._getQualifier(frame.args)
end

function p._formatStatements( args )--Format statement and concat them cleanly
--If a value is already set, use it
if args.value and args.value ~= '' then
return args.value
end
local rawStatements = p.getClaims( args )
local formattedStatements = {}
if not rawStatements or #rawStatements == 0 then
if args.returntype == 'table' then return {} end
return nil
end
for i, statement in pairs( rawStatements ) do
table.insert( formattedStatements, formatStatement( statement, args ))
end
if args.returntype == 'table' then -- pour certaines modules, il vaut mieux récupérer les données sous forme de table
return formattedStatements
end
return mw.text.listToText( formattedStatements, args.separator, args.conjunction )
-- .. '[[Category:Page utilisant des données de Wikidata/' .. string.upper(args.property) .. ']]'
end

function p.formatStatements( frame )
local args = {}
if frame == mw.getCurrentFrame() then
args = frame:getParent().args -- paramètres du modèle appelant (est-ce vraiment une bonne idée ?)
for k, v in pairs(frame.args) do
args[k] = v
end
else
args = frame
end
return p._formatStatements( args )
end

function formatStatement( statement, args )
if not statement.type or statement.type ~= 'statement' then
return formatError( 'unknown-claim-type' )
end

mainsnak = p.formatSnak( statement.mainsnak, args )

if args.showqualifiers then -- to be improved
qualifier = args.showqualifiers
if statement.qualifiers and statement.qualifiers[qualifier] then
qualifvalues = {}
for i, j in pairs (statement.qualifiers[qualifier]) do
table.insert(qualifvalues, p.getDatavalue(j))
end
return mainsnak .. ' (' .. mw.text.listToText(qualifvalues) .. ')'
end
end
return mainsnak
end

function p.formatSnak( snak, args )
if not args then args = {} end -- pour faciliter l'appel depuis d'autres modules
if snak.snaktype == 'somevalue' then
return i18n['somevalue']
elseif snak.snaktype == 'novalue' then
return i18n['novalue']
elseif snak.snaktype == 'value' then
return p.getDatavalue( snak, args.formatting)
else
return formatError( 'unknown-snak-type' )
end
end

function p.formatEntityId( entityId, formatting )
local label = mw.wikibase.label( entityId )
if not label then
label = entityId --TODO what if no links and label + fallback language?
end
if formatting == 'nolink' then
return label
else
local link = mw.wikibase.sitelink( entityId )
if link then
return '[[' .. link .. '|' .. label .. ']]'
else
return '[[wikidata:' .. entityId .. '|' .. label .. ']]'
end
end
end

return p

Arthur : 1 version

2014-05-02T22:06:42Z

1 version

Nouvelle page

--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua

local p = {}

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 possibles",
},
["somevalue"] = "inconnu",
["novalue"] = "pas applicable"
}

local function getEntityFromId( id )
return mw.wikibase.getEntityObject() --TODO support for getting other entities
end

local function formatError( key )
return '' .. i18n.errors[key] .. ''
end

local function withtargetvalue(claims, targetvalue)
targetvalue = string.upper(targetvalue)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if p.getRawvalue(statement.mainsnak) == targetvalue then
table.insert(claims, statement)
end
end
return claims
end

local function validclaims(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == 'preferred' or statement.rank == 'normal' then
table.insert(claims, statement)
end
end
return claims
end

local function withrank(claims, rank)
if rank == 'best' then
local preferred = withrank(claims, 'preferred')
if #preferred > 0 then
return preferred
else
return withrank(claims, 'normal')
end
end

if rank == 'valid' then
return validclaims(claims)
end

local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == rank then
table.insert(claims, statement)
end
end
return claims
end

local function withqualifier(claims, qualifier, qualifiervalue)
qualifier, qualifiervalue = string.upper(qualifier), string.upper(qualifiervalue or '')

local oldclaims = claims
local 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 p.getRawvalue(qualif) == qualifiervalue then
table.insert(claims, statement)
end
end
else
table.insert(claims, statement)
end
end
end
return claims
end

local function withsource(claims, source, sourceproperty)
local oldclaims = claims
local claims = {}
source = string.upper(source or '')
sourceproperty = string.upper(sourceproperty or 'P248')

for i, statement in pairs(oldclaims) do
if statement.references then
for j, reference in pairs(statement.references) do
for prop, content in pairs(reference.snaks) do
if prop == sourceproperty then
for l, m in pairs(content) do
if p.getRawvalue(m) == source then
table.insert(claims, statement)
end
end
end
end
end
end
end
return claims
end

local function excludespecial(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.mainsnak.snaktype == 'value' then
table.insert(claims, statement)
end
end
return claims
end

local function firstvalue(claims)
-- return just the first value (useful for images for instance)
-- returns in priority claims with rank = 'preferred', else with rank == 'normal' do not return claims with rank == 'deprecated'
for i, statement in pairs(claims) do -- choisit en priorité les données "preferred"
if statement.rank == 'preferred' then
return {statement}
end
end
for i, statement in pairs(claims) do
if statement.rank == 'normal' then
return {statement}
end
end
end

function p.getRawvalue(snak)
return p.getDatavalue(snak, 'raw')
end

function p.getDatavalue(snak, formatting)
if snak.snaktype ~= 'value' then
return nil
end

local datatype = snak.datavalue.type
local value = snak.datavalue.value

if datatype == 'wikibase-entityid' then
if formatting == 'raw' then
return "Q" .. tostring(value['numeric-id'])
else
return p.formatEntityId("Q" .. tostring(value['numeric-id']), formatting)
end

elseif datatype == 'string' then
if formatting == 'weblink' then
local link = require ('Module:Weblink')
return link.makelink(value)
else
return value
end

elseif datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
if formatting == 'raw' then
return value.time
else
local wdate = require('Module:Wikidata/Dates')
return wdate.objecttotext(wdate.dateobject(value))
end

elseif datatype == 'globecoordinate' then
-- retourne une table avec clés latitude, longitude, précision et globe à formater par un autre module (à changer ?)
value.globe = require('Module:Wikidata/Globes')[value.globe] -- transforme l'ID du globe en nom anglais utilisable par geohack
if formatting == 'latitude' then
return value.latitude
elseif formatting == 'longitude' then
return value.longitude
else
return value -- note : les coordonnées Wikidata peuvent être utilisée depuis Module:Coordinates. Faut-il aussi autoriser à appeler Module:Coordiantes ici ?
end

elseif datatype == 'url' then
return value.url

elseif datatype == 'quantity' then
return value.amount

else
return formatError( 'unknown-datavalue-type' )
end
end

function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
if not args.property then
return formatError( 'property-param-not-provided' )
end
--Get entity
local entity = nil
local property = string.upper(args.property)
if args.entity and type( args.entity ) == "table" then
entity = args.entity
else
entity = getEntityFromId( args.entityId )
end

if not entity or not entity.claims or not entity.claims[property] then
return nil
end
claims = entity.claims[property]
-- mettre ~= '' pour le cas ou le paramètre est écrit mais laissé blanc ({{#invoke:formatStatements|property=pXX|targetvalue = xx}})

if args.targetvalue and args.targetvalue ~= '' then
claims = withtargetvalue(claims, args.targetvalue)
end

if args.qualifier and args.qualifier ~= '' then
claims = withqualifier(claims, args.qualifier, args.qualifiervalue)
end
if args.source and args.source ~= '' then
claims = withsource(claims, args.source, args.sourceproperty)
end

if args.excludespecial == 'true' and args.excludespecial ~= '' then
claims = excludespecial(claims)
end

if args.rank ~= 'all' then -- à laisser vers la fin, quan les élimination sont faites
if not args.rank or args.rank == '' then
args.rank = 'best'
end
claims = withrank(claims, args.rank)
end

if args.first == 'true' and args.first ~= '' then -- retourne une seule valeur
claims = firstvalue(claims)
end
return claims
end

function p.numOfClaims(frame)
local claims = p.getClaims(frame.args)
if claims then
return #claims
else
return 0
end
end

function p._getQualifier(args)
claims = p.getClaims( args )
if args.qualifier then
qualifier = args.qualifier
else
return formatError( 'qualifier-param-not-provided' )
end
if not claims or #claims == 0 then
return nil
else
result = {}
for i, j in pairs(claims) do
for k, l in pairs( j.qualifiers[qualifier] ) do
table.insert(result, p.getDatavalue(l, 'standard'))
end
end
end
return mw.text.listToText(result)
end

function p.getQualifier( frame )
return p._getQualifier(frame.args)
end

function p._formatStatements( args )--Format statement and concat them cleanly
--If a value is already set, use it
if args.value and args.value ~= '' then
return args.value
end
local rawStatements = p.getClaims( args )
local formattedStatements = {}
if not rawStatements or #rawStatements == 0 then
return nil
end
for i, statement in pairs( rawStatements ) do
table.insert( formattedStatements, formatStatement( statement, args ))
end
if args.returntype == 'table' then -- pour certaines modules, il vaut mieux récupérer les données sous forme de table
return formattedStatements
end
return mw.text.listToText( formattedStatements, args.separator, args.conjunction )
-- .. '[[Category:Page utilisant des données de Wikidata/' .. string.upper(args.property) .. ']]'
end

function p.formatStatements( frame )
local args = {}
if frame == mw.getCurrentFrame() then
args = frame:getParent().args -- paramètres du modèle appelant (est-ce vraiment une bonne idée ?)
for k, v in pairs(frame.args) do
args[k] = v
end
else
args = frame
end
return p._formatStatements( args )
end

function formatStatement( statement, args )
if not statement.type or statement.type ~= 'statement' then
return formatError( 'unknown-claim-type' )
end

mainsnak = p.formatSnak( statement.mainsnak, args )

if args.showqualifiers then -- to be improved
qualifier = args.showqualifiers
if statement.qualifiers and statement.qualifiers[qualifier] then
qualifvalues = {}
for i, j in pairs (statement.qualifiers[qualifier]) do
table.insert(qualifvalues, p.getDatavalue(j))
end
return mainsnak .. ' (' .. mw.text.listToText(qualifvalues) .. ')'
end
end
return mainsnak
end

function p.formatSnak( snak, args )
if not args then args = {} end -- pour faciliter l'appel depuis d'autres modules
if snak.snaktype == 'somevalue' then
return i18n['somevalue']
elseif snak.snaktype == 'novalue' then
return i18n['novalue']
elseif snak.snaktype == 'value' then
return p.getDatavalue( snak, args.formatting)
else
return formatError( 'unknown-snak-type' )
end
end

function p.formatEntityId( entityId, formatting )
local label = mw.wikibase.label( entityId )
if not label then
label = entityId --TODO what if no links and label + fallback language?
end
if formatting == 'nolink' then
return label
else
local link = mw.wikibase.sitelink( entityId )
if link then
return '[[' .. link .. '|' .. label .. ']]'
else
return '[[wikidata:' .. entityId .. '|' .. label .. ']]'
end
end
end

return p

Arthur : 1 version

2014-01-13T22:01:30Z

1 version

Nouvelle page

--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua

local p = {}

local formatDate = require( 'Module:Date')
local formatCoord = require( 'Module:Coordinates')
local Outils = require( 'Module:Outils' )

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 possibles",
},
["somevalue"] = "inconnu",
["novalue"] = "pas applicable"
}

function getEntityFromId( id )
return mw.wikibase.getEntity() --TODO support for getting other entities
end

function formatError( key )
return '' .. i18n.errors[key] .. ''
end

function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
if not args.property then
return formatError( 'property-param-not-provided' )
end
--Get entity
local entity = nil
local property = string.lower(args.property)
if args.entity and type( args.entity ) == "table" then
entity = args.entity
else
entity = getEntityFromId( args.entityId )
end

if not entity or not entity.claims or not entity.claims[property] then
return nil
end
claims = entity.claims[property]
-- mettre ~= '' pour le cas ou le paramètre est écrit mais laissé blanc ({{#invoke:formatStatements|property=pXX|targetvalue = xx}})

if args.targetvalue and args.targetvalue ~= '' then
claims = p.withtargetvalue(claims, args.targetvalue)
end
if not args.rank or args.rank == '' then -- par défaut, seul le meilleur rang est retenu
args.rank = 'best'
end
if args.rank ~= 'all' then
claims = p.withrank(claims, args.rank)
end
if args.qualifier and args.qualifier ~= '' then
claims = p.withqualifier(claims, args.qualifier, args.qualifiervalue)
end
if args.source and arg.source ~= '' then
claims = p.withsource(claims, args.source, args.sourceproperty)
end
if args.excludespecial == 'true' and args.excludespecial ~= ''then
claims = p.excludespecial(claims)
end
if args.first == 'true' and args.first ~= '' then -- retourne une seule valeur, à laisser en dernier quand les éléminations sont faites
claims = p.firstvalue(claims)
end
return claims
end

function p.withtargetvalue(claims, targetvalue)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if p.getRawvalue(statement.mainsnak) == targetvalue then
table.insert(claims, statement)
end
end
return claims
end

function p.withrank(claims, rank)
if rank == 'best' then
return p.bestrank(claims)-- returns the set of items with the best rank available
end
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.rank == rank then
table.insert(claims, statement)
end
end
return claims
end

function p.bestrank(claims)
local preferred = p.withrank(claims, 'preferred')
if #preferred ~= 0 then
return preferred
end
return p.withrank(claims, 'normal') -- ne prend pas le rang deprecated, vu qu'il est sensé être utilisé donnéex erronnées
end

function p.withqualifier(claims, qualifier, qualifiervalue)
local oldclaims = claims
local 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 p.getRawvalue(qualif) == qualifiervalue then
table.insert(claims, statement)
end
end
else
table.insert(claims, statement)
end
end
end
return claims
end

function p.withsource(claims, source, sourceproperty)
local oldclaims = claims
local claims = {}
if not sourceproperty then
sourceproperty = 'p248' -- stated in
end
for i, statement in pairs(oldclaims) do
if statement.references then
for j, reference in pairs(statement.references) do
for prop, content in pairs(reference.snaks) do
if prop == sourceproperty then
for l, m in pairs(content) do
if p.getRawvalue(m) == source then
table.insert(claims, statement)
end
end
end
end
end
end
end
return claims
end

function p.excludespecial(claims)
local oldclaims = claims
local claims = {}
for i, statement in pairs(oldclaims) do
if statement.mainsnak.snaktype == 'value' then
table.insert(claims, statement)
end
end
return claims
end

function p.firstvalue(claims)
-- return just the first value (useful for images for instance)
-- returns in priority claims with rank = 'preferred', else with rank == 'normal' do not return claims with rank == 'deprecated'
for i, statement in pairs(claims) do -- choisit en priorité les données "preferred"
if statement.rank == 'preferred' then
return {statement}
end
end
for i, statement in pairs(claims) do
if statement.rank == 'normal' then
return {statement}
end
end
end

function p.getRawvalue(snak)
return p.getDatavalue(snak, 'raw')
end

function p.getDatavalue(snak, formatting)
if snak.snaktype ~= 'value' then
return nil
end
datatype = snak.datavalue.type

if datatype == 'wikibase-entityid' then
if formatting == 'raw' then
return "Q" .. tostring(snak.datavalue.value['numeric-id'])
else
return p.formatEntityId("Q" .. tostring(snak.datavalue.value['numeric-id']), formatting)
end

elseif datatype == 'string' then
if formatting == 'weblink' then
local link = require ('Module:Weblink')
return link.makelink(snak.datavalue.value)
else
return snak.datavalue.value
end

elseif datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
return p.formatTimevalue(snak.datavalue.value, formatting)

elseif datatype == 'globecoordinate' then
out = snak.datavalue.value
if out.globe == 'http://www.wikidata.org/wiki/Q2' then -- by far the most common case
out.globe = 'earth'
else
globetable = { Q2 = 'earth', Q111 = 'mars', Q405 = 'moon'}
f = mw.getCurrentFrame() -- to use titleparts to get the relevant part of the value.globe, better method ??
out.globe = globetable[f:callParserFunction( '#titleparts', { snak.datavalue.value.globe, '', 2 } )] -- error handling needed
end
-- return out
-- out utilisable avec module:coordinates mais pour l'instant faisons simple pour tests
if formatting == 'latitude' then
return snak.datavalue.value['latitude']
elseif formatting == 'longitude' then
return snak.datavalue.value['longitude']
end

elseif datatype == 'url' then
return snak.datavalue.value['url']

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
return #claims + 1
else
return #claims
end
end

function p.numOfClaims(frame)
return numOfClaims( p.getClaims(frame.args) )
end

function p.getQualifier( frame )
local args = Outils.extractArgs( frame )
claims = p.getClaims( args )
if args.qualifier then
qualifier = args.qualifier
else
return formatError( 'qualifier-param-not-provided' )
end
if not claims or numOfClaims(claims) == 0 then
return nil
else
result = {}
for i, j in pairs(claims) do
for k, l in pairs( j.qualifiers[qualifier] ) do
table.insert(result, p.getDatavalue(l, 'standard'))
end
end
end
return mw.text.listToText(result)
end

function p._formatStatements( args )--Format statement and concat them cleanly
--If a value is already set, use it
if args.value and args.value ~= '' then
return args.value
end
local rawStatements = p.getClaims( args )
local formattedStatements = {}
if notrawStatements or numOfClaims(rawStatements) == 0 then
return nil
end
for i, statement in pairs( rawStatements ) do
table.insert( formattedStatements, formatStatement( statement, args )) end
return mw.text.listToText( formattedStatements, args.separator, args.conjunction )
-- .. '[[Category:Page utilisant des données de Wikidata/' .. string.upper(args.property) .. ']]'
end

function p.formatStatements( frame )
local args = {}
if frame == mw.getCurrentFrame() then
args = frame:getParent().args -- paramètres du modèle appelant
for k, v in pairs(frame.args) do
args[k] = v
end
else
args = frame
end
return p._formatStatements( args )
end

function formatStatement( statement, args )
if not statement.type or statement.type ~= 'statement' then
return formatError( 'unknown-claim-type' )
end

mainsnak = p.formatSnak( statement.mainsnak, args )

if args.showqualifiers then -- to be improved
qualifier = args.showqualifiers
if statement.qualifiers and statement.qualifiers[qualifier] then
qualifvalues = {}
for i, j in pairs (statement.qualifiers[qualifier]) do
table.insert(qualifvalues, p.getDatavalue(j))
end
return mainsnak .. ' (' .. mw.text.listToText(qualifvalues) .. ')'
end
end
return mainsnak
end

function p.formatSnak( snak, args )
if snak.snaktype == 'somevalue' then
return i18n['somevalue']
elseif snak.snaktype == 'novalue' then
return i18n['novalue']
elseif snak.snaktype == 'value' then
return p.getDatavalue( snak, args.formatting)
else
return formatError( 'unknown-snak-type' )
end
end

function p.formatEntityId( entityId, formatting )
local label = mw.wikibase.label( entityId )
if not label then
label = entityId --TODO what if no links and label + fallback language?
end
if formatting == 'nolink' then
return label
else
local link = mw.wikibase.sitelink( entityId )
if link then
return '[[' .. link .. '|' .. label .. ']]'
else
return '[[wikidata:' .. entityId .. '|' .. label .. ']]'
end
end
end

function p.formatTimevalue(value, formatting) -- date managed in the dedicated Module:Wikidata/Dates
if formatting == 'raw' then return value.time
else
local wdate = require('Module:Wikidata/Dates')
return wdate.objecttotext(wdate.dateobject(value))
end
end

return p

Module:Wikidata - Historique des versions

Arthur : 1 révision importée

Arthur : 1 révision importée

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 révision importée

Arthur : 1 révision importée

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version