skandinavien-wiki.net

Modul:Wikidata utilities: Unterschied zwischen den Versionen

Modul Diskussion

Modul:Wikidata utilities (Quelltext anzeigen)

Version vom 27. Januar 2023, 07:40 Uhr

5.253 Bytes hinzugefügt ,  vor 3 Jahren
K
89 Versionen von wikivoyage:Modul:Wikidata_utilities importiert
(vereinfacht)
K (89 Versionen von wikivoyage:Modul:Wikidata_utilities importiert)
 
(32 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt)
Zeile 4: Zeile 4:
local WikidataUtilities = {
local WikidataUtilities = {
suite  = 'WikidataUtilities',
suite  = 'WikidataUtilities',
serial = '2020-09-30',
serial = '2022-09-04',
item  = 65439025
item  = 65439025
}
}


-- module variable
-- i18n
local wu = {}
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
-- table storing property ids used
Zeile 58: Zeile 68:
end
end


function wu.getLabel( entity, lang )
function wu.getLabel( entity, lang, noFallback )
if not isSet( entity ) then
if not isSet( entity ) then
return nil
return nil
end
end
if type( entity ) == 'string' then -- entity is id
local tp = type( entity )
if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then
return isSet( lang ) and mw.wikibase.getLabelByLang( entity, lang )
return isSet( lang ) and mw.wikibase.getLabelByLang( entity, lang )
or mw.wikibase.getLabel( entity )
or ( not noFallback and mw.wikibase.getLabel( entity ) )
else -- entity is table
elseif tp == 'table' and entity.labels then
return isSet( lang ) and entity:getLabel( lang ) or entity:getLabel()
return isSet( lang ) and entity:getLabel( lang )
or ( not noFallback and entity:getLabel() )
else
return nil
end
end
end
end
Zeile 74: Zeile 88:
return nil
return nil
end
end
if type( entity ) == 'string' then -- entity is id
local tp = type( entity )
return isSet( globalSiteId ) and mw.wikibase.getSitelink( entity, globalSiteId )
if tp == 'string' and mw.wikibase.isValidEntityId( entity ) then
or mw.wikibase.getSitelink( entity )
return mw.wikibase.getSitelink( entity, globalSiteId )
else -- entity is table
elseif tp == 'table' and entity.labels then
return isSet( globalSiteId ) and entity:getSitelink( globalSiteId )
return entity:getSitelink( globalSiteId )
or 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
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
end


function wu.getBestStatements( entity, p )
function wu.getBestStatements( entity, p )
if type( entity ) == 'string' then
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 entity:getBestStatements( p )
return {}
end
end
end
end
Zeile 107: Zeile 166:
i = i + 1
i = i + 1
if statements[ i ].mainsnak.snaktype == 'value' then
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 ] )
table.insert( ar, statements[ i ] )
end
end
Zeile 150: Zeile 215:
function wu.getValuesByLang( entity, p, count, lang )
function wu.getValuesByLang( entity, p, count, lang )
local ar = {}
local ar = {}
local statements = wu.getStatements( entity, p, count )
local statements = wu.getStatements( entity, p )
if #statements > 0 then
if #statements > 0 then
local value
local value
Zeile 157: Zeile 222:
if value.language and lang == value.language then
if value.language and lang == value.language then
table.insert( ar, value.text )
table.insert( ar, value.text )
end
if count and #ar >= count then
break
end
end
end
end
Zeile 199: Zeile 267:
if #statements > 0 then
if #statements > 0 then
catTable[ p ] = ''
catTable[ p ] = ''
local id, value
local id, statement, value
for _, statement in ipairs( statements ) do
for i = 1, #statements do
statement = statements[ i ]
-- defaultId is used if a qualifier is missing
-- defaultId is used if a qualifier is missing
id = defaultId
id = defaultId
Zeile 209: Zeile 278:
id = qualifier.datavalue.value.id
id = qualifier.datavalue.value.id
if id then
if id then
catTable[ qualifierP ] = ''
break
break
end
end
Zeile 220: Zeile 290:
end
end


local function getValueFromDatavalue( datavalue )
local function analyzeDatavalue( datavalue, labelFct, ... )
local v = datavalue.value
local v = datavalue.value
local t = datavalue.type
local t = datavalue.type
Zeile 227: Zeile 297:
if t == 'wikibase-entityid' then
if t == 'wikibase-entityid' then
v = v.id
v = v.id
if type( labelFct ) == 'function' then
v = labelFct( v, ... )
end
elseif t == 'quantity' then
elseif t == 'quantity' then
v.amount = v.amount:gsub( '^+', '' )
if tonumber( v.amount ) == 0 then
v.amount = '0'
end
if v.unit == '1' then
if v.unit == '1' then
v = tonumber( v.amount ) or 1
v = tonumber( v.amount ) or 1
else
else
v = v.amount:gsub( '^+', '' ) .. ' ' .. v.unit
v.unit = wu.getUnit( v.unit )
end
end
elseif t == 'time' then
elseif t == 'time' then
v = v.time
v.calendarmodel = wu.getUnit( v.calendarmodel )
if wu.isGregorian( v ) then
v = v.time
end
end
end
end
end
Zeile 241: 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 wu.getValuesWithQualifiers( entity, p, qualifiers, count )
-- for qualifiers, references
local result = {}
--  { 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 )
local statements = wu.getStatements( entity, p, count )
if #statements == 0 then
if #statements == 0 then
return result
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
end
catTable[ p ] = ''


if type( qualifiers ) == 'string' then
if type( qualifiers ) == 'string' then
qualifiers = { qualifiers }
qualifiers = { qualifiers }
end
if type( references ) == 'string' then
references = { references }
end
end


local array
local key, reference, statement
for _, statement in ipairs( statements ) do
for i = 1, #statements do
array = { value = getValueFromDatavalue( statement.mainsnak.datavalue ),
statement = statements[ i ]
array = { value = analyzeDatavalue( statement.mainsnak.datavalue, labelFct, ... ),
[ 'value-type' ] = statement.mainsnak.datavalue.type }
[ 'value-type' ] = statement.mainsnak.datavalue.type }
if statement.qualifiers then
if statement.qualifiers then
if not qualifiers then -- all qualifier properties
if not qualifiers then -- all qualifier properties
for key, qualTab in pairs( statement.qualifiers ) do
for key, qualTab in pairs( statement.qualifiers ) do
for _, qual in ipairs( qualTab ) do
toQualifierTable( array, key, qualTab, labelFct, ... )
if qual.snaktype == 'value' then
end
array[ key ], array[ key .. '-type' ] =
else -- table of selected qualifier properties
getValueFromDatavalue( qual.datavalue )
for j = 1, #qualifiers do
break
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
end
else -- table of selected qualifier properties
end
for key, value in ipairs( qualifiers ) do
end
if statement.qualifiers[ value ] then
 
for _, qual in ipairs( statement.qualifiers[ value ] ) do
table.insert( results, array )
if qual.snaktype == 'value' then
end
array[ value ], array[ value .. '-type' ] =
 
getValueFromDatavalue( qual.datavalue )
-- clustering statements with identical value
break
local helper = {}
end
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
Zeile 281: Zeile 483:
end
end
end
end
table.insert( result, array )
end
end
return result
if isBoolean then
return ( le ~= '' ) and le or lastEdit
else
return ( le > lastEdit ) and le or lastEdit
end
end
end


Zeile 305: Zeile 510:
function wu.addProperty( p )
function wu.addProperty( p )
catTable[ p ] = ''
catTable[ p ] = ''
end
function wu.removeProperty( p )
catTable[ p ] = nil
end
end


Abgerufen von „https://skandinavien-wiki.net/wiki/Spezial:Mobiler_Unterschied/16527...16558“