"Module:Wikidata" के अवतरणों में अंतर

मुक्त ज्ञानकोश विकिपीडिया से
नेविगेशन पर जाएँ खोज पर जाएँ
https://hiwiki.iiit.ac.in/index.php/>Pols12
(fixes getEquivalentWPArticle (workaround for T14974 (output can’t start with a colon); fixes targetLang param forwarding))
छो (१ अवतरण आयात किया गया)
 
(इसी सदस्य द्वारा किया गया बीच का एक अवतरण नहीं दर्शाया गया)
पंक्ति १: पंक्ति १:
--script that retrieves basic data stored in Wikidata, for the datamodel, see https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua
-- vim: set noexpandtab ft=lua ts=4 sw=4:
require('Module:No globals')


local p = {}
local p = {}
local debug = false


local linguistic = require('Module:Linguistic')
--local formatDate = require('Module:Complex date') only loaded when needed to save memory in large pages like Wikidata:List of properties/all
local fb = require('Module:Fallback')
local i18nmessages = mw.loadData('Module:i18n/wikidata')


-- Wiki-specific parameters
------------------------------------------------------------------------------
local defaultlang = mw.getCurrentFrame():preprocess("{{int:lang}}")
-- module local variables and functions
local defaultlink = 'wikidata'


local function i18n(str)
local wiki =
local message = i18nmessages[str]
{
if type(message) == 'string' then
langcode = mw.language.getContentLanguage().code
return message
}
end
return fb._langSwitch(message, defaultlang) .. ''
end


local function formatError( key, text )
-- internationalisation
return error(i18n(key) .. (text or ''))
local i18n =
end
{
["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"
}
}


local function addTrackingCat(prop, cat)
if wiki.langcode ~= "en" then
if not prop and not cat then
--require("Module:i18n").loadI18n("Module:Wikidata/i18n", i18n)
return error("no property provided")
-- got idea from [[:w:Module:Wd]]
end
local module_title; if ... == nil then
if not cat then
module_title = mw.getCurrentFrame():getTitle()
cat = i18nmessages.trackingcat .. '/' .. string.upper(prop)
else
module_title = ...
end
end
return '[[Category:' .. cat .. ']]'
require('Module:i18n').loadI18n(module_title..'/i18n', i18n)
end
end


local function removeBlanks(args)
-- this function needs to be internationalised along with the above:
for i, j in pairs(args) do -- does not work ??
-- takes cardinal numer as a numeric and returns the ordinal as a string
if (j == '') or (j == '-') then args[i] = nil end
-- 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
end
return args
return tostring(cardinal) .. ordsuffix
end
end


local function formatTheUnknown() -- voir si on peut accorder/adapter l'usage de "inconnu"
local function printError(code)
return i18n('somevalue')
return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'
end
end
 
local function parseDateFormat(f, timestamp, addon, prefix_addon, addon_sep)  
local function isSpecial(snak)
local year_suffix
return snak.snaktype ~= 'value'
local tstr = ""
end
local lang_obj = mw.language.new(wiki.langcode)
 
local f_parts = mw.text.split(f, 'Y', true)
local function sameValue(snak, target)
for idx, f_part in pairs(f_parts) do
return not isSpecial(snak) and p.getRawvalue(snak) == target
year_suffix = ''
end
if string.match(f_part, "x[mijkot]$") then
 
-- for non-Gregorian year
local function showLang(statement, str) -- TODO (not yet in proper format)
f_part = f_part .. 'Y'
--adds a lang indication at the start of the string, based on data in statement
elseif idx < #f_parts then
local mainsnak = statement.mainsnak
-- supress leading zeros in year
if isSpecial(mainsnak) then
year_suffix = lang_obj:formatDate('Y', timestamp)
return str
year_suffix = string.gsub(year_suffix, '^0+', '', 1)
end
 
local langlist = {}
if mainsnak.datavalue.type == 'monolingualtext' then
langlist = {mainsnak.datavalue.value.language}
elseif statement.qualifiers and statement.qualifiers.P407 then
local convertlangcode = mw.loadData('Module:Dictionary/lang codes')
for i, j in pairs( statement.qualifiers.P407 ) do
if not isSpecial(j) then
local val = convertlangcode[j.datavalue.value['numeric-id']]
table.insert(langlist, val)
end
end
end
tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
end
end
if #langlist == 0 then
if addon ~= "" and prefix_addon then
return str
return addon .. addon_sep .. tstr
elseif addon ~= "" then
return tstr .. addon_sep .. addon
else
else
return '(' .. table.concat(langlist) .. ')' .. str
return tstr
end
end
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 = ""


function p.getEntity( val )
-- check for negative date
if type(val) == 'table' then
if string.sub(timestamp, 1, 1) == '-' then
return val
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
return mw.wikibase.getEntityObject(val)
end
end


-- DATE FUNCTIONS
-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
local function splitTimestamp(timestamp, calendar)
-- with the millennium/century/decade handling of formatDate()
local pattern = "(%W)(%d+)%-(%d+)%-(%d+)"
local function parseDateFull(timestamp, precision, date_format, date_addon)
local era, year, month, day = timestamp:match(pattern)
local prefix_addon = i18n["datetime"]["prefix-addon"]
local addon_sep = i18n["datetime"]["addon-sep"]
local addon = ""


if calendar == 'julian' then
-- check for negative date
--todo  year, month, day = formatdate.gregorianToJulian( era .. year, month, day )
if string.sub(timestamp, 1, 1) == '-' then
timestamp = '+' .. string.sub(timestamp, 2)
addon = date_addon
end
end


return {day = day, month = month, year = year, era = era, timestamp = timestamp, type = 'dateobject'}
-- get the next four characters after the + (should be the year now in all cases)
end
-- 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


local function rangeObject(begin, ending)
-- precision is 10000 years or more
local timestamp
if precision <= 5 then
if begin then
local factor = 10 ^ ((5 - precision) + 4)
timestamp = begin.timestamp
local y2 = math.ceil(math.abs(intyear) / factor)
elseif ending then
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
timestamp = ending.timestamp
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
end
return {begin = begin, ending = ending, timestamp = timestamp, type = 'rangeobject'}
end


local function dateObject(orig, params) -- transforme un snak en un nouvel objet utilisable par Module:Date complexe
-- precision is decades (8), centuries (7) and millennia (6)
if not params then
local era, card
params = {}
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
end


local newobj = splitTimestamp(orig.time, orig.calendar) -- initalise l'object en mettant la valeur des dates
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


newobj.precision = params.precision or orig.precision
-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field
newobj.type = 'dateobject'
-- use these as the second parameter and this function instead of the built-in "pairs" function
return newobj
-- to iterate over all qualifiers and snaks in the intended order.
end
local function orderedpairs(array, order)
if not order then return pairs(array) end


local function formatDatepoint(obj, params) -- TO IMPROVE
-- return iterator function
if not obj then
local i = 0
return nil
return function()
end
i = i + 1
local formatDate = require('Module:Complex date')
if order[i] then
local lang = params.lang or defaultlang
return order[i], array[order[i]]
local precision = math.min(obj.precision, params.precision or 15) -- if we don't want to show the value to its full detail
end
if precision >= 11 then
return formatDate.complex_date{args={date1 = obj.year .. '-' .. obj.month .. '-' .. obj.day, lang= lang}}
elseif precision == 10 then
return formatDate.complex_date{args={date1 = obj.year .. '-' .. obj.month, lang= lang}}
elseif precision == 9 then
return formatDate.complex_date{args={date1 = tostring(obj.year), lang= lang}}
elseif precision == 8 then
return formatDate.complex_date{args={date1 = string.sub(tostring(obj.year), 1, 3) .. '0', lang = lang, precision = 'decade'}}
elseif precision == 7 then
return formatDate.complex_date{args={date1 = string.sub(tostring(obj.year + 100), 1, 2), lang = lang, precision = 'century'}}
end
end
return nil
end
end


local function formatDaterange(obj, params) --TODO
-- 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 begin = formatDatepoint(obj.begin, params) or ''
local function normalizeDate(date)
local ending = formatDatepoint(obj.ending, params) or ''
date = mw.text.trim(date, "+")
return begin .. '-' .. ending
-- 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
end


local function objectToText(obj, params)
local function formatDate(date, precision, timezone)
if obj.type == 'dateobject' then
precision = precision or 11
return formatDatepoint(obj, params)
local date, year = normalizeDate(date)
elseif obj.type == 'rangeobject' then
if year == 0 and precision <= 9 then return "" end
return formatDaterange(obj, params)
end
return nil
end


local function tableToText(values, params) -- takes a list of already formatted values and make them a text
-- precision is 10000 years or more
if not values then
if precision <= 5 then
return nil
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
end
return linguistic.conj(values, params.lang or defaultlang, params.conjtype)--linguistic.conj( values, params.lang, params.conjtype )
end


function p.getDate(obj)
-- precision is decades, centuries and millennia
--[[
local era
returns an object containing a timestamp for easy sorting, and other data
if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
possible types of object:
if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end
dateobject
if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) end
{timestamp = string, year = number, month = number, day = number, calendar = string}
if era then
rangeobject
if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
{timestamp = string, begin = dateobject, ending = dateobject}
elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end
]]--
return era
if not obj then
return nil
end
if type(obj) == 'string' then
obj = p.getEntity(obj)
end
end


-- if obj is a statement with date, get it
-- precision is year
if obj.mainsnak and not isSpecial(obj.mainsnak) and obj.mainsnak.datatype == 'time' then
if precision == 9 then
return dateObject(obj.mainsnak.datavalue.value)
return year
end
end


-- else preload relevant data
-- precision is less than years
local qualifs = obj.qualifiers -- when obj is a statement, look in qualifiers
if precision > 9 then
local claims = obj.claims -- when obj is an item, look in claims
--[[ 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)
local pointprop = {'P585', 'P571'} -- dates corresponding to a punctual fact
if timezone and timezone ~= 0 then
local beginprop = {'P580', 'P569'} -- start date, birth date == start of a date range
timezone = -timezone
local endingprop = {'P582', 'P570'}
timezone = string.format("%.2d%.2d", timezone / 60, timezone % 60)
 
if timezone[1] ~= '-' then timezone = "+" .. timezone end
local function getval(prop)
date = mw.text.trim(date, "Z") .. " " .. timezone
local val
if claims and claims[prop] and not isSpecial(claims[prop][1].mainsnak) then
val = claims[prop][1].mainsnak.datavalue.value
elseif qualifs and qualifs[prop] and not isSpecial(qualifs[prop][1]) then
val = qualifs[prop][1].datavalue.value
end
if val then
return dateObject(val)
end
end
return nil
]]--
end


for i, prop in pairs(pointprop) do
local formatstr = i18n.datetime[precision]
local val = getval(prop)
if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], "")
if val then return val end
elseif year < 0 then
end
-- Mediawiki formatDate doesn't support negative years
--if no date has not been found, look for startdate or enddate
date = mw.ustring.sub(date, 2)
local begin, ending
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, "$1", i18n.datetime[9]))
for i, prop in pairs(beginprop) do
elseif year > 0 and i18n.datetime.ad ~= "$1" then
begin = getval(prop)
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9]))
if begin then
break
end
end
return mw.language.new(wiki.langcode):formatDate(formatstr, date)
end
end
for i, prop in pairs(endingprop) do
ending = getval(prop)
if ending then
break
end
end
if begin or ending then
return rangeObject(begin, ending)
end
return nil
end
end


function p.getFormattedDate(statement, params)
local function printDatavalueEntity(data, parameter)
local datetable = p.getDate(statement)
-- data fields: entity-type [string], numeric-id [int, Wikidata id]
if not datetable then
local id
return nil
 
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
end
return objectToText(datetable, params)
end


local function hasTargetValue(claim, target)
if parameter then
if target == nil then
if parameter == "link" then
return true
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
return sameValue(claim.mainsnak, target)
end
end


local function hasRank(claim, target)
local function printDatavalueTime(data, parameter)
if target == 'valid' then
-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]
return hasRank(claim, 'preferred') or hasRank(claim, 'normal')
--  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
else
return claim.rank == target
return formatDate(data.time, data.precision, data.timezone)
end
end
end
end


local function bestRanked(claims)
local function printDatavalueMonolingualText(data, parameter)
if not claims then
-- data fields: language [string], text [string]
return nil
if parameter then
end
return data[parameter]
local preferred, normal = {}, {}
for _, j in ipairs(claims) do
if j.rank == 'preferred' then
table.insert(preferred, j)
elseif j.rank == 'normal' then
table.insert(normal, j)
end
end
if #preferred > 0 then
return preferred
else
else
return normal
local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])
return result
end
end
end
end


local function hasQualifier(claim, qualifier, qualifiervalues)
local function findClaims(entity, property)
if not qualifier then -- si aucun qualificatif est demandé, ça passe
if not property or not entity or not entity.claims then return end
return true
end


qualifier = string.upper(qualifier)
if mw.ustring.match(property, "^P%d+$") then
if not claim.qualifiers or not claim.qualifiers[qualifier] then
-- if the property is given by an id (P..) access the claim list by this id
return false
return entity.claims[property]
end
else
property = mw.wikibase.resolvePropertyId(property)
if not property then return end


if type(qualifiervalues) == 'string' then
return entity.claims[property]
qualifiervalues = mw.text.split(qualifiervalues, ',')
end
end
end


if (not qualifiervalues) or (qualifiervalues == {}) then
local function getSnakValue(snak, parameter)
return true -- si aucune valeur spécifique n'est exigée
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
end
return mw.wikibase.renderSnak(snak)
end


for _, j in ipairs(claim.qualifiers[qualifier]) do
local function getQualifierSnak(claim, qualifierId)
for _, l in ipairs(qualifiervalues) do
-- a "snak" is Wikidata terminology for a typed key/value pair
if p.sameValue(j, l) then
-- a claim consists of a main snak holding the main information of this claim,
return true
-- as well as a list of attribute snaks and a list of references snaks
end
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
end
return nil, printError("qualifier-not-found")
else
-- otherwise return the main snak
return claim.mainsnak
end
end
return false
end
end


local function hasSource(statement, source, sourceproperty)
local function getValueOfClaim(claim, qualifierId, parameter)
if not statement.references then
local error
return false
local snak
snak, error = getQualifierSnak(claim, qualifierId)
if snak then
return getSnakValue(snak, parameter)
else
return nil, error
end
end
sourceproperty = string.upper(sourceproperty or 'P248')
end
local sourcevalue = string.upper(source or '')
 
for _, ref in ipairs(statement.references) do
local function getReferences(frame, claim)
for prop, content in pairs(ref.snaks) do
local result = ""
if prop == sourceproperty then
-- traverse through all references
if sourcevalue == '' then
for ref in pairs(claim.references or {}) do
return true
local refparts
else
-- traverse through all parts of the current reference
for _, k in ipairs(content) do
for snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref]["snaks-order"]) do
if sameValue(k, source) then
if refparts then refparts = refparts .. ", " else refparts = "" end
return true
-- output the label of the property of the reference part, e.g. "imported from" for P143
end
refparts = refparts .. tostring(mw.wikibase.getLabel(snakkey)) .. ": "
end
-- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sites
end
for snakidx = 1, #snakval do
if snakidx > 1 then refparts = refparts .. ", " end
refparts = refparts .. getSnakValue(snakval[snakidx])
end
end
end
end
if refparts then result = result .. frame:extensionTag("ref", refparts) end
end
end
return false
return result
end
end


local function hasDate(statement)
local function parseInput(frame)
if not statement.qualifiers then
local qid = frame.args.qid
return false
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
end
local dateprops = {'P580', 'P585', 'P582'}
local entity = mw.wikibase.getEntity(qid)
for i, prop in pairs(dateprops) do
local claims
if statement.qualifiers[prop] then
if entity and entity.claims then
return true
claims = entity.claims[propertyID]
if not claims then
return false, "", nil, nil
end
end
else
return false, "", nil, nil
end
end
return false
return true, entity, claims, propertyID
end
end
 
local function isType(claims, type)
local function isInLanguage(snak, lang) -- ne fonctionne que pour les monolingualtext / étendre aux autres types en utilisant les qualifiers ?
return claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == type
return not isSpecial(snak) and snak.datavalue.type == 'monolingualtext' and snak.datavalue.value.language == lang
end
end
 
local function getValue(entity, claims, propertyID, delim, labelHook)  
local function numval(claims, numval) -- retourn les numval premières valeurs de la table claims
if labelHook == nil then
local numval = tonumber(numval) or 0 -- raise an error if numval is not a positive integer ?
labelHook = function (qnumber)
if #claims <= numval then
return nil;
return claims
end
end
end
local newclaims = {}
if isType(claims, "wikibase-entityid") then
while #newclaims < numval do
local out = {}
table.insert(newclaims, claims[#newclaims + 1])
for k, v in pairs(claims) do
end
local qnumber = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
return newclaims
local sitelink = mw.wikibase.getSitelink(qnumber)
end
local label = labelHook(qnumber) or mw.wikibase.getLabel(qnumber) or qnumber
 
if sitelink then
local function wikipediaLink(entity, lang)
out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
local link
 
local lg = string.gsub(lang, '-', '_')
if (lg == 'be_tarask') then lg = 'be_x_old' end
if (lg == 'nb') then lg = 'no' end
 
if type(entity) == 'table' then
link = entity:getSitelink(lg .. 'wiki')
else
link = mw.wikibase.getSitelink(entity, lg .. 'wiki')
end
if link then
return ':' .. lang .. ':' .. link
end
return nil
end
 
local function getLink(entity, typelink, lang)
if typelink == 'wikidata' then
if type(entity) == 'table' then
if entity.type == 'property' then
return 'd:P:' .. entity.id
elseif entity.type == 'lexeme' then
return 'd:L:' .. entity.id
else
else
return 'd:' .. entity.id
out[#out + 1] = "[[:d:" .. qnumber .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
end
else
if string.sub(entity, 1, 1) == 'P' then
return 'd:P:' .. entity
elseif string.sub(entity, 1, 1) == 'L' then
return 'd:L:' .. entity
else
return 'd:' .. entity
end
end
 
elseif typelink == 'wikipedia' then
return wikipediaLink(entity, lang or defaultlang)
 
elseif typelink == 'anywikipedia' then
for _, lg in ipairs(fb.fblist(lang or defaultlang, true)) do
local link = wikipediaLink(entity, lg)
if link then
return link
end
end
end
end
return table.concat(out, delim)
else
-- just return best values
return entity:formatPropertyValues(propertyID).value
end
end
return nil
end
end


function p.comparedate(a, b) -- returns true if a is earlier than B or if a has a date but not b
------------------------------------------------------------------------------
if a and b then
-- module global functions
return a.timestamp < b.timestamp
elseif a then
return true
end
return false
end


function p.chronosort(objs, inverted)
if debug then
table.sort(objs, function(a, b)
function p.inspectI18n(frame)
local timeA = p.getDate(a)
local val = i18n
local timeB = p.getDate(b)
for _, key in pairs(frame.args) do
if inverted then
key = mw.text.trim(key)
return p.comparedate(timeB, timeA)
val = val[key]
else
return p.comparedate(timeA, timeB)
end
end
end)
return val
 
end
return objs
end
end


function p.sortclaims(claims, sorttype)
function p.descriptionIn(frame)
if type(sorttype) == 'function' then
local langcode = frame.args[1]
table.sort(claims, sorttype)
local id = frame.args[2]
elseif sorttype == 'chronological' then
-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
return p.chronosort(claims)
return mw.wikibase.getEntity(id):getDescription(langcode or wiki.langcode)
elseif sorttype == 'inverted' then
return p.chronosort(claims, true)
end
return claims
end
end


function p.getRawvalue(snak)
function p.labelIn(frame)
return p.getDatavalue(snak, { displayformat = 'raw' })
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
end


function p.showentity(entity, lang)
-- This is used to get a value, or a comma separated list of them if multiple values exist
if not entity then
p.getValue = function(frame)
return nil
local delimdefault = ", " -- **internationalise later**
local delim = frame.args.delimiter or ""
delim = string.gsub(delim, '"', '')
if #delim == 0 then
delim = delimdefault
end
end
local label, link, id = p._getLabel(entity, lang), getLink(entity, 'wikidata')
local go, errorOrentity, claims, propertyID = parseInput(frame)
if type(entity) == 'table' then
if not go then
id = entity.id
return errorOrentity
else
id = entity
end
end
return '[[' .. link .. '|' .. label .. ']] <small>(' .. id .. ')</small>'
return getValue(errorOrentity, claims, propertyID, delim)
end
end


function p.getDatavalue(snak, params)
-- Same as above, but uses the short name property for label if available.
if isSpecial(snak) then
p.getValueShortName = function(frame)
return nil
local go, errorOrentity, claims, propertyID = parseInput(frame)
if not go then
return errorOrentity
end
end
 
local entity = errorOrentity
if not params then
-- if wiki-linked value output as link if possible
params = {}
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
end
return getValue(errorOrentity, claims, propertyID, ", ", labelHook);
end


local displayformat = params.displayformat
-- This is used to get a value, or a comma separated list of them if multiple values exist
local datatype = snak.datavalue.type
-- from an arbitrary entry by using its QID.
local value = snak.datavalue.value
-- 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)
if datatype == 'wikibase-entityid' then
-- Please use sparingly - this is an *expensive call*.
if type(displayformat) == 'function' then
p.getValueFromID = function(frame)
return displayformat(snak, params)
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
end
local id = snak.datavalue.value.id
if claims then
if displayformat == 'raw' then
return getValue(entity, claims, propertyID, ", ")
return id
elseif displayformat == 'wikidatastyle' then
return p.showentity(id, params.lang)
else
else
return p.formatEntity(id, params)
return ""
end
end
 
else
elseif datatype == 'string' then
return input_parm
local showntext = params.showntext
end
if displayformat == 'weblink' then
end
if showntext then
local function getQualifier(frame, outputHook)  
return '[' .. value .. ' ' .. showntext .. ']'
local propertyID = mw.text.trim(frame.args[1] or "")
else
local qualifierID = mw.text.trim(frame.args[2] or "")
return value
local input_parm = mw.text.trim(frame.args[3] or "")
end
if input_parm == "FETCH_WIKIDATA" then
end
local entity = mw.wikibase.getEntity()
if snak.datatype == 'math' and displayformat ~= 'raw' then
if entity.claims[propertyID] ~= nil then
value = mw.getCurrentFrame():extensionTag('math', value)
local out = {}
else
for k, v in pairs(entity.claims[propertyID]) do
if params.urlpattern then
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
showntext = mw.text.nowiki(showntext or value)
if v2.snaktype == 'value' then
value = mw.ustring.gsub(value, '%%', '%%%%') -- escape '%'
out[#out + 1] = outputHook(v2);
value = '[' .. mw.ustring.gsub(mw.ustring.gsub(params.urlpattern, '$1', value), ' ', '%%20') .. ' ' .. showntext .. ']'
end
elseif params.pattern then
local pattern = mw.ustring.gsub(params.pattern, '%%', '%%%%')
value = mw.ustring.gsub(value, '%%', '%%%%')
value = mw.ustring.gsub(pattern, '$1', value)
else
if displayformat ~= 'raw' then
value = mw.text.nowiki(value)
end
end
end
end
end
return table.concat(out, ", "), true
return value
 
elseif datatype == 'time' then -- format example: +00000001809-02-12T00:00:00Z
if displayformat == 'raw' then
return value.time
else
return objectToText(dateObject(value), params)
end
 
elseif datatype == 'globecoordinate' then
-- retourne une table avec clés latitude, longitude, précision et globe à formater par un autre module (à changer ?)
if displayformat == 'latitude' then
return value.latitude
elseif displayformat == 'longitude' then
return value.longitude
elseif displayformat == 'qualifier' then
local coord = require 'Module:Coordinates'
value.globe = mw.loadData('Module:Wikidata/Globes')[value.globe]
value.precision = nil
return coord._coord(value)
else
else
value.globe = mw.loadData('Module:Wikidata/Globes')[value.globe] -- transforme l'ID du globe en nom anglais utilisable par geohack
return "", false
return value -- note : les coordonnées Wikidata peuvent être utilisée depuis Module:Coordinates. Faut-il aussi autoriser à appeler Module:Coordiantes ici ?
end
end
elseif datatype == 'quantity' then -- todo : gérer les paramètre précision
if displayformat == 'raw' then
return tonumber(value.amount)
else
local formatNum = require 'Module:Formatnum'
local number = formatNum.formatNum(value.amount, params.lang)
local unit = mw.ustring.match(value.unit, '(Q%d+)')
if unit then
number = number .. '&nbsp;' .. p.formatEntity(unit, params)
end
return number
end
elseif datatype == 'monolingualtext' then
return '<span lang="' .. value.language .. '">' .. value.text .. '</span>'
else
else
return formatError( 'unknown-datavalue-type', datatype )
return input_parm, false
end
end
end
end
 
p.getQualifierValue = function(frame)
local function getMultipleClaims(args)
local function outputValue(value)
local newargs = args
local qnumber = "Q" .. value.datavalue.value["numeric-id"]
local claims = {}
if (mw.wikibase.getSitelink(qnumber)) then
for i, j in pairs(args.property) do
return "[[" .. mw.wikibase.getSitelink(qnumber) .. "]]"
newargs.property = j
else
local newclaims = p.getClaims(args)
return "[[:d:" .. qnumber .. "|" ..qnumber .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
if newclaims then
for k, l in pairs(newclaims) do
table.insert(claims, l)
end
end
end
end
end
return claims
return (getQualifier(frame, outputValue))
end
end


function p.getClaims( args ) -- returns a table of the claims matching some conditions given in args
-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
args = removeBlanks(args)
p.getRawValue = function(frame)
if not args.property then
local go, errorOrentity, claims, propertyID = parseInput(frame)
return formatError( 'property-param-not-provided' )
if not go then
return errorOrentity
end
end
if type(args.property) == 'table' then
local entity = errorOrentity
return getMultipleClaims(args)
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
end
-- if number type: remove thousand separators, bounds and units
--Get entity
if isType(claims, "quantity") then
if args.item then -- synonyms
result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
args.entity = args.item
result = mw.ustring.gsub(result, "(%d)±.*", "%1")
end
local property = string.upper(args.property)
local allClaims
local entity = args.entity
if type(entity) == 'table' then
allClaims = (entity and entity.claims and entity.claims[property]) or {}
else
allClaims = mw.wikibase.getAllStatements(entity, property)
end
if #allClaims == 0 then
return nil
end
end
return result
end


if not args.rank then
-- This is used to get the unit name for the numeric value returned by getRawValue
args.rank = 'best'
p.getUnits = function(frame)
end
local go, errorOrentity, claims, propertyID = parseInput(frame)
local claims = {}
if not go then
for _, statement in ipairs(allClaims) do
return errorOrentity
if
(
not args.excludespecial
or
not (isSpecial(statement.mainsnak))
)
and
(
not args.targetvalue
or
hasTargetValue(statement, args.targetvalue)
)
and
(
not args.qualifier
or
hasQualifier(statement, args.qualifier, args.qualifiervalues or args.qualifiervalue)
)
and
(
not args.withsource or args.withsource == '-'
or
hasSource(statement, args.withsource, args.sourceproperty)
)
and
(
not args.isinlanguage
or
isInLanguage(statement.mainsnak, args.isinlanguage)
)
and
(
args.rank == 'best' -- rank == best est traité à a fin
or
hasRank(statement, args.rank)
)
then
table.insert(claims, statement)
end
end
end
if #claims == 0 then
local entity = errorOrentity
return nil
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
end
if args.rank == 'best' then
return result
claims = bestRanked(claims)
end
if args.sorttype then
claims = p.sortclaims(claims, args.sorttype)
end
 
if args.numval then
return numval(claims, args.numval)
end
return claims
end
end


function p.formatClaimList(claims, args)
-- This is used to get the unit's QID to use with the numeric value returned by getRawValue
if not claims then
p.getUnitID = function(frame)
return nil
local go, errorOrentity, claims = parseInput(frame)
if not go then
return errorOrentity
end
end
for i, j in pairs(claims) do
local entity = errorOrentity
claims[i] = p.formatStatement(j, args)
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
end
return claims
return result
end
end


function p.stringTable(args) -- like getClaims, but get a list of string rather than a list of snaks, for easier manipulation
p.getRawQualifierValue = function(frame)
local claims = p.getClaims(args)
local function outputHook(value)
return p.formatClaimList(claims, args)
if value.datavalue.value["numeric-id"] then
end
return mw.wikibase.getLabel("Q" .. value.datavalue.value["numeric-id"])
 
else
local function getQualifiers(statement, qualifs, params)
return value.datavalue.value
if not statement.qualifiers then
return nil
end
local vals = {}
for i, j in pairs(qualifs) do
j = string.upper(j)
if statement.qualifiers[j] then
local inserted = false
if statement.qualifiers[j][1].datatype == 'monolingualtext' then
local in_preferred_lang
for _, language in ipairs(fb.fblist(params.lang or defaultlang, true)) do
for _, snak in ipairs(statement.qualifiers[j]) do
if isInLanguage(snak, language) then
in_preferred_lang = snak
break
end
end
if in_preferred_lang then
break
end
end
if in_preferred_lang then
table.insert(vals, in_preferred_lang)
inserted = true
end
end
if not inserted then
for _, snak in pairs(statement.qualifiers[j]) do
table.insert(vals, snak)
end
end
end
end
end
end
if #vals == 0 then
local ret, gotData = getQualifier(frame, outputHook)
return nil
if gotData then
ret = string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
end
end
return vals
return ret
end
end


function p.getFormattedQualifiers(statement, qualifs, params)
-- This is used to get a date value for date_of_birth (P569), etc. which won't be linked
if not params then params = {} end
-- Dates and times are stored in ISO 8601 format (sort of).
local qualiftable = getQualifiers(statement, qualifs, params)
-- At present the local formatDate(date, precision, timezone) function doesn't handle timezone
if not qualiftable then
-- So I'll just supply "Z" in the call to formatDate below:
return nil
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
end
for i, j in pairs(qualiftable) do
local entity = errorOrentity
local params = params
local out = {}
if j.datatype == 'globe-coordinate' then
for k, v in pairs(claims) do
params.displayformat = 'qualifier'
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
qualiftable[i] = p.formatSnak(j, params)
end
end
return linguistic.conj(qualiftable, params.lang or defaultlang)
return table.concat(out, ", ")
end
end
 
p.getQualifierDateValue = function(frame)
function p.formatStatement( statement, args )
local date_format = mw.text.trim(frame.args[4] or i18n["datetime"]["default-format"])
if not statement.type or statement.type ~= 'statement' then
local date_addon = mw.text.trim(frame.args[5] or i18n["datetime"]["default-addon"])
return formatError( 'unknown-claim-type', statement.type )
local function outputHook(value)
end
local timestamp = value.datavalue.value.time
if not args then args = {} end
return parseDateValue(timestamp, date_format, date_addon)
local lang = args.lang or defaultlang
local str = p.formatSnak( statement.mainsnak, args )
if args.showlang == true then
str = showLang(statement, str)
end
end
return (getQualifier(frame, outputHook))
end


local qualifs = args.showqualifiers
-- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc.
if qualifs then
-- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless)
if type(qualifs) == 'string' then
-- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html)
qualifs = mw.text.split(qualifs, ',')
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}
end
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}}
local foundvalues = p.getFormattedQualifiers(statement, qualifs, args)
-- If a property is chosen that is not of type "commonsMedia", it will return empty text.
if foundvalues then
p.getImages = function(frame)
if args.delimiter then
local sep = mw.text.trim(frame.args[3] or " ")
str = str .. args.delimiter .. foundvalues
local imgsize = mw.text.trim(frame.args[4] or "frameless")
else
local go, errorOrentity, claims = parseInput(frame)
str = str .. linguistic.inparentheses(foundvalues, lang)
if not go then
end
return errorOrentity
end
end
end
 
local entity = errorOrentity
if args.showdate then -- when "showdate and p.chronosort are both set, date retrieval is performed twice
if (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") then
local timedata = p.getDate(statement)
local out = {}
if timedata then
for k, v in pairs(claims) do
local formatteddate = objectToText(timedata, args)
local filename = v.mainsnak.datavalue.value
formatteddate = linguistic.inparentheses(formatteddate, lang)
out[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]"
str = str .. '<small>' .. formatteddate ..'</small>'
end
end
return table.concat(out, sep)
else
return ""
end
end
end


if args.showsource and statement.references then
-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)
local cite = require 'Module:Cite'
-- 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
local frame = mw.getCurrentFrame()
-- uses the newer mw.wikibase calls instead of directly using the snaks
local sourcestring = ''
-- 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
for _, ref in ipairs(statement.references) do
p.getTAValue = function(frame)
if ref.snaks.P248 then
local ent = mw.wikibase.getEntity()
for j, source in pairs(ref.snaks.P248) do
local props = ent:formatPropertyValues('P1323')
if not isSpecial(source) then
local out = {}
local page
local t = {}
if ref.snaks.P304 and not isSpecial(ref.snaks.P304[1]) then
for k, v in pairs(props) do
page = ref.snaks.P304[1].datavalue.value
if k == 'value' then
end
t = mw.text.split( v, ", ")
local s = cite.citeitem(source.datavalue.value.id, lang, page)
for k2, v2 in pairs(t) do
s = frame:extensionTag( 'ref', s )
out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
sourcestring = sourcestring .. s
end
end
elseif ref.snaks.P854 and not isSpecial(ref.snaks.P854[1]) then
s = frame:extensionTag( 'ref', p.getDatavalue(ref.snaks.P854[1]) )
sourcestring = sourcestring .. s
end
end
end
end
str = str .. sourcestring
end
end
return str
local ret = table.concat(out, "<br> ")
if #ret == 0 then
ret = "Invalid TA"
end
return ret
end
end


function p.getmainid(claim)
--[[
if claim and not isSpecial(claim.mainsnak) then
This is used to return an image legend from Wikidata
return claim.mainsnak.datavalue.value.id
image is property P18
end
image legend is property P2096
return nil
 
end
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
]]


function p.formatSnak(snak, params)
p.getImageLegend = function(frame)
--local params = params or {} pour faciliter l'appel depuis d'autres modules
-- look for named parameter id; if it's blank make it nil
if snak.snaktype == 'value' then
local id = frame.args.id
return p.getDatavalue(snak, params)
if id and (#id == 0) then
elseif snak.snaktype == 'somevalue' then
id = nil
return formatTheUnknown()
elseif snak.snaktype == 'novalue' then
return i18n('novalue') --todo
else
return formatError( 'unknown-snak-type', snak.snaktype )
end
end
end


local function defaultLabel(entity, displayformat) -- label when no label is available
-- look for named parameter lang
if displayformat == 'id' then
-- it should contain a two-character ISO-639 language code
if type(entity) ~= 'table' then
-- if it's blank fetch the language of the local wiki
return entity
local lang = frame.args.lang
else
if (not lang) or (#lang < 2) then
return entity.id
lang = mw.language.getContentLanguage().code
end
end
end
return i18n('no-label')
end


function p._getLabel(entity, lang, default, fallback)
-- first unnamed parameter is the local parameter, if supplied
if not entity then
local input_parm = mw.text.trim(frame.args[1] or "")
return nil
if input_parm == "FETCH_WIKIDATA" then
end
local ent = mw.wikibase.getEntity(id)
if not lang then
local imgs
lang = defaultlang
if ent and ent.claims then
end
imgs = ent.claims.P18
if type(entity) ~= 'table' and lang == defaultlang then
local label, lg = mw.wikibase.getLabelWithLang(entity)
if label and (fallback ~= '-' or lg == lang) then
return label
end
end
else
local imglbl
entity = p.getEntity(entity)
if imgs then
if entity and entity.labels then
-- look for an image with 'preferred' rank
if fallback ~= '-' then
for k1, v1 in pairs(imgs) do
for _, lg in ipairs(fb.fblist(lang, true)) do
if v1.rank == "preferred" and v1.qualifiers and v1.qualifiers.P2096 then
if entity.labels[lg] then
local imglbls = v1.qualifiers.P2096
return entity.labels[lg].value
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
else
end
if entity.labels[lang] then
-- if we don't find one, look for an image with 'normal' rank
return entity.labels[lang].value
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
end
end
end
return imglbl
else
return input_parm
end
end
return defaultLabel(entity, default)
end
end


function p._getDescription(entity, lang, fallback)
-- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist
if not entity then
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |FETCH_WIKIDATA}}
return i18n('no description')
-- 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
end
if not lang then
local entity = errorOrentity
lang = defaultlang
-- if wiki-linked value collect the QID in a table
end
if (propclaims[1] and propclaims[1].mainsnak.snaktype == "value" and propclaims[1].mainsnak.datavalue.type == "wikibase-entityid") then
if type(entity) ~= 'table' and lang == defaultlang then
local out = {}
local description, lg = mw.wikibase.getDescriptionWithLang(entity)
for k, v in pairs(propclaims) do
if description and (fallback ~= '-' or lg == lang) then
out[#out + 1] = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
return description
end
end
return table.concat(out, ", ")
else
else
entity = p.getEntity(entity)
-- not a wikibase-entityid, so return empty
if entity and entity.descriptions then
return ""
if fallback ~= '-' then
for _, lg in ipairs(fb.fblist(lang, true)) do
if entity.descriptions[lg] then
return entity.descriptions[lg].value
end
end
else
if entity.descriptions[lang] then
return entity.descriptions[lang].value
end
end
end
end
end
return i18n('no description')
end
end


local function formattedLabel(label, entity, args)
-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
local link = getLink(entity, args.link, args.lang)
function p.pageId(frame)
if not link then
return mw.wikibase.getEntityIdForCurrentPage()
link = getLink(entity, defaultlink, args.lang)
end
if not link then
return label
else
return '[[' .. link .. '|' .. label .. ']]'
end
end
end


function p.formatEntity( entity, args )
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 not entity then
return nil
if showerrors then return printError("entity-not-found") else return default end
end
end
if not args then
-- fetch the first claim of satisfying the given property
args = {}
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
end
local label = p._getLabel(entity, args.lang, 'id', args.fallback)
return formattedLabel(label, entity, args)
end


function p.getLabel(frame) -- simple for simple templates like {{Q|}}}
-- get initial sort indices
local args = frame.args
local sortindices = {}
local entity = args.entity
for idx in pairs(claims) do
local lang = args.lang
sortindices[#sortindices + 1] = idx
if not entity then
return i18n('invalid-id')
end
end
 
-- sort by claim rank
if string.sub(entity, 1, 10) == 'Property:P' then
local comparator = function(a, b)
entity = string.sub(entity, 10)
local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
elseif string.sub(entity, 1, 8) == 'Lexeme:L' then
local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a)
entity = string.sub(entity, 8)
local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b)
elseif not ({L = 1, P = 1, Q = 1})[string.sub(entity, 1, 1)] or not tonumber(string.sub(entity, 2)) then
return ranka < rankb
return i18n('invalid-id')
end
end
table.sort(sortindices, comparator)


if not args.link or args.link == '' or args.link == '-' then -- by default: no link
local result
if lang == '' then
local error
lang = defaultlang
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
end
return p._getLabel(entity, lang, args.default, args.fallback)
result = table.concat(result, list)
else
else
return p.formatEntity(entity, args)
-- 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
end
end


function p._formatStatements( args )--Format statements and concat them cleanly
if result then return result else
if args.value == '-' then
if showerrors then return error else return default end
return nil
end
end
--If a value is already set, use it
if args.value and args.value ~= '' then
return args.value
end
local valuetable = p.stringTable(args)
return tableToText(valuetable, args)
end
end


function p.showQualifier( args )
-- look into entity object
local qualifs = args.qualifiers or args.qualifier
function p.ViewSomething(frame)
if type(qualifs) == 'string' then
local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
qualifs = mw.text.split(qualifs, ',')
local id = f.args.id
end
if id and (#id == 0) then
if not qualifs then
id = nil
return formatError( 'property-param-not-provided' )
end
end
local claims = p.getClaims(args)
local data = mw.wikibase.getEntity(id)
if not claims then
if not data then
return nil
return nil
end
end
local str = ''
local new
for _, cl in ipairs(claims) do
new = p.getFormattedQualifiers(cl, qualifs, args) or ''
str = str .. new
end
return str
end


function p._formatAndCat(args)
local i = 1
local val = p._formatStatements(args)
while true do
if val then
local index = f.args[i]
return val .. addTrackingCat(args.property)
if not index then
end
if type(data) == "table" then
return nil
return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)
end
else
return tostring(data)
end
end
 
data = data[index] or data[tonumber(index)]
if not data then
return
end


function p.getTheDate(args)
i = i + 1
local claims = p.getClaims(args)
if not claims then
return nil
end
local formattedvalues = {}
for _, cl in ipairs(claims) do
table.insert(formattedvalues, p.getFormattedDate(cl))
end
local val = linguistic.conj(formattedvalues)
if val and args.addcat == true then
return val .. addTrackingCat(args.property)
else
return val
end
end
end
end


--[[
-- getting sitelink of a given wiki
Returns a Wikipedia page name (with interwiki prefix) which is equivalent page
-- get sitelink of current item if qid not supplied
to given page in given language.
function p.getSiteLink(frame)
local qid = frame.args.qid
Args:
if qid == "" then qid = nil end
* sourceTitle: wiki page title which exists on sourceLang Wikipedia.
local f = mw.text.trim( frame.args[1] or "")
* sourceLang: language code of Wikipedia where `sourceTitle` is an
local entity = mw.wikibase.getEntity(qid)
article. Defaults to `en`.
if not entity then
* targetLang: language code of Wikipedia from which you want to get
return
equivalent article to `sourceTitle`. Defaults to `defaultlang`.
Bug: return value should not start with a colon because of T14974
]]
function p._getEquivalentWPArticle(sourceTitle, sourceLang, targetLang)
if not sourceLang or sourceLang == '' then
sourceLang = 'en'
end
end
local link = entity:getSitelink( f )
if not targetLang or targetLang == '' then
if not link then
targetLang = defaultlang
return
end
local sourceLink = ' :' .. sourceLang .. ':' .. sourceTitle
if sourceLang == targetLang then
return sourceLink
end
end
return link
local sourceWiki = sourceLang .. 'wiki' -- e.g. "enwiki" is global site id for English Wikipedia
local id = mw.wikibase.getEntityIdForTitle( sourceTitle, sourceWiki )
if not id then
return sourceLink --source page has no linked Wikidata element, let’s keep it
end
local fallbackLangs = mw.language.getFallbacksFor(targetLang)
table.insert(fallbackLangs, 1, targetLang) --keeps targetLang as first lang to try
for _, fallbackLang in ipairs(fallbackLangs) do
local existingEquivalent = getLink(id, 'anywikipedia', fallbackLang)
if existingEquivalent then
return ' ' .. existingEquivalent
end
end
return sourceLink --source page has no interwiki, let’s keep it
end
 
function p.formatStatements( args )
return p._formatStatements( args )
end
 
function p.getEntityFromId(id)
return p.getEntity(id)
end
 
----------------------------------------
-- Functions callable from a template --
----------------------------------------
 
function p.getaDate(frame)
return p.getTheDate(frame.args)
end
 
function p.getQualifier(frame)
return p.showQualifier(frame.args)
end
end


function p.getDescription(frame) -- simple for simple templates like {{Q|}}}
function p.Dump(frame)
local entity = frame.args.entity
local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
if not entity then
local data = mw.wikibase.getEntity(f.args.id)
return i18n('invalid-id')
if not data then
return i18n.warnDump
end
end
local lang = frame.args.lang
local fallback = frame.args.fallback


return p._getDescription(entity, lang, fallback)
local i = 1
end
while true do
 
local index = f.args[i]
function p.formatStatementsE(frame)
if not index then
local args = {}
return "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDump
if frame == mw.getCurrentFrame() then
args = frame:getParent().args -- paramètres du modèle appelant (est-ce vraiment une bonne idée ?)
for k, v in pairs(frame.args) do
args[k] = v
end
end
else
args = frame
end
return p._formatStatements( args )
end


function p.formatAndCat(frame)
data = data[index] or data[tonumber(index)]
local args = {}
if not data then
if frame == mw.getCurrentFrame() then
return i18n.warnDump
args = frame:getParent().args -- paramètres du modèle appelant (est-ce vraiment une bonne idée ?)
for k, v in pairs(frame.args) do
args[k] = v
end
end
else
args = frame
end
return p._formatAndCat( args )
end
function p.labelOf(frame)
local id = frame.args[1]
-- returns the label of the given entity/property id
-- if no id is given, the one from the entity associated with the calling Wikipedia article is used
if not id then
local entity = mw.wikibase.getEntity()
if not entity then return printError("entity-not-found") end
id = entity.id
end
return mw.wikibase.label(id)
end
function p.getLink(frame)
local entity = frame.args.entity
if not entity then
return i18n('invalid-id')
end


local fallback = frame.args.fallback
i = i + 1
local lang = frame.args.lang
local label = frame.args.label
local typelink = 'anywikipedia'
 
if (fallback == '') or (fallback == '-') then typelink = 'wikipedia' end
 
if (label == '') or (label == '-') then
label = p._getLabel(entity, lang, 'id', fallback)
end
end
return '[[' .. getLink(entity, typelink, lang) .. '|' .. label .. ']]'
end
--[[
Returns a Wikipedia page name with interwiki prefix which is equivalent page
to given page in given language.
Args:
* sourceTitle: wiki page title which exists on sourceLang Wikipedia.
* sourceLang: language code of Wikipedia where `sourceTitle` is an
article. Defaults to `en`.
* targetLang: language code of Wikipedia from which you want to get
equivalent article to `sourceTitle`. Defaults to `defaultlang`.
]]
function p.getEquivalentWPArticle(frame)
return p._getEquivalentWPArticle(
frame.args.sourceTitle,
frame.args.sourceLang,
frame.args.targetLang
)
end
end


return p
return p

०५:०७, २२ अगस्त २०२२ के समय का अवतरण

"इस मॉड्यूल हेतु प्रलेख Module:Wikidata/doc पर बनाया जा सकता है" 

-- 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
"https://hiwiki.iiit.ac.in/index.php?title=Module:Wikidata&oldid=338662" से लिया गया