模組:WikidataIB

模組解[開]

-- Module to implement use of a blacklist and whitelist for infobox fields-- Can take a named parameter |qid which is the Wikidata ID for the article-- if not supplied, it will use the Wikidata ID associated with the current page.-- Fields in blacklist are never to be displayed, i.e. module must return nil in all circumstances-- Fields in whitelist return local value if it exists or the Wikidata value otherwise-- The name of the field that this function is called from is passed in named parameter |name-- The name is compulsory when blacklist or whitelist is used,-- so the module returns nil if it is not supplied.-- blacklist is passed in named parameter |suppressfields (or |spf)-- whitelist is passed in named parameter |fetchwikidata (or |fwd)local p = {}local cdate -- initialise as nil and only load _complex_date function if needed-- [[Module:Complex date]] is loaded lazily and has the following dependencies:-- Module:I18n/complex date, Module:ISOdate, Module:DateI18n (alternative for Module:Date),-- Module:Formatnum, Module:I18n/date, Module:Yesno, Module:Linguistic, Module:Calendar-- The following, taken from https://www.mediawiki.org/wiki/Wikibase/DataModel#Dates_and_times,-- is needed to use Module:Complex date which seemingly requires date precision as a string.-- It would work better if only the authors of the mediawiki page could spell 'millennium'.local dp = {[6] = "millennium",[7] = "century",[8] = "decade",[9] = "year",[10] = "month",[11] = "day",}local i18n ={["errors"] ={["property-not-found"] = "無噉嘅屬性。",["No property supplied"] = "無畀屬性",["entity-not-found"] = "無噉嘅維基數據項。",["unknown-claim-type"] = "無噉嘅聲明項類型。",["unknown-entity-type"] = "無噉嘅維基數據項類型。",["qualifier-not-found"] = "無噉嘅限定符。",["site-not-found"] = "無噉嘅維基媒體項目。",["labels-not-found"] = "搵唔到喱保。",["descriptions-not-found"] = "搵唔到描述。",["aliases-not-found"] = "搵唔到替身。",["unknown-datetime-format"] = "未知日期時間格式。",["local-article-not-found"] = "呢個維基無呢個名嘅文",["dab-page"] = " (搞清楚)",},["months"] ={"1月", "2月", "3月", "4月", "5月", "6月", "7月","8月", "9月", "10月", "11月", "12月"},["yearsuffix"] = "年",["monthsuffix"] = "月",["daysuffix"] = "號",["century"] = "世紀",["BC"] = "公元前",["BCE"] = "公元前",["ordinal"] ={[1] = "",[2] = "",[3] = "",["default"] = ""},["filespace"] = "File",["Unknown"] = "未知",["NaN"] = "唔係數字",-- set the following to the name of a tracking category,-- e.g. "[[Category:Articles with missing Wikidata information]]", or "" to disable:["missinginfocat"] = "[[Category:缺少維基數據嘅文章]]",["editonwikidata"] = "喺Wikidata改呢個",["latestdatequalifier"] = function (date) return date .. "之前" end,-- some languages, e.g. Bosnian use a period as a suffix after each number in a date["datenumbersuffix"] = "",["list separator"] = "、",["multipliers"] = {[0]  = "",[4]  = "萬",[8]  = "億",[12]  = "兆",},["abbr"] ={["Q828224"]  = "km",["Q11573"]   = "m",["Q174728"]  = "cm",["Q174789"]  = "mm",["Q712226"]  = "sq&nbsp;km",["Q11570"]   = "kg",["Q41803"]   = "g",["Q3241121"] = "mg",["Q2332346"] = "ml",["Q7727"]    = "min",["Q11574"]   = "s",},}-- This allows an internationisation module to override the above tableif 'en' ~= mw.getContentLanguage():getCode() thenrequire("Module:i18n").loadI18n("Module:WikidataIB/i18n", i18n)end-- This piece of html implements a collapsible container. Check the classes exist on your wiki.local collapsediv = '<div class="mw-collapsible mw-collapsed" style="width:100%; overflow:auto;" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">'-- Some items should not be linked.-- Each wiki can create a list of those in Module:WikidataIB/nolinks-- It should return a table called itemsindex, containing true for each item not to be linkedlocal donotlink = {}local nolinks_exists, nolinks = pcall(mw.loadData, "Module:WikidataIB/nolinks")if nolinks_exists thendonotlink = nolinks.itemsindexend-- To satisfy Wikipedia:Manual of Style/Titles, certain types of items are italicised, and others are quoted.-- The submodule [[Module:WikidataIB/titleformats]] lists the entity-ids used in 'instance of' (P31),-- which allows this module to identify the values that should be formatted.-- WikidataIB/titleformats exports a table p.formats, which is indexed by entity-id, and contains the value " or ''local formats = {}local titleformats_exists, titleformats = pcall(mw.loadData, "Module:WikidataIB/titleformats")if titleformats_exists thenformats = titleformats.formatsend--------------------------------------------------------------------------------- Private functions------------------------------------------------------------------------------------------------------------------------------------------------------------------ makeOrdinal 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.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local makeOrdinal = function(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) .. ordsuffixend--------------------------------------------------------------------------------- findLang takes a "langcode" parameter if supplied and valid-- otherwise it tries to create it from the user's set language ({{int:lang}})-- failing that it uses the wiki's content language.-- It returns a language object--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local findLang = function(langcode)local langobjlangcode = mw.text.trim(langcode or "")if mw.language.isKnownLanguageTag(langcode) thenlangobj = mw.language.new( langcode )elselangcode = mw.getCurrentFrame():preprocess( '{{int:lang}}' )if mw.language.isKnownLanguageTag(langcode) thenlangobj = mw.language.new( langcode )elselangobj = mw.language.getContentLanguage()endendreturn langobjend--------------------------------------------------------------------------------- _getItemLangCode takes a qid parameter (using the current page's qid if blank)-- If the item for that qid has property country (P17) it looks at the first preferred value-- If the country has an official language (P37), it looks at the first preferred value-- If that official language has a language code (P424), it returns the first preferred value-- Otherwise it returns nothing.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local _getItemLangCode = function(qid)qid = mw.text.trim(qid or ""):upper()if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() endif not qid then return endlocal prop17 = mw.wikibase.getBestStatements(qid, "P17")[1]if not prop17 or prop17.mainsnak.snaktype ~= "value" then return endlocal qid17 = prop17.mainsnak.datavalue.value.idlocal prop37 = mw.wikibase.getBestStatements(qid17, "P37")[1]if not prop37 or prop37.mainsnak.snaktype ~= "value" then return endlocal qid37 = prop37.mainsnak.datavalue.value.idlocal prop424 = mw.wikibase.getBestStatements(qid37, "P424")[1]if not prop424 or prop424.mainsnak.snaktype ~= "value" then return endreturn prop424.mainsnak.datavalue.valueend--------------------------------------------------------------------------------- roundto takes a number (x)-- and returns it rounded to (sf) significant figures--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local roundto = function(x, sf)if x == 0 then return 0 endlocal s = 1if x < 0 thenx = -xs = -1endif sf < 1 then sf = 1 endlocal p = 10 ^ (math.floor(math.log10(x)) - sf + 1)x = math.floor(x / p + 0.5) * p * s-- if it's integral, cast to an integer:if x == math.floor(x) then x = math.floor(x) endreturn xend--------------------------------------------------------------------------------- decimalToDMS takes a decimal degrees (x) with precision (p)-- and returns degrees/minutes/seconds according to the precision--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local decimalToDMS = function(x, p)-- if p is not supplied, use a precision around 0.1 secondsif not tonumber(p) then p = 1e-4 endlocal d = math.floor(x)local ms = (x - d) * 60if p > 0.5 then -- precision is > 1/2 a degreeif ms > 30 then d = d + 1 endms = 0endlocal m = math.floor(ms)local s = (ms - m) * 60if p > 0.008 then -- precision is > 1/2 a minuteif s > 30 then m = m +1 ends = 0elseif p > 0.00014 then -- precision is > 1/2 a seconds = math.floor(s + 0.5)elseif p > 0.000014 then -- precision is > 1/20 seconds = math.floor(10 * s + 0.5) / 10elseif p > 0.0000014 then -- precision is > 1/200 seconds = math.floor(100 * s + 0.5) / 100else -- cap it at 3 dec places for nows = math.floor(1000 * s + 0.5) / 1000endreturn d, m, send--------------------------------------------------------------------------------- decimalPrecision takes a decimal (x) with precision (p)-- and returns x rounded approximately to the given precision-- precision should be between 1 and 1e-6, preferably a power of 10.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local decimalPrecision = function(x, p)local s = 1if x < 0 thenx = -xs = -1end-- if p is not supplied, pick an arbitrary precisionif not tonumber(p) then p = 1e-4elseif p > 1 then p = 1elseif p < 1e-6 then p = 1e-6else p = 10 ^ math.floor(math.log10(p))endx = math.floor(x / p + 0.5) * p * s-- if it's integral, cast to an integer:if  x == math.floor(x) then x = math.floor(x) end-- if it's less than 1e-4, it will be in exponent form, so return a string with 6dp-- 9e-5 becomes 0.000090if math.abs(x) < 1e-4 then x = string.format("%f", x) endreturn xend--------------------------------------------------------------------------------- formatDate takes a datetime of the usual format from mw.wikibase.entity:formatPropertyValues-- like "1 August 30 BCE" as parameter 1-- and formats it according to the df (date format) and bc parameters-- for Cantonese: "Y年n月j號" or "Y年"-- df = ["dmy" / "mdy" / "y"] default will be "ymd"-- bc = ["BC" / "BCE"] default will be "BCE"--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local format_Date = function(datetime, dateformat, bc)local datetime = datetime or "1 August 30 BCE" -- in case of nil value-- chop off multiple vales and/or any hours, mins, etc.-- keep anything before punctuation - we just want a single date:local dateval = string.match( datetime, "[%w ]+")local dateformat = string.lower(dateformat or "ymd") -- default to ymdlocal bc = string.upper(bc or "") -- can't use nil for bc-- we only want to accept two possibilities: BC or default to BCEif bc == "BC" thenbc = i18n["BC"]  .. "&nbsp;"-- postpend a non-breaking space.elsebc = i18n["BCE"] .. "&nbsp;"endlocal postchrist = true -- start by assuming no BCElocal dateparts = {}for word in string.gmatch(dateval, "%w+") doif word == "BCE" or word == "BC" then -- *** internationalise later ***postchrist = falseelse-- we'll keep the parts that are not 'BCE' in a tabledateparts[#dateparts + 1] = wordendendif postchrist then bc = "" end -- set AD dates to no suffix *** internationalise later ***local sep = "&nbsp;" -- separator is nbsp--local fdate = table.concat(dateparts, sep) -- set formatted date to same order as input-- if we have day month year, check dateformatlocal fdateif #dateparts == 3 thenfdate = dateparts[3] .. yearsuffixif dateformat ~= "y" thenfdate = fdate .. dateparts[2] .. monthsuffix .. dateparts[1] .. daysuffixendelseif #dateparts == 2 thenfdate = dateparts[2] .. yearsuffixif dateformat ~= "y" thenfdate = fdate .. dateparts[1] .. monthsuffixendelsefdate = dateparts[1] .. yearsuffixendreturn bc .. fdateend--------------------------------------------------------------------------------- dateFormat is the handler for properties that are of type "time"-- It takes timestamp, precision (6 to 11 per mediawiki), dateformat (y/dmy/mdy), BC format (BC/BCE),-- a plaindate switch (yes/no/adj) to en/disable "sourcing cirumstances"/use adjectival form,-- any qualifiers for the property, the language, and any adjective to use like 'before'.-- It passes the date through the "complex date" function-- and returns a string with the internatonalised date formatted according to preferences.--------------------------------------------------------------------------------- Dependencies: findLang(); cdate(); dp[]-------------------------------------------------------------------------------local dateFormat = function(timestamp, dprec, df, bcf, pd, qualifiers, lang, adj, model)-- 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")-- output formatting according to preferences (y/dmy/mdy)df = (df or ""):lower()-- just in case date precision is missingdprec = dprec or 11-- override more precise dates if required dateformat is year alone:if df == "y" and dprec > 9 then dprec = 9 end-- complex date only deals with precisions from 6 to 11, so clip rangedprec = dprec>11 and 11 or dprecdprec = dprec<6 and 6 or dprec-- BC format is "BC" or "BCE"bcf = (bcf or ""):upper()-- plaindate only needs the first letter (y/n/a)pd = (pd or ""):sub(1,1):lower()if pd == "" or pd == "n" or pd == "f" or pd == "0" then pd = false end-- in case language isn't passedlang = lang or findLang().code-- set adj as empty if niladj = adj or ""-- extract the day, month, year from the timestamplocal bc = timestamp:sub(1, 1)=="-" and "BC" or ""local year, month, day = timestamp:match("[+-](%d*)-(%d*)-(%d*)T")local iso = tonumber(year) -- if year is missing, let it throw an error-- this will adjust the date format to be compatible with cdate-- possible formats are Y, YY, YYY0, YYYY, YYYY-MM, YYYY-MM-DDif dprec == 6 then iso = math.floor( (iso - 1) / 1000 ) + 1 endif dprec == 7 then iso = math.floor( (iso - 1) / 100 ) + 1 endif dprec == 8 then iso = math.floor( iso / 10 ) .. "0" endif dprec == 10 then iso = year .. "-" .. month endif dprec == 11 then iso = year .. "-" .. month .. "-" .. day end-- add "circa" (Q5727902) from "sourcing circumstances" (P1480)local sc = not pd and qualifiers and qualifiers.P1480if sc thenfor k1, v1 in pairs(sc) doif v1.datavalue and v1.datavalue.value.id == "Q5727902" thenadj = "circa"breakendendend-- deal with Julian dates:-- no point in saying that dates before 1582 are Julian - they are by default-- doesn't make sense for dates less precise than year-- we can supress it by setting |plaindate, e.g. for use in constructing categories.local calendarmodel = ""if tonumber(year) > 1582and dprec > 8and not pdand model == "http://www.wikidata.org/entity/Q1985786" thencalendarmodel = "julian"endif not cdate thencdate = require("Module:Complex date")._complex_dateendlocal fdate = cdate(calendarmodel, adj, tostring(iso), dp[dprec], bc, "", "", "", "", lang, 1)-- this may have QuickStatements info appended to it in a div, so remove thatfdate = fdate:gsub(' <div style="display: none;">[^<]*</div>', '')-- it may also be returned wrapped in a microformat, so remove thatfdate = fdate:gsub("<[^>]*>", "")-- there may be leading zeros that we should removefdate = fdate:gsub("^0*", "")-- if a plain date is required, then remove any links (like BC linked)if pd thenfdate = fdate:gsub("%[%[.*|", ""):gsub("]]", "")end-- if 'circa', use the abbreviated form *** internationalise later ***fdate = fdate:gsub('circa ', '<abbr title="circa">c.</abbr>&nbsp;')-- deal with BC/BCEif bcf == "BCE" thenfdate = fdate:gsub('BC', 'BCE')end-- deal with mdy formatif df == "mdy" thenfdate = fdate:gsub("(%d+) (%w+) (%d+)", "%2 %1, %3")end-- deal with adjectival form *** internationalise later ***if pd == "a" thenfdate = fdate:gsub(' century', '-century')endreturn fdateend--------------------------------------------------------------------------------- parseParam takes a (string) parameter, e.g. from the list of frame arguments,-- and makes "false", "no", and "0" into the (boolean) false-- it makes the empty string and nil into the (boolean) value passed as default-- allowing the parameter to be true or false by default.-- It returns a boolean.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local parseParam = function(param, default)if type(param) == "boolean" then param = tostring(param) endif param and param ~= "" thenparam = param:lower()if (param == "false") or (param:sub(1,1) == "n") or (param == "0") thenreturn falseelsereturn trueendelsereturn defaultendend--------------------------------------------------------------------------------- _getSitelink takes the qid of a Wikidata entity passed as |qid=-- It takes an optional parameter |wiki= to determine which wiki is to be checked for a sitelink-- If the parameter is blank, then it uses the local wiki.-- If there is a sitelink to an article available, it returns the plain text link to the article-- If there is no sitelink, it returns nil.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local _getSitelink = function(qid, wiki)qid = (qid or ""):upper()if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() endif not qid then return nil endwiki = wiki or ""local sitelinkif wiki == "" thensitelink = mw.wikibase.sitelink(qid)elsesitelink = mw.wikibase.sitelink(qid, wiki)endreturn sitelinkend--------------------------------------------------------------------------------- _getCommonslink takes an optional qid of a Wikidata entity passed as |qid=-- It returns one of the following in order of preference:-- the Commons sitelink of the Wikidata entity - but not if onlycat=true and it's not a category;-- the Commons sitelink of the topic's main category of the Wikidata entity;-- the Commons category of the Wikidata entity - unless fallback=false.--------------------------------------------------------------------------------- Dependencies: _getSitelink(); parseParam()-------------------------------------------------------------------------------local _getCommonslink = function(qid, onlycat, fallback)qid = (qid or ""):upper()if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() endif not qid then return nil endonlycat = parseParam(onlycat, false)if fallback == "" then fallback = nil endlocal sitelink = _getSitelink(qid, "commonswiki")if onlycat and sitelink and sitelink:sub(1,9) ~= "Category:" then sitelink = nil endif not sitelink then-- check for topic's main categorylocal prop910 = mw.wikibase.getBestStatements(qid, "P910")[1]if prop910 thenlocal tmcid = prop910.mainsnak.datavalue and prop910.mainsnak.datavalue.value.idsitelink = _getSitelink(tmcid, "commonswiki")endif not sitelink then-- check for list's main categorylocal prop1754 = mw.wikibase.getBestStatements(qid, "P1754")[1]if prop1754 thenlocal tmcid = prop1754.mainsnak.datavalue and prop1754.mainsnak.datavalue.value.idsitelink = _getSitelink(tmcid, "commonswiki")endendendif not sitelink and fallback then-- check for Commons category (string value)local prop373 = mw.wikibase.getBestStatements(qid, "P373")[1]if prop373 thensitelink = prop373.mainsnak.datavalue and prop373.mainsnak.datavalue.valueif sitelink then sitelink = "Category:" .. sitelink endendendreturn sitelinkend--------------------------------------------------------------------------------- The label in a Wikidata item is subject to vulnerabilities-- that an attacker might try to exploit.-- It needs to be 'sanitised' by removing any wikitext before use.-- If it doesn't exist, return the id for the item-- a second (boolean) value is also returned, value is true when the label exists--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local labelOrId = function(id, lang)if lang == "default" then lang = findLang().code endlocal labelif lang thenlabel = mw.wikibase.getLabelByLang(id, lang)elselabel = mw.wikibase.label(id)endif label thenreturn mw.text.nowiki(label), trueelsereturn id, falseendend--------------------------------------------------------------------------------- linkedItem takes an entity-id and returns a string, linked if possible.-- This is the handler for "wikibase-item". Preferences:-- 1. Display linked disambiguated sitelink if it exists-- 2. Display linked label if it is a redirect-- 3. TBA: Display an inter-language link for the label if it exists other than in default language-- 4. Display unlinked label if it exists-- 5. Display entity-id for now to indicate a label could be provided-- dtxt is text to be used instead of label, or nil.-- shortname is boolean switch to use P1813 (short name) instead of label if true.-- lang is the current language code.--------------------------------------------------------------------------------- Dependencies: labelOrId(); donotlink[]-------------------------------------------------------------------------------local linkedItem = function(id, lprefix, lpostfix, prefix, postfix, dtxt, shortname, lang)lprefix = lprefix or "" -- toughen against nil values passedlpostfix = lpostfix or ""prefix = prefix or ""postfix = postfix or ""lang = lang or "en" -- fallback to default if missing-- see if item might need italics or quoteslocal fmt = ""for k, v in ipairs( mw.wikibase.getBestStatements(id, "P31") ) doif v.mainsnak.datavalue and formats[v.mainsnak.datavalue.value.id] thenfmt = formats[v.mainsnak.datavalue.value.id]break -- pick the first matchendendlocal displocal sitelink = mw.wikibase.sitelink(id)local label, islabelif dtxt thenlabel, islabel = dtxt, trueelseif shortname then-- see if there is a shortname in our language, and set label to itfor k, v in ipairs( mw.wikibase.getBestStatements(id, "P1813") ) doif v.mainsnak.datavalue.value.language == lang thenlabel, islabel = v.mainsnak.datavalue.value.text, truebreakend -- test for language matchend -- loop through values of short name-- if we have no label set, then there was no shortname availableif not islabel thenlabel, islabel = labelOrId(id)shortname = falseendelselabel, islabel = labelOrId(id)endif mw.site.siteName ~= "Wikimedia Commons" thenif sitelink thenif not (dtxt or shortname) then-- strip any namespace or dab from the sitelinklocal pos = sitelink:find(":") or 0local slink = sitelink:sub(pos+1):gsub("%s%(.+%)$", ""):gsub(",.+$", "")--  use that as label, preserving label case - find("^%u") is true for 1st char uppercaseif label:find("^%u") thenlabel = slink:gsub("^(%l)", string.upper)elselabel = slink:gsub("^(%u)", string.lower)endendif donotlink[label] thendisp = prefix .. fmt .. label .. fmt .. postfixelsedisp = "[[" .. lprefix .. sitelink .. lpostfix .. "|" .. prefix .. fmt .. label .. fmt .. postfix .. "]]"endelseif islabel then-- no sitelink, label exists, so check if a redirect with that title existslocal artitle = mw.title.new(label, 0)if artitle and artitle.redirectTarget and not donotlink[label] then-- there's a redirect with the same title as the label, so let's link to thatdisp = "[[".. lprefix .. label .. lpostfix .. "|" .. prefix .. fmt .. label .. fmt .. postfix .. "]]"else-- no sitelink, label exists, not redirect (or donotlink) so output plain labeldisp = prefix .. fmt .. label .. fmt .. postfixend -- test if article title exists as redirect on current Wikielse-- no sitelink and no label, so return whatever was returned from labelOrId for now-- add tracking category [[Category:Articles with missing Wikidata information]]disp = prefix .. label .. postfix .. i18n.missinginfocatendelselocal ccat = mw.wikibase.getBestStatements(id, "P373")[1]if ccat and ccat.mainsnak.datavalue thenccat = ccat.mainsnak.datavalue.valuedisp = "[[" .. lprefix .. "Category:" .. ccat .. lpostfix .. "|" .. prefix .. label .. postfix .. "]]"elseif sitelink then-- this asumes that if a sitelink exists, then a label also existsdisp = "[[" .. lprefix .. sitelink .. lpostfix .. "|" .. prefix .. label .. postfix .. "]]"else-- no sitelink and no Commons cat, so return label from labelOrId for nowdisp = prefix .. label .. postfixendendreturn dispend--------------------------------------------------------------------------------- sourced takes a table representing a statement that may or may not have references-- it counts how many references are sourced to something not containing the word "wikipedia"-- it returns a boolean = true if there are any sourced references.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local sourced = function(claim)if claim.references thenfor kr, vr in pairs(claim.references) dolocal ref = mw.wikibase.renderSnaks(vr.snaks)if not ref:find("Wiki") thenreturn trueendendendend--------------------------------------------------------------------------------- setRanks takes a flag (parameter passed) that requests the values to return-- "b[est]" returns preferred if available, otherwise normal-- "p[referred]" returns preferred-- "n[ormal]" returns normal-- "d[eprecated]" returns deprecated-- multiple values are allowed, e.g. "preferred normal" (which is the default)-- "best" will override the other flags, and set p and n--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local setRanks = function(rank)rank = (rank or ""):lower()-- if nothing passed, return preferred and normal-- if rank == "" then rank = "p n" endlocal ranks = {}for w in string.gmatch(rank, "%a+") dow = w:sub(1,1)if w == "b" or w == "p" or w == "n" or w == "d" thenranks[w] = trueendend-- check if "best" is requested or no ranks requested; and if so, set preferred and normalif ranks.b or not next(ranks) thenranks.p = trueranks.n = trueendreturn ranksend--------------------------------------------------------------------------------- parseInput processes the Q-id , the blacklist and the whitelist-- if an input parameter is supplied, it returns that and ends the call.-- it returns (1) either the qid or nil indicating whether or not the call should continue-- and (2) a table containing all of the statements for the propertyID and relevant Qid-- if "best" ranks are requested, it returns those instead of all non-deprecated ranks--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------local parseInput = function(frame, input_parm, property_id)-- There may be a local parameter supplied, if it's blank, set it to nilinput_parm = mw.text.trim(input_parm or "")if input_parm == "" then input_parm = nil endlocal args = frame.args-- can take a named parameter |qid which is the Wikidata ID for the article.-- if it's not supplied, use the id for the current pagelocal qid = args.qid or ""if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end-- if there's no Wikidata item for the current page return nilif not qid then return false, input_parm end-- The blacklist is passed in named parameter |suppressfieldslocal blacklist = args.suppressfields or args.spf-- The whitelist is passed in named parameter |fetchwikidatalocal whitelist = args.fetchwikidata or args.fwdif not whitelist or whitelist == "" then whitelist = "NONE" end-- The name of the field that this function is called from is passed in named parameter |namelocal fieldname = args.name or ""if blacklist then-- The name is compulsory when blacklist is used, so return nil if it is not suppliedif not fieldname or fieldname == "" then return false, nil end-- If this field is on the blacklist, then return nilif blacklist:find(fieldname) then return false, nil endend-- If we got this far then we're not on the blacklist-- The blacklist overrides any locally supplied parameter as well-- If a non-blank input parameter was supplied return itif input_parm then return false, input_parm end-- We can filter out non-valid propertiesif property_id:sub(1,1):upper() ~="P" or property_id == "P0" then return false, nil end-- Otherwise see if this field is on the whitelist:-- needs a bit more logic because find will return its second value = 0 if fieldname is ""-- but nil if fieldname not found on whitelistlocal _, found = whitelist:find(fieldname)found = ((found or 0) > 0)if whitelist ~= 'ALL' and (whitelist:upper() == "NONE" or not found) thenreturn false, nilend-- See what's on Wikidata (the call always returns a table, but it may be empty):local props = {}if args.reqranks.b thenprops = mw.wikibase.getBestStatements(qid, property_id)elseprops = mw.wikibase.getAllStatements(qid, property_id)endif props[1] thenreturn qid, propsend-- no property on Wikidatareturn false, nilend--------------------------------------------------------------------------------- createicon assembles the "Edit at Wikidata" pen icon.-- It returns a wikitext string.--------------------------------------------------------------------------------- Dependencies: i18n[];-------------------------------------------------------------------------------local createicon = function(langcode, entityID, propertyID)local icon = "&nbsp;[[" .. i18n["filespace"]icon = icon .. ":OOjs UI icon edit-ltr-progressive.svg |frameless |text-top |10px |alt="icon = icon .. i18n["editonwikidata"]icon = icon .. "|link=https://www.wikidata.org/wiki/" .. entityIDicon = icon .. "?uselang=" .. langcodeif propertyID then icon = icon .. "#" .. propertyID endicon = icon .. "|" .. i18n["editonwikidata"] .. "]]"return iconend--------------------------------------------------------------------------------- assembleoutput takes the sequence table containing the property values-- and formats it according to switches given. It returns a string or nil.-- It needs the entityID and propertyID to create a link in the pen icon.--------------------------------------------------------------------------------- Dependencies: parseParam();-------------------------------------------------------------------------------local assembleoutput = function(out, args, entityID, propertyID)-- sorted is a boolean passed to enable sorting of the values returned-- if nothing or an empty string is passed set it false-- if "false" or "no" or "0" is passed set it falselocal sorted = parseParam(args.sorted, false)-- noicon is a boolean passed to suppress the trailing "edit at Wikidata" icon-- for use when the value is processed further by the infobox-- if nothing or an empty string is passed set it false-- if "false" or "no" or "0" is passed set it falselocal noic = parseParam(args.noicon, false)-- list is the name of a template that a list of multiple values is passed through-- examples include "hlist" and "ubl"-- setting it to "prose" produces something like "1, 2, 3, and 4"local list = args.list or ""-- sep is a string that is used to separate multiple returned values-- if nothing or an empty string is passed set it to the default-- any double-quotes " are stripped out, so that spaces may be passed-- e.g. |sep=" - "local sepdefault = i18n["list separator"]local separator = args.sep or ""separator = string.gsub(separator, '"', '')if separator == "" thenseparator = sepdefaultend-- collapse is a number that determines the maximum number of returned values-- before the output is collapsed.-- Zero or not a number result in no collapsing (default becomes 0).local collapse = tonumber(args.collapse) or 0-- if there's anything to return, then return a list-- comma-separated by default, but may be specified by the sep parameter-- optionally specify a hlist or ubl or a prose list, etc.local stroutif #out > 0 thenif sorted then table.sort(out) end-- if a pen icon is wanted add it the end of the last valueif not noic thenout[#out] = out[#out] .. createicon(args.langobj.code, entityID, propertyID)endif list == "" thenstrout = table.concat(out, separator)elseif list:lower() == "prose" thenstrout = mw.text.listToText( out )elsestrout = mw.getCurrentFrame():expandTemplate{title = list, args = out}endif collapse >0 and #out > collapse thenstrout = collapsediv .. strout .. "</div>"endelsestrout = nil -- no items had valid referenceendreturn stroutend--------------------------------------------------------------------------------- rendersnak takes a table (propval) containing the information stored on one property value-- and returns the value as a string and its language if monolingual text.-- It handles data of type:--wikibase-item--time--string, url, commonsMedia, external-id--quantity--globe-coordinate--monolingualtext-- It also requires linked, the link/pre/postfixes, uabbr, and the arguments passed from frame.-- The optional filter parameter allows quantities to be be filtered by unit Qid.--------------------------------------------------------------------------------- Dependencies: parseParam(); labelOrId(); i18n[]; dateFormat();-- roundto(); decimalPrecision(); decimalToDMS(); linkedItem();-------------------------------------------------------------------------------local rendersnak = function(propval, args, linked, lpre, lpost, pre, post, uabbr, filter)lpre = lpre or ""lpost = lpost or ""pre = pre or ""post = post or ""args.lang = args.lang or findLang().code-- allow values to display a fixed text instead of labellocal dtxt = args.displaytext or args.dtif dtxt == "" then dtxt = nil end-- switch to use display of short name (P1813) instead of labellocal shortname = args.shortname or args.snshortname = parseParam(shortname, false)local snak = propval.mainsnak or propvallocal dtype = snak.datatypelocal dv = snak.datavaluedv = dv and dv.value-- value and monolingual text language code returnedlocal val, mltif propval.rank and not args.reqranks[propval.rank:sub(1, 1)] then-- val is nil: value has a rank that isn't requested------------------------------------elseif snak.snaktype == "somevalue" then -- value is unknownval = i18n["Unknown"]------------------------------------elseif snak.snaktype == "novalue" then -- value is none-- val = "No value" -- don't return anything------------------------------------elseif dtype == "wikibase-item" then -- data type is a wikibase item:-- it's wiki-linked value, so output as link if enabled and possiblelocal qnumber = dv.idif linked thenval = linkedItem(qnumber, lpre, lpost, pre, post, dtxt, shortname, args.lang)else -- no link wanted so check for display-text, otherwise test for lang codelocal label, islabelif dtxt thenlabel = dtxtelselabel, islabel = labelOrId(qnumber)local langlabel = mw.wikibase.getLabelByLang(qnumber, args.lang)if langlabel thenlabel = mw.text.nowiki( langlabel )endendval = pre .. label .. postend -- test for link required------------------------------------elseif dtype == "time" then -- data type is time:-- time is in timestamp format-- date precision is integer per mediawiki-- output formatting according to preferences (y/dmy/mdy)-- BC format as BC or BCE-- plaindate is passed to disable looking for "sourcing cirumstances"-- or to set the adjectival form-- qualifiers (if any) is a nested table or nil-- lang is given, or user language, or site language---- Here we can check whether args.df has a value-- If not, use code from Module:Sandbox/RexxS/Getdateformat to set it from templates like {{Use mdy dates}}val = dateFormat(dv.time, dv.precision, args.df, args.bc, args.pd, propval.qualifiers, args.lang, "", dv.calendarmodel)-------------------------------------- data types which are strings:elseif dtype == "commonsMedia" or dtype == "external-id" or dtype == "string" or dtype == "url" then-- commonsMedia or external-id or string or url-- all have mainsnak.datavalue.value as stringif (lpre == "" or lpre == ":") and lpost == "" then-- don't link if no linkpre/postfix or linkprefix is just ":"val = pre .. dv .. postelseif dtype == "external-id" thenval = "[" .. lpre .. dv .. lpost .. " " .. pre .. dv .. post .. "]"elseval = "[[" .. lpre .. dv .. lpost .. "|" .. pre .. dv .. post .. "]]"end -- check for link requested (i.e. either linkprefix or linkpostfix exists)-------------------------------------- data types which are quantities:elseif dtype == "quantity" then-- quantities have mainsnak.datavalue.value.amount and mainsnak.datavalue.value.unit-- the unit is of the form http://www.wikidata.org/entity/Q829073---- implement a switch to turn on/off numerical formatting laterlocal fnum = true---- a switch to turn on/off conversions - only for en-wikilocal conv = parseParam(args.conv or args.convert, false)-- if we have conversions, we won't have formatted numbers or scalesif conv thenuabbr = truefnum = falseargs.scale = "0"end---- a switch to turn on/off showing units, default is truelocal showunits = parseParam(args.su or args.showunits, true)---- convert amount to a numberlocal amount = tonumber(dv.amount) or i18n["NaN"]---- scale factor for millions, billions, etc.local sc = tostring(args.scale or ""):sub(1,1):lower()local scaleif sc == "a" then-- automatic scalingif amount > 1e15 thenscale = 12elseif amount > 1e12 thenscale = 9elseif amount > 1e9 thenscale = 6elseif amount > 1e6 thenscale = 3elsescale = 0endelsescale = tonumber(args.scale) or 0if scale < 0 or scale > 12 then scale = 0 endscale = math.floor(scale/3) * 3endlocal factor = 10^scaleamount = amount / factor-- ranges:local range = ""-- check if upper and/or lower bounds are given and significantlocal upb = tonumber(dv.upperBound)local lowb = tonumber(dv.lowerBound)if upb and lowb then-- differences rounded to 2 sig fig:local posdif = roundto(upb - amount, 2) / factorlocal negdif = roundto(amount - lowb, 2) / factorupb, lowb = amount + posdif, amount - negdif-- round scaled numbers to integers or 4 sig figif (scale > 0 or sc == "a") thenif amount < 1e4 thenamount = roundto(amount, 4)elseamount = math.floor(amount + 0.5)endendif fnum then amount = args.langobj:formatNum( amount ) endif posdif ~= negdif then-- non-symmetricalrange = " +" .. posdif .. " -" .. negdifelseif posdif ~= 0 then-- symmetrical and non-zerorange = " ±" .. posdifelse-- otherwise range is zero, so leave it as ""endelse-- round scaled numbers to integers or 4 sig figif (scale > 0 or sc == "a") thenif amount < 1e4 thenamount = roundto(amount, 4)elseamount = math.floor(amount + 0.5)endendif fnum then amount = args.langobj:formatNum( amount ) endend-- unit names and symbols:-- extract the qid in the form 'Qnnn' from the value.unit url-- and then fetch the label from that - or symbol if unitabbr is truelocal unit = ""local usep = ""local usym = ""local unitqid = string.match( dv.unit, "(Q%d+)" )if filter and unitqid ~= filter then return nil endif unitqid and showunits thenlocal uname = mw.wikibase.getLabelByLang(unitqid, args.lang) or ""if uname ~= "" then usep, unit = " ", uname endif uabbr then-- see if there's a unit symbol (P5061)local unitsymbols = mw.wikibase.getAllStatements(unitqid, "P5061")-- construct fallback tablelocal fbtbl = mw.language.getFallbacksFor( args.lang )table.insert( fbtbl, 1, args.lang )local found = falsefor idx1, us in ipairs(unitsymbols) dofor idx2, fblang in ipairs(fbtbl) doif us.mainsnak.datavalue.value.language == fblang thenusym = us.mainsnak.datavalue.value.textfound = truebreakendif found then break endend -- loop through fallback tableend -- loop through values of P5061if found then usep, unit = "&nbsp;", usym endendend-- format display:if conv thenif range == "" thenval = mw.getCurrentFrame():expandTemplate{title = "cvt", args = {amount, unit}}elseval = mw.getCurrentFrame():expandTemplate{title = "cvt", args = {lowb, "to", upb, unit}}endelseif unit == "$" or unit == "£" thenval = unit .. amount .. range .. i18n.multipliers[scale]elseval = amount .. range .. i18n.multipliers[scale] .. usep .. unitend-------------------------------------- datatypes which are global coordinates:elseif dtype == "globe-coordinate" then-- 'display' parameter defaults to "inline, title" *** unused for now ***-- local disp = args.display or ""-- if disp == "" then disp = "inline, title" end---- format parameter switches from deg/min/sec to decimal degrees-- default is deg/min/sec -- decimal degrees needs |format = declocal form = (args.format or ""):lower():sub(1,3)if form ~= "dec" then form = "dms" end -- not needed for now---- show parameter allows just the latitude, or just the longitude, or both-- to be returned as a signed decimal, ignoring the format parameter.local show = (args.show or ""):lower()if show ~= "longlat" then show = show:sub(1,3) end--local lat, long, prec = dv.latitude, dv.longitude, dv.precisionif show == "lat" thenval = decimalPrecision(lat, prec)elseif show == "lon" thenval = decimalPrecision(long, prec)elseif show == "longlat" thenval = decimalPrecision(long, prec) .. ", " .. decimalPrecision(lat, prec)elselocal ns = "N"local ew = "E"if lat < 0 thenns = "S"lat = - latendif long < 0 thenew = "W"long = - longendif form == "dec" thenlat = decimalPrecision(lat, prec)long = decimalPrecision(long, prec)val = lat .. "°" .. ns .. " " .. long ..  "°" .. ewelselocal latdeg, latmin, latsec = decimalToDMS(lat, prec)local longdeg, longmin, longsec = decimalToDMS(long, prec)if latsec == 0 and longsec == 0 thenif latmin == 0 and longmin == 0 thenval = latdeg .. "°" .. ns .. " " .. longdeg ..  "°" .. ewelseval = latdeg .. "°" .. latmin .. "′" .. ns .. " "val = val .. longdeg .. "°".. longmin .. "′" .. ewendelseval = latdeg .. "°" .. latmin .. "′" .. latsec .. "″" .. ns .. " "val = val .. longdeg .. "°" .. longmin .. "′" .. longsec .. "″" .. ewendendend------------------------------------elseif dtype == "monolingualtext" then -- data type is Monolingual text:-- has mainsnak.datavalue.value as a table containing language/text pairs-- collect all the values in 'out' and languages in 'mlt' and process them laterval = pre .. dv.text .. postmlt = dv.language------------------------------------else-- some other data type so write a specific handlerval = "unknown data type: " .. dtypeend -- of datatype/unknown value/sourced checkreturn val, mltend--------------------------------------------------------------------------------- propertyvalueandquals takes a property object, the arguments passed from frame,-- and a qualifier propertyID.-- It returns a sequence (table) of values representing the values of that property-- and qualifiers that match the qualifierID if supplied.--------------------------------------------------------------------------------- Dependencies: parseParam(); sourced(); labelOrId(); i18n.latestdatequalifier(); format_Date();-- makeOrdinal(); roundto(); decimalPrecision(); decimalToDMS(); assembleoutput();-------------------------------------------------------------------------------local function propertyvalueandquals(objproperty, args, qualID)-- needs this style of declaration because it's re-entrant-- onlysourced is a boolean passed to return only values sourced to other than Wikipedia-- if nothing or an empty string is passed set it truelocal onlysrc = parseParam(args.onlysourced or args.osd, true)-- linked is a a boolean that enables the link to a local page via sitelink-- if nothing or an empty string is passed set it truelocal linked = parseParam(args.linked, true)-- prefix is a string that may be nil, empty (""), or a string of characters-- this is prefixed to each value-- useful when when multiple values are returned-- any double-quotes " are stripped out, so that spaces may be passedlocal prefix = (args.prefix or ""):gsub('"', '')-- postfix is a string that may be nil, empty (""), or a string of characters-- this is postfixed to each value-- useful when when multiple values are returned-- any double-quotes " are stripped out, so that spaces may be passedlocal postfix = (args.postfix or ""):gsub('"', '')-- linkprefix is a string that may be nil, empty (""), or a string of characters-- this creates a link and is then prefixed to each value-- useful when when multiple values are returned and indirect links are needed-- any double-quotes " are stripped out, so that spaces may be passedlocal lprefix = (args.linkprefix or args.lp or ""):gsub('"', '')-- linkpostfix is a string that may be nil, empty (""), or a string of characters-- this is postfixed to each value when linking is enabled with lprefix-- useful when when multiple values are returned-- any double-quotes " are stripped out, so that spaces may be passedlocal lpostfix = (args.linkpostfix or ""):gsub('"', '')-- wdlinks is a boolean passed to enable links to Wikidata when no article exists-- if nothing or an empty string is passed set it falselocal wdl = parseParam(args.wdlinks or args.wdl, false)-- unitabbr is a boolean passed to enable unit abbreviations for common units-- if nothing or an empty string is passed set it falselocal uabbr = parseParam(args.unitabbr or args.uabbr, false)-- qualsonly is a boolean passed to return just the qualifiers-- if nothing or an empty string is passed set it falselocal qualsonly = parseParam(args.qualsonly or args.qo, false)-- maxvals is a string that may be nil, empty (""), or a number-- this determines how many items may be returned when multiple values are available-- setting it = 1 is useful where the returned string is used within another call, e.g. imagelocal maxvals = tonumber(args.maxvals) or 0-- pd (plain date) is a string: yes/true/1 | no/false/0 | adj-- to disable/enable "sourcing cirumstances" or use adjectival form for the plain datelocal pd = args.plaindate or args.pd or "no"args.pd = pd-- allow qualifiers to have a different date format; default to yearargs.qdf = args.qdf or args.qualifierdateformat or args.df or "y"local lang = args.lang or findlang().code-- all proper values of a Wikidata property will be the same type as the first-- qualifiers don't have a mainsnak, properties dolocal datatype = objproperty[1].datatype or objproperty[1].mainsnak.datatype-- out[] holds the values for this property-- mlt[] holds the language code if the datatype is monolingual textlocal out = {}local mlt = {}for k, v in ipairs(objproperty) dolocal hasvalue = trueif (onlysrc and not sourced(v)) then-- no value: it isn't sourced when onlysourced=truehasvalue = falseelselocal val, lcode = rendersnak(v, args, linked, lprefix, lpostfix, prefix, postfix, uabbr)if not val thenhasvalue = false -- rank doesn't matchelseif qualsonly and qualID then-- suppress value returned: only qualifiers are requestedelseout[#out+1], mlt[#out+1] = val, lcodeendend-- See if qualifiers are to be returned:local snak = v.mainsnak or vif hasvalue and v.qualifiers and qualID and snak.snaktype~="novalue" thenlocal qsep = (args.qsep or ""):gsub('"', '')local qargs = {["osd"]         = "false",["linked"]      = tostring(linked),["prefix"]      = args.qprefix,["postfix"]     = args.qpostfix,["linkprefix"]  = args.qlinkprefix or args.qlp,["linkpostfix"] = args.qlinkpostfix,["wdl"]         = "false",["unitabbr"]    = tostring(uabbr),["maxvals"]     = 0,["sorted"]      = tostring(args.qsorted),["noicon"]      = "true",["list"]        = args.qlist,["sep"]         = qsep,["langobj"]     = args.langobj,["lang"]        = args.langobj.code,["df"]          = args.qdf}local qlist = {}local t1, t2 = "", ""-- see if we want all qualifiersif qualID == "ALL" thenif v["qualifiers-order"] then-- the values in the order table are the keys for the qualifiers table:for k1, v1 in ipairs(v["qualifiers-order"]) doif v1 == "P1326" thenlocal ts = v.qualifiers[v1][1].datavalue.value.timelocal dp = v.qualifiers[v1][1].datavalue.value.precisionqlist[#qlist + 1] = dateFormat(ts, dp, args.qdf, args.bc, pd, "", lang, "before")elseif v1 == "P1319" thenlocal ts = v.qualifiers[v1][1].datavalue.value.timelocal dp = v.qualifiers[v1][1].datavalue.value.precisionqlist[#qlist + 1] = dateFormat(ts, dp, args.qdf, args.bc, pd, "", lang, "after")elselocal q = assembleoutput(propertyvalueandquals(v.qualifiers[v1], qargs), qargs)-- we already deal with circa via 'sourcing circumstances'-- either linked or unlinked *** internationalise later ***if q ~= "circa" and not (type(q) == "string" and q:find("circa]]")) thenqlist[#qlist + 1] = qendendendelse-- are there cases where qualifiers-order doesn't exist?local ql = propertyvalueandquals(v.qualifiers, qargs)for k1, v1 in ipairs(ql) do-- we already deal with circa via 'sourcing circumstances'-- either linked or unlinked *** internationalise later ***if v1 ~= "circa" and not (type(v1) == "string" and v1:find("circa]]")) thenqlist[#qlist + 1] = v1endendend-- see if we want date/rangeelseif qualID == "DATES" thenqargs.maxvals = 1for k1, v1 in pairs(v.qualifiers) doif k1 == "P580" then -- P580 is "start time"t1 = propertyvalueandquals(v1, qargs)[1] or ""elseif k1 == "P582" then -- P582 is "end time"t2 = propertyvalueandquals(v1, qargs)[1] or ""endend-- otherwise process qualID as a list of qualifierselsefor q in mw.text.gsplit(qualID, "%p") do -- split at punctuation and iterateq = mw.text.trim(q):upper() -- remove whitespace and capitaliseif q == "P1326" then-- latest date, so supply 'before' as well. Assume one date value.for k1, v1 in pairs(v.qualifiers) doif k1 == "P1326" thenlocal ts = v1[1].datavalue.value.timelocal dp = v1[1].datavalue.value.precisionqlist[#qlist + 1] = dateFormat(ts, dp, args.qdf, args.bc, pd, "", lang, "before")endendelsefor k1, v1 in pairs(v.qualifiers) doif k1 == q thenlocal ql = propertyvalueandquals(v1, qargs)for k2, v2 in ipairs(ql) doqlist[#qlist + 1] = v2endendendendend -- of loop through list of qualifiers in qualIDend -- of testing for what qualID islocal t = t1 .. t2-- *** internationalise date separators later ***local dsep = "&ndash;"if t:find("%s") or t:find("&nbsp;") then dsep = " &ndash; " endif #qlist > 0 thenlocal qstr = assembleoutput(qlist, qargs)if qualsonly thenout[#out+1] = qstrelseout[#out] = out[#out] .. " (" .. qstr .. ")"endelseif t > "" thenif qualsonly thenout[#out+1] = t1 .. dsep .. t2elseout[#out] = out[#out] .. " (" .. t1 .. dsep .. t2 .. ")"endendend -- of test for qualifiers wantedif maxvals > 0 and #out >= maxvals then break endend -- of for each value loop-- we need to pick one value to return if the datatype was "monolingualtext"-- if there's only one value, use that-- otherwise look through the fallback languages for a matchif datatype == "monolingualtext" and #out >1 thenlang = mw.text.split( lang, '-', true )[1]local fbtbl = mw.language.getFallbacksFor( lang )table.insert( fbtbl, 1, lang )local bestval = ""local found = falsefor idx1, lang1 in ipairs(fbtbl) dofor idx2, lang2 in ipairs(mlt) doif (lang1 == lang2) and not found thenbestval = out[idx2]found = truebreakendend -- loop through values of propertyend -- loop through fallback languagesif found then-- replace output table with a table containing the best valueout = { bestval }else-- more than one value and none of them on the list of fallback languages-- sod it, just give them the first oneout = { out[1] }endendreturn outend--------------------------------------------------------------------------------- Common code for p.getValueByQual and p.getValueByLang--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced; assembleoutput;-------------------------------------------------------------------------------local _getvaluebyqual = function(frame, qualID, checkvalue)-- The property ID that will have a qualifier is the first unnamed parameterlocal propertyID = mw.text.trim(frame.args[1] or "")if propertyID == "" then return "no property supplied" endif qualID == "" then return "no qualifier supplied" end-- onlysourced is a boolean passed to return property values-- only when property values are sourced to something other than Wikipedia-- if nothing or an empty string is passed set it true-- if "false" or "no" or 0 is passed set it falselocal onlysrc = parseParam(frame.args.onlysourced or frame.args.osd, true)-- set the requested ranks flagsframe.args.reqranks = setRanks(frame.args.rank)-- set a language object and code in the frame.args tableframe.args.langobj = findLang(frame.args.lang)frame.args.lang = frame.args.langobj.codelocal args = frame.args-- check for locally supplied parameter in second unnamed parameter-- success means no local parameter and the property existslocal qid, props = parseInput(frame, args[2], propertyID)local linked = parseParam(args.linked, true)local lpre = (args.linkprefix or args.lp or ""):gsub('"', '')local lpost = (args.linkpostfix or ""):gsub('"', '')local pre = (args.prefix or ""):gsub('"', '')local post = (args.postfix or ""):gsub('"', '')local uabbr = parseParam(args.unitabbr or args.uabbr, false)local filter = (args.unit or ""):upper()if filter == "" then filter = nil endif qid thenlocal out = {}-- Scan through the values of the property-- we want something like property is "pronunciation audio (P443)" in propertyID-- with a qualifier like "language of work or name (P407)" in qualID-- whose value has the required ID, like "British English (Q7979)", in qvalfor k1, v1 in ipairs(props) doif v1.mainsnak.snaktype == "value" then-- check if it has the right qualifierlocal v1q = v1.qualifiersif v1q and v1q[qualID] thenif onlysrc == false or sourced(v1) then-- if we've got this far, we have a (sourced) claim with qualifiers-- so see if matches the required value-- We'll only deal with wikibase-items and strings for nowif v1q[qualID][1].datatype == "wikibase-item" thenif checkvalue(v1q[qualID][1].datavalue.value.id) thenout[#out + 1] = rendersnak(v1, args, linked, lpre, lpost, pre, post, uabbr, filter)endelseif v1q[qualID][1].datatype == "string" thenif checkvalue(v1q[qualID][1].datavalue.value) thenout[#out + 1] = rendersnak(v1, args, linked, lpre, lpost, pre, post, uabbr, filter)endendend -- of check for sourcedend -- of check for matching required value and has qualifierselsereturn nilend -- of check for stringend -- of loop through values of propertyIDreturn assembleoutput(out, frame.args, qid, propertyID)elsereturn props -- either local parameter or nothingend -- of test for successreturn nilend--------------------------------------------------------------------------------- _location takes Q-id and follows P276 (location)-- or P131 (located in the administrative territorial entity) or P706 (located on terrain feature)-- from the initial item to higher level territories/locations until it reaches the highest.-- An optional boolean, 'first', determines whether the first item is returned (default: false).-- An optional boolean 'skip' toggles the display to skip to the last item (default: false).-- It returns a table containing the locations - linked where possible, except for the highest.--------------------------------------------------------------------------------- Dependencies: findLang(); labelOrId(); linkedItem-------------------------------------------------------------------------------local _location = function(qid, first, skip)first = parseParam(first, false)skip = parseParam(skip, false)local locs = {"P276", "P131", "P706"}local out = {}local langcode = findLang():getCode()local finished = falselocal count = 0local prevqid = "Q0"repeatlocal propfor i1, v1 in ipairs(locs) dolocal proptbl = mw.wikibase.getBestStatements(qid, v1)if #proptbl > 1 then-- there is more than one higher locationlocal prevP131, prevP131idif prevqid ~= "Q0" thenprevP131 = mw.wikibase.getBestStatements(prevqid, "P131")[1]prevP131id = prevP131and prevP131.mainsnak.datavalueand prevP131.mainsnak.datavalue.value.idendfor i2, v2 in ipairs(proptbl) doparttbl = v2.qualifiers and v2.qualifiers.P518if parttbl then-- this higher location has qualifier 'applies to part' (P518)for i3, v3 in ipairs(parttbl) doif v3.snaktype == "value" and v3.datavalue.value.id == prevqid then-- it has a value equal to the previous locationprop = proptbl[i2]breakend -- of test for matching last locationend -- of loop through values of 'applies to part'else-- there's no qualifier 'applies to part' (P518)-- so check if the previous location had a P131 that matches this alternateif qid == prevP131id thenprop = proptbl[i2]breakend -- of test for matching previous P131endend -- of loop through parent locations-- fallback to second value if match not foundprop = prop or proptbl[2]elseif #proptbl > 0 thenprop = proptbl[1]endif prop then break endend-- check if it's an instance of (P31) a country (Q6256) and terminate the chain if it islocal inst = mw.wikibase.getAllStatements(qid, "P31")if #inst > 0 thenfor k, v in ipairs(inst) dolocal instid = v.mainsnak.datavalue.value.id-- stop if it's a country (or a country within the United Kingdom if skip is true)if instid == "Q6256" or (skip and instid == "Q3336843") thenprop = nil -- this will ensure this is treated as top-level locationbreakendendend-- get the name of this location and update qid to point to the parent locationif prop and prop.mainsnak.datavalue thenif not skip or count == 0 thenout[#out+1] = linkedItem(qid, ":", "", "", "") -- get a linked value if we canendqid, prevqid = prop.mainsnak.datavalue.value.id, qidelse-- This is top-level location, so get short name except when this is the first item-- Use full label if there's no short name or this is the first itemlocal prop1813 = mw.wikibase.getAllStatements(qid, "P1813")-- if there's a short name and this isn't the only itemif prop1813[1] and (#out > 0)thenlocal shortname-- short name is monolingual text, so look for match to the local language-- choose the shortest 'short name' in that languagefor k, v in pairs(prop1813) doif v.mainsnak.datavalue.value.language == langcode thenlocal name = v.mainsnak.datavalue.value.textif (not shortname) or (#name < #shortname) thenshortname = nameendendend-- add the shortname if one is found, fallback to the label-- but skip it if it's "USA"if shortname ~= "USA" thenout[#out+1] = shortname or labelOrId(qid)elseif skip then out[#out+1] = "US" endendelse-- no shortname, so just add the labellocal loc = labelOrId(qid)-- exceptions go here:if loc == "United States of America" thenout[#out+1] = "United States"elseout[#out+1] = locendendfinished = trueendcount = count + 1until finished or count >= 10 -- limit to 10 levels to avoid infinite loops-- remove the first location if not quiredif not first then table.remove(out, 1) end-- we might have duplicate text for consecutive locations, so remove themif #out > 2 thenlocal plain = {}for i, v in ipairs(out) do-- strip any linksplain[i] = v:gsub("^%[%[[^|]*|", ""):gsub("]]$", "")endlocal idx = 2repeatif plain[idx] == plain[idx-1] then-- duplicate foundlocal removeidx = 0if (plain[idx] ~= out[idx]) and (plain[idx-1] == out[idx-1]) then-- only second one is linked, so drop the firstremoveidx = idx - 1elseif (plain[idx] == out[idx]) and (plain[idx-1] ~= out[idx-1]) then-- only first one is linked, so drop the secondremoveidx = idxelse-- pick oneremoveidx = idx - (os.time()%2)endtable.remove(out, removeidx)table.remove(plain, removeidx)elseidx = idx +1enduntil idx >= #outendreturn outend--------------------------------------------------------------------------------- _getsumofparts scans the property 'has part' (P527) for values matching a list.-- The list (args.vlist) consists of a string of Qids separated by spaces or any usual punctuation.-- If the matched values have a qualifer 'quantity' (P1114), those quantites are summed.-- The sum is returned as a number (i.e. 0 if none)-- a table of arguments is supplied implementing the usual parameters.--------------------------------------------------------------------------------- Dependencies: setRanks; parseParam; parseInput; sourced; assembleoutput;-------------------------------------------------------------------------------local _getsumofparts = function(args)local vallist = (args.vlist or ""):upper()if vallist == "" then return endargs.reqranks = setRanks(args.rank)local f = {}f.args = argslocal qid, props = parseInput(f, "", "P527")if not qid then return 0 endlocal onlysrc = parseParam(args.onlysourced or args.osd, true)local sum = 0for k1, v1 in ipairs(props) doif (onlysrc == false or sourced(v1))and v1.mainsnak.snaktype == "value"and v1.mainsnak.datavalue.type == "wikibase-entityid"and vallist:match( v1.mainsnak.datavalue.value.id )and v1.qualifiersthenlocal quals = v1.qualifiers["P1114"]if quals thenfor k2, v2 in ipairs(quals) dosum = sum + v2.datavalue.value.amountendendendendreturn sumend---------------------------------------------------------------------------------------------------------------------------------------------------------------- Public functions---------------------------------------------------------------------------------------------------------------------------------------------------------------- _getValue makes the functionality of getValue available to other modules--------------------------------------------------------------------------------- Dependencies: setRanks; parseInput; propertyvalueandquals; assembleoutput; parseParam; sourced;-- labelOrId; i18n.latestdatequalifier; format_Date; makeOrdinal; roundto; decimalPrecision; decimalToDMS;-------------------------------------------------------------------------------p._getValue = function(args)-- parameter sets for commonly used groups of parameterslocal paraset = tonumber(args.ps or args.parameterset or 0)if paraset == 1 then-- a common settingargs.rank = "best"args.fetchwikidata = "ALL"args.onlysourced = "no"args.noicon = "true"elseif paraset == 2 then-- equivalent to rawargs.rank = "best"args.fetchwikidata = "ALL"args.onlysourced = "no"args.noicon = "true"args.linked = "no"args.pd = "true"elseif paraset == 3 then-- third set goes hereend-- implement eid parameterlocal eid = args.eidif eid == "" thenreturn nilelseif eid thenargs.qid = eidendlocal propertyID = mw.text.trim(args[1] or "")args.reqranks = setRanks(args.rank)local f = {}f.args = argslocal entityid, props = parseInput(f, f.args[2], propertyID)if not entityid thenreturn props -- either the input parameter or nothingend-- qual is a string containing the property ID of the qualifier(s) to be returned-- if qual == "ALL" then all qualifiers returned-- if qual == "DATES" then qualifiers P580 (start time) and P582 (end time) returned-- if nothing or an empty string is passed set it nil -> no qualifiers returnedlocal qualID = mw.text.trim(args.qual or ""):upper()if qualID == "" then qualID = nil end-- set a language object and code in the args tableargs.langobj = findLang(args.lang)args.lang = args.langobj.code-- table 'out' stores the return value(s):local out = propertyvalueandquals(props, args, qualID)-- format the table of values and return it as a string:return assembleoutput(out, args, entityid, propertyID)end--------------------------------------------------------------------------------- getValue is used to get the value(s) of a property-- The property ID is passed as the first unnamed parameter and is required.-- A locally supplied parameter may optionaly be supplied as the second unnamed parameter.-- The function will now also return qualifiers if parameter qual is supplied--------------------------------------------------------------------------------- Dependencies: _getValue; setRanks; parseInput; propertyvalueandquals; assembleoutput; parseParam; sourced;-- labelOrId; i18n.latestdatequalifier; format_Date; makeOrdinal; roundto; decimalPrecision; decimalToDMS;-------------------------------------------------------------------------------p.getValue = function(frame)local args= frame.argsif not args[1] thenargs = frame:getParent().argsif not args[1] then return i18n.errors["No property supplied"] endendreturn p._getValue(args)end--------------------------------------------------------------------------------- getPreferredValue is used to get a value,-- (or a comma separated list of them if multiple values exist).-- If preferred ranks are set, it will return those values, otherwise values with normal ranks-- now redundant to getValue with |rank=best--------------------------------------------------------------------------------- Dependencies: p.getValue; setRanks; parseInput; propertyvalueandquals; assembleoutput;-- parseParam; sourced; labelOrId; i18n.latestdatequalifier; format_Date;-- makeOrdinal; roundto; decimalPrecision; decimalToDMS;-------------------------------------------------------------------------------p.getPreferredValue = function(frame)frame.args.rank = "best"return p.getValue(frame)end--------------------------------------------------------------------------------- getCoords is used to get coordinates for display in an infobox-- whitelist and blacklist are implemented-- optional 'display' parameter is allowed, defaults to "inline, title"--------------------------------------------------------------------------------- Dependencies: setRanks(); parseInput(); decimalPrecision();-------------------------------------------------------------------------------p.getCoords = function(frame)local propertyID = "P625"-- if there is a 'display' parameter supplied, use it-- otherwise default to "inline, title"local disp = frame.args.display or ""if disp == "" thendisp = "inline, title"end-- there may be a format parameter to switch from deg/min/sec to decimal degrees-- default is deg/min/sec-- decimal degrees needs |format = declocal form = (frame.args.format or ""):lower():sub(1,3)if form ~= "dec" thenform = "dms"end-- just deal with best valuesframe.args.reqranks = setRanks("best")local qid, props = parseInput(frame, frame.args[1], propertyID)if not qid thenreturn props -- either local parameter or nothingelselocal dv = props[1].mainsnak.datavalue.valuelocal lat, long, prec = dv.latitude, dv.longitude, dv.precisionlat = decimalPrecision(lat, prec)long = decimalPrecision(long, prec)local lat_long = { lat, long }lat_long["display"] = displat_long["format"] = form-- invoke template Coord with the values stored in the tablereturn frame:expandTemplate{title = 'coord', args = lat_long}endend--------------------------------------------------------------------------------- getQualifierValue is used to get a formatted value of a qualifier---- The call needs:a property (the unnamed parameter or 1=)-- a target value for that property (pval=)--a qualifier for that target value (qual=)-- The usual whitelisting and blacklisting of the property is implemented-- The boolean onlysourced= parameter can be set to return nothing-- when the property is unsourced (or only sourced to Wikipedia)--------------------------------------------------------------------------------- Dependencies: parseParam(); setRanks(); parseInput(); sourced();-- propertyvalueandquals(); assembleoutput();-- labelOrId(); i18n.latestdatequalifier(); format_Date();-- findLang(); makeOrdinal(); roundto(); decimalPrecision(); decimalToDMS();-------------------------------------------------------------------------------p.getQualifierValue = function(frame)-- The property ID that will have a qualifier is the first unnamed parameterlocal propertyID = mw.text.trim(frame.args[1] or "")-- The value of the property we want to match whose qualifier value is to be returned-- is passed in named parameter |pval=local propvalue = frame.args.pval-- The property ID of the qualifier-- whose value is to be returned is passed in named parameter |qual=local qualifierID = frame.args.qual-- onlysourced is a boolean passed to return qualifiers-- only when property values are sourced to something other than Wikipedia-- if nothing or an empty string is passed set it true-- if "false" or "no" or 0 is passed set it falselocal onlysrc = parseParam(frame.args.onlysourced or frame.args.osd, true)-- set a language object and language code in the frame.args tableframe.args.langobj = findLang(frame.args.lang)frame.args.lang = frame.args.langobj.code-- set the requested ranks flagsframe.args.reqranks = setRanks(frame.args.rank)-- check for locally supplied parameter in second unnamed parameter-- success means no local parameter and the property existslocal qid, props = parseInput(frame, frame.args[2], propertyID)if qid thenlocal out = {}-- Scan through the values of the property-- we want something like property is P793, significant event (in propertyID)-- whose value is something like Q385378, construction (in propvalue)-- then we can return the value(s) of a qualifier such as P580, start time (in qualifierID)for k1, v1 in pairs(props) doif v1.mainsnak.snaktype == "value" and v1.mainsnak.datavalue.type == "wikibase-entityid" then-- It's a wiki-linked value, so check if it's the target (in propvalue)-- and if it has qualifiersif v1.mainsnak.datavalue.value.id == propvalue and v1.qualifiers thenif onlysrc == false or sourced(v1) then-- if we've got this far, we have a (sourced) claim with qualifiers-- which matches the target, so find the value(s) of the qualifier we wantlocal quals = v1.qualifiers[qualifierID]if quals then-- can't reference qualifer, so set onlysourced = "no" (not boolean)local qargs = frame.argsqargs.onlysourced = "no"local vals = propertyvalueandquals(quals, qargs, qid)for k, v in ipairs(vals) doout[#out + 1] = vendendend -- of check for sourcedend -- of check for matching required value and has qualifiersend -- of check for wikibase entityend -- of loop through values of propertyIDreturn assembleoutput(out, frame.args, qid, propertyID)elsereturn props -- either local parameter or nothingend -- of test for successreturn nilend--------------------------------------------------------------------------------- getSumOfParts scans the property 'has part' (P527) for values matching a list.-- The list is passed in parameter vlist.-- It consists of a string of Qids separated by spaces or any usual punctuation.-- If the matched values have a qualifier 'quantity' (P1114), those quantities are summed.-- The sum is returned as a number or nothing if zero.--------------------------------------------------------------------------------- Dependencies: _getsumofparts;-------------------------------------------------------------------------------p.getSumOfParts = function(frame)local sum = _getsumofparts(frame.args)if sum == 0 then return endreturn sumend--------------------------------------------------------------------------------- getValueByQual gets the value of a property which has a qualifier with a given entity value-- The call needs:--a property ID (the unnamed parameter or 1=Pxxx)--the ID of a qualifier for that property (qualID=Pyyy)--either the Wikibase-entity ID of a value for that qualifier (qvalue=Qzzz)--or a string value for that qualifier (qvalue=abc123)-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented--------------------------------------------------------------------------------- Dependencies: _getvaluebyqual; parseParam; setRanks; parseInput; sourced;-- assembleoutput;-------------------------------------------------------------------------------p.getValueByQual = function(frame)local qualID = frame.args.qualID-- The Q-id of the value for the qualifier we want to match is in named parameter |qvalue=local qval = frame.args.qvalue or ""if qval == "" then return "no qualifier value supplied" endlocal function checkQID(id)return id == qvalendreturn _getvaluebyqual(frame, qualID, checkQID)end--------------------------------------------------------------------------------- getValueByLang gets the value of a property which has a qualifier P407-- ("language of work or name") whose value has the given language code-- The call needs:--a property ID (the unnamed parameter or 1=Pxxx)--the MediaWiki language code to match the language (lang=xx[-yy])--(if no code is supplied, it uses the default language)-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented--------------------------------------------------------------------------------- Dependencies: _getvaluebyqual; parseParam; setRanks; parseInput; sourced; assembleoutput;-------------------------------------------------------------------------------p.getValueByLang = function(frame)-- The language code for the qualifier we want to match is in named parameter |lang=local langcode = findLang(frame.args.lang).codelocal function checkLanguage(id)-- id should represent a language like "British English (Q7979)"-- it should have string property "Wikimedia language code (P424)"-- qlcode will be a table:local qlcode = mw.wikibase.getBestStatements(id, "P424")if (#qlcode > 0) and (qlcode[1].mainsnak.datavalue.value == langcode) thenreturn trueendendreturn _getvaluebyqual(frame, "P407", checkLanguage)end--------------------------------------------------------------------------------- getValueByRefSource gets the value of a property which has a reference "stated in" (P248)-- whose value has the given entity-ID.-- The call needs:--a property ID (the unnamed parameter or 1=Pxxx)--the entity ID of a value to match where the reference is stated in (match=Qzzz)-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced; propertyvalueandquals assembleoutput;-------------------------------------------------------------------------------p.getValueByRefSource = function(frame)-- The property ID that we want to check is the first unnamed parameterlocal propertyID = mw.text.trim(frame.args[1] or ""):upper()if propertyID == "" then return "no property supplied" end-- The Q-id of the value we want to match is in named parameter |qvalue=local qval = (frame.args.match or ""):upper()if qval == "" then qval = "Q21540096" endlocal unit = (frame.args.unit or ""):upper()if unit == "" then unit = "Q4917" endlocal onlysrc = parseParam(frame.args.onlysourced or frame.args.osd, true)-- set the requested ranks flagsframe.args.reqranks = setRanks(frame.args.rank)-- set a language object and code in the frame.args tableframe.args.langobj = findLang(frame.args.lang)frame.args.lang = frame.args.langobj.codelocal linked = parseParam(frame.args.linked, true)local uabbr = parseParam(frame.args.uabbr or frame.args.unitabbr, false)-- qid not nil means no local parameter and the property existslocal qid, props = parseInput(frame, frame.args[2], propertyID)if qid thenlocal out = {}local mlt= {}for k1, v1 in ipairs(props) doif onlysrc == false or sourced(v1) thenif v1.references thenfor k2, v2 in ipairs(v1.references) doif v2.snaks.P248 thenfor k3, v3 in ipairs(v2.snaks.P248) doif v3.datavalue.value.id == qval thenout[#out+1], mlt[#out+1] = rendersnak(v1, frame.args, linked, "", "", "", "", uabbr, unit)if not mlt[#out] then-- we only need one match per property value-- unless datatype was monolingual textbreakendend -- of test for matchend -- of loop through values "stated in"end -- of test that "stated in" existsend -- of loop through referencesend -- of test that references existend -- of test for sourcedend -- of loop through values of propertyIDif #mlt > 0 thenlocal langcode = frame.args.langlangcode = mw.text.split( langcode, '-', true )[1]local fbtbl = mw.language.getFallbacksFor( langcode )table.insert( fbtbl, 1, langcode )local bestval = ""local found = falsefor idx1, lang1 in ipairs(fbtbl) dofor idx2, lang2 in ipairs(mlt) doif (lang1 == lang2) and not found thenbestval = out[idx2]found = truebreakendend -- loop through values of propertyend -- loop through fallback languagesif found then-- replace output table with a table containing the best valueout = { bestval }else-- more than one value and none of them on the list of fallback languages-- sod it, just give them the first oneout = { out[1] }endendreturn assembleoutput(out, frame.args, qid, propertyID)elsereturn props -- no property or local parameter suppliedend -- of test for successend--------------------------------------------------------------------------------- getPropertyIDs takes most of the usual parameters.-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented.-- It returns the Entity-IDs (Qids) of the values of a property if it is a Wikibase-Entity.-- Otherwise it returns nothing.--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced; propertyvalueandquals assembleoutput;-------------------------------------------------------------------------------p.getPropertyIDs = function(frame)local args = frame.argsargs.reqranks = setRanks(args.rank)args.langobj = findLang(args.lang)args.lang = args.langobj.code-- change default for noicon to trueargs.noicon = tostring(parseParam(args.noicon or "", true))local f = {}f.args = argslocal pid = mw.text.trim(args[1] or "")-- get the qid and table of claims for the property, or nothing and the local value passedlocal qid, props = parseInput(f, args[2], pid)if not qid then return props endif not props[1] then return nil endlocal onlysrc = parseParam(args.onlysourced or args.osd, true)local maxvals = tonumber(args.maxvals) or 0out = {}for i, v in ipairs(props) dolocal snak = v.mainsnakif ( snak.datatype == "wikibase-item" )and ( v.rank and args.reqranks[v.rank:sub(1, 1)] )and ( snak.snaktype == "value" )and ( sourced(v) or not onlysrc )thenout[#out+1] = snak.datavalue.value.idendif maxvals > 0 and #out >= maxvals then break endendreturn assembleoutput(out, args, qid, pid)end--------------------------------------------------------------------------------- getPropOfProp takes two propertyIDs: prop1 and prop2 (as well as the usual parameters)-- If the value(s) of prop1 are of type "wikibase-item" then it returns the value(s) of prop2-- of each of those wikibase-items.-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced; propertyvalueandquals assembleoutput;-------------------------------------------------------------------------------p.getPropOfProp = function(frame)frame.args.reqranks = setRanks(frame.args.rank)frame.args.langobj = findLang(frame.args.lang)frame.args.lang = frame.args.langobj.codelocal args = frame.argslocal pid1 = args.prop1 or args.pid1 or ""local pid2 = args.prop2 or args.pid2 or ""local localval = mw.text.trim(args[1] or "")if pid1 == "" or pid2 == "" then return nil endlocal qid1, statements1 = parseInput(frame, localval, pid1)if not qid1 then return localval endlocal onlysrc = parseParam(args.onlysourced or args.osd, true)local maxvals = tonumber(args.maxvals) or 0local qualID = mw.text.trim(args.qual or ""):upper()if qualID == "" then qualID = nil endlocal out = {}for k, v in ipairs(statements1) doif not onlysrc or sourced(v) thenlocal snak = v.mainsnakif snak.datatype == "wikibase-item" and snak.snaktype == "value" thenlocal qid2 = snak.datavalue.value.idlocal statements2 = {}if args.reqranks.b thenstatements2 = mw.wikibase.getBestStatements(qid2, pid2)elsestatements2 = mw.wikibase.getAllStatements(qid2, pid2)endif statements2[1] thenlocal out2 = propertyvalueandquals(statements2, args, qualID)out[#out+1] = assembleoutput(out2, args, qid2, pid2)endend -- of test for valid property1 valueend -- of test for sourcedif maxvals > 0 and #out >= maxvals then break endend -- of loop through values of property1return assembleoutput(out, args, qid1, pid1)end--------------------------------------------------------------------------------- getAwardCat takes most of the usual parameters. If the item has values of P166 (award received),-- then it examines each of those awards for P2517 (category for recipients of this award).-- If it exists, it returns the corresponding category,-- with the item's P734 (family name) as sort key, or no sort key if there is no family name.-- The sort key may be overridden by the parameter |sortkey (alias |sk).-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced; propertyvalueandquals assembleoutput;-------------------------------------------------------------------------------p.getAwardCat = function(frame)frame.args.reqranks = setRanks(frame.args.rank)frame.args.langobj = findLang(frame.args.lang)frame.args.lang = frame.args.langobj.codelocal args = frame.argsargs.sep = " "local pid1 = args.prop1 or "P166"local pid2 = args.prop2 or "P2517"if pid1 == "" or pid2 == "" then return nil end-- locally supplied value:local localval = mw.text.trim(args[1] or "")local qid1, statements1 = parseInput(frame, localval, pid1)if not qid1 then return localval end-- linkprefix (strip quotes)local lp = (args.linkprefix or args.lp or ""):gsub('"', '')-- sort key (strip quotes, hyphens and periods):local sk = (args.sortkey or args.sk or ""):gsub('["-.]', '')-- family name:local famname = ""if sk == "" thenlocal p734 = mw.wikibase.getBestStatements(qid1, "P734")[1]local p734id = p734 and p734.mainsnak.snaktype == "value" and p734.mainsnak.datavalue.value.id or ""famname = mw.wikibase.sitelink(p734id) or ""-- strip namespace and disambigationlocal pos = famname:find(":") or 0famname = famname:sub(pos+1):gsub("%s%(.+%)$", "")if famname == "" thenlocal lbl = mw.wikibase.label(p734id)famname = lbl and mw.text.nowiki(lbl) or ""endendlocal onlysrc = parseParam(args.onlysourced or args.osd, true)local maxvals = tonumber(args.maxvals) or 0local qualID = mw.text.trim(args.qual or ""):upper()if qualID == "" then qualID = nil endlocal out = {}for k, v in ipairs(statements1) doif not onlysrc or sourced(v) thenlocal snak = v.mainsnakif snak.datatype == "wikibase-item" and snak.snaktype == "value" thenlocal qid2 = snak.datavalue.value.idlocal statements2 = {}if args.reqranks.b thenstatements2 = mw.wikibase.getBestStatements(qid2, pid2)elsestatements2 = mw.wikibase.getAllStatements(qid2, pid2)endif statements2[1] and statements2[1].mainsnak.snaktype == "value" thenlocal qid3 = statements2[1].mainsnak.datavalue.value.idlocal sitelink = mw.wikibase.sitelink(qid3)-- if there's no local sitelink, create the sitelink from English labelif not sitelink thenlocal lbl = mw.wikibase.getLabelByLang(qid3, "en")if lbl thenif lbl:sub(1,9) == "Category:" thensitelink = mw.text.nowiki(lbl)elsesitelink = "Category:" .. mw.text.nowiki(lbl)endendendif sitelink thenif sk ~= "" thenout[#out+1] = "[[" .. lp .. sitelink .. "|" .. sk .. "]]"elseif famname ~= "" thenout[#out+1] = "[[" .. lp .. sitelink .. "|" .. famname .. "]]"elseout[#out+1] = "[[" .. lp .. sitelink .. "]]"end -- of check for sort keysend -- of test for sitelinkend -- of test for categoryend -- of test for wikibase item has a valueend -- of test for sourcedif maxvals > 0 and #out >= maxvals then break endend -- of loop through values of property1return assembleoutput(out, args, qid1, pid1)end--------------------------------------------------------------------------------- getIntersectCat takes most of the usual parameters.-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented-- It takes two properties, |prop1 and |prop2 (e.g. occupation and country of citizenship)-- Each property's value is a wiki-base entity-- For each value of the first parameter (ranks implemented) it fetches the value's main category-- and then each value of the second parameter (possibly substituting a simpler description)-- then it returns all of the categories representing the intersection of those properties,-- (e.g. Category:Actors from Canada). A joining term may be supplied (e.g. |join=from).-- The item's P734 (family name) is the sort key, or no sort key if there is no family name.-- The sort key may be overridden by the parameter |sortkey (alias |sk).--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced; propertyvalueandquals assembleoutput;-------------------------------------------------------------------------------p.getIntersectCat = function(frame)frame.args.reqranks = setRanks(frame.args.rank)frame.args.langobj = findLang(frame.args.lang)frame.args.lang = frame.args.langobj.codelocal args = frame.argsargs.sep = " "args.linked = "no"local pid1 = args.prop1 or "P106"local pid2 = args.prop2 or "P27"if pid1 == "" or pid2 == "" then return nil endlocal qid, statements1 = parseInput(frame, "", pid1)if not qid then return nil endlocal qid, statements2 = parseInput(frame, "", pid2)if not qid then return nil end-- topics like countries may have different names in categories from their label in Wikidatalocal subs_exists, subs = pcall(mw.loadData, "Module:WikidataIB/subs")local join = args.join or ""local onlysrc = parseParam(args.onlysourced or args.osd, true)local maxvals = tonumber(args.maxvals) or 0-- linkprefix (strip quotes)local lp = (args.linkprefix or args.lp or ""):gsub('"', '')-- sort key (strip quotes, hyphens and periods):local sk = (args.sortkey or args.sk or ""):gsub('["-.]', '')-- family name:local famname = ""if sk == "" thenlocal p734 = mw.wikibase.getBestStatements(qid, "P734")[1]local p734id = p734 and p734.mainsnak.snaktype == "value" and p734.mainsnak.datavalue.value.id or ""famname = mw.wikibase.sitelink(p734id) or ""-- strip namespace and disambigationlocal pos = famname:find(":") or 0famname = famname:sub(pos+1):gsub("%s%(.+%)$", "")if famname == "" thenlocal lbl = mw.wikibase.label(p734id)famname = lbl and mw.text.nowiki(lbl) or ""endendlocal cat1 = {}for k, v in ipairs(statements1) doif not onlysrc or sourced(v) then-- get the ID representing the value of the propertylocal pvalID = (v.mainsnak.snaktype == "value") and v.mainsnak.datavalue.value.idif pvalID then-- get the topic's main category (P910) for that entitylocal p910 = mw.wikibase.getBestStatements(pvalID, "P910")[1]if p910 and p910.mainsnak.snaktype == "value" thenlocal tmcID = p910.mainsnak.datavalue.value.id-- use sitelink or the English label for the catlocal cat = mw.wikibase.sitelink(tmcID)if not cat thenlocal lbl = mw.wikibase.getLabelByLang(tmcID, "en")if lbl thenif lbl:sub(1,9) == "Category:" thencat = mw.text.nowiki(lbl)elsecat = "Category:" .. mw.text.nowiki(lbl)endendendcat1[#cat1+1] = catend -- of test for topic's main category existsend -- of test for property has vaild valueend -- of test for sourcedif maxvals > 0 and #cat1 >= maxvals then break endendlocal cat2 = {}for k, v in ipairs(statements2) doif not onlysrc or sourced(v) thenlocal cat = rendersnak(v, args)if subs[cat] then cat = subs[cat] endcat2[#cat2+1] = catendif maxvals > 0 and #cat2 >= maxvals then break endendout = {}for k1, v1 in ipairs(cat1) dofor k2, v2 in ipairs(cat2) doif sk ~= "" thenout[#out+1] = "[[" .. lp .. v1 .. " " .. join .. " " .. v2 .. "|" .. sk .. "]]"elseif famname ~= "" thenout[#out+1] = "[[" .. lp .. v1 .. " " .. join .. " " .. v2 .. "|" .. famname .. "]]"elseout[#out+1] = "[[" .. lp .. v1 .. " " .. join .. " " .. v2 .. "]]"end -- of check for sort keysendendargs.noicon = "true"return assembleoutput(out, args, qid, pid1)end--------------------------------------------------------------------------------- qualsToTable takes most of the usual parameters.-- The usual whitelisting, blacklisting, onlysourced, etc. are implemented.-- A qid may be given, and the first unnamed parameter is the property ID, which is of type wikibase item.-- It takes a list of qualifier property IDs as |quals=-- For a given qid and property, it creates the rows of an html table,-- each row being a value of the property (optionally only if the property matches the value in |pval= )-- each cell being the first value of the qualifier corresponding to the list in |quals--------------------------------------------------------------------------------- Dependencies: parseParam; setRanks; parseInput; sourced;-------------------------------------------------------------------------------p.qualsToTable = function(frame)local args = frame.argslocal quals = args.quals or ""if quals == "" then return "" endargs.reqranks = setRanks(args.rank)local propertyID = mw.text.trim(args[1] or "")local f = {}f.args = argslocal entityid, props = parseInput(f, "", propertyID)if not entityid then return "" endargs.langobj = findLang(args.lang)args.lang = args.langobj.codelocal pval = args.pval or ""local qplist = mw.text.split(quals, "%p") -- split at punctuation and make a sequential tablefor i, v in ipairs(qplist) doqplist[i] = mw.text.trim(v):upper() -- remove whitespace and capitaliseendlocal col1 = args.firstcol or ""if col1 ~= "" thencol1 = col1 .. "</td><td>"endlocal emptycell = args.emptycell or "&nbsp;"-- construct a 2-D array of qualifier values in qvalslocal qvals = {}for i, v in ipairs(props) dolocal skip = falseif pval ~= "" thenlocal pid = v.mainsnak.datavalue and v.mainsnak.datavalue.value.idif pid ~= pval then skip = true endendif not skip thenlocal qval = {}local vqualifiers = v.qualifiers or {}-- go through list of wanted qualifier propertiesfor i1, v1 in ipairs(qplist) do-- check for that property ID in the statement's qualifierslocal qv, qtypeif vqualifiers[v1] thenqtype = vqualifiers[v1][1].datatypeif qtype == "time" thenqv = mw.wikibase.renderSnak(vqualifiers[v1][1])qv = frame:expandTemplate{title="dts", args={qv}}elseif qtype == "url" thenqv = mw.wikibase.renderSnak(vqualifiers[v1][1])local display = mw.ustring.match( mw.uri.decode(qv, "WIKI"), "([%w ]+)$" )if display thenqv = "[" .. qv .. " " .. display .. "]"endelseqv = mw.wikibase.formatValue(vqualifiers[v1][1])endend-- record either the value or a placeholderqval[i1] = qv or emptycellend -- of loop through list of qualifiers-- add the list of qualifier values as a "row" in the main listqvals[#qvals+1] = qvalendend -- of for each value looplocal out = {}for i, v in ipairs(qvals) doout[i] = "<tr><td>" .. col1 .. table.concat(qvals[i], "</td><td>") .. "</td></tr>"endreturn table.concat(out, "\n")end--------------------------------------------------------------------------------- getGlobe takes an optional qid of a Wikidata entity passed as |qid=-- otherwise it uses the linked item for the current page.-- If returns the Qid of the globe used in P625 (coordinate location),-- or nil if there isn't one.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getGlobe = function(frame)local qid = frame.args.qid or frame.args[1] or ""if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() endlocal coords = mw.wikibase.getBestStatements(qid, "P625")[1]local globeidif coords and coords.mainsnak.snaktype == "value" thenglobeid = coords.mainsnak.datavalue.value.globe:match("(Q%d+)")endreturn globeidend--------------------------------------------------------------------------------- getCommonsLink takes an optional qid of a Wikidata entity passed as |qid=-- It returns one of the following in order of preference:-- the Commons sitelink of the linked Wikidata item;-- the Commons sitelink of the topic's main category of the linked Wikidata item;--------------------------------------------------------------------------------- Dependencies: _getCommonslink(); _getSitelink(); parseParam()-------------------------------------------------------------------------------p.getCommonsLink = function(frame)local oc = frame.args.onlycat or frame.args.onlycategorieslocal fb = parseParam(frame.args.fallback or frame.args.fb, true)return _getCommonslink(frame.args.qid, oc, fb)end--------------------------------------------------------------------------------- getSitelink takes the qid of a Wikidata entity passed as |qid=-- It takes an optional parameter |wiki= to determine which wiki is to be checked for a sitelink-- If the parameter is blank, then it uses the local wiki.-- If there is a sitelink to an article available, it returns the plain text link to the article-- If there is no sitelink, it returns nil.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getSiteLink = function(frame)return _getSitelink(frame.args.qid, frame.args.wiki or mw.text.trim(frame.args[1] or ""))end--------------------------------------------------------------------------------- getLink has the qid of a Wikidata entity passed as the first unnamed parameter or as |qid=-- If there is a sitelink to an article on the local Wiki, it returns a link to the article-- with the Wikidata label as the displayed text.-- If there is no sitelink, it returns the label as plain text.-- If there is no label in the local language, it displays the qid instead.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getLink = function(frame)local itemID = mw.text.trim(frame.args[1] or frame.args.qid or "")if itemID == "" then return endlocal sitelink = mw.wikibase.sitelink(itemID)local label = labelOrId(itemID)if sitelink thenreturn "[[:" .. sitelink .. "|" .. label .. "]]"elsereturn labelendend--------------------------------------------------------------------------------- getLabel has the qid of a Wikidata entity passed as the first unnamed parameter or as |qid=-- It returns the Wikidata label for the local language as plain text.-- If there is no label in the local language, it displays the qid instead.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getLabel = function(frame)local itemID = mw.text.trim(frame.args[1] or frame.args.qid or "")if itemID == "" then return endlocal lang = frame.args.lang or ""if lang == "" then lang = nil endlocal label = labelOrId(itemID, lang)return labelend--------------------------------------------------------------------------------- getAT (Article Title)-- has the qid of a Wikidata entity passed as the first unnamed parameter or as |qid=-- If there is a sitelink to an article on the local Wiki, it returns the sitelink as plain text.-- If there is no sitelink, it returns nothing.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getAT = function(frame)local itemID = mw.text.trim(frame.args[1] or frame.args.qid or "")if itemID == "" then return endreturn mw.wikibase.sitelink(itemID)end--------------------------------------------------------------------------------- getDescription has the qid of a Wikidata entity passed as |qid=-- (it defaults to the associated qid of the current article if omitted)-- and a local parameter passed as the first unnamed parameter.-- Any local parameter passed (other than "Wikidata" or "none") becomes the return value.-- It returns the article description for the Wikidata entity if the local parameter is "Wikidata".-- Nothing is returned if the description doesn't exist or "none" is passed as the local parameter.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getDescription = function(frame)local desc = mw.text.trim(frame.args[1] or "")local itemID = mw.text.trim(frame.args.qid or "")if itemID == "" then itemID = nil endif desc:lower() == 'wikidata' thenreturn mw.wikibase.description(itemID)elseif desc:lower() == 'none' thenreturn nilelsereturn descendend--------------------------------------------------------------------------------- getAliases has the qid of a Wikidata entity passed as |qid=-- (it defaults to the associated qid of the current article if omitted)-- and a local parameter passed as the first unnamed parameter.-- It implements blacklisting and whitelisting with a field name of "alias" by default.-- Any local parameter passed becomes the return value.-- Otherwise it returns the aliases for the Wikidata entity with the usual list options.-- Nothing is returned if the aliases do not exist.--------------------------------------------------------------------------------- Dependencies: findLang(); assembleoutput()-------------------------------------------------------------------------------p.getAliases = function(frame)local args = frame.argslocal fieldname = args.name or ""if fieldname == "" then fieldname = "alias" endlocal blacklist = args.suppressfields or args.spf or ""if blacklist:find(fieldname) then return nil endlocal localval = mw.text.trim(args[1] or "")if localval ~= "" then return localval endlocal whitelist = args.fetchwikidata or args.fwd or ""if whitelist == "" then whitelist = "NONE" endif not (whitelist == 'ALL' or whitelist:find(fieldname)) then return nil endlocal qid = mw.text.trim(args.qid or "")if qid == "" then qid = nil endlocal entity = mw.wikibase.getEntity(qid)if not entity then return nil endlocal aliases = entity.aliasesif not aliases then return nil endif not qid then qid= mw.wikibase.getEntityIdForCurrentPage() endargs.langobj = findLang(args.lang)local langcode = args.langobj.codeargs.lang = langcodelocal out = {}for k1, v1 in pairs(aliases) doif v1[1].language == langcode thenfor k1, v2 in ipairs(v1) doout[#out+1] = v2.valueendbreakendendreturn assembleoutput(out, args, qid)end--------------------------------------------------------------------------------- pageId returns the page id (entity ID, Qnnn) of the current page-- returns nothing if the page is not connected to Wikidata--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.pageId = function(frame)return mw.wikibase.getEntityIdForCurrentPage()end--------------------------------------------------------------------------------- formatDate is a wrapper to export the private function format_Date--------------------------------------------------------------------------------- Dependencies: format_Date();-------------------------------------------------------------------------------p.formatDate = function(frame)return format_Date(frame.args[1], frame.args.df, frame.args.bc)end--------------------------------------------------------------------------------- location is a wrapper to export the private function _location-- it takes the entity-id as qid or the first unnamed parameter-- optional boolean parameter first toggles the display of the first item-- optional boolean parameter skip toggles the display to skip to the last item-- parameter debug=<y/n> (default 'n') adds error msg if not a location--------------------------------------------------------------------------------- Dependencies: _location();-------------------------------------------------------------------------------p.location = function(frame)local debug = (frame.args.debug or ""):sub(1, 1):lower()if debug == "" then debug = "n" endlocal qid = mw.text.trim(frame.args.qid or frame.args[1] or ""):upper()if qid == "" then qid=mw.wikibase.getEntityIdForCurrentPage() endif not qid thenif debug ~= "n" thenreturn i18n.errors["entity-not-found"]elsereturn nilendendlocal first = mw.text.trim(frame.args.first or "")local skip = mw.text.trim(frame.args.skip or "")return table.concat( _location(qid, first, skip), ", " )end--------------------------------------------------------------------------------- checkBlacklist implements a test to check whether a named field is allowed-- returns true if the field is not blacklisted (i.e. allowed)-- returns false if the field is blacklisted (i.e. disallowed)-- {{#if:{{#invoke:WikidataIB |checkBlacklist |name=Joe |suppressfields=Dave; Joe; Fred}} | not blacklisted | blacklisted}}-- displays "blacklisted"-- {{#if:{{#invoke:WikidataIB |checkBlacklist |name=Jim |suppressfields=Dave; Joe; Fred}} | not blacklisted | blacklisted}}-- displays "not blacklisted"--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.checkBlacklist = function(frame)local blacklist = frame.args.suppressfields or frame.args.spf or ""local fieldname = frame.args.name or ""if blacklist ~= "" and fieldname ~= "" thenif blacklist:find(fieldname) thenreturn falseelsereturn trueendelse-- one of the fields is missing: let's call that "not on the list"return trueendend--------------------------------------------------------------------------------- emptyor returns nil if its first unnamed argument is just punctuation, whitespace or html tags-- otherwise it returns the argument unchanged (including leading/trailing space).-- If the argument may contain "=", then it must be called explicitly:-- |1=arg-- (In that case, leading and trailing spaces are trimmed)-- It finds use in infoboxes where it can replace tests like:-- {{#if: {{#invoke:WikidatIB |getvalue |P99 |fwd=ALL}} | <span class="xxx">{{#invoke:WikidatIB |getvalue |P99 |fwd=ALL}}</span> | }}-- with a form that uses just a single call to Wikidata:-- {{#invoke |WikidataIB |emptyor |1= <span class="xxx">{{#invoke:WikidataIB |getvalue |P99 |fwd=ALL}}</span> }}--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.emptyor = function(frame)local s = frame.args[1] or ""if s == "" then return nil endlocal sx = s:gsub("%s", ""):gsub("<[^>]*>", ""):gsub("%p", "")if sx == "" thenreturn nilelsereturn sendend--------------------------------------------------------------------------------- labelorid is a public function to expose the output of labelOrId()-- Pass the Q-number as |qid= or as an unnamed parameter.-- It returns the Wikidata label for that entity or the qid if no label exists.--------------------------------------------------------------------------------- Dependencies: labelOrId-------------------------------------------------------------------------------p.labelorid = function(frame)return labelOrId( frame.args.qid or frame.args[1] )end--------------------------------------------------------------------------------- getLang returns the MediaWiki language code of the current content.-- If optional parameter |style=full, it returns the language name.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getLang = function(frame)local style = (frame.args.style or ""):lower()local langcode = mw.language.getContentLanguage().codeif style == "full" thenreturn mw.language.fetchLanguageName( langcode )endreturn langcodeend--------------------------------------------------------------------------------- getItemLangCode takes a qid parameter (using the current page's qid if blank)-- If the item for that qid has property country (P17) it looks at the first preferred value-- If the country has an official language (P37), it looks at the first preferred value-- If that official language has a language code (P424), it returns the first preferred value-- Otherwise it returns nothing.--------------------------------------------------------------------------------- Dependencies: _getItemLangCode()-------------------------------------------------------------------------------p.getItemLangCode = function(frame)return _getItemLangCode(frame.args.qid or frame.args[1])end--------------------------------------------------------------------------------- findLanguage exports the local findLang() function-- It takes an optional language code and returns, in order of preference:-- the code if a known language;-- the user's language, if set;-- the server's content language.--------------------------------------------------------------------------------- Dependencies: findLang-------------------------------------------------------------------------------p.findLanguage = function(frame)return findLang(frame.args.lang or frame.args[1]).codeend--------------------------------------------------------------------------------- getQid returns the qid, if supplied-- failing that, the Wikidata entity ID of the "category's main topic (P301)", if it exists-- failing that, the Wikidata entity ID associated with the current page, if it exists-- otherwise, nothing--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getQid = function(frame)local qid = (frame.args.qid or ""):upper()-- check if a qid was passed; if so, return it:if qid ~= "" then return qid end-- check if there's a "category's main topic (P301)":qid = mw.wikibase.getEntityIdForCurrentPage()if qid thenlocal prop301 = mw.wikibase.getBestStatements(qid, "P301")if prop301[1] thenlocal mctid = prop301[1].mainsnak.datavalue.value.idif mctid then return mctid endendend-- otherwise return the page qid (if any)return qidend--------------------------------------------------------------------------------- followQid takes three optional parameters: qid, props, and all.-- If qid is not given, it uses the qid for the connected page-- or returns nil if there isn't one.-- props is a list of properties, separated by punctuation.-- If props is given, the Wikidata item for the qid is examined for each property in turn.-- If that property contains a value that is another Wikibase-item, that item's qid is returned,-- and the search terminates, unless |all=y when all of the qids are returned, sparated by spaces.-- If props is not given, the qid is returned.--------------------------------------------------------------------------------- Dependencies: parseParam()-------------------------------------------------------------------------------p.followQid = function(frame)local qid = (frame.args.qid or ""):upper()local all = parseParam(frame.args.all, false)if qid == "" thenqid = mw.wikibase.getEntityIdForCurrentPage()endif not qid then return nil endlocal out = {}local props = (frame.args.props or ""):upper()if props ~= "" thenfor p in mw.text.gsplit(props, "%p") do -- split at punctuation and iteratep = mw.text.trim(p)for i, v in ipairs( mw.wikibase.getBestStatements(qid, p) ) dolocal linkedid = v.mainsnak.datavalue and v.mainsnak.datavalue.value.idif linkedid thenif all thenout[#out+1] = linkedidelsereturn linkedidend -- test for all or just the first one foundend -- test for value exists for that propertyend -- loop through values of property to followend -- loop through list of properties to followendif #out > 0 thenreturn table.concat(out, " ")elsereturn qidendend--------------------------------------------------------------------------------- globalSiteID returns the globalSiteID for the current wiki-- e.g. returns "enwiki" for the English Wikipedia, "enwikisource" for English Wikisource, etc.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.globalSiteID = function(frame)return mw.wikibase.getGlobalSiteId()end--------------------------------------------------------------------------------- siteID returns the root of the globalSiteID-- e.g. "en" for "enwiki", "enwikisource", etc.-- treats "en-gb" as "en", etc.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.siteID = function(frame)local txtlang = frame:preprocess( "{{int:lang}}" ) or ""-- This deals with specific exceptions: be-tarask -> be-x-oldif txtlang == "be-tarask" thenreturn "be_x_old"endlocal pos = txtlang:find("-")local ret = ""if pos thenret = txtlang:sub(1, pos-1)elseret = txtlangendreturn retend--------------------------------------------------------------------------------- projID returns the code used to link to the reader's language's project-- e.g "en" for [[:en:WikidataIB]]-- treats "en-gb" as "en", etc.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.projID = function(frame)local txtlang = frame:preprocess( "{{int:lang}}" ) or ""-- This deals with specific exceptions: be-tarask -> be-x-oldif txtlang == "be-tarask" thenreturn "be-x-old"endlocal pos = txtlang:find("-")local ret = ""if pos thenret = txtlang:sub(1, pos-1)elseret = txtlangendreturn retend--------------------------------------------------------------------------------- formatNumber formats a number according to the the supplied language code ("|lang=")-- or the default language if not supplied.-- The number is the first unnamed parameter or "|num="--------------------------------------------------------------------------------- Dependencies: findLang()-------------------------------------------------------------------------------p.formatNumber = function(frame)local langlocal num = tonumber(frame.args[1] or frame.args.num) or 0lang = findLang(frame.args.lang)return lang:formatNum( num )end--------------------------------------------------------------------------------- examine dumps the property (the unnamed parameter or pid)-- from the item given by the parameter 'qid' (or the other unnamed parameter)-- or from the item corresponding to the current page if qid is not supplied.-- e.g. {{#invoke:WikidataIB |examine |pid=P26 |qid=Q42}}-- or {{#invoke:WikidataIB |examine |P26 |Q42}} or any combination of these-- or {{#invoke:WikidataIB |examine |P26}} for the current page.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.examine = function( frame )local argsif frame.args[1] or frame.args.pid or frame.args.qid thenargs = frame.argselseargs = frame:getParent().argsendlocal par = {}local pid = (args.pid or ""):upper()local qid = (args.qid or ""):upper()par[1] = mw.text.trim( args[1] or "" ):upper()par[2] = mw.text.trim( args[2] or "" ):upper()table.sort(par)if par[2]:sub(1,1) == "P" then par[1], par[2] = par[2], par[1] endif pid == "" then pid = par[1] endif qid == "" then qid = par[2] endif pid:sub(1,1) ~= "P" then return "No property supplied" endif qid:sub(1,1) ~= "Q" then qid = mw.wikibase.getEntityIdForCurrentPage() endif not qid then return "No item for this page" endreturn "<pre>" .. mw.dumpObject( mw.wikibase.getAllStatements( qid, pid ) ) .. "</pre>"end--------------------------------------------------------------------------------- checkvalue looks for 'val' as a wikibase-item value of a property (the unnamed parameter or pid)-- from the item given by the parameter 'qid'-- or from the Wikidata item associated with the current page if qid is not supplied.-- If property is not supplied, then P31 (instance of) is assumed.-- It returns val if found or nothing if not found.-- e.g. {{#invoke:WikidataIB |checkvalue |val=Q5 |pid=P31 |qid=Q42}}-- or {{#invoke:WikidataIB |checkvalue |val=Q5 |P31 |qid=Q42}}-- or {{#invoke:WikidataIB |checkvalue |val=Q5 |qid=Q42}}-- or {{#invoke:WikidataIB |checkvalue |val=Q5 |P31}} for the current page.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.checkvalue = function( frame )local argsif frame.args.val thenargs = frame.argselseargs = frame:getParent().argsendlocal val = args.valif not val then return nil endlocal pid = mw.text.trim(args.pid or args[1] or "P31"):upper()local qid = (args.qid or ""):upper()if pid:sub(1,1) ~= "P" then return nil endif qid:sub(1,1) ~= "Q" then qid = mw.wikibase.getEntityIdForCurrentPage() endif not qid then return nil endlocal stats = mw.wikibase.getAllStatements( qid, pid )if not stats[1] then return nil endif stats[1].mainsnak.datatype == "wikibase-item" thenfor k, v in pairs( stats ) doif v.mainsnak.snaktype == "value" and v.mainsnak.datavalue.value.id == val thenreturn valendendendreturn nilend--------------------------------------------------------------------------------- url2 takes a parameter url= that is a proper url and formats it for use in an infobox.-- If no parameter is supplied, it returns nothing.-- This is the equivalent of Template:URL-- but it keeps the "edit at Wikidata" pen icon out of the microformat.-- Usually it will take its url parameter directly from a Wikidata call:-- e.g. {{#invoke:WikidataIB |url2 |url={{wdib |P856 |qid=Q23317 |fwd=ALL |osd=no}}--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.url2 = function(frame)local txt = frame.args.url or ""if txt == "" then return nil endlocal url, icon = txt:match("(.+)&nbsp;(.+)")url = url or txticon = icon or ""local prot, addr = url:match("(http[s]*://)(.+)")prot = prot or urladdr = addr or ""local disp, n = addr:gsub("%.", "<wbr/>%.")return '<span class="url">[' .. prot .. addr .. " " .. disp .. "]</span>&nbsp;" .. iconend--------------------------------------------------------------------------------- getWebsite fetches the Official website (P856) and formats it for use in an infobox.-- This is similar to Template:Official website but with a url displayed,-- and it adds the "edit at Wikidata" pen icon beyond the microformat if enabled.-- A local value will override the Wikidata value. "NONE" returns nothing.-- e.g. {{#invoke:WikidataIB |getWebsite |qid= |noicon= |lang= |url= }}--------------------------------------------------------------------------------- Dependencies: findLang(); parseParam();-------------------------------------------------------------------------------p.getWebsite = function(frame)local url = frame.args.url or ""if url:upper() == "NONE" then return nil endlocal qid = frame.args.qid or ""if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() endif not qid then return nil endlocal urls = {}local quals = {}if url == "" thenlocal prop856 = mw.wikibase.getBestStatements(qid, "P856")for k, v in pairs(prop856) doif v.mainsnak.snaktype == "value" thenurls[#urls+1] = v.mainsnak.datavalue.valueif v.qualifiers and v.qualifiers["P1065"] then -- just take the first archive url (P1065)local au = v.qualifiers["P1065"][1]if au.snaktype == "value" thenquals[#urls] = au.datavalue.valueend -- test for archive url having a valueend -- test for qualifersend -- test for website having a valueend -- loop through website(s)elseurls[1] = urlendif #urls == 0 then return nil endlocal out = {}for i, u in ipairs(urls) dolocal link = quals[i] or ulocal prot, addr = u:match("(http[s]*://)(.+)")addr = addr or ulocal disp, n = addr:gsub("%.", "<wbr/>%.")out[#out+1] = '<span class="url">[' .. link .. " " .. disp .. "]</span>"endlocal langcode = findLang(frame.args.lang).codelocal noicon = parseParam(frame.args.noicon, false)if url == "" and not noicon thenout[#out] = out[#out] .. createicon(langcode, qid, "P856")endlocal ret = ""if #out > 1 thenret = mw.getCurrentFrame():expandTemplate{title = "ubl", args = out}elseret = out[1]endreturn retend--------------------------------------------------------------------------------- getAllLabels fetches the set of labels and formats it for display as wikitext.-- It takes a parameter 'qid' for arbitrary access, otherwise it uses the current page.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getAllLabels = function(frame)local args = frame.args or frame:getParent().args or {}local qid = args.qidif qid == "" then qid = nil endlocal entity = mw.wikibase.getEntity(qid)if not entity then return i18n["entity-not-found"] endlocal labels = entity.labelsif not labels then return i18n["labels-not-found"] endlocal out = {}for k, v in pairs(labels) doout[#out+1] = v.value .. " (" .. v.language .. ")"endreturn table.concat(out, "; ")end--------------------------------------------------------------------------------- getAllDescriptions fetches the set of descriptions and formats it for display as wikitext.-- It takes a parameter 'qid' for arbitrary access, otherwise it uses the current page.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getAllDescriptions = function(frame)local args = frame.args or frame:getParent().args or {}local qid = args.qidif qid == "" then qid = nil endlocal entity = mw.wikibase.getEntity(qid)if not entity then return i18n["entity-not-found"] endlocal descriptions = entity.descriptionsif not descriptions then return i18n["descriptions-not-found"] endlocal out = {}for k, v in pairs(descriptions) doout[#out+1] = v.value .. " (" .. v.language .. ")"endreturn table.concat(out, "; ")end--------------------------------------------------------------------------------- getAllAliases fetches the set of aliases and formats it for display as wikitext.-- It takes a parameter 'qid' for arbitrary access, otherwise it uses the current page.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.getAllAliases = function(frame)local args = frame.args or frame:getParent().args or {}local qid = args.qidif qid == "" then qid = nil endlocal entity = mw.wikibase.getEntity(qid)if not entity then return i18n["entity-not-found"] endlocal aliases = entity.aliasesif not aliases then return i18n["aliases-not-found"] endlocal out = {}for k1, v1 in pairs(aliases) dolocal lang = v1[1].languagelocal val = {}for k1, v2 in ipairs(v1) doval[#val+1] = v2.valueendout[#out+1] = table.concat(val, ", ") .. " (" .. lang .. ")"endreturn table.concat(out, "; ")end--------------------------------------------------------------------------------- showNoLinks displays the article titles that should not be linked.--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------p.showNoLinks = function(frame)local out = {}for k, v in pairs(donotlink) doout[#out+1] = kendtable.sort( out )return table.concat(out, "; ")end--------------------------------------------------------------------------------- checkValidity checks whether the first unnamed parameter represents a valid entity-id,-- that is, something like Q1235 or P123.-- It returns the strings "true" or "false".-- Change false to nil to return "true" or "" (easier to test with #if:).--------------------------------------------------------------------------------- Dependencies: none-------------------------------------------------------------------------------function p.checkValidity(frame)local id = mw.text.trim(frame.args[1] or "")if mw.wikibase.isValidEntityId(id) thenreturn trueelsereturn falseendend--------------------------------------------------------------------------------- getEntityFromTitle returns the Entity-ID (Q-number) for a given title.-- Modification of Module:ResolveEntityId-- The title is the first unnamed parameter.-- The site parameter determines the site/language for the title. Defaults to current wiki.-- The showdab parameter determines whether dab pages should return the Q-number or nil. Defaults to true.-- Returns the Q-number or nil if it does not exist.--------------------------------------------------------------------------------- Dependencies: parseParam-------------------------------------------------------------------------------function p.getEntityFromTitle(frame)local args=frame.argsif not args[1] then args=frame:getParent().args endif not args[1] then return nil endlocal title = mw.text.trim(args[1])local site = args.site or ""local showdab = parseParam(args.showdab, true)qid = mw.wikibase.getEntityIdForTitle(title, site)if qid thenlocal prop31 = mw.wikibase.getBestStatements(qid, "P31")[1]if not showdab and prop31 and prop31.mainsnak.datavalue.value.id == "Q4167410" thenreturn nilelsereturn qidendendendreturn p--------------------------------------------------------------------------------- List of exported functions---------------------------------------------------------------------------------[[_getValuegetValuegetPreferredValuegetCoordsgetQualifierValuegetSumOfPartsgetValueByQualgetValueByLanggetValueByRefSourcegetPropertyIDsgetPropOfPropgetAwardCatgetIntersectCatgetGlobegetCommonsLinkgetSiteLinkgetLinkgetLabelgetATgetDescriptiongetAliasespageIdformatDatelocationcheckBlacklistemptyorlabeloridgetLanggetItemLangCodefindLanguagegetQIDfollowQidglobalSiteIDsiteIDprojIDformatNumberexaminecheckvalueurl2getWebsitegetAllLabelsgetAllDescriptionsgetAllAliasesshowNoLinkscheckValiditygetEntityFromTitle--]]-------------------------------------------------------------------------------