Importer, Bürokraten, Moderatoren (CommentStreams), flow-bot, Oberflächenadministratoren, Push-Abonnementverwalter, Oversighter, Administratoren, Kampagnenbearbeiter (Hochladeassistent)
854
Bearbeitungen
Keine Bearbeitungszusammenfassung |
K (89 Versionen von wikivoyage:Modul:Wikidata_utilities importiert) |
||
(77 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
-- Wikidata convenience utilities | |||
-- documentation | |||
local WikidataUtilities = { | |||
return '' | 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 | end | ||
if not entity then | |||
if | id = '' | ||
wrongQualifier = true | |||
end | end | ||
return | |||
return id, entity, wrongQualifier | |||
end | end | ||
function | function wu.getEntityId( id ) | ||
local wrongQualifier = false | local wrongQualifier = false | ||
local entity = nil | local entity = nil | ||
if not isSet( id ) then | |||
id = '' | |||
elseif mw.wikibase.isValidEntityId( id ) and mw.wikibase.entityExists( id ) then | |||
-- expensive function call | -- expensive function call | ||
-- redirect ids marked false, too | |||
entity = id | |||
else | else | ||
id = '' | |||
wrongQualifier = true | |||
end | end | ||
return | |||
return id, entity, wrongQualifier | |||
end | end | ||
local | function wu.getLabel( entity, lang, noFallback ) | ||
if | 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 | |||
-- 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 | |||
return | 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 | 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 | local statements = wu.getBestStatements( entity, p ) | ||
count = math.min( count or #statements, #statements ) | |||
if count <= 0 then | |||
if | |||
return ar | return ar | ||
end | end | ||
Zeile 88: | 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 statements = wu.getStatements( entity, p, 1 ) | |||
if #statements > 0 then | |||
catTable[ p ] = '' | |||
return statements[ 1 ].mainsnak.datavalue.value | |||
else | |||
return '' | return '' | ||
end | end | ||
end | |||
local value | function wu.getId( entity, p ) | ||
local value = '' | |||
value = | local statements = wu.getStatements( entity, p, 1 ) | ||
if #statements > 0 then | |||
value = | value = statements[ 1 ].mainsnak.datavalue.value | ||
value = value.id or '' | |||
if value ~= '' then | |||
catTable[ p ] = '' | |||
end | |||
end | end | ||
if | 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 | end | ||
return statements | |||
return | |||
end | end | ||
function | 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 | end | ||
if #ar > 0 then | |||
catTable[ p ] = '' | |||
if | |||
end | end | ||
if value then | 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 | end | ||
return result | |||
return | |||
end | end | ||
function | function wu.getValuesByQualifier( entity, p, qualifierP, defaultId ) | ||
if ( | local result = {} | ||
if not isSet( qualifierP ) then | |||
return result | |||
elseif type( defaultId ) ~= 'string' or defaultId == '' then | |||
defaultId = 'unknown' | |||
end | end | ||
local statements | local statements = wu.getStatements( entity, p, nil ) | ||
if | 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 | 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 | end | ||
function | -- The following function is an experimental one, not for extensive use | ||
local | -- 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 | 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 | ||
end | end | ||
if #statements == 0 then | |||
return results | |||
end | |||
end | end | ||
catTable[ p ] = '' | |||
if type( qualifiers ) == 'string' then | |||
end | 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 | |||
if | -- 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 | 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 | |||
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 | end | ||
return | return wu |
Bearbeitungen