KidzSearch Wiki

Changes

Module:Wikidata (view source)

Revision as of 16:51, 18 October 2020

34,992 bytes added ,  16:51, 18 October 2020
Undid revision 5004551 by Admin (talk)
Line 1: Line 1:  +
-- vim: set noexpandtab ft=lua ts=4 sw=4:
 +
require('Module:No globals')
    +
local p = {}
 +
local debug = false
 +
 +
 +
------------------------------------------------------------------------------
 +
-- module local variables and functions
 +
 +
local wiki =
 +
{
 +
langcode = mw.language.getContentLanguage().code
 +
}
 +
 +
-- internationalisation
 +
local i18n =
 +
{
 +
["errors"] =
 +
{
 +
["property-not-found"] = "Property not found.",
 +
["entity-not-found"] = "Wikidata entity not found.",
 +
["unknown-claim-type"] = "Unknown claim type.",
 +
["unknown-entity-type"] = "Unknown entity type.",
 +
["qualifier-not-found"] = "Qualifier not found.",
 +
["site-not-found"] = "Wikimedia project not found.",
 +
["unknown-datetime-format"] = "Unknown datetime format.",
 +
["local-article-not-found"] = "Article is not yet available in this wiki."
 +
},
 +
["datetime"] =
 +
{
 +
-- $1 is a placeholder for the actual number
 +
[0] = "$1 billion years", -- precision: billion years
 +
[1] = "$100 million years", -- precision: hundred million years
 +
[2] = "$10 million years", -- precision: ten million years
 +
[3] = "$1 million years", -- precision: million years
 +
[4] = "$100,000 years", -- precision: hundred thousand years
 +
[5] = "$10,000 years", -- precision: ten thousand years
 +
[6] = "$1 millennium", -- precision: millennium
 +
[7] = "$1 century", -- precision: century
 +
[8] = "$1s", -- precision: decade
 +
-- the following use the format of #time parser function
 +
[9]  = "Y", -- precision: year,
 +
[10] = "F Y", -- precision: month
 +
[11] = "F j, Y", -- precision: day
 +
[12] = "F j, Y ga", -- precision: hour
 +
[13] = "F j, Y g:ia", -- precision: minute
 +
[14] = "F j, Y g:i:sa", -- precision: second
 +
["beforenow"] = "$1 BCE", -- how to format negative numbers for precisions 0 to 5
 +
["afternow"] = "$1 CE", -- how to format positive numbers for precisions 0 to 5
 +
["bc"] = '$1 "BCE"', -- how print negative years
 +
["ad"] = "$1", -- how print positive years
 +
-- the following are for function getDateValue() and getQualifierDateValue()
 +
["default-format"] = "dmy", -- default value of the #3 (getDateValue) or
 +
-- #4 (getQualifierDateValue) argument
 +
["default-addon"] = "BC", -- default value of the #4 (getDateValue) or
 +
-- #5 (getQualifierDateValue) argument
 +
["prefix-addon"] = false, -- set to true for languages put "BC" in front of the
 +
-- datetime string; or the addon will be suffixed
 +
["addon-sep"] = " ", -- separator between datetime string and addon (or inverse)
 +
["format"] = -- options of the 3rd argument
 +
{
 +
["mdy"] = "F j, Y",
 +
["my"] = "F Y",
 +
["y"] = "Y",
 +
["dmy"] = "j F Y",
 +
["ymd"] = "Y-m-d",
 +
["ym"] = "Y-m"
 +
}
 +
},
 +
["monolingualtext"] = '<span lang="%language">%text</span>',
 +
["warnDump"] = "[[Category:Called function 'Dump' from module Wikidata]]",
 +
["ordinal"] =
 +
{
 +
[1] = "st",
 +
[2] = "nd",
 +
[3] = "rd",
 +
["default"] = "th"
 +
}
 +
}
 +
 +
if wiki.langcode ~= "en" then
 +
--require("Module:i18n").loadI18n("Module:Wikidata/i18n", i18n)
 +
-- got idea from [[:w:Module:Wd]]
 +
local module_title; if ... == nil then
 +
module_title = mw.getCurrentFrame():getTitle()
 +
else
 +
module_title = ...
 +
end
 +
require('Module:i18n').loadI18n(module_title..'/i18n', i18n)
 +
end
 +
 +
-- this function needs to be internationalised along with the above:
 +
-- takes cardinal numer as a numeric and returns the ordinal as a string
 +
-- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc.
 +
local function makeOrdinal (cardinal)
 +
local ordsuffix = i18n.ordinal.default
 +
if cardinal % 10 == 1 then
 +
ordsuffix = i18n.ordinal[1]
 +
elseif cardinal % 10 == 2 then
 +
ordsuffix = i18n.ordinal[2]
 +
elseif cardinal % 10 == 3 then
 +
ordsuffix = i18n.ordinal[3]
 +
end
 +
-- In English, 1, 21, 31, etc. use 'st', but 11, 111, etc. use 'th'
 +
-- similarly for 12 and 13, etc.
 +
if (cardinal % 100 == 11) or (cardinal % 100 == 12) or (cardinal % 100 == 13) then
 +
ordsuffix = i18n.ordinal.default
 +
end
 +
return tostring(cardinal) .. ordsuffix
 +
end
 +
 +
local function printError(code)
 +
return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'
 +
end
 +
local function parseDateFormat(f, timestamp, addon, prefix_addon, addon_sep)
 +
local year_suffix
 +
local tstr = ""
 +
local lang_obj = mw.language.new(wiki.langcode)
 +
local f_parts = mw.text.split(f, 'Y', true)
 +
for idx, f_part in pairs(f_parts) do
 +
year_suffix = ''
 +
if string.match(f_part, "x[mijkot]$") then
 +
-- for non-Gregorian year
 +
f_part = f_part .. 'Y'
 +
elseif idx < #f_parts then
 +
-- supress leading zeros in year
 +
year_suffix = lang_obj:formatDate('Y', timestamp)
 +
year_suffix = string.gsub(year_suffix, '^0+', '', 1)
 +
end
 +
tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
 +
end
 +
if addon ~= "" and prefix_addon then
 +
return addon .. addon_sep .. tstr
 +
elseif addon ~= "" then
 +
return tstr .. addon_sep .. addon
 +
else
 +
return tstr
 +
end
 +
end
 +
local function parseDateValue(timestamp, date_format, date_addon)
 +
local prefix_addon = i18n["datetime"]["prefix-addon"]
 +
local addon_sep = i18n["datetime"]["addon-sep"]
 +
local addon = ""
 +
 +
-- check for negative date
 +
if string.sub(timestamp, 1, 1) == '-' then
 +
timestamp = '+' .. string.sub(timestamp, 2)
 +
addon = date_addon
 +
end
 +
local _date_format = i18n["datetime"]["format"][date_format]
 +
if _date_format ~= nil then
 +
return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
 +
else
 +
return printError("unknown-datetime-format")
 +
end
 +
end
 +
 +
-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
 +
-- with the millennium/century/decade handling of formatDate()
 +
local function parseDateFull(timestamp, precision, date_format, date_addon)
 +
local prefix_addon = i18n["datetime"]["prefix-addon"]
 +
local addon_sep = i18n["datetime"]["addon-sep"]
 +
local addon = ""
 +
 +
-- check for negative date
 +
if string.sub(timestamp, 1, 1) == '-' then
 +
timestamp = '+' .. string.sub(timestamp, 2)
 +
addon = date_addon
 +
end
 +
 +
-- get the next four characters after the + (should be the year now in all cases)
 +
-- ok, so this is dirty, but let's get it working first
 +
local intyear = tonumber(string.sub(timestamp, 2, 5))
 +
if intyear == 0 and precision <= 9 then
 +
return ""
 +
end
 +
 +
-- precision is 10000 years or more
 +
if precision <= 5 then
 +
local factor = 10 ^ ((5 - precision) + 4)
 +
local y2 = math.ceil(math.abs(intyear) / factor)
 +
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
 +
if addon ~= "" then
 +
-- negative date
 +
relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
 +
else
 +
relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
 +
end
 +
return relative
 +
end
 +
 +
-- precision is decades (8), centuries (7) and millennia (6)
 +
local era, card
 +
if precision == 6 then
 +
card = math.floor((intyear - 1) / 1000) + 1
 +
era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card))
 +
end
 +
if precision == 7 then
 +
card = math.floor((intyear - 1) / 100) + 1
 +
era = mw.ustring.gsub(i18n.datetime[7], "$1", makeOrdinal(card))
 +
end
 +
if precision == 8 then
 +
era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10))
 +
end
 +
if era then
 +
if addon ~= "" then
 +
era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
 +
else
 +
era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era)
 +
end
 +
return era
 +
end
 +
 +
local _date_format = i18n["datetime"]["format"][date_format]
 +
if _date_format ~= nil then
 +
-- check for precision is year and override supplied date_format
 +
if precision == 9 then
 +
_date_format = i18n["datetime"][9]
 +
end
 +
return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
 +
else
 +
return printError("unknown-datetime-format")
 +
end
 +
end
 +
 +
-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field
 +
-- use these as the second parameter and this function instead of the built-in "pairs" function
 +
-- to iterate over all qualifiers and snaks in the intended order.
 +
local function orderedpairs(array, order)
 +
if not order then return pairs(array) end
 +
 +
-- return iterator function
 +
local i = 0
 +
return function()
 +
i = i + 1
 +
if order[i] then
 +
return order[i], array[order[i]]
 +
end
 +
end
 +
end
 +
 +
-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
 +
local function normalizeDate(date)
 +
date = mw.text.trim(date, "+")
 +
-- extract year
 +
local yearstr = mw.ustring.match(date, "^\-?%d+")
 +
local year = tonumber(yearstr)
 +
-- remove leading zeros of year
 +
return year .. mw.ustring.sub(date, #yearstr + 1), year
 +
end
 +
 +
local function formatDate(date, precision, timezone)
 +
precision = precision or 11
 +
local date, year = normalizeDate(date)
 +
if year == 0 and precision <= 9 then return "" end
 +
 +
-- precision is 10000 years or more
 +
if precision <= 5 then
 +
local factor = 10 ^ ((5 - precision) + 4)
 +
local y2 = math.ceil(math.abs(year) / factor)
 +
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
 +
if year < 0 then
 +
relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
 +
else
 +
relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
 +
end
 +
return relative
 +
end
 +
 +
-- precision is decades, centuries and millennia
 +
local era
 +
if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
 +
if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end
 +
if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) end
 +
if era then
 +
if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
 +
elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end
 +
return era
 +
end
 +
 +
-- precision is year
 +
if precision == 9 then
 +
return year
 +
end
 +
 +
-- precision is less than years
 +
if precision > 9 then
 +
--[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local time
 +
timezone = tonumber(timezone)
 +
if timezone and timezone ~= 0 then
 +
timezone = -timezone
 +
timezone = string.format("%.2d%.2d", timezone / 60, timezone % 60)
 +
if timezone[1] ~= '-' then timezone = "+" .. timezone end
 +
date = mw.text.trim(date, "Z") .. " " .. timezone
 +
end
 +
]]--
 +
 +
local formatstr = i18n.datetime[precision]
 +
if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], "")
 +
elseif year < 0 then
 +
-- Mediawiki formatDate doesn't support negative years
 +
date = mw.ustring.sub(date, 2)
 +
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, "$1", i18n.datetime[9]))
 +
elseif year > 0 and i18n.datetime.ad ~= "$1" then
 +
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9]))
 +
end
 +
return mw.language.new(wiki.langcode):formatDate(formatstr, date)
 +
end
 +
end
 +
 +
local function printDatavalueEntity(data, parameter)
 +
-- data fields: entity-type [string], numeric-id [int, Wikidata id]
 +
local id
 +
 +
if data["entity-type"] == "item" then id = "Q" .. data["numeric-id"]
 +
elseif data["entity-type"] == "property" then id = "P" .. data["numeric-id"]
 +
else return printError("unknown-entity-type")
 +
end
 +
 +
if parameter then
 +
if parameter == "link" then
 +
local linkTarget = mw.wikibase.getSitelink(id)
 +
local linkName = mw.wikibase.getLabel(id)
 +
if linkTarget then
 +
-- if there is a local Wikipedia article link to it using the label or the article title
 +
return "[[" .. linkTarget .. "|" .. (linkName or linkTarget) .. "]]"
 +
else
 +
-- if there is no local Wikipedia article output the label or link to the Wikidata object to let the user input a proper label
 +
if linkName then return linkName else return "[[:d:" .. id .. "|" .. id .. "]]" end
 +
end
 +
else
 +
return data[parameter]
 +
end
 +
else
 +
return mw.wikibase.getLabel(id) or id
 +
end
 +
end
 +
 +
local function printDatavalueTime(data, parameter)
 +
-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]
 +
--  precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
 +
--  calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar]
 +
if parameter then
 +
if parameter == "calendarmodel" then data.calendarmodel = mw.ustring.match(data.calendarmodel, "Q%d+") -- extract entity id from the calendar model URI
 +
elseif parameter == "time" then data.time = normalizeDate(data.time) end
 +
return data[parameter]
 +
else
 +
return formatDate(data.time, data.precision, data.timezone)
 +
end
 +
end
 +
 +
local function printDatavalueMonolingualText(data, parameter)
 +
-- data fields: language [string], text [string]
 +
if parameter then
 +
return data[parameter]
 +
else
 +
local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])
 +
return result
 +
end
 +
end
 +
 +
local function findClaims(entity, property)
 +
if not property or not entity or not entity.claims then return end
 +
 +
if mw.ustring.match(property, "^P%d+$") then
 +
-- if the property is given by an id (P..) access the claim list by this id
 +
return entity.claims[property]
 +
else
 +
property = mw.wikibase.resolvePropertyId(property)
 +
if not property then return end
 +
 +
return entity.claims[property]
 +
end
 +
end
 +
 +
local function getSnakValue(snak, parameter)
 +
if snak.snaktype == "value" then
 +
-- call the respective snak parser
 +
if snak.datavalue.type == "string" then return snak.datavalue.value
 +
elseif snak.datavalue.type == "globecoordinate" then return printDatavalueCoordinate(snak.datavalue.value, parameter)
 +
elseif snak.datavalue.type == "quantity" then return printDatavalueQuantity(snak.datavalue.value, parameter)
 +
elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter)
 +
elseif snak.datavalue.type == "wikibase-entityid" then return printDatavalueEntity(snak.datavalue.value, parameter)
 +
elseif snak.datavalue.type == "monolingualtext" then return printDatavalueMonolingualText(snak.datavalue.value, parameter)
 +
end
 +
end
 +
return mw.wikibase.renderSnak(snak)
 +
end
 +
 +
local function getQualifierSnak(claim, qualifierId)
 +
-- a "snak" is Wikidata terminology for a typed key/value pair
 +
-- a claim consists of a main snak holding the main information of this claim,
 +
-- as well as a list of attribute snaks and a list of references snaks
 +
if qualifierId then
 +
-- search the attribute snak with the given qualifier as key
 +
if claim.qualifiers then
 +
local qualifier = claim.qualifiers[qualifierId]
 +
if qualifier then return qualifier[1] end
 +
end
 +
return nil, printError("qualifier-not-found")
 +
else
 +
-- otherwise return the main snak
 +
return claim.mainsnak
 +
end
 +
end
 +
 +
local function getValueOfClaim(claim, qualifierId, parameter)
 +
local error
 +
local snak
 +
snak, error = getQualifierSnak(claim, qualifierId)
 +
if snak then
 +
return getSnakValue(snak, parameter)
 +
else
 +
return nil, error
 +
end
 +
end
 +
 +
local function getReferences(frame, claim)
 +
local result = ""
 +
-- traverse through all references
 +
for ref in pairs(claim.references or {}) do
 +
local refparts
 +
-- traverse through all parts of the current reference
 +
for snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref]["snaks-order"]) do
 +
if refparts then refparts = refparts .. ", " else refparts = "" end
 +
-- output the label of the property of the reference part, e.g. "imported from" for P143
 +
refparts = refparts .. tostring(mw.wikibase.getLabel(snakkey)) .. ": "
 +
-- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sites
 +
for snakidx = 1, #snakval do
 +
if snakidx > 1 then refparts = refparts .. ", " end
 +
refparts = refparts .. getSnakValue(snakval[snakidx])
 +
end
 +
end
 +
if refparts then result = result .. frame:extensionTag("ref", refparts) end
 +
end
 +
return result
 +
end
 +
 +
local function parseInput(frame)
 +
local qid = frame.args.qid
 +
if qid and (#qid == 0) then qid = nil end
 +
local propertyID = mw.text.trim(frame.args[1] or "")
 +
local input_parm = mw.text.trim(frame.args[2] or "")
 +
if input_parm ~= "FETCH_WIKIDATA" then
 +
return false, input_parm, nil, nil
 +
end
 +
local entity = mw.wikibase.getEntity(qid)
 +
local claims
 +
if entity and entity.claims then
 +
claims = entity.claims[propertyID]
 +
if not claims then
 +
return false, "", nil, nil
 +
end
 +
else
 +
return false, "", nil, nil
 +
end
 +
return true, entity, claims, propertyID
 +
end
 +
local function isType(claims, type)
 +
return claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == type
 +
end
 +
local function getValue(entity, claims, propertyID, delim, labelHook)
 +
if labelHook == nil then
 +
labelHook = function (qnumber)
 +
return nil;
 +
end
 +
end
 +
if isType(claims, "wikibase-entityid") then
 +
local out = {}
 +
for k, v in pairs(claims) do
 +
local qnumber = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
 +
local sitelink = mw.wikibase.getSitelink(qnumber)
 +
local label = labelHook(qnumber) or mw.wikibase.getLabel(qnumber) or qnumber
 +
if sitelink then
 +
out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
 +
else
 +
out[#out + 1] = "[[:d:" .. qnumber .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
 +
end
 +
end
 +
return table.concat(out, delim)
 +
else
 +
-- just return best values
 +
return entity:formatPropertyValues(propertyID).value
 +
end
 +
end
 +
 +
------------------------------------------------------------------------------
 +
-- module global functions
 +
 +
if debug then
 +
function p.inspectI18n(frame)
 +
local val = i18n
 +
for _, key in pairs(frame.args) do
 +
key = mw.text.trim(key)
 +
val = val[key]
 +
end
 +
return val
 +
end
 +
end
 +
 +
function p.descriptionIn(frame)
 +
local langcode = frame.args[1]
 +
local id = frame.args[2]
 +
-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
 +
return mw.wikibase.getEntity(id):getDescription(langcode or wiki.langcode)
 +
end
 +
 +
function p.labelIn(frame)
 +
local langcode = frame.args[1]
 +
local id = frame.args[2]
 +
-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
 +
return mw.wikibase.getEntity(id):getLabel(langcode or wiki.langcode)
 +
end
 +
 +
-- This is used to get a value, or a comma separated list of them if multiple values exist
 +
p.getValue = function(frame)
 +
local delimdefault = ", " -- **internationalise later**
 +
local delim = frame.args.delimiter or ""
 +
delim = string.gsub(delim, '"', '')
 +
if #delim == 0 then
 +
delim = delimdefault
 +
end
 +
local go, errorOrentity, claims, propertyID = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
return getValue(errorOrentity, claims, propertyID, delim)
 +
end
 +
 +
-- Same as above, but uses the short name property for label if available.
 +
p.getValueShortName = function(frame)
 +
local go, errorOrentity, claims, propertyID = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
-- if wiki-linked value output as link if possible
 +
local function labelHook (qnumber)
 +
local label
 +
local claimEntity = mw.wikibase.getEntity(qnumber)
 +
if claimEntity ~= nil then
 +
if claimEntity.claims.P1813 then
 +
for k2, v2 in pairs(claimEntity.claims.P1813) do
 +
if v2.mainsnak.datavalue.value.language == "en" then
 +
label = v2.mainsnak.datavalue.value.text
 +
end
 +
end
 +
end
 +
end
 +
if label == nil or label == "" then return nil end
 +
return label
 +
end
 +
return getValue(errorOrentity, claims, propertyID, ", ", labelHook);
 +
end
 +
 +
-- This is used to get a value, or a comma separated list of them if multiple values exist
 +
-- from an arbitrary entry by using its QID.
 +
-- Use : {{#invoke:Wikidata|getValueFromID|<ID>|<Property>|FETCH_WIKIDATA}}
 +
-- E.g.: {{#invoke:Wikidata|getValueFromID|Q151973|P26|FETCH_WIKIDATA}} - to fetch value of 'spouse' (P26) from 'Richard Burton' (Q151973)
 +
-- Please use sparingly - this is an *expensive call*.
 +
p.getValueFromID = function(frame)
 +
local itemID = mw.text.trim(frame.args[1] or "")
 +
local propertyID = mw.text.trim(frame.args[2] or "")
 +
local input_parm = mw.text.trim(frame.args[3] or "")
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntity(itemID)
 +
local claims
 +
if entity and entity.claims then
 +
claims = entity.claims[propertyID]
 +
end
 +
if claims then
 +
return getValue(entity, claims, propertyID, ", ")
 +
else
 +
return ""
 +
end
 +
else
 +
return input_parm
 +
end
 +
end
 +
local function getQualifier(frame, outputHook)
 +
local propertyID = mw.text.trim(frame.args[1] or "")
 +
local qualifierID = mw.text.trim(frame.args[2] or "")
 +
local input_parm = mw.text.trim(frame.args[3] or "")
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntity()
 +
if entity.claims[propertyID] ~= nil then
 +
local out = {}
 +
for k, v in pairs(entity.claims[propertyID]) do
 +
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
 +
if v2.snaktype == 'value' then
 +
out[#out + 1] = outputHook(v2);
 +
end
 +
end
 +
end
 +
return table.concat(out, ", "), true
 +
else
 +
return "", false
 +
end
 +
else
 +
return input_parm, false
 +
end
 +
end
 +
p.getQualifierValue = function(frame)
 +
local function outputValue(value)
 +
local qnumber = "Q" .. value.datavalue.value["numeric-id"]
 +
if (mw.wikibase.getSitelink(qnumber)) then
 +
return "[[" .. mw.wikibase.getSitelink(qnumber) .. "]]"
 +
else
 +
return "[[:d:" .. qnumber .. "|" ..qnumber .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
 +
end
 +
end
 +
return (getQualifier(frame, outputValue))
 +
end
 +
 +
-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
 +
p.getRawValue = function(frame)
 +
local go, errorOrentity, claims, propertyID = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
 +
-- if number type: remove thousand separators, bounds and units
 +
if isType(claims, "quantity") then
 +
result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
 +
result = mw.ustring.gsub(result, "(%d)±.*", "%1")
 +
end
 +
return result
 +
end
 +
 +
-- This is used to get the unit name for the numeric value returned by getRawValue
 +
p.getUnits = function(frame)
 +
local go, errorOrentity, claims, propertyID = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
 +
if isType(claims, "quantity") then
 +
result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)
 +
end
 +
return result
 +
end
 +
 +
-- This is used to get the unit's QID to use with the numeric value returned by getRawValue
 +
p.getUnitID = function(frame)
 +
local go, errorOrentity, claims = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
local result
 +
if isType(claims, "quantity") then
 +
-- get the url for the unit entry on Wikidata:
 +
result = claims[1].mainsnak.datavalue.value.unit
 +
-- and just reurn the last bit from "Q" to the end (which is the QID):
 +
result = mw.ustring.sub(result, mw.ustring.find(result, "Q"), -1)
 +
end
 +
return result
 +
end
 +
 +
p.getRawQualifierValue = function(frame)
 +
local function outputHook(value)
 +
if value.datavalue.value["numeric-id"] then
 +
return mw.wikibase.getLabel("Q" .. value.datavalue.value["numeric-id"])
 +
else
 +
return value.datavalue.value
 +
end
 +
end
 +
local ret, gotData = getQualifier(frame, outputHook)
 +
if gotData then
 +
ret = string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
 +
end
 +
return ret
 +
end
 +
 +
-- This is used to get a date value for date_of_birth (P569), etc. which won't be linked
 +
-- Dates and times are stored in ISO 8601 format (sort of).
 +
-- At present the local formatDate(date, precision, timezone) function doesn't handle timezone
 +
-- So I'll just supply "Z" in the call to formatDate below:
 +
p.getDateValue = function(frame)
 +
local date_format = mw.text.trim(frame.args[3] or i18n["datetime"]["default-format"])
 +
local date_addon = mw.text.trim(frame.args[4] or i18n["datetime"]["default-addon"])
 +
local go, errorOrentity, claims = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
local out = {}
 +
for k, v in pairs(claims) do
 +
if v.mainsnak.datavalue.type == 'time' then
 +
local timestamp = v.mainsnak.datavalue.value.time
 +
local dateprecision = v.mainsnak.datavalue.value.precision
 +
-- A year can be stored like this: "+1872-00-00T00:00:00Z",
 +
-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",
 +
-- and that's the last day of 1871, so the year is wrong.
 +
-- So fix the month 0, day 0 timestamp to become 1 January instead:
 +
timestamp = timestamp:gsub("%-00%-00T", "-01-01T")
 +
out[#out + 1] = parseDateFull(timestamp, dateprecision, date_format, date_addon)
 +
end
 +
end
 +
return table.concat(out, ", ")
 +
end
 +
p.getQualifierDateValue = function(frame)
 +
local date_format = mw.text.trim(frame.args[4] or i18n["datetime"]["default-format"])
 +
local date_addon = mw.text.trim(frame.args[5] or i18n["datetime"]["default-addon"])
 +
local function outputHook(value)
 +
local timestamp = value.datavalue.value.time
 +
return parseDateValue(timestamp, date_format, date_addon)
 +
end
 +
return (getQualifier(frame, outputHook))
 +
end
 +
 +
-- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc.
 +
-- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless)
 +
-- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html)
 +
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}
 +
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}}
 +
-- If a property is chosen that is not of type "commonsMedia", it will return empty text.
 +
p.getImages = function(frame)
 +
local sep = mw.text.trim(frame.args[3] or " ")
 +
local imgsize = mw.text.trim(frame.args[4] or "frameless")
 +
local go, errorOrentity, claims = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
if (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") then
 +
local out = {}
 +
for k, v in pairs(claims) do
 +
local filename = v.mainsnak.datavalue.value
 +
out[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]"
 +
end
 +
return table.concat(out, sep)
 +
else
 +
return ""
 +
end
 +
end
 +
 +
-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)
 +
-- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm
 +
-- uses the newer mw.wikibase calls instead of directly using the snaks
 +
-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string
 +
p.getTAValue = function(frame)
 +
local ent = mw.wikibase.getEntity()
 +
local props = ent:formatPropertyValues('P1323')
 +
local out = {}
 +
local t = {}
 +
for k, v in pairs(props) do
 +
if k == 'value' then
 +
t = mw.text.split( v, ", ")
 +
for k2, v2 in pairs(t) do
 +
out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
 +
end
 +
end
 +
end
 +
local ret = table.concat(out, "<br> ")
 +
if #ret == 0 then
 +
ret = "Invalid TA"
 +
end
 +
return ret
 +
end
 +
 +
--[[
 +
This is used to return an image legend from Wikidata
 +
image is property P18
 +
image legend is property P2096
 +
 +
Call as {{#invoke:Wikidata |getImageLegend | <PARAMETER> | lang=<ISO-639code> |id=<QID>}}
 +
Returns PARAMETER, unless it is equal to "FETCH_WIKIDATA", from Item QID (expensive call)
 +
If QID is omitted or blank, the current article is used (not an expensive call)
 +
If lang is omitted, it uses the local wiki language, otherwise it uses the provided ISO-639 language code
 +
ISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447
 +
 +
Ranks are: 'preferred' > 'normal'
 +
This returns the label from the first image with 'preferred' rank
 +
Or the label from the first image with 'normal' rank if preferred returns nothing
 +
Ranks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua
 +
]]
 +
 +
p.getImageLegend = function(frame)
 +
-- look for named parameter id; if it's blank make it nil
 +
local id = frame.args.id
 +
if id and (#id == 0) then
 +
id = nil
 +
end
 +
 +
-- look for named parameter lang
 +
-- it should contain a two-character ISO-639 language code
 +
-- if it's blank fetch the language of the local wiki
 +
local lang = frame.args.lang
 +
if (not lang) or (#lang < 2) then
 +
lang = mw.language.getContentLanguage().code
 +
end
 +
 +
-- first unnamed parameter is the local parameter, if supplied
 +
local input_parm = mw.text.trim(frame.args[1] or "")
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local ent = mw.wikibase.getEntity(id)
 +
local imgs
 +
if ent and ent.claims then
 +
imgs = ent.claims.P18
 +
end
 +
local imglbl
 +
if imgs then
 +
-- look for an image with 'preferred' rank
 +
for k1, v1 in pairs(imgs) do
 +
if v1.rank == "preferred" and v1.qualifiers and v1.qualifiers.P2096 then
 +
local imglbls = v1.qualifiers.P2096
 +
for k2, v2 in pairs(imglbls) do
 +
if v2.datavalue.value.language == lang then
 +
imglbl = v2.datavalue.value.text
 +
break
 +
end
 +
end
 +
end
 +
end
 +
-- if we don't find one, look for an image with 'normal' rank
 +
if (not imglbl) then
 +
for k1, v1 in pairs(imgs) do
 +
if v1.rank == "normal" and v1.qualifiers and v1.qualifiers.P2096 then
 +
local imglbls = v1.qualifiers.P2096
 +
for k2, v2 in pairs(imglbls) do
 +
if v2.datavalue.value.language == lang then
 +
imglbl = v2.datavalue.value.text
 +
break
 +
end
 +
end
 +
end
 +
end
 +
end
 +
end
 +
return imglbl
 +
else
 +
return input_parm
 +
end
 +
end
 +
 +
-- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist
 +
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |FETCH_WIKIDATA}}
 +
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |<InputParameter> |qid=<QID>}}
 +
 +
p.getPropertyIDs = function(frame)
 +
local go, errorOrentity, propclaims = parseInput(frame)
 +
if not go then
 +
return errorOrentity
 +
end
 +
local entity = errorOrentity
 +
-- if wiki-linked value collect the QID in a table
 +
if (propclaims[1] and propclaims[1].mainsnak.snaktype == "value" and propclaims[1].mainsnak.datavalue.type == "wikibase-entityid") then
 +
local out = {}
 +
for k, v in pairs(propclaims) do
 +
out[#out + 1] = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
 +
end
 +
return table.concat(out, ", ")
 +
else
 +
-- not a wikibase-entityid, so return empty
 +
return ""
 +
end
 +
end
 +
 +
-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
 +
function p.pageId(frame)
 +
return mw.wikibase.getEntityIdForCurrentPage()
 +
end
 +
 +
function p.claim(frame)
 +
local property = frame.args[1] or ""
 +
local id = frame.args["id"]
 +
local qualifierId = frame.args["qualifier"]
 +
local parameter = frame.args["parameter"]
 +
local list = frame.args["list"]
 +
local references = frame.args["references"]
 +
local showerrors = frame.args["showerrors"]
 +
local default = frame.args["default"]
 +
if default then showerrors = nil end
 +
 +
-- get wikidata entity
 +
local entity = mw.wikibase.getEntity(id)
 +
if not entity then
 +
if showerrors then return printError("entity-not-found") else return default end
 +
end
 +
-- fetch the first claim of satisfying the given property
 +
local claims = findClaims(entity, property)
 +
if not claims or not claims[1] then
 +
if showerrors then return printError("property-not-found") else return default end
 +
end
 +
 +
-- get initial sort indices
 +
local sortindices = {}
 +
for idx in pairs(claims) do
 +
sortindices[#sortindices + 1] = idx
 +
end
 +
-- sort by claim rank
 +
local comparator = function(a, b)
 +
local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
 +
local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a)
 +
local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b)
 +
return ranka < rankb
 +
end
 +
table.sort(sortindices, comparator)
 +
 +
local result
 +
local error
 +
if list then
 +
local value
 +
-- iterate over all elements and return their value (if existing)
 +
result = {}
 +
for idx in pairs(claims) do
 +
local claim = claims[sortindices[idx]]
 +
value, error = getValueOfClaim(claim, qualifierId, parameter)
 +
if not value and showerrors then value = error end
 +
if value and references then value = value .. getReferences(frame, claim) end
 +
result[#result + 1] = value
 +
end
 +
result = table.concat(result, list)
 +
else
 +
-- return first element
 +
local claim = claims[sortindices[1]]
 +
result, error = getValueOfClaim(claim, qualifierId, parameter)
 +
if result and references then result = result .. getReferences(frame, claim) end
 +
end
 +
 +
if result then return result else
 +
if showerrors then return error else return default end
 +
end
 +
end
 +
 +
-- look into entity object
 +
function p.ViewSomething(frame)
 +
local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
 +
local id = f.args.id
 +
if id and (#id == 0) then
 +
id = nil
 +
end
 +
local data = mw.wikibase.getEntity(id)
 +
if not data then
 +
return nil
 +
end
 +
 +
local i = 1
 +
while true do
 +
local index = f.args[i]
 +
if not index then
 +
if type(data) == "table" then
 +
return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)
 +
else
 +
return tostring(data)
 +
end
 +
end
 +
 +
data = data[index] or data[tonumber(index)]
 +
if not data then
 +
return
 +
end
 +
 +
i = i + 1
 +
end
 +
end
 +
 +
-- getting sitelink of a given wiki
 +
-- get sitelink of current item if qid not supplied
 +
function p.getSiteLink(frame)
 +
local qid = frame.args.qid
 +
if qid == "" then qid = nil end
 +
local f = mw.text.trim( frame.args[1] or "")
 +
local entity = mw.wikibase.getEntity(qid)
 +
if not entity then
 +
return
 +
end
 +
local link = entity:getSitelink( f )
 +
if not link then
 +
return
 +
end
 +
return link
 +
end
 +
 +
function p.Dump(frame)
 +
local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
 +
local data = mw.wikibase.getEntity(f.args.id)
 +
if not data then
 +
return i18n.warnDump
 +
end
 +
 +
local i = 1
 +
while true do
 +
local index = f.args[i]
 +
if not index then
 +
return "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDump
 +
end
 +
 +
data = data[index] or data[tonumber(index)]
 +
if not data then
 +
return i18n.warnDump
 +
end
 +
 +
i = i + 1
 +
end
 +
end
 +
 +
return p
Retrieved from "https://wiki.kidzsearch.com/wiki/Special:MobileDiff/5004553"