Module:Wikidata

La documentation pour ce module peut être créée à Module:Wikidata/doc

local i18n = {
    ["errors"] = {
        ["property-param-not-provided"] = "Paramètre propriété 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 getEntityIdFromValue( value )
    if value['entity-type'] == 'item' then
        return 'q' .. value['numeric-id']
    elseif value['entity-type'] == 'property' then
        return 'p' .. value['numeric-id']
    else
        return formatError( 'unknown-entity-type' )
    end
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[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
		lang = mw.language.getContentLanguage()
		return lang:formatDate()
	else return formatError( 'unknown-datavalue-type' )
	end
end

function numOfClaims( options )
	claims = getClaims( options ) 
	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 getClaimedIDs( options ) -- devrait plutôt être une option de function formatStatements
	claims = getClaims( options )
	if type(claims) ~= 'table' then
		return formatError( 'unidentified-error' )
	end
	local idlist = ''
		for i, claim in pairs(claims) do
			if options.rank == 'one' then
				return "Q" .. claims[0].mainsnak.datavalue.value["numeric-id"]
			else
				idlist = idlist .. " Q" .. claim.mainsnak.datavalue.value["numeric-id"] -- liste simple permettant de retrouver facilement un ID donné
			end
		end
	return idlist
end

function getQualifier( options )
	claims = getClaims( options )
	qualifier = options.qualifier
	if claims == {} then
		return nil
	elseif #claims > 1 then
		return formatError( 'ambiguous' )
	else 
		qualifiers = {}
		for i, j in pairs( claims[1].qualifiers[qualifier] ) do
			table.insert(qualifiers, formatDatavalue(j))
		end
		return mw.text.listToText(qualifiers)
	end
end

function formatStatements( options )--Format statement and concat them cleanly
	local formattedStatements = {}
	local rawStatements = getClaims( options )
	if rawStatements == nil 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( frame.args )
end 

function p.getClaimedIDs(frame)
	return getClaimedIDs(frame.args)
end

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