Module:Wikidata/Récup : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
Ligne 6 : Ligne 6 :
 
for i, j in pairs(args.property) do
 
for i, j in pairs(args.property) do
 
newargs.property = j
 
newargs.property = j
−
local newstatements = p.getstatements(newargs)
+
local newclaims = p.getClaims(newargs)
−
if statements then
+
if claims then
−
return statements
+
return claims
 
end
 
end
 
end
 
end
 
end
 
end
  
−
local function hastargetvalue(statement, target)
+
local function hastargetvalue(claim, target)
 
if target == nil then
 
if target == nil then
 
return true
 
return true
 
end
 
end
−
return samevalue(statement.mainsnak, target)
+
return samevalue(claim.mainsnak, target)
 
end
 
end
  
−
local function hasrank(statement, target)
+
local function hasrank(claim, target)
 
if target == 'valid' then
 
if target == 'valid' then
−
return hasrank(statement, 'preferred') or hasrank(statement, 'normal')
+
return hasrank(claim, 'preferred') or hasrank(claim, 'normal')
 
end
 
end
−
if statement.rank == target then
+
if claim.rank == target then
 
return true
 
return true
 
end
 
end
Ligne 30 : Ligne 30 :
 
end
 
end
  
−
local function bestranked(statements)
+
local function bestranked(claims)
−
if not statements then
+
if not claims then
 
return nil
 
return nil
 
end
 
end
 
local preferred, normal = {}, {}
 
local preferred, normal = {}, {}
−
for i, j in pairs(statements) do
+
for i, j in pairs(claims) do
 
if j.rank == 'preferred' then
 
if j.rank == 'preferred' then
 
table.insert(preferred, j)
 
table.insert(preferred, j)
Ligne 49 : Ligne 49 :
 
end
 
end
  
−
local function hasqualifier(statement, qualifier, qualifiervalues)
+
local function hasqualifier(claim, qualifier, qualifiervalues)
−
local statementqualifs = statements.qualifiers
+
local claimqualifs = claim.qualifiers
−
   if (not statementqualifs) or not(statementqualifs[qualifier]) then
+
   if (not claimqualifs) or not(claimqualifs[qualifier]) then
 
   return false
 
   return false
 
   end
 
   end
Ligne 63 : Ligne 63 :
 
   end
 
   end
  
−
   for i, j in pairs(statement.qualifiers[qualifier]) do
+
   for i, j in pairs(claim.qualifiers[qualifier]) do
 
   local val = p.getRawvalue(j)
 
   local val = p.getRawvalue(j)
 
   for k, l in pairs(qualifiervalues) do
 
   for k, l in pairs(qualifiervalues) do
Ligne 74 : Ligne 74 :
 
  end
 
  end
  
−
local function hassource(statement, targetsource, sourceproperty)
+
local function hassource(claim, targetsource, sourceproperty)
 
     sourceproperty = sourceproperty or 'P248'
 
     sourceproperty = sourceproperty or 'P248'
−
if not statement.references or not statement.references[sourceproperty] then
+
if not claim.references or not claim.references[sourceproperty] then
 
return false
 
return false
 
end
 
end
Ligne 82 : Ligne 82 :
 
return true
 
return true
 
end
 
end
−
for _, source in pairs(statement.references[sourceproperty]) do
+
for _, source in pairs(claim.references[sourceproperty]) do
 
if (source.snaktype == 'value') and (source.datavalue.value['numeric-id'] == targetsource) then
 
if (source.snaktype == 'value') and (source.datavalue.value['numeric-id'] == targetsource) then
 
return true
 
return true
Ligne 90 : Ligne 90 :
 
end
 
end
  
−
local function hasdate(statement)
+
local function hasdate(claim)
−
local statementqualifs = statements.qualifiers
+
local claimqualifs = claims.qualifiers
−
if not statementqualifs then
+
if not claimqualifs then
 
return false
 
return false
 
end
 
end
−
for _, qualif in pairs(statementqualifs) do
+
for _, qualif in pairs(claimqualifs) do
−
if statementsqualifs[qualif] and statementsqualifs[qualif][1].snaktype == 'value' then
+
if claimsqualifs[qualif] and claimsqualifs[qualif][1].snaktype == 'value' then
 
return true
 
return true
 
end
 
end
Ligne 117 : Ligne 117 :
 
end
 
end
  
−
local function numval(statements, numval) -- retourn les numval premières valeurs de la table statements
+
local function numval(claims, numval) -- retourn les numval premières valeurs de la table claims
 
     local numval = tonumber(numval) or 0 -- raise a error if numval is not a positive integer ?
 
     local numval = tonumber(numval) or 0 -- raise a error if numval is not a positive integer ?
−
     if #statements <= numval then
+
     if #claims <= numval then
−
     return statements
+
     return claims
 
     end
 
     end
−
     local newstatements = {}
+
     local newclaims = {}
−
     while #newstatements < numval do
+
     while #newclaims < numval do
−
     table.insert(newstatements, statements[#newstatements + 1])
+
     table.insert(newclaims, claims[#newclaims + 1])
 
     end
 
     end
−
     return newstatements
+
     return newclaims
 
end
 
end
  
−
local function comparedate(a, b) -- returns true if a is earlier than B or if a has a date but not b
+
local function chronosort(claims, inverted)
−
if a and b then
+
local function getTimestamp(claim)
−
return a.timestamp < b.timestamp
+
local claimqualifs = claim.qualifiers
−
elseif a then
+
if not claimqualifs then
−
return true
 
−
end
 
−
end
 
−
 
 
−
local function chronosort(statements, inverted)
 
−
local function getTimestamp(statement)
 
−
local statementqualifs = statements.qualifiers
 
−
if not statementqualif then
 
 
return nil
 
return nil
 
end
 
end
 
for _, qualif in pairs(datequalifiers) do
 
for _, qualif in pairs(datequalifiers) do
−
if statementqualif[qualif] and statementqualif[1].snaktype == 'value' then
+
if claimqualifs[qualif] and claimqualifs[qualif][1].snaktype == 'value' then
−
return statementqualif[1].datavalue.value
+
return claimqualifs[qualif][1].datavalue.value.time
 
end
 
end
 
end
 
end
 
end
 
end
−
table.sort(statements, function(a,b)
+
table.sort(claims, function(a,b)
−
local timeA = p.getDate(a)
+
local timeA = getTimestamp(a) or ''
−
local timeB = p.getDate(b)
+
local timeB = getTimestamp(b) or ''
 
if inverted then
 
if inverted then
−
return comparedate(timeB, timeA)
+
return timeA > timeB
 
else
 
else
−
return comparedate(timeA, timeB)
+
return timeB > timeA
 
end
 
end
 
end
 
end
 
)
 
)
−
return statements
+
return claims
 
end
 
end
  
−
function p.sortstatements(statements, sorttype)
+
function p.sortclaims(claims, sorttype)
 
if sorttype == 'chronological' then
 
if sorttype == 'chronological' then
−
return chronosort(statements)
+
return chronosort(claims)
 
elseif sorttype == 'inverted' then
 
elseif sorttype == 'inverted' then
−
return chronosort(statements, true)
+
return chronosort(claims, true)
 
elseif type(sorttype) == 'function' then
 
elseif type(sorttype) == 'function' then
−
table.sort(statements, sorttype)
+
table.sort(claims, sorttype)
−
return statements
+
return claims
 
end
 
end
−
return statements
+
return claims
 
end
 
end
  
−
function p.getstatements( args ) -- returns a table of the statements matching some conditions given in args
+
function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
−
if args.statements then -- if statements have already been set, return them
+
if args.claims then -- if claims have already been set, return them
−
return args.statements
+
return args.claims
 
end
 
end
 
if not args.property then
 
if not args.property then
Ligne 189 : Ligne 181 :
 
         entity = mw.wikibase.getEntityObject( args.entity )
 
         entity = mw.wikibase.getEntityObject( args.entity )
 
     end
 
     end
−
if (not entity) or (not entity.statements) then
+
if (not entity) or (not entity.claims) then
 
return nil
 
return nil
 
end
 
end
 
local property = string.upper(args.property)
 
local property = string.upper(args.property)
−
if not entity.statements[property] then
+
if not entity.claims[property] then
 
return nil
 
return nil
 
end
 
end
Ligne 199 : Ligne 191 :
 
args.rank = 'best'
 
args.rank = 'best'
 
end
 
end
−
local statements = {}
+
local claims = {}
 
     -- ~= '' lorsque le paramètre est écrit mais laissé blanc dans une fonction frame
 
     -- ~= '' lorsque le paramètre est écrit mais laissé blanc dans une fonction frame
−
     for i, statement in pairs(entity.statements[property]) do
+
     for i, claim in pairs(entity.claims[property]) do
 
     if
 
     if
 
     (
 
     (
 
     not args.excludespecial
 
     not args.excludespecial
 
     or
 
     or
−
     not (isSpecial(statement.mainsnak))
+
     not (isSpecial(claim.mainsnak))
 
     )
 
     )
 
     and
 
     and
Ligne 212 : Ligne 204 :
 
not args.targetvalue
 
not args.targetvalue
 
or
 
or
−
hastargetvalue(statement, args.targetvalue)
+
hastargetvalue(claim, args.targetvalue)
 
)
 
)
 
     and
 
     and
Ligne 218 : Ligne 210 :
 
     not args.qualifier
 
     not args.qualifier
 
     or
 
     or
−
     hasqualifier(statement, args.qualifier, args.qualifiervalue or args.qualifiervalues)
+
     hasqualifier(claim, args.qualifier, args.qualifiervalue or args.qualifiervalues)
 
     )
 
     )
 
and
 
and
Ligne 224 : Ligne 216 :
 
not args.source
 
not args.source
 
or
 
or
−
hassource(statement, args.source, args.sourceproperty)
+
hassource(claim, args.source, args.sourceproperty)
 
)
 
)
 
and
 
and
 
not args.isinlanguage
 
not args.isinlanguage
 
or
 
or
−
isinlanguage(statement.mainsnak, args.isinlanguage)
+
isinlanguage(claim.mainsnak, args.isinlanguage)
 
and
 
and
 
args.rank == 'best' -- rank == best est traité à a fin
 
args.rank == 'best' -- rank == best est traité à a fin
 
or
 
or
−
hasrank(statement, rank)
+
hasrank(claim, rank)
 
then
 
then
−
table.insert(statements, statement)
+
table.insert(claims, claim)
 
end
 
end
 
end
 
end
−
if #statements == 0 then
+
if #claims == 0 then
 
return nil
 
return nil
 
end
 
end
 
     if args.rank == 'best' then
 
     if args.rank == 'best' then
−
     statements = bestranked(statements)
+
     claims = bestranked(claims)
 
     end
 
     end
 
     if args.sorttype then
 
     if args.sorttype then
−
     statements = p.sortstatements(statements, args.sorttype)
+
     claims = p.sortclaims(claims, args.sorttype)
 
     end
 
     end
  
 
if args.numval then
 
if args.numval then
−
return numval(statements, args.numval)
+
return numval(claims, args.numval)
 
end
 
end
−
return statements
+
return claims
 
end
 
end
  
 
return p
 
return p

Version du 18 août 2015 à 09:58

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

local p = {}
local datequalifiers = {'P585', 'P571', 'P580', 'P582'}

local function severalProperties(args)
	local newargs = args
	for i, j in pairs(args.property) do
		newargs.property = j
		local newclaims = p.getClaims(newargs)
		if claims then
			return claims
		end
	end
end

local function hastargetvalue(claim, target)
	if target == nil then
		return true
	end
	return samevalue(claim.mainsnak, target)
end

local function hasrank(claim, target)
	if target == 'valid' then
		return hasrank(claim, 'preferred') or hasrank(claim, 'normal')
	end
	if claim.rank == target then
		return true
	end
	return false
end

local function bestranked(claims)
	if not claims then
		return nil
	end
	local preferred, normal = {}, {}
	for i, j in pairs(claims) do
		if j.rank == 'preferred' then
			table.insert(preferred, j)
		elseif j.rank == 'normal' then
			table.insert(normal, j)
		end
	end
	if #preferred > 0 then
		return preferred
	else
		return normal
	end
end

local function hasqualifier(claim, qualifier, qualifiervalues)
	local claimqualifs = claim.qualifiers
   	if (not claimqualifs) or not(claimqualifs[qualifier]) then
   		return false
   	end

   	if (not qualifiervalues) or (qualifiervalues == {}) then
   		return true -- si aucune valeur spécifique n'est exigée, c'est bon
   	end

   if type(qualifiervalues) == 'string' then
   		qualifiervalues = {qualifiervalues}
   	end

   	for i, j in pairs(claim.qualifiers[qualifier]) do
   		local val = p.getRawvalue(j)
   		for k, l in pairs(qualifiervalues) do
   			if l == val then
   				return true
   			end
   		end
   end
   return false
 end

local function hassource(claim, targetsource, sourceproperty)
    sourceproperty = sourceproperty or 'P248'
	if not claim.references or not claim.references[sourceproperty] then
		return false
	end
	if not targetsource then -- si toutes les sources sont valides, du moment qu'elles utilisent sourceproperty
		return true
	end
	for _, source in pairs(claim.references[sourceproperty]) do
		if (source.snaktype == 'value') and (source.datavalue.value['numeric-id'] == targetsource) then
			return true
		end
	end
	return true
end

local function hasdate(claim)
	local claimqualifs = claims.qualifiers
	if not claimqualifs then
		return false
	end
	for _, qualif in pairs(claimqualifs) do
		if claimsqualifs[qualif] and claimsqualifs[qualif][1].snaktype == 'value' then
			return true
		end
	end
	return false
end

local function isinlanguage(snak, lang) -- ne fonctionne que pour les monolingualtext / étendre aux autres types en utilisant les qualifiers ?
	if snak.snaktype == 'value' and snak.datavalue.type == 'monolingualtext' and snak.datavalue.value.language == lang then
		return true
	end
	return false
end

local function isSpecial(snak)
	if snak.snaktype == 'value' then
		return false
	end
	return true
end

local function numval(claims, numval) -- retourn les numval premières valeurs de la table claims
    local numval = tonumber(numval) or 0 -- raise a error if numval is not a positive integer ?
    if #claims <= numval then
    	return claims
    end
    local newclaims = {}
    while #newclaims < numval do
    	table.insert(newclaims, claims[#newclaims + 1])
    end
    return newclaims
end

local function chronosort(claims, inverted)
	local function getTimestamp(claim)
		local claimqualifs = claim.qualifiers
		if not claimqualifs then
			return nil
		end
		for _, qualif in pairs(datequalifiers) do
			if claimqualifs[qualif] and claimqualifs[qualif][1].snaktype == 'value' then
				return claimqualifs[qualif][1].datavalue.value.time
			end
		end
	end
	table.sort(claims, function(a,b)
		local timeA = getTimestamp(a) or ''
		local timeB = getTimestamp(b) or ''
		if inverted then
			return timeA > timeB
		else
			return timeB > timeA
		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

function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
	if args.claims then -- if claims have already been set, return them
		return args.claims
	end
	if not args.property then
	return formatError( 'property-param-not-provided' )
	end
	if type(args.property) == 'table' then
		return severalProperties(args)
	end
	--Get entity
	local entity = args.entity
 	if type(entity) ~= 'table' then
        entity = mw.wikibase.getEntityObject( args.entity )
    end
	if (not entity) or (not entity.claims) then
		return nil
	end
	local property = string.upper(args.property)
	if not entity.claims[property] then
		return nil
	end
	if not args.rank then
		args.rank = 'best'
	end
	local claims = {}
    -- ~= '' lorsque le paramètre est écrit mais laissé blanc dans une fonction frame
    for i, claim in pairs(entity.claims[property]) do
    	if
    		(
    		not args.excludespecial
    		or
    		not (isSpecial(claim.mainsnak))
    		)
    	and
    		(
			not args.targetvalue
			or
			hastargetvalue(claim, args.targetvalue)
			)
    	and
    		(
    		not args.qualifier
    		or
    		hasqualifier(claim, args.qualifier, args.qualifiervalue or args.qualifiervalues)
    		)
		and
			(
			not args.source
			or
			hassource(claim, args.source, args.sourceproperty)
			)
		and
			not args.isinlanguage
			or
			isinlanguage(claim.mainsnak, args.isinlanguage)
		and
			args.rank == 'best' -- rank == best est traité à a fin
			or
			hasrank(claim, rank)
		then
			table.insert(claims, claim)
		end
	end
	if #claims == 0 then
		return nil
	end
    if args.rank == 'best' then
    	claims = bestranked(claims)
    end
    if args.sorttype then
    	claims = p.sortclaims(claims, args.sorttype)
    end

	if args.numval then
		return numval(claims, args.numval)
	end
	return claims
end

return p
Récupérée de « https://lagny-sur-marne.wiki/index.php?title=Module:Wikidata/Récup&oldid=7880 »