Modul:Wikidata utilities: Unterschied zwischen den Versionen
(checkId entfernt) |
K (89 Versionen von wikivoyage:Modul:Wikidata_utilities importiert) |
||
(54 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
-- Wikidata convenience utilities | |||
function | -- documentation | ||
local WikidataUtilities = { | |||
suite = 'WikidataUtilities', | |||
serial = '2022-09-04', | |||
item = 65439025 | |||
} | |||
-- i18n | |||
local wd = { | |||
version = 'P348', | |||
retrieved = 'P813', | |||
Gregorian = 'Q12138', -- calendar models | |||
prolepticGregorian = 'Q1985727' | |||
} | |||
-- module variable and administration | |||
local wu = { | |||
moduleInterface = WikidataUtilities | |||
} | |||
-- table storing property ids used | |||
local catTable = { | |||
P0 = '' | |||
} | |||
local function isSet( arg ) | |||
return arg and arg ~= '' | |||
end | |||
function wu.getEntity( id ) | |||
local wrongQualifier = false | local wrongQualifier = false | ||
local entity = nil | local entity = nil | ||
if not id | if not isSet( id ) then | ||
return '', entity, wrongQualifier | return '', entity, wrongQualifier | ||
end | end | ||
if mw.wikibase.isValidEntityId( id ) then | if mw.wikibase.isValidEntityId( id ) then | ||
-- expensive function call | -- expensive function call | ||
-- redirect ids marked false, too | |||
entity = mw.wikibase.getEntity( id ) | entity = mw.wikibase.getEntity( id ) | ||
end | end | ||
Zeile 20: | Zeile 50: | ||
end | end | ||
local function | function wu.getEntityId( id ) | ||
if | local wrongQualifier = false | ||
local entity = nil | |||
if not isSet( id ) then | |||
id = '' | |||
elseif mw.wikibase.isValidEntityId( id ) and mw.wikibase.entityExists( id ) then | |||
-- expensive function call | |||
-- redirect ids marked false, too | |||
entity = id | |||
else | |||
id = '' | |||
wrongQualifier = true | |||
end | |||
return id, entity, wrongQualifier | |||
end | |||
function wu.getLabel( entity, lang, noFallback ) | |||
if not isSet( entity ) then | |||
return nil | |||
end | |||
local tp = type( entity ) | |||
if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then | |||
return isSet( lang ) and mw.wikibase.getLabelByLang( entity, lang ) | |||
or ( not noFallback and mw.wikibase.getLabel( entity ) ) | |||
elseif tp == 'table' and entity.labels then | |||
return isSet( lang ) and entity:getLabel( lang ) | |||
or ( not noFallback and entity:getLabel() ) | |||
else | |||
return nil | return nil | ||
end | end | ||
end | |||
function wu.getSitelink( entity, globalSiteId ) | |||
if not isSet( entity ) then | |||
return nil | |||
end | |||
local tp = type( entity ) | |||
if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then | |||
return mw.wikibase.getSitelink( entity, globalSiteId ) | |||
elseif tp == 'table' and entity.labels then | |||
return entity:getSitelink( globalSiteId ) | |||
else | |||
return nil | |||
end | end | ||
end | |||
return nil | function wu.getSitelinkTable( entity, globalSiteId ) | ||
if not isSet( entity ) or not isSet( globalSiteId ) then | |||
return nil | |||
elseif type( entity ) == 'string' then -- entity is id | |||
entity = mw.wikibase.getEntity( entity ) | |||
end | |||
if entity and entity.sitelinks then | |||
return entity.sitelinks[ globalSiteId ] | |||
else | |||
return nil | |||
end | |||
end | end | ||
-- convert from url to Q id | |||
function wu.getUnit( unit ) | |||
if ( | if isSet( unit ) and type( unit ) == 'string' then | ||
return | return unit:gsub( 'https?://www.wikidata.org/entity/', '' ) | ||
else | |||
return '' | |||
end | end | ||
end | |||
-- is calendar model a Gregorian calendar? | |||
function wu.isGregorian( t ) | |||
return type( t ) == 'string' or t.calendarmodel == wd.Gregorian | |||
or t.calendarmodel == wd.prolepticGregorian | |||
end | |||
return | -- extract date from time | ||
function wu.getDateFromTime( t ) | |||
local model = wd.prolepticGregorian | |||
if type( t ) == 'table' then | |||
model = t.calendarmodel | |||
t = t.time | |||
end | |||
t = t:gsub( '^+', '' ):gsub( 'T.+Z$', '' ):gsub( '-00$', '' ) | |||
:gsub( '-00$', '' ) | |||
return t, model | |||
end | end | ||
function | function wu.getBestStatements( entity, p ) | ||
local tp = type( entity ) | |||
if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then | |||
return mw.wikibase.getBestStatements( entity, p ) | return mw.wikibase.getBestStatements( entity, p ) | ||
elseif tp == 'table' and entity.labels then | |||
return entity:getBestStatements( p ) | |||
else | else | ||
return | return {} | ||
end | end | ||
end | end | ||
function | function wu.getStatements( entity, p, count ) | ||
local ar = {} | local ar = {} | ||
if ( | if not ( isSet( entity ) and isSet( p ) ) then | ||
return ar | return ar | ||
end | end | ||
local statements = | local statements = wu.getBestStatements( entity, p ) | ||
count = math.min( count or #statements, #statements ) | |||
count = count or #statements | if count <= 0 then | ||
if | |||
return ar | return ar | ||
end | end | ||
Zeile 77: | Zeile 165: | ||
repeat | repeat | ||
i = i + 1 | i = i + 1 | ||
if statements[i].mainsnak.snaktype == 'value' then | if statements[ i ].mainsnak.snaktype == 'value' then | ||
table.insert( ar, statements[i] ) | if statements[ i ].mainsnak.datatype == 'quantity' then | ||
statements[ i ].mainsnak.datavalue.value.amount = | |||
statements[ i ].mainsnak.datavalue.value.amount:gsub( '^+', '' ) | |||
statements[ i ].mainsnak.datavalue.value.unit = wu.getUnit( | |||
statements[ i ].mainsnak.datavalue.value.unit ) | |||
end | |||
table.insert( ar, statements[ i ] ) | |||
end | end | ||
until | until i >= #statements or #ar >= count | ||
return ar | return ar | ||
end | end | ||
function | function wu.getValue( entity, p ) | ||
local | local statements = wu.getStatements( entity, p, 1 ) | ||
if #statements > 0 then | |||
catTable[ p ] = '' | |||
return statements[ 1 ].mainsnak.datavalue.value | |||
return value | |||
else | else | ||
return | return '' | ||
end | end | ||
end | end | ||
function | function wu.getId( entity, p ) | ||
local value = '' | local value = '' | ||
local statements = wu.getStatements( entity, p, 1 ) | |||
if #statements > 0 then | |||
value = statements[ 1 ].mainsnak.datavalue.value | |||
value = value.id or '' | |||
if value ~= '' then | |||
catTable[ p ] = '' | |||
end | end | ||
end | end | ||
return value | |||
end | end | ||
function | function wu.getValues( entity, p, count ) | ||
local | local statements = wu.getStatements( entity, p, count ) | ||
if #statements > 0 then | |||
catTable[ p ] = '' | |||
for i = 1, #statements, 1 do | |||
statements[ i ] = statements[ i ].mainsnak.datavalue.value | |||
end | |||
end | end | ||
return statements | |||
end | end | ||
function | function wu.getValuesByLang( entity, p, count, lang ) | ||
local ar = | local ar = {} | ||
local statements = wu.getStatements( entity, p ) | |||
if #statements > 0 then | |||
local value | |||
for i = 1, #statements, 1 do | |||
value = statements[ i ].mainsnak.datavalue.value | |||
if value.language and lang == value.language then | |||
table.insert( ar, value.text ) | |||
end | |||
if count and #ar >= count then | |||
break | |||
end | |||
end | end | ||
end | end | ||
if | if #ar > 0 then | ||
catTable[ p ] = '' | |||
end | end | ||
end | return ar | ||
end | |||
function | -- get values array for monolingual text | ||
local result = {} | function wu.getMonolingualValues( entity, p ) | ||
if | local result = {} | ||
local statements = wu.getStatements( entity, p, nil ) | |||
if #statements > 0 and statements[ 1 ].mainsnak.datatype == 'monolingualtext' then | |||
local hyphen, lng, value | |||
catTable[ p ] = '' | |||
for i = 1, #statements, 1 do | |||
value = statements[ i ].mainsnak.datavalue.value | |||
lng = value.language | |||
hyphen = lng:find( '-' ) | |||
if hyphen then | |||
lng = lng:sub( 1, hyphen - 1 ) | |||
end | end | ||
if not result[ lng ] then | |||
if | result[ lng ] = value.text | ||
result[ | |||
end | end | ||
end | end | ||
end | end | ||
return result | |||
end | |||
function wu.getValuesByQualifier( entity, p, qualifierP, defaultId ) | |||
local result = {} | |||
if not isSet( qualifierP ) then | |||
return result | return result | ||
elseif type( defaultId ) ~= 'string' or defaultId == '' then | |||
defaultId = 'unknown' | |||
end | end | ||
local statements = wu.getStatements( entity, p, nil ) | |||
if #statements > 0 then | |||
local | catTable[ p ] = '' | ||
local id, statement, value | |||
for i = 1, #statements do | |||
statement = statements[ i ] | |||
-- defaultId is used if a qualifier is missing | |||
id = defaultId | |||
value = statement.mainsnak.datavalue.value | |||
if statement.qualifiers and statement.qualifiers[ qualifierP ] then | |||
for _, qualifier in ipairs( statement.qualifiers[ qualifierP ] ) do | |||
if qualifier.snaktype == 'value' then | |||
id = qualifier.datavalue.value.id | |||
if id then | |||
catTable[ qualifierP ] = '' | |||
break | |||
end | |||
end | |||
end | end | ||
end | end | ||
result[ id ] = value | |||
end | end | ||
end | end | ||
return result | |||
end | end | ||
local function | local function analyzeDatavalue( datavalue, labelFct, ... ) | ||
local v = datavalue.value | local v = datavalue.value | ||
local t = datavalue.type | local t = datavalue.type | ||
if type( v ) == 'table' then | if type( v ) == 'table' then | ||
-- items which can be reduced to a string | -- items which can be reduced to a string | ||
if t == 'wikibase-entityid' then v = v.id | if t == 'wikibase-entityid' then | ||
elseif t == 'time' then v = v.time | v = v.id | ||
if type( labelFct ) == 'function' then | |||
v = labelFct( v, ... ) | |||
end | |||
elseif t == 'quantity' then | |||
v.amount = v.amount:gsub( '^+', '' ) | |||
if tonumber( v.amount ) == 0 then | |||
v.amount = '0' | |||
end | |||
if v.unit == '1' then | |||
v = tonumber( v.amount ) or 1 | |||
else | |||
v.unit = wu.getUnit( v.unit ) | |||
end | |||
elseif t == 'time' then | |||
v.calendarmodel = wu.getUnit( v.calendarmodel ) | |||
if wu.isGregorian( v ) then | |||
v = v.time | |||
end | |||
end | end | ||
end | end | ||
Zeile 232: | Zeile 321: | ||
-- The following function is an experimental one, not for extensive use | -- The following function is an experimental one, not for extensive use | ||
function | -- for qualifiers, references | ||
local | -- { item1, item2, ... } : using named qualifiers/references | ||
local statements = | -- {} : using no qualifiers/references | ||
if #statements == 0 then return | -- nil : using all qualifiers/references | ||
function wu.getValuesWithQualifiers( entity, p, values, qualifiers, references, | |||
count, labelFct, ... ) | |||
local array, qual | |||
local function toQualifierTable( tab, key, qualTab, labelFct, ... ) | |||
local v | |||
if not tab[ key ] then | |||
tab[ key ] = {} | |||
end | |||
for i = 1, #qualTab do | |||
qual = qualTab[ i ] | |||
if qual.snaktype == 'value' then | |||
v, tab[ key .. '-type' ] = | |||
analyzeDatavalue( qual.datavalue, labelFct, ... ) | |||
table.insert( tab[ key ], v ) | |||
end | |||
end | |||
if #tab[ key ] == 0 then | |||
tab[ key ] = nil | |||
tab[ key .. '-type' ] = nil | |||
else | |||
catTable[ key ] = '' | |||
end | |||
end | |||
local function hasValue( tab, val ) | |||
for i = 1, #tab do | |||
if tab[ i ] == val then | |||
return true | |||
end | |||
end | |||
return false | |||
end | |||
local results = {} | |||
local statements = wu.getStatements( entity, p, count ) | |||
if #statements == 0 then | |||
return results | |||
end | |||
local i, v | |||
if type( values ) == 'table' and #values > 0 then | |||
for i = #statements, 1, -1 do | |||
v = statements[ i ].mainsnak.datavalue.value | |||
if type( v ) ~= 'string' then | |||
v = v.id | |||
end | |||
if not isSet( v ) or not hasValue( values, v ) then | |||
table.remove( statements, i ) | |||
end | |||
end | |||
if #statements == 0 then | |||
return results | |||
end | |||
end | |||
catTable[ p ] = '' | |||
if | if type( qualifiers ) == 'string' then | ||
qualifiers = { qualifiers } | qualifiers = { qualifiers } | ||
end | end | ||
if type( references ) == 'string' then | |||
references = { references } | |||
end | |||
local key, reference, statement | |||
for i = 1, #statements do | |||
statement = statements[ i ] | |||
array = { value = analyzeDatavalue( statement.mainsnak.datavalue, labelFct, ... ), | |||
[ 'value-type' ] = statement.mainsnak.datavalue.type } | |||
if statement.qualifiers then | |||
if | |||
if not qualifiers then -- all qualifier properties | if not qualifiers then -- all qualifier properties | ||
for key, | for key, qualTab in pairs( statement.qualifiers ) do | ||
toQualifierTable( array, key, qualTab, labelFct, ... ) | |||
end | |||
else -- table of selected qualifier properties | |||
for j = 1, #qualifiers do | |||
key = qualifiers[ j ] | |||
if statement.qualifiers[ key ] then | |||
toQualifierTable( array, key, statement.qualifiers[ key ], labelFct, ... ) | |||
end | end | ||
end | end | ||
end | |||
end | |||
array.references = {} | |||
for j = 1, # | if statement.references then | ||
if | for k = 1, #statement.references do | ||
array[ | reference = statement.references[ k ] | ||
if reference and reference.snaks then | |||
table.insert( array.references, {} ) | |||
if not references then -- all references | |||
for key, refTab in pairs( reference.snaks ) do | |||
toQualifierTable( array.references[ #array.references ], | |||
key, refTab ) | |||
end | |||
else -- table of selected references | |||
for j = 1, #references do | |||
key = references[ j ] | |||
if reference.snaks[ key ] then | |||
toQualifierTable( array.references[ #array.references ], | |||
key, reference.snaks[ key ] ) | |||
end | end | ||
end | end | ||
Zeile 273: | Zeile 430: | ||
end | end | ||
end | end | ||
table.insert( | |||
table.insert( results, array ) | |||
end | end | ||
-- clustering statements with identical value | |||
-- | local helper = {} | ||
local sort1 = 0 | |||
local mult = false | |||
if ( | local result | ||
for i = 1, #results do | |||
result = results[ i ] | |||
if helper[ result.value ] then | |||
helper[ result.value ].sort2 = helper[ result.value ].sort2 + 1 | |||
mult = true | |||
else | |||
sort1 = sort1 + 1 | |||
helper[ result.value ] = { sort1 = sort1, sort2 = 1 } | |||
end | |||
result.sort1 = helper[ result.value ].sort1 | |||
result.sort2 = helper[ result.value ].sort2 | |||
end | |||
if sort1 > 1 and mult and #results > 2 then | |||
table.sort( results, | |||
function( a, b ) | |||
return a.sort1 < b.sort1 or | |||
( a.sort1 == b.sort1 and a.sort2 < b.sort2 ) | |||
end | |||
) | |||
end | |||
return results | |||
end | |||
-- get lastEdit from reference retrieve date | |||
function wu.getLastedit( lastEdit, statements ) | |||
local isBoolean = type( lastEdit ) == 'boolean' | |||
if isBoolean and lastEdit == false then | |||
return lastEdit | |||
end | |||
local le = '' | |||
for _, statement in ipairs( statements ) do | |||
if statement.references then | |||
for _, reference in ipairs( statement.references ) do | |||
if reference[ wd.retrieved ] then | |||
for _, retrieved in ipairs( reference[ wd.retrieved ] ) do | |||
retrieved = wu.getDateFromTime( retrieved ) | |||
if retrieved > le then | |||
le = retrieved | |||
end | |||
end | |||
end | end | ||
end | |||
end | end | ||
end | end | ||
return ' | if isBoolean then | ||
return ( le ~= '' ) and le or lastEdit | |||
else | |||
return ( le > lastEdit ) and le or lastEdit | |||
end | |||
end | end | ||
function | function wu.getAliases( entity, lang ) | ||
if type( entity ) == 'string' then -- is Q id | |||
if not | entity = mw.wikibase.getEntity( entity ) | ||
end | |||
if not lang then | |||
lang = mw.getContentLanguage():getCode() | |||
end | |||
local aliases = {} | |||
if entity and entity.aliases and entity.aliases[ lang ] then | |||
for _, alias in ipairs( entity.aliases[ lang ] ) do | |||
table.insert( aliases, alias.value ) | |||
end | |||
end | |||
return aliases | |||
end | |||
-- maintenance utilities | |||
function wu.addProperty( p ) | |||
catTable[ p ] = '' | |||
end | |||
function wu.removeProperty( p ) | |||
catTable[ p ] = nil | |||
end | |||
function wu.getCategories( formatStr ) | |||
local result = '' | |||
if not isSet( formatStr ) then | |||
formatStr = '[[Category:%s]]' | formatStr = '[[Category:%s]]' | ||
end | end | ||
for key, value in pairs( | |||
catTable.P0 = nil | |||
for key, value in pairs( catTable ) do | |||
result = result .. string.format( formatStr, key ) | result = result .. string.format( formatStr, key ) | ||
end | end | ||
Zeile 318: | Zeile 530: | ||
end | end | ||
return | return wu |
Aktuelle Version vom 27. Januar 2023, 08:40 Uhr
Die Dokumentation für dieses Modul kann unter Modul:Wikidata utilities/doc erstellt werden
-- Wikidata convenience utilities -- documentation local WikidataUtilities = { suite = 'WikidataUtilities', serial = '2022-09-04', item = 65439025 } -- i18n local wd = { version = 'P348', retrieved = 'P813', Gregorian = 'Q12138', -- calendar models prolepticGregorian = 'Q1985727' } -- module variable and administration local wu = { moduleInterface = WikidataUtilities } -- table storing property ids used local catTable = { P0 = '' } local function isSet( arg ) return arg and arg ~= '' end function wu.getEntity( id ) local wrongQualifier = false local entity = nil if not isSet( id ) then return '', entity, wrongQualifier end if mw.wikibase.isValidEntityId( id ) then -- expensive function call -- redirect ids marked false, too entity = mw.wikibase.getEntity( id ) end if not entity then id = '' wrongQualifier = true end return id, entity, wrongQualifier end function wu.getEntityId( id ) local wrongQualifier = false local entity = nil if not isSet( id ) then id = '' elseif mw.wikibase.isValidEntityId( id ) and mw.wikibase.entityExists( id ) then -- expensive function call -- redirect ids marked false, too entity = id else id = '' wrongQualifier = true end return id, entity, wrongQualifier end function wu.getLabel( entity, lang, noFallback ) if not isSet( entity ) then return nil end local tp = type( entity ) if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then return isSet( lang ) and mw.wikibase.getLabelByLang( entity, lang ) or ( not noFallback and mw.wikibase.getLabel( entity ) ) elseif tp == 'table' and entity.labels then return isSet( lang ) and entity:getLabel( lang ) or ( not noFallback and entity:getLabel() ) else return nil end end function wu.getSitelink( entity, globalSiteId ) if not isSet( entity ) then return nil end local tp = type( entity ) if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then return mw.wikibase.getSitelink( entity, globalSiteId ) elseif tp == 'table' and entity.labels then return entity:getSitelink( globalSiteId ) else return nil end end function wu.getSitelinkTable( entity, globalSiteId ) if not isSet( entity ) or not isSet( globalSiteId ) then return nil elseif type( entity ) == 'string' then -- entity is id entity = mw.wikibase.getEntity( entity ) end if entity and entity.sitelinks then return entity.sitelinks[ globalSiteId ] else return nil end end -- convert from url to Q id function wu.getUnit( unit ) if isSet( unit ) and type( unit ) == 'string' then return unit:gsub( 'https?://www.wikidata.org/entity/', '' ) else return '' end end -- is calendar model a Gregorian calendar? function wu.isGregorian( t ) return type( t ) == 'string' or t.calendarmodel == wd.Gregorian or t.calendarmodel == wd.prolepticGregorian end -- extract date from time function wu.getDateFromTime( t ) local model = wd.prolepticGregorian if type( t ) == 'table' then model = t.calendarmodel t = t.time end t = t:gsub( '^+', '' ):gsub( 'T.+Z$', '' ):gsub( '-00$', '' ) :gsub( '-00$', '' ) return t, model end function wu.getBestStatements( entity, p ) local tp = type( entity ) if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then return mw.wikibase.getBestStatements( entity, p ) elseif tp == 'table' and entity.labels then return entity:getBestStatements( p ) else return {} end end function wu.getStatements( entity, p, count ) local ar = {} if not ( isSet( entity ) and isSet( p ) ) then return ar end local statements = wu.getBestStatements( entity, p ) count = math.min( count or #statements, #statements ) if count <= 0 then return ar end local i = 0 repeat i = i + 1 if statements[ i ].mainsnak.snaktype == 'value' then if statements[ i ].mainsnak.datatype == 'quantity' then statements[ i ].mainsnak.datavalue.value.amount = statements[ i ].mainsnak.datavalue.value.amount:gsub( '^+', '' ) statements[ i ].mainsnak.datavalue.value.unit = wu.getUnit( statements[ i ].mainsnak.datavalue.value.unit ) end table.insert( ar, statements[ i ] ) end until i >= #statements or #ar >= count return ar end function wu.getValue( entity, p ) local statements = wu.getStatements( entity, p, 1 ) if #statements > 0 then catTable[ p ] = '' return statements[ 1 ].mainsnak.datavalue.value else return '' end end function wu.getId( entity, p ) local value = '' local statements = wu.getStatements( entity, p, 1 ) if #statements > 0 then value = statements[ 1 ].mainsnak.datavalue.value value = value.id or '' if value ~= '' then catTable[ p ] = '' end end return value end function wu.getValues( entity, p, count ) local statements = wu.getStatements( entity, p, count ) if #statements > 0 then catTable[ p ] = '' for i = 1, #statements, 1 do statements[ i ] = statements[ i ].mainsnak.datavalue.value end end return statements end function wu.getValuesByLang( entity, p, count, lang ) local ar = {} local statements = wu.getStatements( entity, p ) if #statements > 0 then local value for i = 1, #statements, 1 do value = statements[ i ].mainsnak.datavalue.value if value.language and lang == value.language then table.insert( ar, value.text ) end if count and #ar >= count then break end end end if #ar > 0 then catTable[ p ] = '' end return ar end -- get values array for monolingual text function wu.getMonolingualValues( entity, p ) local result = {} local statements = wu.getStatements( entity, p, nil ) if #statements > 0 and statements[ 1 ].mainsnak.datatype == 'monolingualtext' then local hyphen, lng, value catTable[ p ] = '' for i = 1, #statements, 1 do value = statements[ i ].mainsnak.datavalue.value lng = value.language hyphen = lng:find( '-' ) if hyphen then lng = lng:sub( 1, hyphen - 1 ) end if not result[ lng ] then result[ lng ] = value.text end end end return result end function wu.getValuesByQualifier( entity, p, qualifierP, defaultId ) local result = {} if not isSet( qualifierP ) then return result elseif type( defaultId ) ~= 'string' or defaultId == '' then defaultId = 'unknown' end local statements = wu.getStatements( entity, p, nil ) if #statements > 0 then catTable[ p ] = '' local id, statement, value for i = 1, #statements do statement = statements[ i ] -- defaultId is used if a qualifier is missing id = defaultId value = statement.mainsnak.datavalue.value if statement.qualifiers and statement.qualifiers[ qualifierP ] then for _, qualifier in ipairs( statement.qualifiers[ qualifierP ] ) do if qualifier.snaktype == 'value' then id = qualifier.datavalue.value.id if id then catTable[ qualifierP ] = '' break end end end end result[ id ] = value end end return result end local function analyzeDatavalue( datavalue, labelFct, ... ) local v = datavalue.value local t = datavalue.type if type( v ) == 'table' then -- items which can be reduced to a string if t == 'wikibase-entityid' then v = v.id if type( labelFct ) == 'function' then v = labelFct( v, ... ) end elseif t == 'quantity' then v.amount = v.amount:gsub( '^+', '' ) if tonumber( v.amount ) == 0 then v.amount = '0' end if v.unit == '1' then v = tonumber( v.amount ) or 1 else v.unit = wu.getUnit( v.unit ) end elseif t == 'time' then v.calendarmodel = wu.getUnit( v.calendarmodel ) if wu.isGregorian( v ) then v = v.time end end end return v, t end -- The following function is an experimental one, not for extensive use -- for qualifiers, references -- { item1, item2, ... } : using named qualifiers/references -- {} : using no qualifiers/references -- nil : using all qualifiers/references function wu.getValuesWithQualifiers( entity, p, values, qualifiers, references, count, labelFct, ... ) local array, qual local function toQualifierTable( tab, key, qualTab, labelFct, ... ) local v if not tab[ key ] then tab[ key ] = {} end for i = 1, #qualTab do qual = qualTab[ i ] if qual.snaktype == 'value' then v, tab[ key .. '-type' ] = analyzeDatavalue( qual.datavalue, labelFct, ... ) table.insert( tab[ key ], v ) end end if #tab[ key ] == 0 then tab[ key ] = nil tab[ key .. '-type' ] = nil else catTable[ key ] = '' end end local function hasValue( tab, val ) for i = 1, #tab do if tab[ i ] == val then return true end end return false end local results = {} local statements = wu.getStatements( entity, p, count ) if #statements == 0 then return results end local i, v if type( values ) == 'table' and #values > 0 then for i = #statements, 1, -1 do v = statements[ i ].mainsnak.datavalue.value if type( v ) ~= 'string' then v = v.id end if not isSet( v ) or not hasValue( values, v ) then table.remove( statements, i ) end end if #statements == 0 then return results end end catTable[ p ] = '' if type( qualifiers ) == 'string' then qualifiers = { qualifiers } end if type( references ) == 'string' then references = { references } end local key, reference, statement for i = 1, #statements do statement = statements[ i ] array = { value = analyzeDatavalue( statement.mainsnak.datavalue, labelFct, ... ), [ 'value-type' ] = statement.mainsnak.datavalue.type } if statement.qualifiers then if not qualifiers then -- all qualifier properties for key, qualTab in pairs( statement.qualifiers ) do toQualifierTable( array, key, qualTab, labelFct, ... ) end else -- table of selected qualifier properties for j = 1, #qualifiers do key = qualifiers[ j ] if statement.qualifiers[ key ] then toQualifierTable( array, key, statement.qualifiers[ key ], labelFct, ... ) end end end end array.references = {} if statement.references then for k = 1, #statement.references do reference = statement.references[ k ] if reference and reference.snaks then table.insert( array.references, {} ) if not references then -- all references for key, refTab in pairs( reference.snaks ) do toQualifierTable( array.references[ #array.references ], key, refTab ) end else -- table of selected references for j = 1, #references do key = references[ j ] if reference.snaks[ key ] then toQualifierTable( array.references[ #array.references ], key, reference.snaks[ key ] ) end end end end end end table.insert( results, array ) end -- clustering statements with identical value local helper = {} local sort1 = 0 local mult = false local result for i = 1, #results do result = results[ i ] if helper[ result.value ] then helper[ result.value ].sort2 = helper[ result.value ].sort2 + 1 mult = true else sort1 = sort1 + 1 helper[ result.value ] = { sort1 = sort1, sort2 = 1 } end result.sort1 = helper[ result.value ].sort1 result.sort2 = helper[ result.value ].sort2 end if sort1 > 1 and mult and #results > 2 then table.sort( results, function( a, b ) return a.sort1 < b.sort1 or ( a.sort1 == b.sort1 and a.sort2 < b.sort2 ) end ) end return results end -- get lastEdit from reference retrieve date function wu.getLastedit( lastEdit, statements ) local isBoolean = type( lastEdit ) == 'boolean' if isBoolean and lastEdit == false then return lastEdit end local le = '' for _, statement in ipairs( statements ) do if statement.references then for _, reference in ipairs( statement.references ) do if reference[ wd.retrieved ] then for _, retrieved in ipairs( reference[ wd.retrieved ] ) do retrieved = wu.getDateFromTime( retrieved ) if retrieved > le then le = retrieved end end end end end end if isBoolean then return ( le ~= '' ) and le or lastEdit else return ( le > lastEdit ) and le or lastEdit end end function wu.getAliases( entity, lang ) if type( entity ) == 'string' then -- is Q id entity = mw.wikibase.getEntity( entity ) end if not lang then lang = mw.getContentLanguage():getCode() end local aliases = {} if entity and entity.aliases and entity.aliases[ lang ] then for _, alias in ipairs( entity.aliases[ lang ] ) do table.insert( aliases, alias.value ) end end return aliases end -- maintenance utilities function wu.addProperty( p ) catTable[ p ] = '' end function wu.removeProperty( p ) catTable[ p ] = nil end function wu.getCategories( formatStr ) local result = '' if not isSet( formatStr ) then formatStr = '[[Category:%s]]' end catTable.P0 = nil for key, value in pairs( catTable ) do result = result .. string.format( formatStr, key ) end return result end return wu