-- Original module located at and .
local p = local arg = ...local i18n
function loadSubmodules(frame) -- internationalization if not i18n then if frame then -- module invoked by page/template, get its title from frame i18n = require(frame:getTitle.."/i18n") else -- module included by other module, get its title from ... i18n = require(arg.."/i18n") end endend
p.commands =
p.flags =
p.args =
p.aliasesP =
local aliasesQ =
local parameters =
local formats =
local hookNames =
-- default value objects, should NOT be mutated but instead copiedlocal defaultSeparators =
-- special wiki markup characters that have a meaning-- on their own, with their encoding counterpartslocal singles =
-- special wiki markup characters that only have a meaning-- in pairs or larger groups, with their encoding counterpartslocal doubles =
-- general special wiki markup characters with their encoding counterparts;-- needs to be ordered, so no key-value pairs are used herelocal encodingGlobal = }
-- special wiki markup characters that only have a meaning-- at the start of a line, with their encoding counterpartslocal encodingStart =
local Config = Config.__index = Config
-- allows for recursive callsfunction Config.new local cfg = setmetatable(cfg, Config) cfg.separators = cfg.entity = nil cfg.entityID = nil cfg.propertyID = nil cfg.propertyValue = nil cfg.qualifierIDs = cfg.qualifierIDsAndValues = cfg.bestRank = true cfg.ranks = -- preferred = true, normal = true, deprecated = false cfg.foundRank = #cfg.ranks cfg.flagBest = false cfg.flagRank = false cfg.periods = -- future = true, current = true, former = true cfg.flagPeriod = false cfg.mdyDate = false cfg.singleClaim = false cfg.sourcedOnly = false cfg.plainText = false cfg.editable = false cfg.editAtEnd = false cfg.pageTitle = false cfg.langCode = mw.language.getContentLanguage.code cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode) cfg.langObj = mw.language.new(cfg.langCode) cfg.states = cfg.states.qualifiersCount = 0 cfg.curState = nil cfg.prefetchedRefs = nil return cfgend
local State = State.__index = State
function State.new(cfg) local stt = setmetatable(stt, State) stt.conf = cfg stt.results = stt.parsedFormat = stt.separator = stt.movSeparator = stt.puncMark = stt.linked = false stt.rawValue = false stt.shortName = false stt.anyLanguage = false stt.unitOnly = false stt.singleValue = false return sttend
-- preprocesses the output so that format strings are evaluated as wikitext,-- as well as the values retrieved from Wikidata if the 'plain' flag was given;-- no preprocessing is necessary when substitutingfunction preprocess(value, frame) if mw.isSubsting then return value else return frame:preprocess(value) endend
function replaceAlias(ID) if p.aliasesP[ID] then ID = p.aliasesP[ID] end return IDend
function applyStringParams(str, ...) for i, v in ipairs(arg) do str = mw.ustring.gsub(str, "$"..i, v) end return strend
function unknownDataTypeError(dataType) return applyStringParams(i18n['errors']['unknown-data-type'], dataType)end
function missingRequiredParameterError return i18n['errors']['missing-required-parameter']end
function extraRequiredParameterError(param) return applyStringParams(i18n['errors']['extra-required-parameter'], param)end
function getOrdinalSuffix(num) return i18n.getOrdinalSuffix(num)end
function addDelimiters(num) return i18n.addDelimiters(num)end
function replaceDecimalMark(num) return mw.ustring.gsub(num, "[.]", i18n['numeric']['decimal-mark'], 1)end
function replaceSpecialChar(chr) if chr
function replaceSpecialChars(str) local chr local esc = false local strOut = "" for i = 1, #str do chr = str:sub(i,i) if not esc then if chr
-- encodes all occurences of characters in 'encodingGlobal';-- is needed to prevent the value from being (pre)processed as wikitext-- (if not skipped due to the 'plain' flag being given)function encodeWikitextGlobal(value, skip) skip = skip or false if not skip then for i, v in ipairs(encodingGlobal) do value = mw.ustring.gsub(value, v[1], v[2]) end end return valueend
-- encodes the first character if it is in 'encodingStart';-- is needed to prevent the value from being (pre)processed as wikitext-- (if not skipped due to the 'plain' flag being given)function encodeWikitextStart(value, skip) skip = skip or false if not skip then if encodingStart[value:sub(1,1)] then value = encodingStart[value:sub(1,1)] .. value:sub(2) elseif encodingStart[value:sub(1,4)] then value = encodingStart[value:sub(1,4)] .. value:sub(5) end end return valueend
-- decodes each single, or one of every two equal consecutive, special wiki markup characters-- that only have a meaning in pairs or larger groups (e.g. italic, bold);-- this to decrease cluttered output when the module is being substituted;-- occurences of groups might have arisen during concatenation of different valuesfunction partialDecodeWikitext(value, skip) skip = skip or false if not skip then value = "A"..value.."A" -- concatenate non-special characters to make this work nicely for i, v in pairs(doubles) do -- run two rounds to cover all occurences for j = 1, 2 do value = mw.ustring.gsub(value, "([^"..i.."])"..v.."([^"..i.."])", "%1"..i.."%2") end end value = value:sub(2,-2) -- strip off the non-special characters again end return valueend
function buildWikilink(target, label) if not label or target
-- used to make frame.args mutable, to replace #frame.args (which is always 0)-- with the actual amount and to simply copy tablesfunction copyTable(tIn) if not tIn then return nil end local tOut = for i, v in pairs(tIn) do tOut[i] = v end return tOutend
-- used to merge output arrays together;-- note that it currently mutates the first input arrayfunction mergeArrays(a1, a2) for i = 1, #a2 do a1[#a1 + 1] = a2[i] end return a1end
function split(str, del) local out = local i, j = str:find(del) if i and j then out[1] = str:sub(1, i - 1) out[2] = str:sub(j + 1) else out[1] = str end return outend
function parseWikidataURL(url) local ID if url:match('^http[s]?://') then ID = split(url, "Q") if ID[2] then return "Q" .. ID[2] end end return nilend
function parseDate(dateStr, precision) precision = precision or "d" local i, j, index, ptr local parts = if dateStr
"-" then -- this is a negative number, look further ahead from = 2 end index = 1 ptr = 1 i, j = dateStr:find("-", from) if i then -- year parts[index] = tonumber(mw.ustring.gsub(dateStr:sub(ptr, i-1), "^\+(.+)$", "%1"), 10) -- remove '+' sign (explicitly give base 10 to prevent error) if parts[index]
"y" then -- we're done return parts[1], parts[2], parts[3] -- year, month, day end index = index + 1 ptr = i + 1 i, j = dateStr:find("-", ptr) if i then -- month parts[index] = tonumber(dateStr:sub(ptr, i-1), 10) if precision
function datePrecedesDate(aY, aM, aD, bY, bM, bD) if aY
nil then return nil end aM = aM or 1 aD = aD or 1 bM = bM or 1 bD = bD or 1 if aY < bY then return true end if aY > bY then return false end if aM < bM then return true end if aM > bM then return false end if aD < bD then return true end return falseend
function getHookName(param, index) if hookNames[param] then return hookNames[param][index] elseif param:len > 2 then return hookNames[param:sub(1, 2).."\\d"][index] else return nil endend
function alwaysTrue return trueend
-- The following function parses a format string.---- The example below shows how a parsed string is structured in memory.-- Variables other than 'str' and 'child' are left out for clarity's sake.---- Example:-- "A %p B [%s[%q1]] C [%r] D"---- Structure:-- [-- { -- str = "A " -- }, -- { -- str = "%p" -- }, -- { -- str = " B ", -- child = -- [ -- { -- str = "%s", -- child = -- [ -- { -- str = "%q1" -- } -- ]-- }-- ]-- },--,-- -- ]--function parseFormat(str) local chr, esc, param, root, cur, prev, new local params = local function newObject(array) local obj = -- new object obj.str = "" array[#array + 1] = obj -- array obj.parent = array return obj end local function endParam if param > 0 then if cur.str ~= "" then cur.str = "%"..cur.str cur.param = true params[cur.str] = true cur.parent.req[cur.str] = true prev = cur cur = newObject(cur.parent) end param = 0 end end root = -- array root.req = cur = newObject(root) prev = nil esc = false param = 0 for i = 1, #str do chr = str:sub(i,i) if not esc then if chr
'%' then endParam if cur.str ~= "" then cur = newObject(cur.parent) end param = 2 elseif chr
"" then table.remove(cur.parent) end cur = new end else if param > 1 then param = param - 1 elseif param
function convertRank(rank) if rank
"normal" then return 2 elseif rank
function sortOnRank(claims) local rankPos local ranks = -- preferred, normal, deprecated, (default) local sorted = for i, v in ipairs(claims) do rankPos = convertRank(v.rank) ranks[rankPos][#ranks[rankPos] + 1] = v end sorted = ranks[1] sorted = mergeArrays(sorted, ranks[2]) sorted = mergeArrays(sorted, ranks[3]) return sortedend
-- if ID
-- if ID
"P" then prefix = "Property:" end end prefix = "d:" .. prefix title = label -- may be nil else -- try short name first if requested if short then label = getShortName(ID) if label
"Q" then title = mw.wikibase.sitelink(ID) elseif ID:sub(1,1)
function Config:getEditIcon local value = "" local prefix = "" local front = " " local back = "" if self.entityID:sub(1,1)
-- used to create the final output string when it's all done, so that for references the-- function extensionTag("ref", ...) is only called when they really ended up in the final outputfunction Config:concatValues(valuesArray) local outString = "" local j, skip if valuesArray[1] and not valuesArray[1].isFormat then valuesArray[1][1] = encodeWikitextStart(valuesArray[1][1], self.plainText) end for i = 1, #valuesArray do -- check if this is a reference if valuesArray[i].refHash then j = i - 1 skip = false -- skip this reference if it is part of a continuous row of references that already contains the exact same reference while valuesArray[j] and valuesArray[j].refHash do if valuesArray[i].refHash
-- gets a detail of one particular type for a referencefunction State:getReferenceDetail(snaks, dType, raw, link, anyLang, noUnset) raw = raw or false link = link or false anyLang = anyLang or false noUnset = noUnset or false local switchLang = anyLang local value = nil if not snaks[dType] then return nil end -- if anyLang, first try the local language and otherwise any language repeat for i, v in ipairs(snaks[dType]) do value = self.conf:getValue(v, raw, link, false, anyLang and not switchLang, false, self.conf.plainText, true) -- noSpecial = true if value then break end end if value or not anyLang then break end switchLang = not switchLang until anyLang and switchLang if not noUnset then -- remove detail(s) to make it possible to get the rest of the details in one loop snaks[dType] = nil end return valueend
-- gets the details of one particular type for a referencefunction State:getReferenceDetails(snaks, dType, raw, link, anyLang, noUnset) raw = raw or false link = link or false anyLang = anyLang or false noUnset = noUnset or false local values = if not snaks[dType] then return end for i, v in ipairs(snaks[dType]) do -- if nil is returned then it will not be added to the table values[#values + 1] = self.conf:getValue(v, raw, link, false, anyLang, false, self.conf.plainText, true) -- noSpecial = true end if not noUnset then -- remove detail(s) to make it possible to get the rest of the details in one loop snaks[dType] = nil end return valuesend
-- level 1 hookfunction State:getAlias(object) local value = object.value local title = nil if value then value = encodeWikitextGlobal(value, self.conf.plainText) if self.linked then if self.conf.entityID:sub(1,1)
"P" then title = "d:Property:" .. self.conf.entityID end if title then value = buildWikilink(title, value) end end end value = -- create one value object if #value > 0 then return -- wrap the value object in an array and return it else return -- return empty array if there was no value endend
function State:callHook(param, hooks, statement, result) local valuesArray, refHash -- call a parameter's hook if it has been defined and if it has not been called before if not result[param] and hooks[param] then valuesArray = self[hooks[param]](self, statement, param, result, hooks) -- array with value objects -- add to the result if #valuesArray > 0 then result[param] = valuesArray result.count = result.count + 1 else result[param] = -- an empty array to indicate that we've tried this hook already return true -- miss
-- iterate through claims, claim's qualifiers or claim's references to collect valuesfunction State:iterate(statements, hooks, matchHook) matchHook = matchHook or alwaysTrue local matches = false local rankPos = nil local result, gotRequired for i, v in ipairs(statements) do -- rankPos will be nil for non-claim statements (e.g. qualifiers, references, etc.) matches, rankPos = matchHook(self, v) if matches then result = -- collection of arrays with value objects local function walk(formatTable) local miss for i2, v2 in pairs(formatTable.req) do -- call a hook, adding its return value to the result miss = self:callHook(i2, hooks, v, result) if miss then -- we miss a required value for this level, so return false return false end if result.count
hooks.count then -- we're done if all hooks have been called; -- returning at this point prevents further childs from being processed return true end if v2.child then walk(v2.child) end end return true end gotRequired = walk(self.parsedFormat) -- only append the result if we got values for all required parameters on the root level if gotRequired then -- if we have a rankPos (only with matchHook for complete claims), then update the foundRank if rankPos and self.conf.foundRank > rankPos then self.conf.foundRank = rankPos end -- append the result self.results[#self.results + 1] = result -- break if we only need a single value if self.singleValue then break end end end end return self:outend
function p.property(frame) loadSubmodules(frame) return preprocess(p._property(copyTable(frame.args)), frame)end
function p._property(args) loadSubmodules return valueCommand(args, p.commands.property)end
function p.properties(frame) loadSubmodules(frame) return preprocess(p._properties(copyTable(frame.args)), frame)end
function p._properties(args) loadSubmodules return valueCommand(args, p.commands.properties)end
function p.qualifier(frame) loadSubmodules(frame) return preprocess(p._qualifier(copyTable(frame.args)), frame)end
function p._qualifier(args) loadSubmodules return valueCommand(args, p.commands.qualifier)end
function p.qualifiers(frame) loadSubmodules(frame) return preprocess(p._qualifiers(copyTable(frame.args)), frame)end
function p._qualifiers(args) loadSubmodules return valueCommand(args, p.commands.qualifiers)end
function p.reference(frame) loadSubmodules(frame) return preprocess(p._reference(copyTable(frame.args)), frame)end
function p._reference(args) loadSubmodules return valueCommand(args, p.commands.reference)end
function p.references(frame) loadSubmodules(frame) return preprocess(p._references(copyTable(frame.args)), frame)end
function p._references(args) loadSubmodules return valueCommand(args, p.commands.references)end
function valueCommand(args, funcName) local _ = Config.new _:processFlagOrCommand(funcName) -- process first command (
"Q" then _.entityID = nextArg:upper -- entity ID of an item was given _.entity = mw.wikibase.getEntity(_.entityID) -- get the item-entity based on the given ID _.propertyID = mw.text.trim(args[nextIndex] or "") -- property ID nextIndex = nextIndex + 1 elseif nextArg:sub(1,9):lower
"Q" then _.entityID = args[p.args.eid]:upper elseif args[p.args.eid]:sub(1,9):lower
"" then -- explicitly return if value for 'eid' is empty return "" end end else _.entityID = mw.wikibase.getEntityIdForCurrentPage -- by default, use item-entity connected to current page end _.entity = mw.wikibase.getEntity(_.entityID) _.propertyID = nextArg -- property ID end -- check if given property ID is an alias _.propertyID = replaceAlias(_.propertyID):upper if _.states.qualifiersCount > 0 then -- do further processing if "qualifier(s)" command was given if #args - nextIndex + 1 > _.states.qualifiersCount then -- claim ID or literal value has been given _.propertyValue = mw.text.trim(args[nextIndex]) nextIndex = nextIndex + 1 end for i = 1, _.states.qualifiersCount do nextArg = mw.text.trim(args[nextIndex] or "") -- is a qualifierID nextIndex = nextIndex + 1 -- check if given qualifier ID is an alias and add it _.qualifierIDs[parameters.qualifier..i] = replaceAlias(nextArg):upper end elseif _.states[parameters.reference] then -- do further processing if "reference(s)" command was given nextArg = args[nextIndex] -- claim ID or literal value (possibly nil) nextIndex = nextIndex + 1 if nextArg then _.propertyValue = mw.text.trim(nextArg) end end -- check for special property value 'somevalue' or 'novalue' if _.propertyValue then _.propertyValue = replaceSpecialChars(_.propertyValue) if _.propertyValue ~= "" and mw.text.trim(_.propertyValue)
0 and not _.states[parameters.reference].rawValue then _.separators["sep"][1] = nil end -- if exactly one "qualifier(s)" command has been given, make "sep%q" point to "sep%q1" to make them equivalent; -- must come BEFORE overriding the separator values if _.states.qualifiersCount
"" then v = " " -- single space represents 'somevalue' end _.qualifierIDsAndValues[replaceAlias(i):upper] = v end end if _.entity and _.entity.claims then claims = _.entity.claims[_.propertyID] end if claims then -- first sort the claims on rank to pre-define the order of output (preferred first, then normal, then deprecated) claims = sortOnRank(claims) -- then iterate through the claims to collect values value = _:concatValues(_.states[parameters.property]:iterate(claims, hooks, State.claimMatches)) -- pass property state with level 1 hooks and matchHook -- if desired, add a clickable icon that may be used to edit the returned values on Wikidata if _.editable and value ~= "" then value = value .. _:getEditIcon end return partialDecodeWikitext(value, _.plainText) else return "" endend
function p.label(frame) loadSubmodules(frame) return preprocess(p._label(copyTable(frame.args)), frame)end
function p._label(args) loadSubmodules return nameCommand(args, p.commands.label)end
function p.title(frame) loadSubmodules(frame) return preprocess(p._title(copyTable(frame.args)), frame)end
function p._title(args) loadSubmodules return nameCommand(args, p.commands.title)end
function p.alias(frame) loadSubmodules(frame) return preprocess(p._alias(copyTable(frame.args)), frame)end
function p._alias(args) loadSubmodules return nameCommand(args, p.commands.alias)end
function p.aliases(frame) loadSubmodules(frame) return preprocess(p._aliases(copyTable(frame.args)), frame)end
function p._aliases(args) loadSubmodules return nameCommand(args, p.commands.aliases)end
function nameCommand(args, funcName) local _ = Config.new _.curState = State.new(_) local ID = nil local value = nil local nextArg = args[1] local nextIndex = 2 while _:processFlag(nextArg) do nextArg = args[nextIndex] nextIndex = nextIndex + 1 end if nextArg then nextArg = mw.text.trim(nextArg) else nextArg = "" end -- check for optional entity ID of either item or property if nextArg:sub(1,1):upper
"property:" then ID = replaceAlias(mw.text.trim(nextArg:sub(10))):upper -- entity ID of a property was given else -- might be entity ID of a property, or a bogus entity ID that will fail later on ID = replaceAlias(nextArg):upper if ID:sub(1,1) ~= "P" then if ID
"Q" then ID = args[p.args.eid]:upper elseif args[p.args.eid]:sub(1,9):lower
"" then -- explicitly return if value for 'eid' is empty return "" end end else ID = nil end end end end if ID then _.entityID = ID else _.entityID = mw.wikibase.getEntityIdForCurrentPage end -- serve according to the given command if funcName
p.commands.title then _.pageTitle = true if not ID then value = mw.title.getCurrentTitle.prefixedText elseif ID:sub(1,1)
p.commands.alias or funcName
p.commands.alias then _.curState.singleValue = true end -- parse the desired format, or parse the default aliases format if args["format"] then parsedFormat, formatParams = parseFormat(args["format"]) else parsedFormat, formatParams = parseFormat(formats.alias) end -- process overridden separator values; -- must come AFTER parsing the format for i, v in pairs(_.separators) do if args[i] then sep = replaceSpecialChars(args[i]) if sep ~= "" then _.separators[i][1] = else _.separators[i][1] = nil end end end -- define the hook that should be called (getAlias); -- only define the hook if the parameter ("%a") has been given if formatParams[parameters.alias] then hooks[parameters.alias] = getHookName(parameters.alias, 1) hooks.count = hooks.count + 1 end -- set the parsed format and the separators (and optional punctuation mark) _.curState.parsedFormat = parsedFormat _.curState.separator = _.separators["sep"] _.curState.movSeparator = _.separators["sep"..parameters.separator] _.curState.puncMark = _.separators["punc"] _.entity = mw.wikibase.getEntity(ID) if _.entity and _.entity.aliases then aliases = _.entity.aliases[_.langCode] end if aliases then value = _:concatValues(_.curState:iterate(aliases, hooks)) end end value = value or "" if _.editable and value ~= "" then -- if desired, add a clickable icon that may be used to edit the returned value on Wikidata value = value .. _:getEditIcon end return partialDecodeWikitext(value, _.plainText)end
-- main function that is supposed to be used by wrapper templatesfunction p.main(frame) local f, args, i, v loadSubmodules(frame) -- get the parent frame to take the arguments that were passed to the wrapper template frame = frame:getParent or frame if not frame.args[1] then error(i18n["errors"]["no-function-specified"]) end f = mw.text.trim(frame.args[1]) if f
return p
function Config:convertUnit(unit, raw, link, short, unitOnly, plain) raw = raw or false link = link or false short = short or false unitOnly = unitOnly or false plain = plain or false local space = " " local label = "" if unit
"1" then return nil end if unitOnly then space = "" end itemID = parseWikidataURL(unit) if itemID then if itemID
function Config:getValue(snak, raw, link, short, anyLang, unitOnly, plain, noSpecial) raw = raw or false link = link or false short = short or false anyLang = anyLang or false unitOnly = unitOnly or false plain = plain or false noSpecial = noSpecial or false local value = "" if snak.snaktype
'string' then if snak.datatype
'commonsMedia' then if link then return buildWikilink("c:File:" .. snak.datavalue.value, encodeWikitextGlobal(snak.datavalue.value, plain)) elseif not raw then return "" else return encodeWikitextGlobal(snak.datavalue.value, plain) end elseif snak.datatype
'math' and not raw then return mw.getCurrentFrame:extensionTag("math", snak.datavalue.value) else return encodeWikitextGlobal(snak.datavalue.value, plain) end elseif snak.datavalue.type
self.langCode then return encodeWikitextGlobal(snak.datavalue.value['text'], plain) else return nil end elseif snak.datavalue.type
'time' then local y, m, d, p, yDiv, yRound, yFull, value, calendarID, dateStr local yFactor = 1 local sign = 1 local prefix = "" local suffix = "" local mayAddCalendar = false local calendar = "" local precision = snak.datavalue.value['precision'] if precision
10 then p = "m" else p = "y" yFactor = 10^(9-precision) end y, m, d = parseDate(snak.datavalue.value['time'], p) if y < 0 then sign = -1 y = y * sign end -- if precision is tens/hundreds/thousands/millions/billions of years if precision <= 8 then yDiv = y / yFactor -- if precision is tens/hundreds/thousands of years if precision >= 6 then mayAddCalendar = true if precision <= 7 then -- round centuries/millenniums up (e.g. 20th century or 3rd millennium) yRound = math.ceil(yDiv) if not raw then if precision
8 -- round decades down (e.g. 2010s) yRound = math.floor(yDiv) * yFactor if not raw then prefix = i18n['datetime']['prefixes']['decade-period'] suffix = i18n['datetime']['suffixes']['decade-period'] end end if raw and sign < 0 then -- if BCE then compensate for "counting backwards" -- (e.g. -2019 for 2010s BCE, -2000 for 20th century BCE or -3000 for 3rd millennium BCE) yRound = yRound + yFactor - 1 end else local yReFactor, yReDiv, yReRound -- round to nearest for tens of thousands of years or more yRound = math.floor(yDiv + 0.5) if yRound
yReRound then -- change precision to millions of years only if we have a whole number of them precision = 3 yFactor = yReFactor yRound = yReRound end end if yRound
yReRound then -- change precision to billions of years if we're in that range precision = 0 yFactor = yReFactor yRound = yReRound else yReFactor = 1e6 yReDiv = yFull / yReFactor yReRound = math.floor(yReDiv + 0.5) if yReDiv
3 then suffix = i18n['datetime']['suffixes']['million-years'] elseif precision
1 then suffix = i18n['datetime']['suffixes']['year'] else suffix = i18n['datetime']['suffixes']['years'] end end else yRound = yRound * yFactor end end else yRound = y mayAddCalendar = true end if mayAddCalendar then calendarID = parseWikidataURL(snak.datavalue.value['calendarmodel']) if calendarID and calendarID
'globecoordinate' then -- logic from https://github.com/DataValues/Geo local precision, numDigits, strFormat, value, globe local latValue, latitude, latDegrees, latMinutes, latSeconds local lonValue, longitude, lonDegrees, lonMinutes, lonSeconds local latDirection, latDirectionN, latDirectionS, latDirectionEN local lonDirection, lonDirectionE, lonDirectionW, lonDirectionEN local latDirectionEN_N = "N" local latDirectionEN_S = "S" local lonDirectionEN_E = "E" local lonDirectionEN_W = "W" if not raw then latDirectionN = i18n['coord']['latitude-north'] latDirectionS = i18n['coord']['latitude-south'] lonDirectionE = i18n['coord']['longitude-east'] lonDirectionW = i18n['coord']['longitude-west'] degSymbol = i18n['coord']['degrees'] minSymbol = i18n['coord']['minutes'] secSymbol = i18n['coord']['seconds'] separator = i18n['coord']['separator'] else latDirectionN = latDirectionEN_N latDirectionS = latDirectionEN_S lonDirectionE = lonDirectionEN_E lonDirectionW = lonDirectionEN_W degSymbol = "/" minSymbol = "/" secSymbol = "/" separator = "/" end latitude = snak.datavalue.value['latitude'] longitude = snak.datavalue.value['longitude'] if latitude < 0 then latDirection = latDirectionS latDirectionEN = latDirectionEN_S latitude = math.abs(latitude) else latDirection = latDirectionN latDirectionEN = latDirectionEN_N end if longitude < 0 then lonDirection = lonDirectionW lonDirectionEN = lonDirectionEN_W longitude = math.abs(longitude) else lonDirection = lonDirectionE lonDirectionEN = lonDirectionEN_E end precision = snak.datavalue.value['precision'] latitude = math.floor(latitude / precision + 0.5) * precision longitude = math.floor(longitude / precision + 0.5) * precision numDigits = math.ceil(-math.log10(3600 * precision)) if numDigits < 0 or numDigits
'wikibase-entityid' then local label local itemID = snak.datavalue.value['numeric-id'] if snak.datatype
'wikibase-property' then itemID = "P" .. itemID else return '' .. unknownDataTypeError(snak.datatype) .. '' end label = self:getLabel(itemID, raw, link, short, plain) if label
'somevalue' and not noSpecial then if raw then return " " -- single space represents 'somevalue' else return i18n['values']['unknown'] end elseif snak.snaktype
function Config:getSingleRawQualifier(claim, qualifierID) local qualifiers if claim.qualifiers then qualifiers = claim.qualifiers[qualifierID] end if qualifiers and qualifiers[1] then return self:getValue(qualifiers[1], true) -- raw = true else return nil endend
function Config:snakEqualsValue(snak, value) local snakValue = self:getValue(snak, true) -- raw = true if snakValue and snak.snaktype
'wikibase-entityid' then value = value:upper end return snakValue
function Config:setRank(rank) local rankPos if rank
p.flags.preferred then rankPos = 1 elseif rank:sub(1,6)
p.flags.deprecated then rankPos = 3 else return end -- one of the rank flags was given, check if another one was given before if not self.flagRank then self.ranks = -- no other rank flag given before, so unset ranks self.bestRank = self.flagBest -- unsets bestRank only if 'best' flag was not given before self.flagRank = true -- mark that a rank flag was given end if rank:sub(-1)
"-" then for i = rankPos, #self.ranks do self.ranks[i] = true end else self.ranks[rankPos] = true endend
function Config:setPeriod(period) local periodPos if period
p.flags.current then periodPos = 2 elseif period
function Config:processFlag(flag) if not flag then return false else flag = mw.text.trim(flag) end if flag
p.flags.raw then self.curState.rawValue = true if self.curState
p.flags.short then self.curState.shortName = true return true elseif flag
p.flags.unit then self.curState.unitOnly = true return true elseif flag
p.flags.single then self.singleClaim = true return true elseif flag
p.flags.plain then self.plainText = true return true elseif flag
p.flags.editAtEnd then self.editable = true self.editAtEnd = true return true elseif flag
p.flags.future or flag
p.flags.former then self:setPeriod(flag) return true elseif flag
function Config:processFlagOrCommand(flag) local param = "" if not flag then return false else flag = mw.text.trim(flag) end if flag
p.commands.properties then param = parameters.property elseif flag
p.commands.qualifiers then self.states.qualifiersCount = self.states.qualifiersCount + 1 param = parameters.qualifier .. self.states.qualifiersCount self.separators["sep"..param] = elseif flag
p.commands.references then param = parameters.reference else return self:processFlag(flag) end if self.states[param] then return false end -- create a new state for each command self.states[param] = State.new(self) -- use "%x" as the general parameter name self.states[param].parsedFormat = parseFormat(parameters.general) -- will be overwritten for param
"%p", which will be set separately if flag:sub(-1) ~= 's' then self.states[param].singleValue = true end self.curState = self.states[param] return trueend
function Config:qualifierMatches(claim, ID, value) local qualifiers if claim.qualifiers then qualifiers = claim.qualifiers[ID] end if qualifiers then for i, v in pairs(qualifiers) do if self:snakEqualsValue(v, value) then return true end end elseif value
function Config:rankMatches(rankPos) if self.bestRank then return (self.ranks[rankPos] and self.foundRank >= rankPos) else return self.ranks[rankPos] endend
function Config:timeMatches(claim) local startTime = nil local startTimeY = nil local startTimeM = nil local startTimeD = nil local endTime = nil local endTimeY = nil local endTimeM = nil local endTimeD = nil if self.periods[1] and self.periods[2] and self.periods[3] then -- any time return true end local now = os.date('!*t') startTime = self:getSingleRawQualifier(claim, p.aliasesP.startTime) if startTime and startTime ~= "" and startTime ~= " " then startTimeY, startTimeM, startTimeD = parseDate(startTime) end endTime = self:getSingleRawQualifier(claim, p.aliasesP.endTime) if endTime and endTime ~= "" and endTime ~= " " then endTimeY, endTimeM, endTimeD = parseDate(endTime) elseif endTime
nil or not datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD)) and (endTimeY
-- determines if a claim has references by prefetching them from the claim using getReferences,-- which applies some filtering that determines if a reference is actually returned,-- and caches the references for later usefunction State:isSourced(claim) self.conf.prefetchedRefs = self:getReferences(claim) return (#self.conf.prefetchedRefs > 0)end
function State:resetCaches -- any prefetched references of the previous claim must not be used self.conf.prefetchedRefs = nilend
function State:claimMatches(claim) local matches, rankPos -- first of all, reset any cached values used for the previous claim self:resetCaches -- if a property value was given, check if it matches the claim's property value if self.conf.propertyValue then matches = self.conf:snakEqualsValue(claim.mainsnak, self.conf.propertyValue) else matches = true end -- if any qualifier values were given, check if each matches one of the claim's qualifier values for i, v in pairs(self.conf.qualifierIDsAndValues) do matches = (matches and self.conf:qualifierMatches(claim, i, v)) end -- check if the claim's rank and time period match rankPos = convertRank(claim.rank) matches = (matches and self.conf:rankMatches(rankPos) and self.conf:timeMatches(claim)) -- if only claims with references must be returned, check if this one has any if self.conf.sourcedOnly then matches = (matches and self:isSourced(claim)) -- prefetches and caches references end return matches, rankPosend
function State:out local result -- collection of arrays with value objects local valuesArray -- array with value objects local sep = nil -- value object local out = -- array with value objects local function walk(formatTable, result) local valuesArray = -- array with value objects for i, v in pairs(formatTable.req) do if not result[i] or not result[i][1] then -- we've got no result for a parameter that is required on this level, -- so skip this level (and its children) by returning an empty result return end end for i, v in ipairs(formatTable) do if v.param then valuesArray = mergeArrays(valuesArray, result[v.str]) elseif v.str ~= "" then valuesArray[#valuesArray + 1] = -- value object end if v.child then valuesArray = mergeArrays(valuesArray, walk(v.child, result)) end end return valuesArray end -- iterate through the results from back to front, so that we know when to add separators for i = #self.results, 1, -1 do result = self.results[i] -- if there is already some output, then add the separators if #out > 0 then sep = self.separator[1] -- fixed separator result[parameters.separator] = -- movable separator else sep = nil result[parameters.separator] = -- optional punctuation mark end valuesArray = walk(self.parsedFormat, result) if #valuesArray > 0 then if sep then valuesArray[#valuesArray + 1] = sep end out = mergeArrays(valuesArray, out) end end -- reset state before next iteration self.results = return outend
-- level 1 hookfunction State:getProperty(claim) local value = -- create one value object if #value > 0 then return -- wrap the value object in an array and return it else return -- return empty array if there was no value endend
-- level 1 hookfunction State:getQualifiers(claim, param) local qualifiers if claim.qualifiers then qualifiers = claim.qualifiers[self.conf.qualifierIDs[param]] end if qualifiers then -- iterate through claim's qualifier statements to collect their values; -- return array with multiple value objects return self.conf.states[param]:iterate(qualifiers,) -- pass qualifier state with level 2 hook else return -- return empty array endend
-- level 2 hookfunction State:getQualifier(snak) local value = -- create one value object if #value > 0 then return -- wrap the value object in an array and return it else return -- return empty array if there was no value endend
-- level 1 hookfunction State:getAllQualifiers(claim, param, result, hooks) local out = -- array with value objects local sep = self.conf.separators["sep"..parameters.qualifier][1] -- value object -- iterate through the output of the separate "qualifier(s)" commands for i = 1, self.conf.states.qualifiersCount do -- if a hook has not been called yet, call it now if not result[parameters.qualifier..i] then self:callHook(parameters.qualifier..i, hooks, claim, result) end -- if there is output for this particular "qualifier(s)" command, then add it if result[parameters.qualifier..i] and result[parameters.qualifier..i][1] then -- if there is already some output, then add the separator if #out > 0 and sep then out[#out + 1] = sep end out = mergeArrays(out, result[parameters.qualifier..i]) end end return outend
-- level 1 hookfunction State:getReferences(claim) if self.conf.prefetchedRefs then -- return references that have been prefetched by isSourced return self.conf.prefetchedRefs end if claim.references then -- iterate through claim's reference statements to collect their values; -- return array with multiple value objects return self.conf.states[parameters.reference]:iterate(claim.references,) -- pass reference state with level 2 hook else return -- return empty array endend
-- level 2 hook-- logic determined based on https://www.wikidata.org/wiki/Help:Sourcesfunction State:getReference(statement) local language, referenceURL, title, statedIn, statedInRaw, template local authors = local params = local citeParams = local value = "" local ref = -- number of parameters that do not go along with "stated in"-sources other than web pages as per https://www.wikidata.org/wiki/Help:Sources; -- these are parameters of properties other than "pages(s)" and "chapter" (for books) and "title" and "publication date" (for databases) and also "stated in" local hasExtraParams = false if statement.snaks then -- don't include "imported from", which has been added by a bot if statement.snaks[p.aliasesP.importedFrom] then statement.snaks[p.aliasesP.importedFrom] = nil end -- not linked yet because we need the plain value for comparison first language = self:getReferenceDetail(statement.snaks, p.aliasesP.language, false, false, false, true) -- (noUnset = true) if language then -- not part of a "stated in"-source hasExtraParams = true -- only add language to the reference if it differs from the local one if self.conf.langName ~= language then if self.linked then -- retrieve language again, but this time with link params[p.aliasesP.language] = self:getReferenceDetail(statement.snaks, p.aliasesP.language, false, true) -- link = true else params[p.aliasesP.language] = language end end -- we have to manually unset, since the first call to getReferenceDetail was with noUnset and the second call might not have happened statement.snaks[p.aliasesP.language] = nil end authors = self:getReferenceDetails(statement.snaks, p.aliasesP.author, false, self.linked) -- link = true/false if #authors > 0 then -- not part of a "stated in"-source hasExtraParams = true end referenceURL = self:getReferenceDetail(statement.snaks, p.aliasesP.referenceURL) if referenceURL then -- not part of a "stated in"-source hasExtraParams = true end -- the next two may be part of a "stated in"-source, so retrieve them already so that they won't count as hasExtraParams title = self:getReferenceDetail(statement.snaks, p.aliasesP.title, false, false, true) -- anyLang = true statedIn = self:getReferenceDetail(statement.snaks, p.aliasesP.statedIn, false, true, false, true) -- link = true, (noUnset = true) -- get title of general template for citing web references template = mw.wikibase.sitelink(aliasesQ.citeWeb) or "" template = split(template, ":")[2] -- split off namespace from front -- (1) if both "reference URL" and "title" are present, then use the general template for citing web references if referenceURL and title and template then citeParams[i18n['cite']['url']] = referenceURL citeParams[i18n['cite']['title']] = title citeParams[i18n['cite']['website']] = statedIn citeParams[i18n['cite']['language']] = params[p.aliasesP.language] citeParams[i18n['cite']['date']] = self:getReferenceDetail(statement.snaks, p.aliasesP.publicationDate) citeParams[i18n['cite']['access-date']] = self:getReferenceDetail(statement.snaks, p.aliasesP.retrieved) citeParams[i18n['cite']['archive-url']] = self:getReferenceDetail(statement.snaks, p.aliasesP.archiveURL) citeParams[i18n['cite']['archive-date']] = self:getReferenceDetail(statement.snaks, p.aliasesP.archiveDate) citeParams[i18n['cite']['publisher']] = self:getReferenceDetail(statement.snaks, p.aliasesP.publisher, false, self.linked) -- link = true/false citeParams[i18n['cite']['quote']] = self:getReferenceDetail(statement.snaks, p.aliasesP.quote, false, false, true) -- anyLang = true for i, v in ipairs(authors) do citeParams[i18n['cite']['author']..i] = v end -- if this module is being substituted then build a regular template call, otherwise expand the template if mw.isSubsting then for i, v in pairs(citeParams) do value = value .. "|" .. i .. "=" .. v end value = "" else value = mw.getCurrentFrame:expandTemplate end else -- we need the raw Q-identifier for the next template statedInRaw = self:getReferenceDetail(statement.snaks, p.aliasesP.statedIn, true) -- raw = true -- the next three may be part of a "stated in"-source, so retrieve them already so that they won't count as hasExtraParams params[p.aliasesP.pages] = self:getReferenceDetail(statement.snaks, p.aliasesP.pages) params[p.aliasesP.chapter] = self:getReferenceDetail(statement.snaks, p.aliasesP.chapter) params[p.aliasesP.publicationDate] = self:getReferenceDetail(statement.snaks, p.aliasesP.publicationDate) -- retrieve the rest of the parameters and make them count as hasExtraParams for i in pairs(statement.snaks) do params[i] = self:getReferenceDetail(statement.snaks, i, false, self.linked, true) -- link = true/false, anyLang = true hasExtraParams = true end -- get title of template that expands a given stated-in item template = mw.wikibase.sitelink(aliasesQ.citeQ) or "" template = split(template, ":")[2] -- split off namespace from front -- (2) if "stated in" is present without any parameters not belonging to a "stated in"-source, then use the template that expands the stated-in item if statedInRaw and not hasExtraParams and template then citeParams[i18n['cite']['pages']] = params[p.aliasesP.pages] citeParams[i18n['cite']['chapter']] = params[p.aliasesP.chapter] citeParams[i18n['cite']['date-q']] = params[p.aliasesP.publicationDate] if mw.isSubsting then for i, v in pairs(citeParams) do value = value .. "|" .. i .. "=" .. v end value = "" else citeParams[1] = statedInRaw value = mw.getCurrentFrame:expandTemplate end -- (3) else, do some default rendering of name-value pairs, but only if at least "stated in" or "reference URL" is present elseif statedIn or referenceURL then -- authors were already retrieved; start by adding them up front if #authors > 0 then citeParams[#citeParams + 1] = table.concat(authors, " & ") end -- combine "reference URL" and "title" into one link if both are present if referenceURL and title then citeParams[#citeParams + 1] = "[" .. referenceURL .. " " .. title .. "]" elseif referenceURL then citeParams[#citeParams + 1] = referenceURL elseif title then citeParams[#citeParams + 1] = title end if statedIn then citeParams[#citeParams + 1] = statedIn end for i, v in pairs(params) do i = self.conf:getLabel(i) if i ~= "" then citeParams[#citeParams + 1] = i .. ": " .. v end end value = table.concat(citeParams, "; ") if value ~= "" then value = value .. "." end end end if value ~= "" then value = -- create one value object if not self.rawValue then -- this should become a [1]