模組:Wikidata

-- vim: set noexpandtab ft=lua ts=4 sw=4:require('Module:No globals')local p = {}local debug = false-------------------------------------------------------------------------------- module local variables and functionslocal wiki ={langcode = mw.language.getContentLanguage().code}-- internationalisationlocal 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"}}--require("Module:i18n").loadI18n("Module:Wikidata/i18n", i18n)-- got idea from [[:w:Module:Wd]]local module_title; if ... == nil thenmodule_title = mw.getCurrentFrame():getTitle()elsemodule_title = ...endrequire('Module:i18n').loadI18n(module_title..'-i18n', i18n)-- 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.defaultif cardinal % 10 == 1 thenordsuffix = i18n.ordinal[1]elseif cardinal % 10 == 2 thenordsuffix = i18n.ordinal[2]elseif cardinal % 10 == 3 thenordsuffix = 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) thenordsuffix = i18n.ordinal.defaultendreturn tostring(cardinal) .. ordsuffixendlocal function printError(code)return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'endlocal function parseDateFormat(f, timestamp, addon, prefix_addon, addon_sep) local year_suffixlocal 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) doyear_suffix = ''if string.match(f_part, "x[mijkot]$") then-- for non-Gregorian yearf_part = f_part .. 'Y'elseif idx < #f_parts then-- supress leading zeros in yearyear_suffix = lang_obj:formatDate('Y', timestamp)year_suffix = string.gsub(year_suffix, '^0+', '', 1)endtstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffixendif addon ~= "" and prefix_addon thenreturn addon .. addon_sep .. tstrelseif addon ~= "" thenreturn tstr .. addon_sep .. addonelsereturn tstrendendlocal 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 dateif string.sub(timestamp, 1, 1) == '-' thentimestamp = '+' .. string.sub(timestamp, 2)addon = date_addonendlocal _date_format = i18n["datetime"]["format"][date_format]if _date_format ~= nil thenreturn parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)elsereturn printError("unknown-datetime-format")endend-- 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 dateif string.sub(timestamp, 1, 1) == '-' thentimestamp = '+' .. string.sub(timestamp, 2)addon = date_addonend-- 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 firstlocal intyear = tonumber(string.sub(timestamp, 2, 5))if intyear == 0 and precision <= 9 thenreturn ""end-- precision is 10000 years or moreif precision <= 5 thenlocal 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 daterelative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)elserelative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)endreturn relativeend-- precision is decades (8), centuries (7) and millennia (6)local era, cardif precision == 6 thencard = math.floor((intyear - 1) / 1000) + 1era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card))endif precision == 7 thencard = math.floor((intyear - 1) / 100) + 1era = mw.ustring.gsub(i18n.datetime[7], "$1", makeOrdinal(card))endif precision == 8 thenera = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10))endif era thenif addon ~= "" thenera = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)elseera = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era)endreturn eraendlocal _date_format = i18n["datetime"]["format"][date_format]if _date_format ~= nil then-- check for precision is year and override supplied date_formatif precision == 9 then_date_format = i18n["datetime"][9]endreturn parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)elsereturn printError("unknown-datetime-format")endend-- 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 functionlocal i = 0return function()i = i + 1if order[i] thenreturn order[i], array[order[i]]endendend-- 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 - secondlocal function normalizeDate(date)date = mw.text.trim(date, "+")-- extract yearlocal yearstr = mw.ustring.match(date, "^\-?%d+")local year = tonumber(yearstr)-- remove leading zeros of yearreturn year .. mw.ustring.sub(date, #yearstr + 1), yearendlocal function formatDate(date, precision, timezone)precision = precision or 11local date, year = normalizeDate(date)if year == 0 and precision <= 9 then return "" end-- precision is 10000 years or moreif precision <= 5 thenlocal 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 thenrelative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)elserelative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)endreturn relativeend-- precision is decades, centuries and millennialocal eraif precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) endif precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) endif precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) endif era thenif 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) endreturn eraend-- precision is yearif precision == 9 thenreturn yearend-- precision is less than yearsif precision > 9 then--[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local timetimezone = tonumber(timezone)if timezone and timezone ~= 0 thentimezone = -timezonetimezone = string.format("%.2d%.2d", timezone / 60, timezone % 60)if timezone[1] ~= '-' then timezone = "+" .. timezone enddate = mw.text.trim(date, "Z") .. " " .. timezoneend]]--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 yearsdate = 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" thenformatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9]))endreturn mw.language.new(wiki.langcode):formatDate(formatstr, date)endendlocal function printDatavalueEntity(data, parameter)-- data fields: entity-type [string], numeric-id [int, Wikidata id]local idif 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")endif parameter thenif parameter == "link" thenlocal linkTarget = mw.wikibase.sitelink(id)local linkName = mw.wikibase.label(id)if linkTarget then-- if there is a local Wikipedia article link to it using the label or the article titlereturn "[[" .. 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 labelif linkName then return linkName else return "[[:d:" .. id .. "|" .. id .. "]]" endendelsereturn data[parameter]endelsereturn mw.wikibase.label(id) or idendendlocal 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 thenif parameter == "calendarmodel" then data.calendarmodel = mw.ustring.match(data.calendarmodel, "Q%d+") -- extract entity id from the calendar model URIelseif parameter == "time" then data.time = normalizeDate(data.time) endreturn data[parameter]elsereturn formatDate(data.time, data.precision, data.timezone)endendlocal function printDatavalueMonolingualText(data, parameter)-- data fields: language [string], text [string]if parameter thenreturn data[parameter]elselocal result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])return resultendendlocal function findClaims(entity, property)if not property or not entity or not entity.claims then return endif mw.ustring.match(property, "^P%d+$") then-- if the property is given by an id (P..) access the claim list by this idreturn entity.claims[property]elseproperty = mw.wikibase.resolvePropertyId(property)if not property then return endreturn entity.claims[property]endendlocal function getSnakValue(snak, parameter)if snak.snaktype == "value" then-- call the respective snak parserif snak.datavalue.type == "string" then return snak.datavalue.valueelseif 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)endendreturn mw.wikibase.renderSnak(snak)endlocal 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 snaksif qualifierId then-- search the attribute snak with the given qualifier as keyif claim.qualifiers thenlocal qualifier = claim.qualifiers[qualifierId]if qualifier then return qualifier[1] endendreturn nil, printError("qualifier-not-found")else-- otherwise return the main snakreturn claim.mainsnakendendlocal function getValueOfClaim(claim, qualifierId, parameter)local errorlocal snaksnak, error = getQualifierSnak(claim, qualifierId)if snak thenreturn getSnakValue(snak, parameter)elsereturn nil, errorendendlocal function getReferences(frame, claim)local result = ""-- traverse through all referencesfor ref in pairs(claim.references or {}) dolocal refparts-- traverse through all parts of the current referencefor snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref]["snaks-order"]) doif refparts then refparts = refparts .. ", " else refparts = "" end-- output the label of the property of the reference part, e.g. "imported from" for P143refparts = refparts .. tostring(mw.wikibase.label(snakkey)) .. ": "-- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sitesfor snakidx = 1, #snakval doif snakidx > 1 then refparts = refparts .. ", " endrefparts = refparts .. getSnakValue(snakval[snakidx])endendif refparts then result = result .. frame:extensionTag("ref", refparts) endendreturn resultendlocal function parseInput(frame)local qid = frame.args.qidif qid and (#qid == 0) then qid = nil endlocal propertyID = mw.text.trim(frame.args[1] or "")local input_parm = mw.text.trim(frame.args[2] or "")if input_parm ~= "FETCH_WIKIDATA" thenreturn false, input_parm, nil, nilendlocal entity = mw.wikibase.getEntityObject(qid)local claimsif entity and entity.claims thenclaims = entity.claims[propertyID]if not claims thenreturn false, "", nil, nilendelsereturn false, "", nil, nilendreturn true, entity, claims, propertyIDendlocal function isType(claims, type)return claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == typeendlocal function getValue(entity, claims, propertyID, delim, labelHook) if labelHook == nil thenlabelHook = function (qnumber)return nil;endendif isType(claims, "wikibase-entityid") thenlocal out = {}for k, v in pairs(claims) dolocal qnumber = "Q" .. v.mainsnak.datavalue.value["numeric-id"]local sitelink = mw.wikibase.sitelink(qnumber)local label = labelHook(qnumber) or mw.wikibase.label(qnumber) or qnumberif sitelink thenout[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"elseout[#out + 1] = "[[:d:" .. qnumber .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"endendreturn table.concat(out, delim)else-- just return best valuesreturn entity:formatPropertyValues(propertyID).valueendend-------------------------------------------------------------------------------- module global functionsif debug thenfunction p.inspectI18n(frame)local val = i18nfor _, key in pairs(frame.args) dokey = mw.text.trim(key)val = val[key]endreturn valendendfunction 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 sitereturn mw.wikibase.getEntityObject(id).descriptions[langcode or wiki.langcode].valueendfunction 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 sitereturn mw.wikibase.getEntityObject(id).labels[langcode or wiki.langcode].valueend-- This is used to get a value, or a comma separated list of them if multiple values existp.getValue = function(frame)local delimdefault = "、" -- **internationalise later**local delim = frame.args.delimiter or ""delim = string.gsub(delim, '"', '')if #delim == 0 thendelim = delimdefaultendlocal go, errorOrentity, claims, propertyID = parseInput(frame)if not go thenreturn errorOrentityendreturn 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 thenreturn errorOrentityendlocal entity = errorOrentity-- if wiki-linked value output as link if possiblelocal function labelHook (qnumber)local labellocal claimEntity = mw.wikibase.getEntity(qnumber)if claimEntity ~= nil thenif claimEntity.claims.P1813 thenfor k2, v2 in pairs(claimEntity.claims.P1813) dofor _, variant in ipairs{"zh", "zh-hans", "zh-hant", "zh-cn", "zh-hk", "zh-mo", "zh-sg", "zh-tw"} doif v2.mainsnak.datavalue.value.language == variant thenlabel = v2.mainsnak.datavalue.value.textendendendendendif label == nil or label == "" then return nil endreturn labelendreturn 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" thenlocal entity = mw.wikibase.getEntity(itemID)local claimsif entity and entity.claims thenclaims = entity.claims[propertyID]endif claims thenreturn getValue(entity, claims, propertyID, ", ")elsereturn ""endelsereturn input_parmendendlocal 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" thenlocal entity = mw.wikibase.getEntityObject()if entity.claims[propertyID] ~= nil thenlocal out = {}for k, v in pairs(entity.claims[propertyID]) dofor k2, v2 in pairs(v.qualifiers[qualifierID]) doif v2.snaktype == 'value' thenout[#out + 1] = outputHook(v2);endendendreturn table.concat(out, "、"), trueelsereturn "", falseendelsereturn input_parm, falseendendp.getQualifierValue = function(frame)local function outputValue(value)local qnumber = "Q" .. value.datavalue.value["numeric-id"]if (mw.wikibase.sitelink(qnumber)) thenreturn "[[" .. mw.wikibase.sitelink(qnumber) .. "]]"elsereturn "[[:d:" .. qnumber .. "|" ..qnumber .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"endendreturn (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 separatorsp.getRawValue = function(frame)local go, errorOrentity, claims, propertyID = parseInput(frame)if not go thenreturn errorOrentityendlocal entity = errorOrentitylocal result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value-- if number type: remove thousand separators, bounds and unitsif isType(claims, "quantity") thenresult = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")result = mw.ustring.gsub(result, "(%d)±.*", "%1")endreturn resultend-- This is used to get the unit name for the numeric value returned by getRawValuep.getUnits = function(frame)local go, errorOrentity, claims, propertyID = parseInput(frame)if not go thenreturn errorOrentityendlocal entity = errorOrentitylocal result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).valueif isType(claims, "quantity") thenresult = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)endreturn resultend-- This is used to get the unit's QID to use with the numeric value returned by getRawValuep.getUnitID = function(frame)local go, errorOrentity, claims = parseInput(frame)if not go thenreturn errorOrentityendlocal entity = errorOrentitylocal resultif 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)endreturn resultendp.getRawQualifierValue = function(frame)local function outputHook(value)if value.datavalue.value["numeric-id"] thenreturn mw.wikibase.label("Q" .. value.datavalue.value["numeric-id"])elsereturn value.datavalue.valueendendlocal ret, gotData = getQualifier(frame, outputHook)if gotData thenret = string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)endreturn retend-- 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 thenreturn errorOrentityendlocal entity = errorOrentitylocal out = {}for k, v in pairs(claims) doif v.mainsnak.datavalue.type == 'time' thenlocal timestamp = v.mainsnak.datavalue.value.timelocal 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)endendreturn table.concat(out, "、")endp.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.timereturn parseDateValue(timestamp, date_format, date_addon)endreturn (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 thenreturn errorOrentityendlocal entity = errorOrentityif (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") thenlocal out = {}for k, v in pairs(claims) dolocal filename = v.mainsnak.datavalue.valueout[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]"endreturn table.concat(out, sep)elsereturn ""endend-- 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 stringp.getTAValue = function(frame)local ent = mw.wikibase.getEntityObject()local props = ent:formatPropertyValues('P1323')local out = {}local t = {}for k, v in pairs(props) doif k == 'value' thent = mw.text.split( v, ", ")for k2, v2 in pairs(t) doout[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"endendendlocal ret = table.concat(out, "<br> ")if #ret == 0 thenret = "Invalid TA"endreturn retend--[[This is used to return an image legend from Wikidataimage is property P18image legend is property P2096Call 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 codeISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447Ranks are: 'preferred' > 'normal'This returns the label from the first image with 'preferred' rankOr the label from the first image with 'normal' rank if preferred returns nothingRanks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua]]p.getImageLegend = function(frame)-- look for named parameter id; if it's blank make it nillocal id = frame.args.idif id and (#id == 0) thenid = nilend-- 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 wikilocal lang = frame.args.langif (not lang) or (#lang < 2) thenlang = mw.language.getContentLanguage().codeend-- first unnamed parameter is the local parameter, if suppliedlocal input_parm = mw.text.trim(frame.args[1] or "")if input_parm == "FETCH_WIKIDATA" thenlocal ent = mw.wikibase.getEntityObject(id)local imgsif ent and ent.claims thenimgs = ent.claims.P18endlocal imglblif imgs then-- look for an image with 'preferred' rankfor k1, v1 in pairs(imgs) doif v1.rank == "preferred" and v1.qualifiers and v1.qualifiers.P2096 thenlocal imglbls = v1.qualifiers.P2096for k2, v2 in pairs(imglbls) doif v2.datavalue.value.language == lang thenimglbl = v2.datavalue.value.textbreakendendendend-- if we don't find one, look for an image with 'normal' rankif (not imglbl) thenfor k1, v1 in pairs(imgs) doif v1.rank == "normal" and v1.qualifiers and v1.qualifiers.P2096 thenlocal imglbls = v1.qualifiers.P2096for k2, v2 in pairs(imglbls) doif v2.datavalue.value.language == lang thenimglbl = v2.datavalue.value.textbreakendendendendendendreturn imglblelsereturn input_parmendend-- 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 thenreturn errorOrentityendlocal entity = errorOrentity-- if wiki-linked value collect the QID in a tableif (propclaims[1] and propclaims[1].mainsnak.snaktype == "value" and propclaims[1].mainsnak.datavalue.type == "wikibase-entityid") thenlocal out = {}for k, v in pairs(propclaims) doout[#out + 1] = "Q" .. v.mainsnak.datavalue.value["numeric-id"]endreturn table.concat(out, "、")else-- not a wikibase-entityid, so return emptyreturn ""endend-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidatafunction p.pageId(frame)local entity = mw.wikibase.getEntityObject()if not entity then return nil else return entity.id endendfunction 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 entitylocal entity = mw.wikibase.getEntityObject(id)if not entity thenif showerrors then return printError("entity-not-found") else return default endend-- fetch the first claim of satisfying the given propertylocal claims = findClaims(entity, property)if not claims or not claims[1] thenif showerrors then return printError("property-not-found") else return default endend-- get initial sort indiceslocal sortindices = {}for idx in pairs(claims) dosortindices[#sortindices + 1] = idxend-- sort by claim ranklocal 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 < rankbendtable.sort(sortindices, comparator)local resultlocal errorif list thenlocal value-- iterate over all elements and return their value (if existing)result = {}for idx in pairs(claims) dolocal claim = claims[sortindices[idx]]value, error = getValueOfClaim(claim, qualifierId, parameter)if not value and showerrors then value = error endif value and references then value = value .. getReferences(frame, claim) endresult[#result + 1] = valueendresult = table.concat(result, list)else-- return first elementlocal claim = claims[sortindices[1]]result, error = getValueOfClaim(claim, qualifierId, parameter)if result and references then result = result .. getReferences(frame, claim) endendif result then return result elseif showerrors then return error else return default endendend-- look into entity objectfunction p.ViewSomething(frame)local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()local id = f.args.idif id and (#id == 0) thenid = nilendlocal data = mw.wikibase.getEntityObject(id)if not data thenreturn nilendlocal i = 1while true dolocal index = f.args[i]if not index thenif type(data) == "table" thenreturn mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)elsereturn tostring(data)endenddata = data[index] or data[tonumber(index)]if not data thenreturnendi = i + 1endend-- getting sitelink of a given wiki-- get sitelink of current item if qid not suppliedfunction p.getSiteLink(frame)local qid = frame.args.qidif qid == "" then qid = nil endlocal f = mw.text.trim( frame.args[1] or "")local entity = mw.wikibase.getEntity(qid)if not entity thenreturnendlocal link = entity:getSitelink( f )if not link thenreturnendreturn linkendfunction p.Dump(frame)local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()local data = mw.wikibase.getEntityObject(f.args.id)if not data thenreturn i18n.warnDumpendlocal i = 1while true dolocal index = f.args[i]if not index thenreturn "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDumpenddata = data[index] or data[tonumber(index)]if not data thenreturn i18n.warnDumpendi = i + 1endendreturn p