関南・東山地方Wiki

「モジュール:Wd」の版間の差分

モジュール 議論

モジュール:Wd (ソースを閲覧)

2020年11月7日 (土) 17:31時点における版

1,073 バイト追加 、 2020年11月7日 (土)
依存関係にあるモジュールも修正したのでたぶん大丈夫だと思います... Sasuyan (会話) による ID:80329107 の版を取り消し
template>Sasuyan
(Ironstorms (会話) による ID:80328821 の版を取り消し。各所でエラーを起こしてしまっています。{Lua エラー モジュール:Wd 内、19 行目: attempt to call field 'init' (a nil value)｝お手数ですが、デバックをお願いします。)
template>Ironstorms
(依存関係にあるモジュールも修正したのでたぶん大丈夫だと思います... Sasuyan (会話) による ID:80329107 の版を取り消し)
1行目: 1行目:
-- Original module located at [[:en:Module:Wd]], [[:en:Module:Wd/i18n]] and [[:en:Module:Wd/aliasesP]].
-- Original module located at [[:en:Module:Wd]] and [[:en:Module:Wd/i18n]].


local p = {}
local p = {}
5行目: 5行目:
local i18n
local i18n


function loadSubmodules(frame)
local function loadI18n(aliasesP, frame)
local title
local title
 
if frame then
if frame then
-- current module invoked by page/template, get its title from frame
-- current module invoked by page/template, get its title from frame
15行目: 15行目:
title = arg
title = arg
end
end
 
i18n = i18n or require(title .. "/i18n")
if not i18n then
p.aliasesP = p.aliasesP or mw.loadData(title .. "/aliasesP")
i18n = require(title .. "/i18n").init(aliasesP)
end
end
end


30行目: 31行目:


p.generalCommands = {
p.generalCommands = {
label     = "label",
label       = "label",
title     = "title",
title       = "title",
alias     = "alias",
description = "description",
aliases   = "aliases",
alias       = "alias",
badge     = "badge",
aliases     = "aliases",
badges     = "badges"
badge       = "badge",
badges     = "badges"
}
}


60行目: 62行目:


p.args = {
p.args = {
eid = "eid"
eid = "eid",
page = "page",
date = "date"
}
 
local aliasesP = {
coord                  = "P625",
-----------------------
image                  = "P18",
author                  = "P50",
publisher              = "P123",
importedFrom            = "P143",
statedIn                = "P248",
pages                  = "P304",
language                = "P407",
hasPart                = "P527",
publicationDate        = "P577",
startTime              = "P580",
endTime                = "P582",
chapter                = "P792",
retrieved              = "P813",
referenceURL            = "P854",
sectionVerseOrParagraph = "P958",
archiveURL              = "P1065",
title                  = "P1476",
formatterURL            = "P1630",
quote                  = "P1683",
shortName              = "P1813",
definingFormula        = "P2534",
archiveDate            = "P2960",
inferredFrom            = "P3452",
typeOfReference        = "P3865",
column                  = "P3903"
}
}


84行目: 118行目:
qualifier            = "%q[%s][%r]",
qualifier            = "%q[%s][%r]",
reference            = "%r",
reference            = "%r",
propertyWithQualifier = "%p[ <span style=\"font-size:85%\">(%q)</span>][%s][%r]",
propertyWithQualifier = "%p[ <span style=\"font-size:85\\%\">(%q)</span>][%s][%r]",
alias                = "%a[%s]",
alias                = "%a[%s]",
badge                = "%b[%s]"
badge                = "%b[%s]"
115行目: 149行目:


local Config = {}
local Config = {}
Config.__index = Config


-- allows for recursive calls
-- allows for recursive calls
function Config.new()
function Config:new()
local cfg = {}
local cfg = {}
setmetatable(cfg, Config)
setmetatable(cfg, self)
self.__index = self
 
cfg.separators = {
cfg.separators = {
-- single value objects wrapped in arrays so that we can pass by reference
-- single value objects wrapped in arrays so that we can pass by reference
130行目: 164行目:
["punc"]  = {copyTable(defaultSeparators["punc"])}
["punc"]  = {copyTable(defaultSeparators["punc"])}
}
}
 
cfg.entity = nil
cfg.entity = nil
cfg.entityID = nil
cfg.entityID = nil
137行目: 171行目:
cfg.qualifierIDs = {}
cfg.qualifierIDs = {}
cfg.qualifierIDsAndValues = {}
cfg.qualifierIDsAndValues = {}
 
cfg.bestRank = true
cfg.bestRank = true
cfg.ranks = {true, true, false}  -- preferred = true, normal = true, deprecated = false
cfg.ranks = {true, true, false}  -- preferred = true, normal = true, deprecated = false
143行目: 177行目:
cfg.flagBest = false
cfg.flagBest = false
cfg.flagRank = false
cfg.flagRank = false
 
cfg.periods = {true, true, true}  -- future = true, current = true, former = true
cfg.periods = {true, true, true}  -- future = true, current = true, former = true
cfg.flagPeriod = false
cfg.flagPeriod = false
cfg.atDate = {parseDate(os.date('!%Y-%m-%d'))}  -- today as {year, month, day}
 
cfg.mdyDate = false
cfg.mdyDate = false
cfg.singleClaim = false
cfg.singleClaim = false
152行目: 187行目:
cfg.editable = false
cfg.editable = false
cfg.editAtEnd = false
cfg.editAtEnd = false
 
cfg.inSitelinks = false
cfg.inSitelinks = false
 
cfg.langCode = mw.language.getContentLanguage().code
cfg.langCode = mw.language.getContentLanguage().code
cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode)
cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode)
cfg.langObj = mw.language.new(cfg.langCode)
cfg.langObj = mw.language.new(cfg.langCode)
 
-- somewhat reliable way of determining global site ID in the absence of a library function, targeting the Wikipedia project (i.e. appending "wiki")
cfg.siteID = mw.wikibase.getGlobalSiteId()
cfg.siteID = (function() for i,v in pairs(mw.site.interwikiMap("local")) do if v.isCurrentWiki and i~="w" then return mw.ustring.gsub(i,"-","_").."wiki" end end end)()
 
cfg.states = {}
cfg.states = {}
cfg.states.qualifiersCount = 0
cfg.states.qualifiersCount = 0
cfg.curState = nil
cfg.curState = nil
 
cfg.prefetchedRefs = nil
cfg.prefetchedRefs = nil
 
return cfg
return cfg
end
end


local State = {}
local State = {}
State.__index = State


function State.new(cfg)
function State:new(cfg, type)
local stt = {}
local stt = {}
setmetatable(stt, State)
setmetatable(stt, self)
self.__index = self
 
stt.conf = cfg
stt.conf = cfg
stt.type = type
 
stt.results = {}
stt.results = {}
 
stt.parsedFormat = {}
stt.parsedFormat = {}
stt.separator = {}
stt.separator = {}
stt.movSeparator = {}
stt.movSeparator = {}
stt.puncMark = {}
stt.puncMark = {}
 
stt.linked = false
stt.linked = false
stt.rawValue = false
stt.rawValue = false
193行目: 228行目:
stt.unitOnly = false
stt.unitOnly = false
stt.singleValue = false
stt.singleValue = false
 
return stt
return stt
end
end


function replaceAlias(id)
local function replaceAlias(id)
if p.aliasesP[id] then
if aliasesP[id] then
id = p.aliasesP[id]
id = aliasesP[id]
end
end
 
return id
return id
end
end


function errorText(code, param)
local function errorText(code, param)
local text = i18n["errors"][code]
local text = i18n["errors"][code]
if param then text = mw.ustring.gsub(text, "$1", param) end
if param then text = mw.ustring.gsub(text, "$1", param) end
211行目: 246行目:
end
end


function throwError(errorMessage, param)
local function throwError(errorMessage, param)
error(errorText(errorMessage, param))
error(errorText(errorMessage, param))
end
end


function replaceDecimalMark(num)
local function replaceDecimalMark(num)
return mw.ustring.gsub(num, "[.]", i18n['numeric']['decimal-mark'], 1)
return mw.ustring.gsub(num, "[.]", i18n['numeric']['decimal-mark'], 1)
end
end


function padZeros(num, numDigits)
local function padZeros(num, numDigits)
local numZeros
local numZeros
local negative = false
local negative = false
 
if num < 0 then
if num < 0 then
negative = true
negative = true
num = num * -1
num = num * -1
end
end
 
num = tostring(num)
num = tostring(num)
numZeros = numDigits - num:len()
numZeros = numDigits - num:len()
 
for i = 1, numZeros do
for _ = 1, numZeros do
num = "0"..num
num = "0"..num
end
end
 
if negative then
if negative then
num = "-"..num
num = "-"..num
end
end
 
return num
return num
end
end


function replaceSpecialChar(chr)
local function replaceSpecialChar(chr)
if chr == '_' then
if chr == '_' then
-- replace underscores with spaces
-- replace underscores with spaces
251行目: 286行目:
end
end


function replaceSpecialChars(str)
local function replaceSpecialChars(str)
local chr
local chr
local esc = false
local esc = false
local strOut = ""
local strOut = ""
 
for i = 1, #str do
for i = 1, #str do
chr = str:sub(i,i)
chr = str:sub(i,i)
 
if not esc then
if not esc then
if chr == '\\' then
if chr == '\\' then
270行目: 305行目:
end
end
end
end
 
return strOut
return strOut
end
end


function buildWikilink(target, label)
local function buildWikilink(target, label)
if not label or target == label then
if not label or target == label then
return "[[" .. target .. "]]"
return "[[" .. target .. "]]"
288行目: 323行目:
return nil
return nil
end
end
 
local tOut = {}
local tOut = {}
 
for i, v in pairs(tIn) do
for i, v in pairs(tIn) do
tOut[i] = v
tOut[i] = v
end
end
 
return tOut
return tOut
end
end
300行目: 335行目:
-- used to merge output arrays together;
-- used to merge output arrays together;
-- note that it currently mutates the first input array
-- note that it currently mutates the first input array
function mergeArrays(a1, a2)
local function mergeArrays(a1, a2)
for i = 1, #a2 do
for i = 1, #a2 do
a1[#a1 + 1] = a2[i]
a1[#a1 + 1] = a2[i]
end
end
 
return a1
return a1
end
end


function split(str, del)
local function split(str, del)
local out = {}
local out = {}
local i, j = str:find(del)
local i, j = str:find(del)
 
if i and j then
if i and j then
out[1] = str:sub(1, i - 1)
out[1] = str:sub(1, i - 1)
318行目: 353行目:
out[1] = str
out[1] = str
end
end
 
return out
return out
end
end


function parseWikidataURL(url)
local function parseWikidataURL(url)
local id
local id
 
if url:match('^http[s]?://') then
if url:match('^http[s]?://') then
id = split(url, "Q")
id = split(url, "Q")
 
if id[2] then
if id[2] then
return "Q" .. id[2]
return "Q" .. id[2]
end
end
end
end
 
return nil
return nil
end
end
338行目: 373行目:
function parseDate(dateStr, precision)
function parseDate(dateStr, precision)
precision = precision or "d"
precision = precision or "d"
 
local i, j, index, ptr
local i, j, index, ptr
local parts = {nil, nil, nil}
local parts = {nil, nil, nil}
 
if dateStr == nil then
if dateStr == nil then
return parts[1], parts[2], parts[3]  -- year, month, day
return parts[1], parts[2], parts[3]  -- year, month, day
end
end
 
-- 'T' for snak values, '/' for outputs with '/Julian' attached
-- 'T' for snak values, '/' for outputs with '/Julian' attached
i, j = dateStr:find("[T/]")
i, j = dateStr:find("[T/]")
 
if i then
if i then
dateStr = dateStr:sub(1, i-1)
dateStr = dateStr:sub(1, i-1)
end
end
 
local from = 1
local from = 1
 
if dateStr:sub(1,1) == "-" then
if dateStr:sub(1,1) == "-" then
-- this is a negative number, look further ahead
-- this is a negative number, look further ahead
from = 2
from = 2
end
end
 
index = 1
index = 1
ptr = 1
ptr = 1
 
i, j = dateStr:find("-", from)
i, j = dateStr:find("-", from)
 
if i then
if i then
-- year
-- year
parts[index] = tonumber(mw.ustring.gsub(dateStr:sub(ptr, i-1), "^\+(.+)$", "%1"), 10)  -- remove '+' sign (explicitly give base 10 to prevent error)
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] == -0 then
if parts[index] == -0 then
parts[index] = tonumber("0")  -- for some reason, 'parts[index] = 0' may actually store '-0', so parse from string instead
parts[index] = tonumber("0")  -- for some reason, 'parts[index] = 0' may actually store '-0', so parse from string instead
end
end
 
if precision == "y" then
if precision == "y" then
-- we're done
-- we're done
return parts[1], parts[2], parts[3]  -- year, month, day
return parts[1], parts[2], parts[3]  -- year, month, day
end
end
 
index = index + 1
index = index + 1
ptr = i + 1
ptr = i + 1
 
i, j = dateStr:find("-", ptr)
i, j = dateStr:find("-", ptr)
 
if i then
if i then
-- month
-- month
parts[index] = tonumber(dateStr:sub(ptr, i-1), 10)
parts[index] = tonumber(dateStr:sub(ptr, i-1), 10)
 
if precision == "m" then
if precision == "m" then
-- we're done
-- we're done
return parts[1], parts[2], parts[3]  -- year, month, day
return parts[1], parts[2], parts[3]  -- year, month, day
end
end
 
index = index + 1
index = index + 1
ptr = i + 1
ptr = i + 1
end
end
end
end
 
if dateStr:sub(ptr) ~= "" then
if dateStr:sub(ptr) ~= "" then
-- day if we have month, month if we have year, or year
-- day if we have month, month if we have year, or year
parts[index] = tonumber(dateStr:sub(ptr), 10)
parts[index] = tonumber(dateStr:sub(ptr), 10)
end
end
 
return parts[1], parts[2], parts[3]  -- year, month, day
return parts[1], parts[2], parts[3]  -- year, month, day
end
end


function datePrecedesDate(aY, aM, aD, bY, bM, bD)
local function datePrecedesDate(aY, aM, aD, bY, bM, bD)
if aY == nil or bY == nil then
if aY == nil or bY == nil then
return nil
return nil
413行目: 448行目:
bM = bM or 1
bM = bM or 1
bD = bD or 1
bD = bD or 1
 
if aY < bY then
if aY < bY then
return true
return true
end
end
 
if aY > bY then
if aY > bY then
return false
return false
end
end
 
if aM < bM then
if aM < bM then
return true
return true
end
end
 
if aM > bM then
if aM > bM then
return false
return false
end
end
 
if aD < bD then
if aD < bD then
return true
return true
end
end
 
return false
return false
end
end


function getHookName(param, index)
local function getHookName(param, index)
if hookNames[param] then
if hookNames[param] then
return hookNames[param][index]
return hookNames[param][index]
447行目: 482行目:
end
end


function alwaysTrue()
local function alwaysTrue()
return true
return true
end
end
496行目: 531行目:
-- ]
-- ]
--
--
function parseFormat(str)
local function parseFormat(str)
local chr, esc, param, root, cur, prev, new
local chr, esc, param, root, cur, prev, new
local params = {}
local params = {}
 
local function newObject(array)
local function newObject(array)
local obj = {}  -- new object
local obj = {}  -- new object
obj.str = ""
obj.str = ""
 
array[#array + 1] = obj  -- array{object}
array[#array + 1] = obj  -- array{object}
obj.parent = array
obj.parent = array
 
return obj
return obj
end
end
 
local function endParam()
local function endParam()
if param > 0 then
if param > 0 then
523行目: 558行目:
end
end
end
end
 
root = {}  -- array
root = {}  -- array
root.req = {}
root.req = {}
cur = newObject(root)
cur = newObject(root)
prev = nil
prev = nil
 
esc = false
esc = false
param = 0
param = 0
 
for i = 1, #str do
for i = 1, #str do
chr = str:sub(i,i)
chr = str:sub(i,i)
 
if not esc then
if not esc then
if chr == '\\' then
if chr == '\\' then
572行目: 607行目:
end
end
end
end
 
cur.str = cur.str .. replaceSpecialChar(chr)
cur.str = cur.str .. replaceSpecialChar(chr)
end
end
579行目: 614行目:
esc = false
esc = false
end
end
 
prev = nil
prev = nil
end
end
 
endParam()
endParam()
 
-- make sure that at least one required parameter has been defined
-- make sure that at least one required parameter has been defined
if not next(root.req) then
if not next(root.req) then
throwError("missing-required-parameter")
throwError("missing-required-parameter")
end
end
 
-- make sure that the separator parameter "%s" is not amongst the required parameters
-- make sure that the separator parameter "%s" is not amongst the required parameters
if root.req[parameters.separator] then
if root.req[parameters.separator] then
throwError("extra-required-parameter", parameters.separator)
throwError("extra-required-parameter", parameters.separator)
end
end
 
return root, params
return root, params
end
end


function sortOnRank(claims)
local function sortOnRank(claims)
local rankPos
local rankPos
local ranks = {{}, {}, {}, {}}  -- preferred, normal, deprecated, (default)
local ranks = {{}, {}, {}, {}}  -- preferred, normal, deprecated, (default)
local sorted = {}
local sorted = {}
 
for i, v in ipairs(claims) do
for _, v in ipairs(claims) do
rankPos = rankTable[v.rank] or 4
rankPos = rankTable[v.rank] or 4
ranks[rankPos][#ranks[rankPos] + 1] = v
ranks[rankPos][#ranks[rankPos] + 1] = v
end
end
 
sorted = ranks[1]
sorted = ranks[1]
sorted = mergeArrays(sorted, ranks[2])
sorted = mergeArrays(sorted, ranks[2])
sorted = mergeArrays(sorted, ranks[3])
sorted = mergeArrays(sorted, ranks[3])
 
return sorted
return sorted
end
end
620行目: 655行目:
local title = nil
local title = nil
local prefix= ""
local prefix= ""
local lang
 
if not id then
if not id then
id = mw.wikibase.getEntityIdForCurrentPage()
id = mw.wikibase.getEntityIdForCurrentPage()
 
if not id then
if not id then
return ""
return ""
end
end
end
end
 
id = id:upper()  -- just to be sure
id = id:upper()  -- just to be sure
 
if raw then
if raw then
-- check if given id actually exists
-- check if given id actually exists
if mw.wikibase.getEntity(id) then
if mw.wikibase.isValidEntityId(id) and mw.wikibase.entityExists(id) then
label = id
label = id
 
if id:sub(1,1) == "P" then
if id:sub(1,1) == "P" then
prefix = "Property:"
prefix = "Property:"
end
end
end
end
 
prefix = "d:" .. prefix
prefix = "d:" .. prefix
 
title = label  -- may be nil
title = label  -- may be nil
else
else
-- try short name first if requested
-- try short name first if requested
if short then
if short then
label = p._property({p.aliasesP.shortName, [p.args.eid] = id}) -- get short name
label = p._property{aliasesP.shortName, [p.args.eid] = id}  -- get short name
 
if label == "" then
if label == "" then
label = nil
label = nil
end
end
end
end
 
-- get label
-- get label
if not label then
if not label then
label, lang = mw.wikibase.getLabelWithLang(id)
label = mw.wikibase.getLabelByLang(id, self.langCode)
-- don't allow language fallback
if lang ~= self.langCode then
label = nil
end
end
end
end
end
 
if not label then
if not label then
label = ""
label = ""
672行目: 701行目:
if not title then
if not title then
if id:sub(1,1) == "Q" then
if id:sub(1,1) == "Q" then
title = mw.wikibase.sitelink(id)
title = mw.wikibase.getSitelink(id)
elseif id:sub(1,1) == "P" then
elseif id:sub(1,1) == "P" then
-- properties have no sitelink, link to Wikidata instead
-- properties have no sitelink, link to Wikidata instead
679行目: 708行目:
end
end
end
end
 
if title then
if title then
label = buildWikilink(prefix .. title, label)
label = buildWikilink(prefix .. title, label)
end
end
end
end
 
return label
return label
end
end
691行目: 720行目:
local value = ""
local value = ""
local prefix = ""
local prefix = ""
local front = " "
local front = "&nbsp;"
local back = ""
local back = ""
 
if self.entityID:sub(1,1) == "P" then
if self.entityID:sub(1,1) == "P" then
prefix = "Property:"
prefix = "Property:"
end
end
 
if self.editAtEnd then
if self.editAtEnd then
front = '<span style="float:'
front = '<span style="float:'
 
if self.langObj:isRTL() then
if self.langObj:isRTL() then
front = front .. 'left'
front = front .. 'left'
706行目: 735行目:
front = front .. 'right'
front = front .. 'right'
end
end
 
front = front .. '">'
front = front .. '">'
back = '</span>'
back = '</span>'
end
end
 
value = "[[File:Blue pencil.svg|frameless|text-top|10px|alt=" .. i18n['info']['edit-on-wikidata'] .. "|link=https://www.wikidata.org/wiki/" .. prefix .. self.entityID .. "?uselang=" .. self.langCode
value = "[[File:OOjs UI icon edit-ltr-progressive.svg|frameless|text-top|10px|alt=" .. i18n['info']['edit-on-wikidata'] .. "|link=https://www.wikidata.org/wiki/" .. prefix .. self.entityID .. "?uselang=" .. self.langCode
 
if self.propertyID then
if self.propertyID then
value = value .. "#" .. self.propertyID
value = value .. "#" .. self.propertyID
718行目: 747行目:
value = value .. "#sitelinks-wikipedia"
value = value .. "#sitelinks-wikipedia"
end
end
 
value = value .. "|" .. i18n['info']['edit-on-wikidata'] .. "]]"
value = value .. "|" .. i18n['info']['edit-on-wikidata'] .. "]]"
 
return front .. value .. back
return front .. value .. back
end
end
729行目: 758行目:
local outString = ""
local outString = ""
local j, skip
local j, skip
 
for i = 1, #valuesArray do
for i = 1, #valuesArray do
-- check if this is a reference
-- check if this is a reference
735行目: 764行目:
j = i - 1
j = i - 1
skip = false
skip = false
 
-- skip this reference if it is part of a continuous row of references that already contains the exact same reference
-- 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
while valuesArray[j] and valuesArray[j].refHash do
744行目: 773行目:
j = j - 1
j = j - 1
end
end
 
if not skip then
if not skip then
-- add <ref> tag with the reference's hash as its name (to deduplicate references)
-- add <ref> tag with the reference's hash as its name (to deduplicate references)
753行目: 782行目:
end
end
end
end
 
return outString
return outString
end
end
760行目: 789行目:
local space = " "
local space = " "
local label = ""
local label = ""
local itemID
 
if unit == "" or unit == "1" then
if unit == "" or unit == "1" then
return nil
return nil
end
end
 
if unitOnly then
if unitOnly then
space = ""
space = ""
end
end
 
itemID = parseWikidataURL(unit)
itemID = parseWikidataURL(unit)
 
if itemID then
if itemID then
if itemID == aliasesQ.percentage then
if itemID == aliasesQ.percentage then
776行目: 806行目:
else
else
label = self:getLabel(itemID, raw, link, short)
label = self:getLabel(itemID, raw, link, short)
 
if label ~= "" then
if label ~= "" then
return space .. label
return space .. label
782行目: 812行目:
end
end
end
end
 
return ""
return ""
end
end


function Config:getValue(snak, raw, link, short, anyLang, unitOnly, noSpecial)
function State:getValue(snak)
return self.conf:getValue(snak, self.rawValue, self.linked, self.shortName, self.anyLanguage, self.unitOnly, false, self.type:sub(1,2))
end
 
function Config:getValue(snak, raw, link, short, anyLang, unitOnly, noSpecial, type)
if snak.snaktype == 'value' then
if snak.snaktype == 'value' then
local datatype = snak.datavalue.type
local datatype = snak.datavalue.type
local subtype = snak.datatype
local subtype = snak.datatype
local datavalue = snak.datavalue.value
local datavalue = snak.datavalue.value
 
if datatype == 'string' then
if datatype == 'string' then
if subtype == 'url' and link then
if subtype == 'url' and link then
812行目: 846行目:
return buildWikilink("c:" .. datavalue, datavalue)
return buildWikilink("c:" .. datavalue, datavalue)
elseif subtype == 'math' and not raw then
elseif subtype == 'math' and not raw then
return mw.getCurrentFrame():extensionTag("math", datavalue)
local attribute = nil
 
if (type == parameters.property or (type == parameters.qualifier and self.propertyID == aliasesP.hasPart)) and snak.property == aliasesP.definingFormula then
attribute = {qid = self.entityID}
end
 
return mw.getCurrentFrame():extensionTag("math", datavalue, attribute)
elseif subtype == 'external-id' and link then
elseif subtype == 'external-id' and link then
local url = p._property({p.aliasesP.formatterURL, [p.args.eid] = snak.property}) -- get formatter URL
local url = p._property{aliasesP.formatterURL, [p.args.eid] = snak.property}  -- get formatter URL
 
if url ~= "" then
if url ~= "" then
url = mw.ustring.gsub(url, "$1", datavalue)
url = mw.ustring.gsub(url, "$1", datavalue)
826行目: 866行目:
end
end
elseif datatype == 'monolingualtext' then
elseif datatype == 'monolingualtext' then
if anyLang then
if anyLang or datavalue['language'] == self.langCode then
return datavalue['text'], datavalue['language']
elseif datavalue['language'] == self.langCode then
return datavalue['text']
return datavalue['text']
else
else
836行目: 874行目:
local value = ""
local value = ""
local unit
local unit
 
if not unitOnly then
if not unitOnly then
-- get value and strip + signs from front
-- get value and strip + signs from front
value = mw.ustring.gsub(datavalue['amount'], "^\+(.+)$", "%1")
value = mw.ustring.gsub(datavalue['amount'], "^\+(.+)$", "%1")
 
if raw then
if raw then
return value
return value
end
end
 
-- replace decimal mark based on locale
-- replace decimal mark based on locale
value = replaceDecimalMark(value)
value = replaceDecimalMark(value)
 
-- add delimiters for readability
-- add delimiters for readability
value = i18n.addDelimiters(value)
value = i18n.addDelimiters(value)
end
end
 
unit = self:convertUnit(datavalue['unit'], raw, link, short, unitOnly)
unit = self:convertUnit(datavalue['unit'], raw, link, short, unitOnly)
 
if unit then
if unit then
value = value .. unit
value = value .. unit
end
end
 
return value
return value
elseif datatype == 'time' then
elseif datatype == 'time' then
868行目: 906行目:
local calendar = ""
local calendar = ""
local precision = datavalue['precision']
local precision = datavalue['precision']
 
if precision == 11 then
if precision == 11 then
p = "d"
p = "d"
877行目: 915行目:
yFactor = 10^(9-precision)
yFactor = 10^(9-precision)
end
end
 
y, m, d = parseDate(datavalue['time'], p)
y, m, d = parseDate(datavalue['time'], p)
 
if y < 0 then
if y < 0 then
sign = -1
sign = -1
y = y * sign
y = y * sign
end
end
 
-- if precision is tens/hundreds/thousands/millions/billions of years
-- if precision is tens/hundreds/thousands/millions/billions of years
if precision <= 8 then
if precision <= 8 then
yDiv = y / yFactor
yDiv = y / yFactor
 
-- if precision is tens/hundreds/thousands of years
-- if precision is tens/hundreds/thousands of years
if precision >= 6 then
if precision >= 6 then
mayAddCalendar = true
mayAddCalendar = true
 
if precision <= 7 then
if precision <= 7 then
-- round centuries/millenniums up (e.g. 20th century or 3rd millennium)
-- round centuries/millenniums up (e.g. 20th century or 3rd millennium)
yRound = math.ceil(yDiv)
yRound = math.ceil(yDiv)
 
if not raw then
if not raw then
if precision == 6 then
if precision == 6 then
903行目: 941行目:
suffix = i18n['datetime']['suffixes']['century']
suffix = i18n['datetime']['suffixes']['century']
end
end
 
suffix = i18n.getOrdinalSuffix(yRound) .. suffix
suffix = i18n.getOrdinalSuffix(yRound) .. suffix
else
else
914行目: 952行目:
-- round decades down (e.g. 2010s)
-- round decades down (e.g. 2010s)
yRound = math.floor(yDiv) * yFactor
yRound = math.floor(yDiv) * yFactor
 
if not raw then
if not raw then
prefix = i18n['datetime']['prefixes']['decade-period']
prefix = i18n['datetime']['prefixes']['decade-period']
920行目: 958行目:
end
end
end
end
 
if raw and sign < 0 then
if raw and sign < 0 then
-- if BCE then compensate for "counting backwards"
-- if BCE then compensate for "counting backwards"
928行目: 966行目:
else
else
local yReFactor, yReDiv, yReRound
local yReFactor, yReDiv, yReRound
 
-- round to nearest for tens of thousands of years or more
-- round to nearest for tens of thousands of years or more
yRound = math.floor(yDiv + 0.5)
yRound = math.floor(yDiv + 0.5)
 
if yRound == 0 then
if yRound == 0 then
if precision <= 2 and y ~= 0 then
if precision <= 2 and y ~= 0 then
937行目: 975行目:
yReDiv = y / yReFactor
yReDiv = y / yReFactor
yReRound = math.floor(yReDiv + 0.5)
yReRound = math.floor(yReDiv + 0.5)
 
if yReDiv == yReRound then
if yReDiv == yReRound then
-- change precision to millions of years only if we have a whole number of them
-- change precision to millions of years only if we have a whole number of them
945行目: 983行目:
end
end
end
end
 
if yRound == 0 then
if yRound == 0 then
-- otherwise, take the unrounded (original) number of years
-- otherwise, take the unrounded (original) number of years
954行目: 992行目:
end
end
end
end
 
if precision >= 1 and y ~= 0 then
if precision >= 1 and y ~= 0 then
yFull = yRound * yFactor
yFull = yRound * yFactor
 
yReFactor = 1e9
yReFactor = 1e9
yReDiv = yFull / yReFactor
yReDiv = yFull / yReFactor
yReRound = math.floor(yReDiv + 0.5)
yReRound = math.floor(yReDiv + 0.5)
 
if yReDiv == yReRound then
if yReDiv == yReRound then
-- change precision to billions of years if we're in that range
-- change precision to billions of years if we're in that range
971行目: 1,009行目:
yReDiv = yFull / yReFactor
yReDiv = yFull / yReFactor
yReRound = math.floor(yReDiv + 0.5)
yReRound = math.floor(yReDiv + 0.5)
 
if yReDiv == yReRound then
if yReDiv == yReRound then
-- change precision to millions of years if we're in that range
-- change precision to millions of years if we're in that range
980行目: 1,018行目:
end
end
end
end
 
if not raw then
if not raw then
if precision == 3 then
if precision == 3 then
1,002行目: 1,040行目:
mayAddCalendar = true
mayAddCalendar = true
end
end
 
if mayAddCalendar then
if mayAddCalendar then
calendarID = parseWikidataURL(datavalue['calendarmodel'])
calendarID = parseWikidataURL(datavalue['calendarmodel'])
 
if calendarID and calendarID == aliasesQ.prolepticJulianCalendar then
if calendarID and calendarID == aliasesQ.prolepticJulianCalendar then
if not raw then
if not raw then
1,018行目: 1,056行目:
end
end
end
end
 
if not raw then
if not raw then
local ce = nil
local ce = nil
 
if sign < 0 then
if sign < 0 then
ce = i18n['datetime']['BCE']
ce = i18n['datetime']['BCE']
1,027行目: 1,065行目:
ce = i18n['datetime']['CE']
ce = i18n['datetime']['CE']
end
end
 
if ce then
if ce then
if link then
if link then
1,034行目: 1,072行目:
suffix = suffix .. " " .. ce
suffix = suffix .. " " .. ce
end
end
 
value = tostring(yRound)
value = tostring(yRound)
 
if m then
if m then
dateStr = self.langObj:formatDate("F", "1-"..m.."-1")
dateStr = self.langObj:formatDate("F", "1-"..m.."-1")
 
if d then
if d then
if self.mdyDate then
if self.mdyDate then
1,047行目: 1,085行目:
end
end
end
end
 
value = dateStr .. " " .. value
value = dateStr .. " " .. value
end
end
 
value = prefix .. value .. suffix .. calendar
value = prefix .. value .. suffix .. calendar
else
else
value = padZeros(yRound * sign, 4)
value = padZeros(yRound * sign, 4)
 
if m then
if m then
value = value .. "-" .. padZeros(m, 2)
value = value .. "-" .. padZeros(m, 2)
 
if d then
if d then
value = value .. "-" .. padZeros(d, 2)
value = value .. "-" .. padZeros(d, 2)
end
end
end
end
 
value = value .. calendar
value = value .. calendar
end
end
 
return value
return value
elseif datatype == 'globecoordinate' then
elseif datatype == 'globecoordinate' then
-- logic from https://github.com/DataValues/Geo (v4.0.1)
-- logic from https://github.com/DataValues/Geo (v4.0.1)
 
local precision, unitsPerDegree, numDigits, strFormat, value, globe
local precision, unitsPerDegree, numDigits, strFormat, value, globe
local latitude, latConv, latValue, latLink
local latitude, latConv, latValue, latLink
1,075行目: 1,113行目:
local latDirection, latDirectionN, latDirectionS, latDirectionEN
local latDirection, latDirectionN, latDirectionS, latDirectionEN
local lonDirection, lonDirectionE, lonDirectionW, lonDirectionEN
local lonDirection, lonDirectionE, lonDirectionW, lonDirectionEN
local degSymbol, minSymbol, secSymbol, separator
 
local latDegrees = nil
local latDegrees = nil
local latMinutes = nil
local latMinutes = nil
1,082行目: 1,121行目:
local lonMinutes = nil
local lonMinutes = nil
local lonSeconds = nil
local lonSeconds = nil
 
local latDegSym = ""
local latDegSym = ""
local latMinSym = ""
local latMinSym = ""
1,089行目: 1,128行目:
local lonMinSym = ""
local lonMinSym = ""
local lonSecSym = ""
local lonSecSym = ""
 
local latDirectionEN_N = "N"
local latDirectionEN_N = "N"
local latDirectionEN_S = "S"
local latDirectionEN_S = "S"
local lonDirectionEN_E = "E"
local lonDirectionEN_E = "E"
local lonDirectionEN_W = "W"
local lonDirectionEN_W = "W"
 
if not raw then
if not raw then
latDirectionN = i18n['coord']['latitude-north']
latDirectionN = i18n['coord']['latitude-north']
1,100行目: 1,139行目:
lonDirectionE = i18n['coord']['longitude-east']
lonDirectionE = i18n['coord']['longitude-east']
lonDirectionW = i18n['coord']['longitude-west']
lonDirectionW = i18n['coord']['longitude-west']
 
degSymbol = i18n['coord']['degrees']
degSymbol = i18n['coord']['degrees']
minSymbol = i18n['coord']['minutes']
minSymbol = i18n['coord']['minutes']
1,110行目: 1,149行目:
lonDirectionE = lonDirectionEN_E
lonDirectionE = lonDirectionEN_E
lonDirectionW = lonDirectionEN_W
lonDirectionW = lonDirectionEN_W
 
degSymbol = "/"
degSymbol = "/"
minSymbol = "/"
minSymbol = "/"
1,116行目: 1,155行目:
separator = "/"
separator = "/"
end
end
 
latitude = datavalue['latitude']
latitude = datavalue['latitude']
longitude = datavalue['longitude']
longitude = datavalue['longitude']
 
if latitude < 0 then
if latitude < 0 then
latDirection = latDirectionS
latDirection = latDirectionS
1,128行目: 1,167行目:
latDirectionEN = latDirectionEN_N
latDirectionEN = latDirectionEN_N
end
end
 
if longitude < 0 then
if longitude < 0 then
lonDirection = lonDirectionW
lonDirection = lonDirectionW
1,137行目: 1,176行目:
lonDirectionEN = lonDirectionEN_E
lonDirectionEN = lonDirectionEN_E
end
end
 
precision = datavalue['precision']
precision = datavalue['precision']
 
if not precision or precision <= 0 then
if not precision or precision <= 0 then
precision = 1 / 3600  -- precision not set (correctly), set to arcsecond
precision = 1 / 3600  -- precision not set (correctly), set to arcsecond
end
end
 
-- remove insignificant detail
-- remove insignificant detail
latitude = math.floor(latitude / precision + 0.5) * precision
latitude = math.floor(latitude / precision + 0.5) * precision
longitude = math.floor(longitude / precision + 0.5) * precision
longitude = math.floor(longitude / precision + 0.5) * precision
 
if precision >= 1 - (1 / 60) and precision < 1 then
if precision >= 1 - (1 / 60) and precision < 1 then
precision = 1
precision = 1
1,153行目: 1,192行目:
precision = 1 / 60
precision = 1 / 60
end
end
 
if precision >= 1 then
if precision >= 1 then
unitsPerDegree = 1
unitsPerDegree = 1
1,161行目: 1,200行目:
unitsPerDegree = 3600
unitsPerDegree = 3600
end
end
 
numDigits = math.ceil(-math.log10(unitsPerDegree * precision))
numDigits = math.ceil(-math.log10(unitsPerDegree * precision))
 
if numDigits <= 0 then
if numDigits <= 0 then
numDigits = tonumber("0")  -- for some reason, 'numDigits = 0' may actually store '-0', so parse from string instead
numDigits = tonumber("0")  -- for some reason, 'numDigits = 0' may actually store '-0', so parse from string instead
end
end
 
strFormat = "%." .. numDigits .. "f"
strFormat = "%." .. numDigits .. "f"
 
if precision >= 1 then
if precision >= 1 then
latDegrees = strFormat:format(latitude)
latDegrees = strFormat:format(latitude)
lonDegrees = strFormat:format(longitude)
lonDegrees = strFormat:format(longitude)
 
if not raw then
if not raw then
latDegSym = replaceDecimalMark(latDegrees) .. degSymbol
latDegSym = replaceDecimalMark(latDegrees) .. degSymbol
1,184行目: 1,223行目:
latConv = math.floor(latitude * unitsPerDegree * 10^numDigits + 0.5) / 10^numDigits
latConv = math.floor(latitude * unitsPerDegree * 10^numDigits + 0.5) / 10^numDigits
lonConv = math.floor(longitude * unitsPerDegree * 10^numDigits + 0.5) / 10^numDigits
lonConv = math.floor(longitude * unitsPerDegree * 10^numDigits + 0.5) / 10^numDigits
 
if precision >= (1 / 60) then
if precision >= (1 / 60) then
latMinutes = latConv
latMinutes = latConv
1,191行目: 1,230行目:
latSeconds = latConv
latSeconds = latConv
lonSeconds = lonConv
lonSeconds = lonConv
 
latMinutes = math.floor(latSeconds / 60)
latMinutes = math.floor(latSeconds / 60)
lonMinutes = math.floor(lonSeconds / 60)
lonMinutes = math.floor(lonSeconds / 60)
 
latSeconds = strFormat:format(latSeconds - (latMinutes * 60))
latSeconds = strFormat:format(latSeconds - (latMinutes * 60))
lonSeconds = strFormat:format(lonSeconds - (lonMinutes * 60))
lonSeconds = strFormat:format(lonSeconds - (lonMinutes * 60))
 
if not raw then
if not raw then
latSecSym = replaceDecimalMark(latSeconds) .. secSymbol
latSecSym = replaceDecimalMark(latSeconds) .. secSymbol
1,206行目: 1,245行目:
end
end
end
end
 
latDegrees = math.floor(latMinutes / 60)
latDegrees = math.floor(latMinutes / 60)
lonDegrees = math.floor(lonMinutes / 60)
lonDegrees = math.floor(lonMinutes / 60)
 
latDegSym = latDegrees .. degSymbol
latDegSym = latDegrees .. degSymbol
lonDegSym = lonDegrees .. degSymbol
lonDegSym = lonDegrees .. degSymbol
 
latMinutes = latMinutes - (latDegrees * 60)
latMinutes = latMinutes - (latDegrees * 60)
lonMinutes = lonMinutes - (lonDegrees * 60)
lonMinutes = lonMinutes - (lonDegrees * 60)
 
if precision >= (1 / 60) then
if precision >= (1 / 60) then
latMinutes = strFormat:format(latMinutes)
latMinutes = strFormat:format(latMinutes)
lonMinutes = strFormat:format(lonMinutes)
lonMinutes = strFormat:format(lonMinutes)
 
if not raw then
if not raw then
latMinSym = replaceDecimalMark(latMinutes) .. minSymbol
latMinSym = replaceDecimalMark(latMinutes) .. minSymbol
1,232行目: 1,271行目:
end
end
end
end
 
latValue = latDegSym .. latMinSym .. latSecSym .. latDirection
latValue = latDegSym .. latMinSym .. latSecSym .. latDirection
lonValue = lonDegSym .. lonMinSym .. lonSecSym .. lonDirection
lonValue = lonDegSym .. lonMinSym .. lonSecSym .. lonDirection
 
value = latValue .. separator .. lonValue
value = latValue .. separator .. lonValue
 
if link then
if link then
globe = parseWikidataURL(datavalue['globe'])
globe = parseWikidataURL(datavalue['globe'])
 
if globe then
if globe then
globe = mw.wikibase.getEntity(globe):getLabel("en"):lower()
globe = mw.wikibase.getLabelByLang(globe, "en"):lower()
else
else
globe = "earth"
globe = "earth"
end
end
 
latLink = table.concat({latDegrees, latMinutes, latSeconds}, "_")
latLink = table.concat({latDegrees, latMinutes, latSeconds}, "_")
lonLink = table.concat({lonDegrees, lonMinutes, lonSeconds}, "_")
lonLink = table.concat({lonDegrees, lonMinutes, lonSeconds}, "_")
 
value = "[https://tools.wmflabs.org/geohack/geohack.php?language="..self.langCode.."&params="..latLink.."_"..latDirectionEN.."_"..lonLink.."_"..lonDirectionEN.."_globe:"..globe.." "..value.."]"
value = "[https://tools.wmflabs.org/geohack/geohack.php?language="..self.langCode.."&params="..latLink.."_"..latDirectionEN.."_"..lonLink.."_"..lonDirectionEN.."_globe:"..globe.." "..value.."]"
end
end
 
return value
return value
elseif datatype == 'wikibase-entityid' then
elseif datatype == 'wikibase-entityid' then
local label
local label
local itemID = datavalue['numeric-id']
local itemID = datavalue['numeric-id']
 
if subtype == 'wikibase-item' then
if subtype == 'wikibase-item' then
itemID = "Q" .. itemID
itemID = "Q" .. itemID
1,265行目: 1,304行目:
return '<strong class="error">' .. errorText('unknown-data-type', subtype) .. '</strong>'
return '<strong class="error">' .. errorText('unknown-data-type', subtype) .. '</strong>'
end
end
 
label = self:getLabel(itemID, raw, link, short)
label = self:getLabel(itemID, raw, link, short)
 
if label == "" then
if label == "" then
label = nil
label = nil
end
end
 
return label
return label
else
else
1,295行目: 1,334行目:
function Config:getSingleRawQualifier(claim, qualifierID)
function Config:getSingleRawQualifier(claim, qualifierID)
local qualifiers
local qualifiers
 
if claim.qualifiers then qualifiers = claim.qualifiers[qualifierID] end
if claim.qualifiers then qualifiers = claim.qualifiers[qualifierID] end
 
if qualifiers and qualifiers[1] then
if qualifiers and qualifiers[1] then
return self:getValue(qualifiers[1], true)  -- raw = true
return self:getValue(qualifiers[1], true)  -- raw = true
1,307行目: 1,346行目:
function Config:snakEqualsValue(snak, value)
function Config:snakEqualsValue(snak, value)
local snakValue = self:getValue(snak, true)  -- raw = true
local snakValue = self:getValue(snak, true)  -- raw = true
 
if snakValue and snak.snaktype == 'value' and snak.datavalue.type == 'wikibase-entityid' then value = value:upper() end
if snakValue and snak.snaktype == 'value' and snak.datavalue.type == 'wikibase-entityid' then value = value:upper() end
 
return snakValue == value
return snakValue == value
end
end
1,315行目: 1,354行目:
function Config:setRank(rank)
function Config:setRank(rank)
local rankPos
local rankPos
 
if rank == p.flags.best then
if rank == p.flags.best then
self.bestRank = true
self.bestRank = true
1,321行目: 1,360行目:
return
return
end
end
 
if rank:sub(1,9) == p.flags.preferred then
if rank:sub(1,9) == p.flags.preferred then
rankPos = 1
rankPos = 1
1,331行目: 1,370行目:
return
return
end
end
 
-- one of the rank flags was given, check if another one was given before
-- one of the rank flags was given, check if another one was given before
if not self.flagRank then
if not self.flagRank then
1,338行目: 1,377行目:
self.flagRank = true                -- mark that a rank flag was given
self.flagRank = true                -- mark that a rank flag was given
end
end
 
if rank:sub(-1) == "+" then
if rank:sub(-1) == "+" then
for i = rankPos, 1, -1 do
for i = rankPos, 1, -1 do
1,354行目: 1,393行目:
function Config:setPeriod(period)
function Config:setPeriod(period)
local periodPos
local periodPos
 
if period == p.flags.future then
if period == p.flags.future then
periodPos = 1
periodPos = 1
1,364行目: 1,403行目:
return
return
end
end
 
-- one of the period flags was given, check if another one was given before
-- one of the period flags was given, check if another one was given before
if not self.flagPeriod then
if not self.flagPeriod then
1,370行目: 1,409行目:
self.flagPeriod = true                -- mark that a period flag was given
self.flagPeriod = true                -- mark that a period flag was given
end
end
 
self.periods[periodPos] = true
self.periods[periodPos] = true
end
end
1,376行目: 1,415行目:
function Config:qualifierMatches(claim, id, value)
function Config:qualifierMatches(claim, id, value)
local qualifiers
local qualifiers
 
if claim.qualifiers then qualifiers = claim.qualifiers[id] end
if claim.qualifiers then qualifiers = claim.qualifiers[id] end
if qualifiers then
if qualifiers then
for i, v in pairs(qualifiers) do
for _, v in pairs(qualifiers) do
if self:snakEqualsValue(v, value) then
if self:snakEqualsValue(v, value) then
return true
return true
1,388行目: 1,427行目:
return true
return true
end
end
 
return false
return false
end
end
1,409行目: 1,448行目:
local endTimeM = nil
local endTimeM = nil
local endTimeD = nil
local endTimeD = nil
 
if self.periods[1] and self.periods[2] and self.periods[3] then
if self.periods[1] and self.periods[2] and self.periods[3] then
-- any time
-- any time
return true
return true
end
end
 
local now = os.date('!*t')
startTime = self:getSingleRawQualifier(claim, aliasesP.startTime)
startTime = self:getSingleRawQualifier(claim, p.aliasesP.startTime)
if startTime and startTime ~= "" and startTime ~= " " then
if startTime and startTime ~= "" and startTime ~= " " then
startTimeY, startTimeM, startTimeD = parseDate(startTime)
startTimeY, startTimeM, startTimeD = parseDate(startTime)
end
end
 
endTime = self:getSingleRawQualifier(claim, p.aliasesP.endTime)
endTime = self:getSingleRawQualifier(claim, aliasesP.endTime)
if endTime and endTime ~= "" and endTime ~= " " then
if endTime and endTime ~= "" and endTime ~= " " then
endTimeY, endTimeM, endTimeD = parseDate(endTime)
endTimeY, endTimeM, endTimeD = parseDate(endTime)
elseif endTime == " " then
-- end time is 'unknown', assume it is somewhere in the past;
-- we can do this by taking the current date as a placeholder for the end time
endTimeY = now['year']
endTimeM = now['month']
endTimeD = now['day']
end
end
 
if startTimeY ~= nil and endTimeY ~= nil and datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
if startTimeY ~= nil and endTimeY ~= nil and datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
-- invalidate end time if it precedes start time
-- invalidate end time if it precedes start time
1,439行目: 1,470行目:
endTimeD = nil
endTimeD = nil
end
end
 
if self.periods[1] then
if self.periods[1] then
-- future
-- future
if startTimeY and datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD) then
if startTimeY and datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], startTimeY, startTimeM, startTimeD) then
return true
return true
end
end
end
end
 
if self.periods[2] then
if self.periods[2] then
-- current
-- current
if (startTimeY == nil or not datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD)) and
if (startTimeY == nil or not datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], startTimeY, startTimeM, startTimeD)) and
  (endTimeY == nil or datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD)) then
  (endTimeY == nil or datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], endTimeY, endTimeM, endTimeD)) then
return true
return true
end
end
end
end
 
if self.periods[3] then
if self.periods[3] then
-- former
-- former
if endTimeY and not datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD) then
if endTimeY and not datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], endTimeY, endTimeM, endTimeD) then
return true
return true
end
end
end
end
 
return false
return false
end
end
1,468行目: 1,499行目:
if not flag then
if not flag then
return false
return false
else
flag = mw.text.trim(flag)
end
end
 
if flag == p.flags.linked then
if flag == p.flags.linked then
self.curState.linked = true
self.curState.linked = true
1,477行目: 1,506行目:
elseif flag == p.flags.raw then
elseif flag == p.flags.raw then
self.curState.rawValue = true
self.curState.rawValue = true
 
if self.curState == self.states[parameters.reference] then
if self.curState == self.states[parameters.reference] then
-- raw reference values end with periods and require a separator (other than none)
-- raw reference values end with periods and require a separator (other than none)
self.separators["sep%r"][1] = {" "}
self.separators["sep%r"][1] = {" "}
end
end
 
return true
return true
elseif flag == p.flags.short then
elseif flag == p.flags.short then
1,525行目: 1,554行目:
function Config:processFlagOrCommand(flag)
function Config:processFlagOrCommand(flag)
local param = ""
local param = ""
 
if not flag then
if not flag then
return false
return false
else
flag = mw.text.trim(flag)
end
end
 
if flag == p.claimCommands.property or flag == p.claimCommands.properties then
if flag == p.claimCommands.property or flag == p.claimCommands.properties then
param = parameters.property
param = parameters.property
1,543行目: 1,570行目:
return self:processFlag(flag)
return self:processFlag(flag)
end
end
 
if self.states[param] then
if self.states[param] then
return false
return false
end
end
 
-- create a new state for each command
-- create a new state for each command
self.states[param] = State.new(self)
self.states[param] = State:new(self, param)
 
-- use "%x" as the general parameter name
-- use "%x" as the general parameter name
self.states[param].parsedFormat = parseFormat(parameters.general)  -- will be overwritten for param=="%p"
self.states[param].parsedFormat = parseFormat(parameters.general)  -- will be overwritten for param=="%p"
 
-- set the separator
-- set the separator
self.states[param].separator = self.separators["sep"..param]  -- will be nil for param=="%p", which will be set separately
self.states[param].separator = self.separators["sep"..param]  -- will be nil for param=="%p", which will be set separately
 
if flag:sub(-1) ~= 's' then
if flag == p.claimCommands.property or flag == p.claimCommands.qualifier or flag == p.claimCommands.reference then
self.states[param].singleValue = true
self.states[param].singleValue = true
end
end
 
self.curState = self.states[param]
self.curState = self.states[param]
 
return true
return true
end
end
1,568行目: 1,595行目:
function Config:processSeparators(args)
function Config:processSeparators(args)
local sep
local sep
 
for i, v in pairs(self.separators) do
for i, v in pairs(self.separators) do
if args[i] then
if args[i] then
sep = replaceSpecialChars(args[i])
sep = replaceSpecialChars(args[i])
 
if sep ~= "" then
if sep ~= "" then
self.separators[i][1] = {sep}
self.separators[i][1] = {sep}
1,604行目: 1,631行目:
function State:claimMatches(claim)
function State:claimMatches(claim)
local matches, rankPos
local matches, rankPos
 
-- first of all, reset any cached values used for the previous claim
-- first of all, reset any cached values used for the previous claim
self:resetCaches()
self:resetCaches()
 
-- if a property value was given, check if it matches the claim's property value
-- if a property value was given, check if it matches the claim's property value
if self.conf.propertyValue then
if self.conf.propertyValue then
1,614行目: 1,641行目:
matches = true
matches = true
end
end
 
-- if any qualifier values were given, check if each matches one of the claim's qualifier values
-- 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
for i, v in pairs(self.conf.qualifierIDsAndValues) do
matches = (matches and self.conf:qualifierMatches(claim, i, v))
matches = (matches and self.conf:qualifierMatches(claim, i, v))
end
end
 
-- check if the claim's rank and time period match
-- check if the claim's rank and time period match
rankPos = rankTable[claim.rank] or 4
rankPos = rankTable[claim.rank] or 4
matches = (matches and self.conf:rankMatches(rankPos) and self.conf:timeMatches(claim))
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 only claims with references must be returned, check if this one has any
if self.conf.sourcedOnly then
if self.conf.sourcedOnly then
matches = (matches and self:isSourced(claim))  -- prefetches and caches references
matches = (matches and self:isSourced(claim))  -- prefetches and caches references
end
end
 
return matches, rankPos
return matches, rankPos
end
end
1,637行目: 1,664行目:
local sep = nil  -- value object
local sep = nil  -- value object
local out = {}  -- array with value objects
local out = {}  -- array with value objects
 
local function walk(formatTable, result)
local function walk(formatTable, result)
local valuesArray = {}  -- array with value objects
local valuesArray = {}  -- array with value objects
 
for i, v in pairs(formatTable.req) do
for i, v in pairs(formatTable.req) do
if not result[i] or not result[i][1] then
if not result[i] or not result[i][1] then
1,648行目: 1,675行目:
end
end
end
end
 
for i, v in ipairs(formatTable) do
for _, v in ipairs(formatTable) do
if v.param then
if v.param then
valuesArray = mergeArrays(valuesArray, result[v.str])
valuesArray = mergeArrays(valuesArray, result[v.str])
1,655行目: 1,682行目:
valuesArray[#valuesArray + 1] = {v.str}
valuesArray[#valuesArray + 1] = {v.str}
end
end
 
if v.child then
if v.child then
valuesArray = mergeArrays(valuesArray, walk(v.child, result))
valuesArray = mergeArrays(valuesArray, walk(v.child, result))
end
end
end
end
 
return valuesArray
return valuesArray
end
end
 
-- iterate through the results from back to front, so that we know when to add separators
-- iterate through the results from back to front, so that we know when to add separators
for i = #self.results, 1, -1 do
for i = #self.results, 1, -1 do
result = self.results[i]
result = self.results[i]
 
-- if there is already some output, then add the separators
-- if there is already some output, then add the separators
if #out > 0 then
if #out > 0 then
1,676行目: 1,703行目:
result[parameters.separator] = {self.puncMark[1]}  -- optional punctuation mark
result[parameters.separator] = {self.puncMark[1]}  -- optional punctuation mark
end
end
 
valuesArray = walk(self.parsedFormat, result)
valuesArray = walk(self.parsedFormat, result)
 
if #valuesArray > 0 then
if #valuesArray > 0 then
if sep then
if sep then
valuesArray[#valuesArray + 1] = sep
valuesArray[#valuesArray + 1] = sep
end
end
 
out = mergeArrays(valuesArray, out)
out = mergeArrays(valuesArray, out)
end
end
end
end
 
-- reset state before next iteration
-- reset state before next iteration
self.results = {}
self.results = {}
 
return out
return out
end
end
1,696行目: 1,723行目:
-- level 1 hook
-- level 1 hook
function State:getProperty(claim)
function State:getProperty(claim)
local value = {self.conf:getValue(claim.mainsnak, self.rawValue, self.linked, self.shortName, self.anyLanguage, self.unitOnly)}  -- create one value object
local value = {self:getValue(claim.mainsnak)}  -- create one value object
 
if #value > 0 then
if #value > 0 then
return {value}  -- wrap the value object in an array and return it
return {value}  -- wrap the value object in an array and return it
1,708行目: 1,735行目:
function State:getQualifiers(claim, param)
function State:getQualifiers(claim, param)
local qualifiers
local qualifiers
 
if claim.qualifiers then qualifiers = claim.qualifiers[self.conf.qualifierIDs[param]] end
if claim.qualifiers then qualifiers = claim.qualifiers[self.conf.qualifierIDs[param]] end
if qualifiers then
if qualifiers then
1,721行目: 1,748行目:
-- level 2 hook
-- level 2 hook
function State:getQualifier(snak)
function State:getQualifier(snak)
local value = {self.conf:getValue(snak, self.rawValue, self.linked, self.shortName, self.anyLanguage, self.unitOnly)}  -- create one value object
local value = {self:getValue(snak)}  -- create one value object
 
if #value > 0 then
if #value > 0 then
return {value}  -- wrap the value object in an array and return it
return {value}  -- wrap the value object in an array and return it
1,734行目: 1,761行目:
local out = {}  -- array with value objects
local out = {}  -- array with value objects
local sep = self.conf.separators["sep"..parameters.qualifier][1]  -- value object
local sep = self.conf.separators["sep"..parameters.qualifier][1]  -- value object
 
-- iterate through the output of the separate "qualifier(s)" commands
-- iterate through the output of the separate "qualifier(s)" commands
for i = 1, self.conf.states.qualifiersCount do
for i = 1, self.conf.states.qualifiersCount do
 
-- if a hook has not been called yet, call it now
-- if a hook has not been called yet, call it now
if not result[parameters.qualifier..i] then
if not result[parameters.qualifier..i] then
self:callHook(parameters.qualifier..i, hooks, claim, result)
self:callHook(parameters.qualifier..i, hooks, claim, result)
end
end
 
-- if there is output for this particular "qualifier(s)" command, then add it
-- 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 result[parameters.qualifier..i] and result[parameters.qualifier..i][1] then
 
-- if there is already some output, then add the separator
-- if there is already some output, then add the separator
if #out > 0 and sep then
if #out > 0 and sep then
out[#out + 1] = sep
out[#out + 1] = sep
end
end
 
out = mergeArrays(out, result[parameters.qualifier..i])
out = mergeArrays(out, result[parameters.qualifier..i])
end
end
end
end
 
return out
return out
end
end
1,764行目: 1,791行目:
return self.conf.prefetchedRefs
return self.conf.prefetchedRefs
end
end
 
if claim.references then
if claim.references then
-- iterate through claim's reference statements to collect their values;
-- iterate through claim's reference statements to collect their values;
1,784行目: 1,811行目:
local value = ""
local value = ""
local ref = {}
local ref = {}
 
local version = 1  -- increase this each time the below logic is changed to avoid conflict errors
local version = 1  -- increment this each time the below logic is changed to avoid conflict errors
 
if statement.snaks then
if statement.snaks then
-- don't include "imported from", which is added by a bot
-- don't include "imported from", which is added by a bot
if statement.snaks[p.aliasesP.importedFrom] then
if statement.snaks[aliasesP.importedFrom] then
statement.snaks[p.aliasesP.importedFrom] = nil
statement.snaks[aliasesP.importedFrom] = nil
end
end
 
-- don't include "inferred from", which is added by a bot
-- don't include "inferred from", which is added by a bot
if statement.snaks[p.aliasesP.inferredFrom] then
if statement.snaks[aliasesP.inferredFrom] then
statement.snaks[p.aliasesP.inferredFrom] = nil
statement.snaks[aliasesP.inferredFrom] = nil
end
end
 
-- don't include "type of reference"
-- don't include "type of reference"
if statement.snaks[p.aliasesP.typeOfReference] then
if statement.snaks[aliasesP.typeOfReference] then
statement.snaks[p.aliasesP.typeOfReference] = nil
statement.snaks[aliasesP.typeOfReference] = nil
end
end
 
-- don't include "image" to prevent littering
-- don't include "image" to prevent littering
if statement.snaks[p.aliasesP.image] then
if statement.snaks[aliasesP.image] then
statement.snaks[p.aliasesP.image] = nil
statement.snaks[aliasesP.image] = nil
end
end
 
-- don't include "language" if it is equal to the local one
-- don't include "language" if it is equal to the local one
if self:getReferenceDetail(statement.snaks, p.aliasesP.language) == self.conf.langName then
if self:getReferenceDetail(statement.snaks, aliasesP.language) == self.conf.langName then
statement.snaks[p.aliasesP.language] = nil
statement.snaks[aliasesP.language] = nil
end
end
 
-- retrieve all the parameters
-- retrieve all the parameters
for i in pairs(statement.snaks) do
for i in pairs(statement.snaks) do
label = ""
label = ""
 
-- multiple authors may be given
-- multiple authors may be given
if i == p.aliasesP.author then
if i == aliasesP.author then
params[i] = self:getReferenceDetails(statement.snaks, i, false, self.linked, true)  -- link = true/false, anyLang = true
params[i] = self:getReferenceDetails(statement.snaks, i, false, self.linked, true)  -- link = true/false, anyLang = true
else
else
params[i] = {self:getReferenceDetail(statement.snaks, i, false, (self.linked or (i == p.aliasesP.statedIn)) and (statement.snaks[i][1].datatype ~= 'url'), true)}  -- link = true/false, anyLang = true
params[i] = {self:getReferenceDetail(statement.snaks, i, false, (self.linked or (i == aliasesP.statedIn)) and (statement.snaks[i][1].datatype ~= 'url'), true)}  -- link = true/false, anyLang = true
end
end
 
if #params[i] == 0 then
if #params[i] == 0 then
params[i] = nil
params[i] = nil
1,830行目: 1,857行目:
key = "external-id"
key = "external-id"
label = self.conf:getLabel(i)
label = self.conf:getLabel(i)
 
if label ~= "" then
if label ~= "" then
label = label .. " "
label = label .. " "
1,837行目: 1,864行目:
key = i
key = i
end
end
 
-- add the parameter to each matching type of citation
-- add the parameter to each matching type of citation
for j in pairs(citeParams) do
for j in pairs(citeParams) do
1,847行目: 1,874行目:
if i18n['cite'][j][key] ~= "" then
if i18n['cite'][j][key] ~= "" then
citeParams[j][i18n['cite'][j][key]] = label .. params[i][1]
citeParams[j][i18n['cite'][j][key]] = label .. params[i][1]
 
-- if there are multiple parameter values (authors), add those too
-- if there are multiple parameter values (authors), add those too
for k=2, #params[i] do
for k=2, #params[i] do
1,860行目: 1,887行目:
end
end
end
end
 
-- get title of general template for citing web references
-- get title of general template for citing web references
citeWeb = split(mw.wikibase.sitelink(aliasesQ.citeWeb) or "", ":")[2]  -- split off namespace from front
citeWeb = split(mw.wikibase.getSitelink(aliasesQ.citeWeb) or "", ":")[2]  -- split off namespace from front
 
-- get title of template that expands stated-in references into citations
-- get title of template that expands stated-in references into citations
citeQ = split(mw.wikibase.sitelink(aliasesQ.citeQ) or "", ":")[2]  -- split off namespace from front
citeQ = split(mw.wikibase.getSitelink(aliasesQ.citeQ) or "", ":")[2]  -- split off namespace from front
 
-- (1) use the general template for citing web references if there is a match and if at least both "reference URL" and "title" are present
-- (1) use the general template for citing web references if there is a match and if at least both "reference URL" and "title" are present
if citeWeb and not citeMismatch['web'] and citeParams['web'][i18n['cite']['web'][p.aliasesP.referenceURL]] and citeParams['web'][i18n['cite']['web'][p.aliasesP.title]] then
if citeWeb and not citeMismatch['web'] and citeParams['web'][i18n['cite']['web'][aliasesP.referenceURL]] and citeParams['web'][i18n['cite']['web'][aliasesP.title]] then
useCite = citeWeb
useCite = citeWeb
useParams = citeParams['web']
useParams = citeParams['web']
 
-- (2) use the template that expands stated-in references into citations if there is a match and if at least "stated in" is present
-- (2) use the template that expands stated-in references into citations if there is a match and if at least "stated in" is present
elseif citeQ and not citeMismatch['q'] and citeParams['q'][i18n['cite']['q'][p.aliasesP.statedIn]] then
elseif citeQ and not citeMismatch['q'] and citeParams['q'][i18n['cite']['q'][aliasesP.statedIn]] then
-- we need the raw "stated in" Q-identifier for the this template
-- we need the raw "stated in" Q-identifier for the this template
citeParams['q'][i18n['cite']['q'][p.aliasesP.statedIn]] = self:getReferenceDetail(statement.snaks, p.aliasesP.statedIn, true)  -- raw = true
citeParams['q'][i18n['cite']['q'][aliasesP.statedIn]] = self:getReferenceDetail(statement.snaks, aliasesP.statedIn, true)  -- raw = true
 
useCite = citeQ
useCite = citeQ
useParams = citeParams['q']
useParams = citeParams['q']
end
end
 
if useCite and useParams then
if useCite and useParams then
-- if this module is being substituted then build a regular template call, otherwise expand the template
-- if this module is being substituted then build a regular template call, otherwise expand the template
1,887行目: 1,914行目:
value = value .. "|" .. i .. "=" .. v
value = value .. "|" .. i .. "=" .. v
end
end
 
value = "{{" .. useCite .. value .. "}}"
value = "{{" .. useCite .. value .. "}}"
else
else
value = mw.getCurrentFrame():expandTemplate{title=useCite, args=useParams}
value = mw.getCurrentFrame():expandTemplate{title=useCite, args=useParams}
end
end
 
-- (3) else, do some default rendering of name-value pairs, but only if at least "stated in", "reference URL" or "title" is present
-- (3) else, do some default rendering of name-value pairs, but only if at least "stated in", "reference URL" or "title" is present
elseif params[p.aliasesP.statedIn] or params[p.aliasesP.referenceURL] or params[p.aliasesP.title] then
elseif params[aliasesP.statedIn] or params[aliasesP.referenceURL] or params[aliasesP.title] then
citeParams['default'] = {}
citeParams['default'] = {}
 
-- start by adding authors up front
-- start by adding authors up front
if params[p.aliasesP.author] and #params[p.aliasesP.author] > 0 then
if params[aliasesP.author] and #params[aliasesP.author] > 0 then
citeParams['default'][#citeParams['default'] + 1] = table.concat(params[p.aliasesP.author], " & ")
citeParams['default'][#citeParams['default'] + 1] = table.concat(params[aliasesP.author], " & ")
end
end
 
-- combine "reference URL" and "title" into one link if both are present
-- combine "reference URL" and "title" into one link if both are present
if params[p.aliasesP.referenceURL] and params[p.aliasesP.title] then
if params[aliasesP.referenceURL] and params[aliasesP.title] then
citeParams['default'][#citeParams['default'] + 1] = '[' .. params[p.aliasesP.referenceURL][1] .. ' "' .. params[p.aliasesP.title][1] .. '"]'
citeParams['default'][#citeParams['default'] + 1] = '[' .. params[aliasesP.referenceURL][1] .. ' "' .. params[aliasesP.title][1] .. '"]'
elseif params[p.aliasesP.referenceURL] then
elseif params[aliasesP.referenceURL] then
citeParams['default'][#citeParams['default'] + 1] = params[p.aliasesP.referenceURL][1]
citeParams['default'][#citeParams['default'] + 1] = params[aliasesP.referenceURL][1]
elseif params[p.aliasesP.title] then
elseif params[aliasesP.title] then
citeParams['default'][#citeParams['default'] + 1] = '"' .. params[p.aliasesP.title][1] .. '"'
citeParams['default'][#citeParams['default'] + 1] = '"' .. params[aliasesP.title][1] .. '"'
end
end
 
-- then add "stated in"
-- then add "stated in"
if params[p.aliasesP.statedIn] then
if params[aliasesP.statedIn] then
citeParams['default'][#citeParams['default'] + 1] = "''" .. params[p.aliasesP.statedIn][1] .. "''"
citeParams['default'][#citeParams['default'] + 1] = "''" .. params[aliasesP.statedIn][1] .. "''"
end
end
 
-- remove previously added parameters so that they won't be added a second time
-- remove previously added parameters so that they won't be added a second time
params[p.aliasesP.author] = nil
params[aliasesP.author] = nil
params[p.aliasesP.referenceURL] = nil
params[aliasesP.referenceURL] = nil
params[p.aliasesP.title] = nil
params[aliasesP.title] = nil
params[p.aliasesP.statedIn] = nil
params[aliasesP.statedIn] = nil
 
-- add the rest of the parameters
-- add the rest of the parameters
for i, v in pairs(params) do
for i, v in pairs(params) do
i = self.conf:getLabel(i)
i = self.conf:getLabel(i)
 
if i ~= "" then
if i ~= "" then
citeParams['default'][#citeParams['default'] + 1] = i .. ": " .. v[1]
citeParams['default'][#citeParams['default'] + 1] = i .. ": " .. v[1]
end
end
end
end
 
value = table.concat(citeParams['default'], "; ")
value = table.concat(citeParams['default'], "; ")
 
if value ~= "" then
if value ~= "" then
value = value .. "."
value = value .. "."
end
end
end
end
 
if value ~= "" then
if value ~= "" then
value = {value}  -- create one value object
value = {value}  -- create one value object
 
if not self.rawValue then
if not self.rawValue then
-- this should become a <ref> tag, so safe the reference's hash for later
-- this should become a <ref> tag, so save the reference's hash for later
value.refHash = "wikidata-" .. statement.hash .. "-v" .. (tonumber(i18n['cite']['version']) + version)
value.refHash = "wikidata-" .. statement.hash .. "-v" .. (tonumber(i18n['cite']['version']) + version)
end
end
 
ref = {value}  -- wrap the value object in an array
ref = {value}  -- wrap the value object in an array
end
end
end
end
 
return ref
return ref
end
end
1,957行目: 1,984行目:
local switchLang = anyLang
local switchLang = anyLang
local value = nil
local value = nil
 
if not snaks[dType] then
if not snaks[dType] then
return nil
return nil
end
end
 
-- if anyLang, first try the local language and otherwise any language
-- if anyLang, first try the local language and otherwise any language
repeat
repeat
for i, v in ipairs(snaks[dType]) do
for _, v in ipairs(snaks[dType]) do
value = self.conf:getValue(v, raw, link, false, anyLang and not switchLang, false, true)  -- noSpecial = true
value = self.conf:getValue(v, raw, link, false, anyLang and not switchLang, false, true)  -- noSpecial = true
 
if value then
if value then
break
break
end
end
end
end
 
if value or not anyLang then
if value or not anyLang then
break
break
end
end
 
switchLang = not switchLang
switchLang = not switchLang
until anyLang and switchLang
until anyLang and switchLang
 
return value
return value
end
end
1,985行目: 2,012行目:
function State:getReferenceDetails(snaks, dType, raw, link, anyLang)
function State:getReferenceDetails(snaks, dType, raw, link, anyLang)
local values = {}
local values = {}
 
if not snaks[dType] then
if not snaks[dType] then
return {}
return {}
end
end
 
for i, v in ipairs(snaks[dType]) do
for _, v in ipairs(snaks[dType]) do
-- if nil is returned then it will not be added to the table
-- 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, true)  -- noSpecial = true
values[#values + 1] = self.conf:getValue(v, raw, link, false, anyLang, false, true)  -- noSpecial = true
end
end
 
return values
return values
end
end
2,002行目: 2,029行目:
local value = object.value
local value = object.value
local title = nil
local title = nil
 
if value and self.linked then
if value and self.linked then
if self.conf.entityID:sub(1,1) == "Q" then
if self.conf.entityID:sub(1,1) == "Q" then
title = mw.wikibase.sitelink(self.conf.entityID)
title = mw.wikibase.getSitelink(self.conf.entityID)
elseif self.conf.entityID:sub(1,1) == "P" then
elseif self.conf.entityID:sub(1,1) == "P" then
title = "d:Property:" .. self.conf.entityID
title = "d:Property:" .. self.conf.entityID
end
end
 
if title then
if title then
value = buildWikilink(title, value)
value = buildWikilink(title, value)
end
end
end
end
 
value = {value}  -- create one value object
value = {value}  -- create one value object
 
if #value > 0 then
if #value > 0 then
return {value}  -- wrap the value object in an array and return it
return {value}  -- wrap the value object in an array and return it
2,027行目: 2,054行目:
function State:getBadge(value)
function State:getBadge(value)
value = self.conf:getLabel(value, self.rawValue, self.linked, self.shortName)
value = self.conf:getLabel(value, self.rawValue, self.linked, self.shortName)
 
if value == "" then
if value == "" then
value = nil
value = nil
end
end
 
value = {value}  -- create one value object
value = {value}  -- create one value object
 
if #value > 0 then
if #value > 0 then
return {value}  -- wrap the value object in an array and return it
return {value}  -- wrap the value object in an array and return it
2,043行目: 2,070行目:
function State:callHook(param, hooks, statement, result)
function State:callHook(param, hooks, statement, result)
local valuesArray, refHash
local valuesArray, refHash
 
-- call a parameter's hook if it has been defined and if it has not been called before
-- 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
if not result[param] and hooks[param] then
valuesArray = self[hooks[param]](self, statement, param, result, hooks)  -- array with value objects
valuesArray = self[hooks[param]](self, statement, param, result, hooks)  -- array with value objects
 
-- add to the result
-- add to the result
if #valuesArray > 0 then
if #valuesArray > 0 then
2,057行目: 2,084行目:
end
end
end
end
 
return false
return false
end
end
2,064行目: 2,091行目:
function State:iterate(statements, hooks, matchHook)
function State:iterate(statements, hooks, matchHook)
matchHook = matchHook or alwaysTrue
matchHook = matchHook or alwaysTrue
 
local matches = false
local matches = false
local rankPos = nil
local rankPos = nil
local result, gotRequired
local result, gotRequired
 
for i, v in ipairs(statements) do
for _, v in ipairs(statements) do
-- rankPos will be nil for non-claim statements (e.g. qualifiers, references, etc.)
-- rankPos will be nil for non-claim statements (e.g. qualifiers, references, etc.)
matches, rankPos = matchHook(self, v)
matches, rankPos = matchHook(self, v)
 
if matches then
if matches then
result = {count = 0}  -- collection of arrays with value objects
result = {count = 0}  -- collection of arrays with value objects
 
local function walk(formatTable)
local function walk(formatTable)
local miss
local miss
 
for i2, v2 in pairs(formatTable.req) do
for i2, v2 in pairs(formatTable.req) do
-- call a hook, adding its return value to the result
-- call a hook, adding its return value to the result
miss = self:callHook(i2, hooks, v, result)
miss = self:callHook(i2, hooks, v, result)
 
if miss then
if miss then
-- we miss a required value for this level, so return false
-- we miss a required value for this level, so return false
return false
return false
end
end
 
if result.count == hooks.count then
if result.count == hooks.count then
-- we're done if all hooks have been called;
-- we're done if all hooks have been called;
2,094行目: 2,121行目:
end
end
end
end
 
for i2, v2 in ipairs(formatTable) do
for _, v2 in ipairs(formatTable) do
if result.count == hooks.count then
if result.count == hooks.count then
-- we're done if all hooks have been called;
-- we're done if all hooks have been called;
2,101行目: 2,128行目:
return true
return true
end
end
 
if v2.child then
if v2.child then
walk(v2.child)
walk(v2.child)
end
end
end
end
 
return true
return true
end
end
gotRequired = walk(self.parsedFormat)
gotRequired = walk(self.parsedFormat)
 
-- only append the result if we got values for all required parameters on the root level
-- only append the result if we got values for all required parameters on the root level
if gotRequired then
if gotRequired then
2,117行目: 2,144行目:
self.conf.foundRank = rankPos
self.conf.foundRank = rankPos
end
end
 
-- append the result
-- append the result
self.results[#self.results + 1] = result
self.results[#self.results + 1] = result
 
-- break if we only need a single value
-- break if we only need a single value
if self.singleValue then
if self.singleValue then
2,128行目: 2,155行目:
end
end
end
end
 
return self:out()
return self:out()
end
end


function extractEntityFromInput(id, allowOmitPropPrefix)
local function getEntityId(arg, eid, page, allowOmitPropPrefix)
if id:sub(1,1):upper() == "Q" then
local id = nil
return id:upper() -- entity ID of an item was given
local prop = nil
elseif id:sub(1,9):lower() == "property:" then
 
return replaceAlias(mw.text.trim(id:sub(10))):upper()  -- entity ID of a property was given
if arg then
elseif allowOmitPropPrefix and id ~= "" then
if arg:sub(1,1) == ":" then
return replaceAlias(id):upper()  -- could be an entity ID of a property without "Property:" prefix
page = arg
else
eid = nil
return nil
elseif arg:sub(1,1):upper() == "Q" or arg:sub(1,9):lower() == "property:" or allowOmitPropPrefix then
eid = arg
page = nil
else
prop = arg
end
end
end
end


function extractEntityFromArgs(args, nextIndex, allowOmitPropPrefix)
if eid then
local id, eidArg
if eid:sub(1,9):lower() == "property:" then
id = replaceAlias(mw.text.trim(eid:sub(10)))
if args[nextIndex] then
args[nextIndex] = mw.text.trim(args[nextIndex])
else
args[nextIndex] = ""
end
id = extractEntityFromInput(args[nextIndex], allowOmitPropPrefix)
eidArg = args[p.args.eid]
if id then
return id, nextIndex + 1
elseif eidArg then
return extractEntityFromInput(eidArg, true), nextIndex  -- if no positional id was found but eid was given, use eid without a default
else
return mw.wikibase.getEntityIdForCurrentPage(), nextIndex  -- by default, use item-entity connected to current page
end
end


function claimCommand(args, funcName)
if id:sub(1,1):upper() ~= "P" then
local _ = Config.new()
id = ""
_:processFlagOrCommand(funcName)  -- process first command (== function name)
end
local parsedFormat, formatParams, claims, value
local hooks = {count = 0}
local nextIndex = 1
-- process flags and commands
while _:processFlagOrCommand(args[nextIndex]) do
nextIndex = nextIndex + 1
end
_.entityID, nextIndex = extractEntityFromArgs(args, nextIndex, false)
-- if eid was explicitly set to empty, then this returns an empty string
if _.entityID == nil then
return ""
end
_.entity = mw.wikibase.getEntity(_.entityID)
_.propertyID = replaceAlias(args[nextIndex]):upper()
nextIndex = nextIndex + 1
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
-- check if given qualifier ID is an alias and add it
_.qualifierIDs[parameters.qualifier..i] = replaceAlias(mw.text.trim(args[nextIndex] or "")):upper()
nextIndex = nextIndex + 1
end
elseif _.states[parameters.reference] then
-- do further processing if "reference(s)" command was given
if args[nextIndex] then
_.propertyValue = mw.text.trim(args[nextIndex])
end
-- not incrementing nextIndex because it is never used after this
end
-- check for special property value 'somevalue' or 'novalue'
if _.propertyValue then
_.propertyValue = replaceSpecialChars(_.propertyValue)
if _.propertyValue ~= "" and mw.text.trim(_.propertyValue) == "" then
_.propertyValue = " "  -- single space represents 'somevalue', whereas empty string represents 'novalue'
else
else
_.propertyValue = mw.text.trim(_.propertyValue)
id = replaceAlias(eid)
end
end
end
elseif page then
if page:sub(1,1) == ":" then
-- parse the desired format, or choose an appropriate format
page = mw.text.trim(page:sub(2))
if args["format"] then
parsedFormat, formatParams = parseFormat(args["format"])
elseif _.states.qualifiersCount > 0 then -- "qualifier(s)" command given
if _.states[parameters.property] then  -- "propert(y|ies)" command given
parsedFormat, formatParams = parseFormat(formats.propertyWithQualifier)
else
parsedFormat, formatParams = parseFormat(formats.qualifier)
end
end
elseif _.states[parameters.property] then  -- "propert(y|ies)" command given
 
parsedFormat, formatParams = parseFormat(formats.property)
id = mw.wikibase.getEntityIdForTitle(page) or ""
else  -- "reference(s)" command given
parsedFormat, formatParams = parseFormat(formats.reference)
end
end
 
-- if a "qualifier(s)" command and no "propert(y|ies)" command has been given, make the movable separator a semicolon
if not id then
if _.states.qualifiersCount > 0 and not _.states[parameters.property] then
id = mw.wikibase.getEntityIdForCurrentPage() or ""
_.separators["sep"..parameters.separator][1] = {";"}
end
end
 
-- if only "reference(s)" has been given, set the default separator to none (except when raw)
id = id:upper()
if _.states[parameters.reference] and not _.states[parameters.property] and _.states.qualifiersCount == 0
 
  and not _.states[parameters.reference].rawValue then
if not mw.wikibase.isValidEntityId(id) then
_.separators["sep"][1] = nil
id = ""
end
end
 
-- if exactly one "qualifier(s)" command has been given, make "sep%q" point to "sep%q1" to make them equivalent
return id, prop
if _.states.qualifiersCount == 1 then
end
_.separators["sep"..parameters.qualifier] = _.separators["sep"..parameters.qualifier.."1"]
 
local function nextArg(args)
local arg = args[args.pointer]
 
if arg then
args.pointer = args.pointer + 1
return mw.text.trim(arg)
else
return nil
end
end
end
-- process overridden separator values;
 
-- must come AFTER tweaking the default separators
local function claimCommand(args, funcName)
_:processSeparators(args)
local cfg = Config:new()
cfg:processFlagOrCommand(funcName) -- process first command (== function name)
-- define the hooks that should be called (getProperty, getQualifiers, getReferences);
 
-- only define a hook if both its command ("propert(y|ies)", "reference(s)", "qualifier(s)") and its parameter ("%p", "%r", "%q1", "%q2", "%q3") have been given
local lastArg, parsedFormat, formatParams, claims, value
for i, v in pairs(_.states) do
local hooks = {count = 0}
-- e.g. 'formatParams["%q1"] or formatParams["%q"]' to define hook even if "%q1" was not defined to be able to build a complete value for "%q"
 
if formatParams[i] or formatParams[i:sub(1, 2)] then
-- set the date if given;
hooks[i] = getHookName(i, 1)
-- must come BEFORE processing the flags
hooks.count = hooks.count + 1
if args[p.args.date] then
end
cfg.atDate = {parseDate(args[p.args.date])}
cfg.periods = {false, true, false}  -- change default time constraint to 'current'
end
end
 
-- the "%q" parameter is not attached to a state, but is a collection of the results of multiple states (attached to "%q1", "%q2", "%q3", ...);
-- process flags and commands
-- so if this parameter is given then this hook must be defined separately, but only if at least one "qualifier(s)" command has been given
repeat
if formatParams[parameters.qualifier] and _.states.qualifiersCount > 0 then
lastArg = nextArg(args)
hooks[parameters.qualifier] = getHookName(parameters.qualifier, 1)
until not cfg:processFlagOrCommand(lastArg)
hooks.count = hooks.count + 1
 
-- get the entity ID from either the positional argument, the eid argument or the page argument
cfg.entityID, cfg.propertyID = getEntityId(lastArg, args[p.args.eid], args[p.args.page])
 
if cfg.entityID == "" then
return ""  -- we cannot continue without a valid entity ID
end
end
 
-- create a state for "properties" if it doesn't exist yet, which will be used as a base configuration for each claim iteration;
cfg.entity = mw.wikibase.getEntity(cfg.entityID)
-- must come AFTER defining the hooks
 
if not _.states[parameters.property] then
if not cfg.propertyID then
_.states[parameters.property] = State.new(_)
cfg.propertyID = nextArg(args)
-- if the "single" flag has been given then this state should be equivalent to "property" (singular)
if _.singleClaim then
_.states[parameters.property].singleValue = true
end
end
end
 
-- if the "sourced" flag has been given then create a state for "reference" if it doesn't exist yet, using default values,
cfg.propertyID = replaceAlias(cfg.propertyID)
-- which must exist in order to be able to determine if a claim has any references;
 
-- must come AFTER defining the hooks
if not cfg.entity or not cfg.propertyID then
if _.sourcedOnly and not _.states[parameters.reference] then
return "" -- we cannot continue without an entity or a property ID
_:processFlagOrCommand(p.claimCommands.reference) -- use singular "reference" to minimize overhead
end
end
 
-- set the parsed format and the separators (and optional punctuation mark);
cfg.propertyID = cfg.propertyID:upper()
-- must come AFTER creating the additonal states
 
_:setFormatAndSeparators(_.states[parameters.property], parsedFormat)
if not cfg.entity.claims or not cfg.entity.claims[cfg.propertyID] then
return ""  -- there is no use to continue without any claims
-- process qualifier matching values, analogous to _.propertyValue
for i, v in pairs(args) do
i = tostring(i)
if i:match('^[Pp]%d+$') or p.aliasesP[i] then
v = replaceSpecialChars(v)
-- check for special qualifier value 'somevalue'
if v ~= "" and mw.text.trim(v) == "" then
v = " "  -- single space represents 'somevalue'
end
_.qualifierIDsAndValues[replaceAlias(i):upper()] = v
end
end
end
 
if _.entity and _.entity.claims then claims = _.entity.claims[_.propertyID] end
claims = cfg.entity.claims[cfg.propertyID]
if claims then
 
-- first sort the claims on rank to pre-define the order of output (preferred first, then normal, then deprecated)
if cfg.states.qualifiersCount > 0 then
claims = sortOnRank(claims)
-- do further processing if "qualifier(s)" command was given
 
-- then iterate through the claims to collect values
if #args - args.pointer + 1 > cfg.states.qualifiersCount then
value = _:concatValues(_.states[parameters.property]:iterate(claims, hooks, State.claimMatches))  -- pass property state with level 1 hooks and matchHook
-- claim ID or literal value has been given
 
-- if desired, add a clickable icon that may be used to edit the returned values on Wikidata
cfg.propertyValue = nextArg(args)
if _.editable and value ~= "" then
value = value .. _:getEditIcon()
end
end
return value
else
return ""
end
end


function generalCommand(args, funcName)
for i = 1, cfg.states.qualifiersCount do
local _ = Config.new()
-- check if given qualifier ID is an alias and add it
_.curState = State.new(_)
cfg.qualifierIDs[parameters.qualifier..i] = replaceAlias(nextArg(args) or ""):upper()
end
local value = nil
elseif cfg.states[parameters.reference] then
local nextIndex = 1
-- do further processing if "reference(s)" command was given
 
while _:processFlag(args[nextIndex]) do
cfg.propertyValue = nextArg(args)
nextIndex = nextIndex + 1
end
end
 
_.entityID, nextIndex = extractEntityFromArgs(args, nextIndex, true)
-- check for special property value 'somevalue' or 'novalue'
if cfg.propertyValue then
-- if eid was explicitly set to empty, then this returns an empty string
cfg.propertyValue = replaceSpecialChars(cfg.propertyValue)
if _.entityID == nil then
 
return ""
if cfg.propertyValue ~= "" and mw.text.trim(cfg.propertyValue) == "" then
cfg.propertyValue = " "  -- single space represents 'somevalue', whereas empty string represents 'novalue'
else
cfg.propertyValue = mw.text.trim(cfg.propertyValue)
end
end
end
 
-- serve according to the given command
-- parse the desired format, or choose an appropriate format
if funcName == p.generalCommands.label then
if args["format"] then
value = _:getLabel(_.entityID, _.curState.rawValue, _.curState.linked, _.curState.shortName)
parsedFormat, formatParams = parseFormat(args["format"])
elseif funcName == p.generalCommands.title then
elseif cfg.states.qualifiersCount > 0 then -- "qualifier(s)" command given
_.inSitelinks = true
if cfg.states[parameters.property] then  -- "propert(y|ies)" command given
parsedFormat, formatParams = parseFormat(formats.propertyWithQualifier)
if _.entityID:sub(1,1) == "Q" then
else
value = mw.wikibase.sitelink(_.entityID)
parsedFormat, formatParams = parseFormat(formats.qualifier)
end
end
elseif cfg.states[parameters.property] then -- "propert(y|ies)" command given
if _.curState.linked and value then
parsedFormat, formatParams = parseFormat(formats.property)
value = buildWikilink(value)
else -- "reference(s)" command given
end
parsedFormat, formatParams = parseFormat(formats.reference)
else
end
local parsedFormat, formatParams
 
local hooks = {count = 0}
-- if a "qualifier(s)" command and no "propert(y|ies)" command has been given, make the movable separator a semicolon
if cfg.states.qualifiersCount > 0 and not cfg.states[parameters.property] then
if funcName == p.generalCommands.alias or funcName == p.generalCommands.badge then
cfg.separators["sep"..parameters.separator][1] = {";"}
_.curState.singleValue = true
end
 
-- if only "reference(s)" has been given, set the default separator to none (except when raw)
if cfg.states[parameters.reference] and not cfg.states[parameters.property] and cfg.states.qualifiersCount == 0
  and not cfg.states[parameters.reference].rawValue then
cfg.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
if cfg.states.qualifiersCount == 1 then
cfg.separators["sep"..parameters.qualifier] = cfg.separators["sep"..parameters.qualifier.."1"]
end
 
-- process overridden separator values;
-- must come AFTER tweaking the default separators
cfg:processSeparators(args)
 
-- define the hooks that should be called (getProperty, getQualifiers, getReferences);
-- only define a hook if both its command ("propert(y|ies)", "reference(s)", "qualifier(s)") and its parameter ("%p", "%r", "%q1", "%q2", "%q3") have been given
for i, v in pairs(cfg.states) do
-- e.g. 'formatParams["%q1"] or formatParams["%q"]' to define hook even if "%q1" was not defined to be able to build a complete value for "%q"
if formatParams[i] or formatParams[i:sub(1, 2)] then
hooks[i] = getHookName(i, 1)
hooks.count = hooks.count + 1
end
end
end
_.entity = mw.wikibase.getEntity(_.entityID)
 
-- the "%q" parameter is not attached to a state, but is a collection of the results of multiple states (attached to "%q1", "%q2", "%q3", ...);
if funcName == p.generalCommands.alias or funcName == p.generalCommands.aliases then
-- so if this parameter is given then this hook must be defined separately, but only if at least one "qualifier(s)" command has been given
local aliases
if formatParams[parameters.qualifier] and cfg.states.qualifiersCount > 0 then
hooks[parameters.qualifier] = getHookName(parameters.qualifier, 1)
-- parse the desired format, or parse the default aliases format
hooks.count = hooks.count + 1
if args["format"] then
end
parsedFormat, formatParams = parseFormat(args["format"])
 
else
-- create a state for "properties" if it doesn't exist yet, which will be used as a base configuration for each claim iteration;
parsedFormat, formatParams = parseFormat(formats.alias)
-- must come AFTER defining the hooks
end
if not cfg.states[parameters.property] then
cfg.states[parameters.property] = State:new(cfg, parameters.property)
-- process overridden separator values;
 
-- must come AFTER tweaking the default separators
-- if the "single" flag has been given then this state should be equivalent to "property" (singular)
_:processSeparators(args)
if cfg.singleClaim then
cfg.states[parameters.property].singleValue = true
-- define the hook that should be called (getAlias);
end
-- only define the hook if the parameter ("%a") has been given
end
if formatParams[parameters.alias] then
 
hooks[parameters.alias] = getHookName(parameters.alias, 1)
-- if the "sourced" flag has been given then create a state for "reference" if it doesn't exist yet, using default values,
hooks.count = hooks.count + 1
-- which must exist in order to be able to determine if a claim has any references;
end
-- must come AFTER defining the hooks
if cfg.sourcedOnly and not cfg.states[parameters.reference] then
-- set the parsed format and the separators (and optional punctuation mark)
cfg:processFlagOrCommand(p.claimCommands.reference) -- use singular "reference" to minimize overhead
_:setFormatAndSeparators(_.curState, parsedFormat)
end
 
if _.entity and _.entity.aliases then aliases = _.entity.aliases[_.langCode] end
-- set the parsed format and the separators (and optional punctuation mark);
if aliases then
-- must come AFTER creating the additonal states
value = _:concatValues(_.curState:iterate(aliases, hooks))
cfg:setFormatAndSeparators(cfg.states[parameters.property], parsedFormat)
end
 
elseif funcName == p.generalCommands.badge or funcName == p.generalCommands.badges then
-- process qualifier matching values, analogous to cfg.propertyValue
_.inSitelinks = true
for i, v in pairs(args) do
i = tostring(i)
local badges
 
if i:match('^[Pp]%d+$') or aliasesP[i] then
-- parse the desired format, or parse the default aliases format
v = replaceSpecialChars(v)
if args["format"] then
 
parsedFormat, formatParams = parseFormat(args["format"])
-- check for special qualifier value 'somevalue'
else
if v ~= "" and mw.text.trim(v) == "" then
parsedFormat, formatParams = parseFormat(formats.badge)
v = " "  -- single space represents 'somevalue'
end
-- process overridden separator values;
-- must come AFTER tweaking the default separators
_:processSeparators(args)
-- define the hook that should be called (getBadge);
-- only define the hook if the parameter ("%b") has been given
if formatParams[parameters.badge] then
hooks[parameters.badge] = getHookName(parameters.badge, 1)
hooks.count = hooks.count + 1
end
-- set the parsed format and the separators (and optional punctuation mark)
_:setFormatAndSeparators(_.curState, parsedFormat)
if _.entity and _.entity.sitelinks and _.entity.sitelinks[_.siteID] then badges = _.entity.sitelinks[_.siteID].badges end
if badges then
value = _:concatValues(_.curState:iterate(badges, hooks))
end
end
cfg.qualifierIDsAndValues[replaceAlias(i):upper()] = v
end
end
end
end
 
value = value or ""
-- first sort the claims on rank to pre-define the order of output (preferred first, then normal, then deprecated)
claims = sortOnRank(claims)
if _.editable and value ~= "" then
 
-- if desired, add a clickable icon that may be used to edit the returned value on Wikidata
-- then iterate through the claims to collect values
value = value .. _:getEditIcon()
value = cfg:concatValues(cfg.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 cfg.editable and value ~= "" then
value = value .. cfg:getEditIcon()
end
end
 
return value
return value
end
end


-- modules that include this module should call the functions with an underscore prepended, e.g.: p._property(args)
local function generalCommand(args, funcName)
function establishCommands(commandList, commandFunc)
local cfg = Config:new()
for commandIndex, commandName in pairs(commandList) do
cfg.curState = State:new(cfg)
local function wikitextWrapper(frame)
 
loadSubmodules(frame)
local lastArg
return commandFunc(copyTable(frame.args), commandName)
local value = nil
 
repeat
lastArg = nextArg(args)
until not cfg:processFlag(lastArg)
 
-- get the entity ID from either the positional argument, the eid argument or the page argument
cfg.entityID = getEntityId(lastArg, args[p.args.eid], args[p.args.page], true)
 
if cfg.entityID == "" or not mw.wikibase.entityExists(cfg.entityID) then
return ""  -- we cannot continue without an entity
end
 
-- serve according to the given command
if funcName == p.generalCommands.label then
value = cfg:getLabel(cfg.entityID, cfg.curState.rawValue, cfg.curState.linked, cfg.curState.shortName)
elseif funcName == p.generalCommands.title then
cfg.inSitelinks = true
 
if cfg.entityID:sub(1,1) == "Q" then
value = mw.wikibase.getSitelink(cfg.entityID)
end
end
p[commandName] = wikitextWrapper
 
if cfg.curState.linked and value then
local function luaWrapper(args)
value = buildWikilink(value)
loadSubmodules()
return commandFunc(args, commandName)
end
end
p["_" .. commandName] = luaWrapper
elseif funcName == p.generalCommands.description then
end
value = mw.wikibase.getDescription(cfg.entityID)
end
else
local parsedFormat, formatParams
local hooks = {count = 0}
 
cfg.entity = mw.wikibase.getEntity(cfg.entityID)


establishCommands(p.claimCommands, claimCommand)
if funcName == p.generalCommands.alias or funcName == p.generalCommands.badge then
establishCommands(p.generalCommands, generalCommand)
cfg.curState.singleValue = true
end


-- main function that is supposed to be used by wrapper templates
if funcName == p.generalCommands.alias or funcName == p.generalCommands.aliases then
function p.main(frame)
if not cfg.entity.aliases or not cfg.entity.aliases[cfg.langCode] then
local f, args, i, v
return ""  -- there is no use to continue without any aliasses
end
loadSubmodules(frame)
 
local aliases = cfg.entity.aliases[cfg.langCode]
-- get the parent frame to take the arguments that were passed to the wrapper template
 
frame = frame:getParent() or frame
-- parse the desired format, or parse the default aliases format
if args["format"] then
if not frame.args[1] then
parsedFormat, formatParams = parseFormat(args["format"])
throwError("no-function-specified")
else
end
parsedFormat, formatParams = parseFormat(formats.alias)
end
f = mw.text.trim(frame.args[1])
 
-- process overridden separator values;
if f == "main" then
-- must come AFTER tweaking the default separators
throwError("main-called-twice")
cfg:processSeparators(args)
 
-- 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)
cfg:setFormatAndSeparators(cfg.curState, parsedFormat)
 
-- iterate to collect values
value = cfg:concatValues(cfg.curState:iterate(aliases, hooks))
elseif funcName == p.generalCommands.badge or funcName == p.generalCommands.badges then
if not cfg.entity.sitelinks or not cfg.entity.sitelinks[cfg.siteID] or not cfg.entity.sitelinks[cfg.siteID].badges then
return "" -- there is no use to continue without any badges
end
 
local badges = cfg.entity.sitelinks[cfg.siteID].badges
 
cfg.inSitelinks = true
 
-- parse the desired format, or parse the default aliases format
if args["format"] then
parsedFormat, formatParams = parseFormat(args["format"])
else
parsedFormat, formatParams = parseFormat(formats.badge)
end
 
-- process overridden separator values;
-- must come AFTER tweaking the default separators
cfg:processSeparators(args)
 
-- define the hook that should be called (getBadge);
-- only define the hook if the parameter ("%b") has been given
if formatParams[parameters.badge] then
hooks[parameters.badge] = getHookName(parameters.badge, 1)
hooks.count = hooks.count + 1
end
 
-- set the parsed format and the separators (and optional punctuation mark)
cfg:setFormatAndSeparators(cfg.curState, parsedFormat)
 
-- iterate to collect values
value = cfg:concatValues(cfg.curState:iterate(badges, hooks))
end
end
end
 
assert(p["_"..f], errorText('no-such-function', f))
value = value or ""
 
-- copy arguments from immutable to mutable table
if cfg.editable and value ~= "" then
-- if desired, add a clickable icon that may be used to edit the returned value on Wikidata
value = value .. cfg:getEditIcon()
end
 
return value
end
 
-- modules that include this module should call the functions with an underscore prepended, e.g.: p._property(args)
local function establishCommands(commandList, commandFunc)
for _, commandName in pairs(commandList) do
local function wikitextWrapper(frame)
local args = copyTable(frame.args)
args.pointer = 1
loadI18n(aliasesP, frame)
return commandFunc(args, commandName)
end
p[commandName] = wikitextWrapper
 
local function luaWrapper(args)
args = copyTable(args)
args.pointer = 1
loadI18n(aliasesP)
return commandFunc(args, commandName)
end
p["_" .. commandName] = luaWrapper
end
end
 
establishCommands(p.claimCommands, claimCommand)
establishCommands(p.generalCommands, generalCommand)
 
-- main function that is supposed to be used by wrapper templates
function p.main(frame)
if not mw.wikibase then return nil end
 
local f, args
 
loadI18n(aliasesP, 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
throwError("no-function-specified")
end
 
f = mw.text.trim(frame.args[1])
 
if f == "main" then
throwError("main-called-twice")
end
 
assert(p["_"..f], errorText('no-such-function', f))
 
-- copy arguments from immutable to mutable table
args = copyTable(frame.args)
args = copyTable(frame.args)
 
-- remove the function name from the list
-- remove the function name from the list
table.remove(args, 1)
table.remove(args, 1)
 
return p["_"..f](args)
return p["_"..f](args)
end
end


return p
return p
匿名利用者
「https://wiki.sakishima.net/特別:携帯機器差分/6764」から取得