関南・東山地方Wiki

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

モジュール 議論

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

2021年6月22日 (火) 01:16時点における版

5,216 バイト追加 、 2021年6月22日 (火)
細
48版 をインポートしました
template>K-iczn
(en:Module:Wd 2017年12月4日 (月) 19:19(UTC)より)
細 (48版 をインポートしました)
 
(7人の利用者による、間の12版が非表示)
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 = {}
local arg = ...
local arg = ...
local i18n


-- submodules to be loaded;
local function loadI18n(aliasesP, frame)
-- 'true' means: expose through table "p"
local title
local submodules = {
i18n    = false, -- internationalization
aliasesP = true    -- aliases for P-identifiers
}
 
-- non-exposed submodules will be stored in table "s"
local s = {}


function loadSubmodules(frame)
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
24行目: 15行目:
title = arg
title = arg
end
end
 
for i, v in pairs(submodules) do
if not i18n then
if v then
i18n = require(title .. "/i18n").init(aliasesP)
if not p[i] then
p[i] = require(title.."/"..i)
end
else
if not s[i] then
s[i] = require(title.."/"..i)
end
end
end
end
end
end


p.valueCommands = {
p.claimCommands = {
property  = "property",
property  = "property",
properties = "properties",
properties = "properties",
47行目: 30行目:
}
}


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


76行目: 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"
}
}


91行目: 109行目:
reference = "%r",
reference = "%r",
alias    = "%a",
alias    = "%a",
badge    = "%b",
separator = "%s",
separator = "%s",
general  = "%x"
general  = "%x"
99行目: 118行目:
qualifier            = "%q[%s][%r]",
qualifier            = "%q[%s][%r]",
reference            = "%r",
reference            = "%r",
propertyWithQualifier = "%p[ <span style=\"font-size:smaller\">(%q)</span>][%s][%r]",
propertyWithQualifier = "%p[ <span style=\"font-size:85\\%\">(%q)</span>][%s][%r]",
alias                = "%a[%s]"
alias                = "%a[%s]",
badge                = "%b[%s]"
}
}


108行目: 128行目:
[parameters.qualifier]        = {"getAllQualifiers"},
[parameters.qualifier]        = {"getAllQualifiers"},
[parameters.qualifier.."\\d"] = {"getQualifiers", "getQualifier"},
[parameters.qualifier.."\\d"] = {"getQualifiers", "getQualifier"},
[parameters.alias]            = {"getAlias"}
[parameters.alias]            = {"getAlias"},
[parameters.badge]            = {"getBadge"}
}
}


128行目: 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
143行目: 164行目:
["punc"]  = {copyTable(defaultSeparators["punc"])}
["punc"]  = {copyTable(defaultSeparators["punc"])}
}
}
 
cfg.entity = nil
cfg.entity = nil
cfg.entityID = nil
cfg.entityID = nil
150行目: 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
156行目: 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
165行目: 187行目:
cfg.editable = false
cfg.editable = false
cfg.editAtEnd = false
cfg.editAtEnd = false
 
cfg.pageTitle = 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)
 
cfg.siteID = mw.wikibase.getGlobalSiteId()
 
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
203行目: 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 = s.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
return text
return text
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, "[.]", s.i18n['numeric']['decimal-mark'], 1)
return mw.ustring.gsub(num, "[.]", i18n['numeric']['decimal-mark'], 1)
end
end


function replaceSpecialChar(chr)
local function padZeros(num, numDigits)
local numZeros
local negative = false
 
if num < 0 then
negative = true
num = num * -1
end
 
num = tostring(num)
numZeros = numDigits - num:len()
 
for _ = 1, numZeros do
num = "0"..num
end
 
if negative then
num = "-"..num
end
 
return num
end
 
local function replaceSpecialChar(chr)
if chr == '_' then
if chr == '_' then
-- replace underscores with spaces
-- replace underscores with spaces
238行目: 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
257行目: 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 .. "]]"
275行目: 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
287行目: 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)
305行目: 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
325行目: 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
400行目: 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]
434行目: 482行目:
end
end


function alwaysTrue()
local function alwaysTrue()
return true
return true
end
end
483行目: 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
510行目: 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
559行目: 607行目:
end
end
end
end
 
cur.str = cur.str .. replaceSpecialChar(chr)
cur.str = cur.str .. replaceSpecialChar(chr)
end
end
566行目: 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
607行目: 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 = ""
659行目: 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
666行目: 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
678行目: 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'
693行目: 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=" .. s.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
elseif self.pageTitle then
elseif self.inSitelinks then
value = value .. "#sitelinks-wikipedia"
value = value .. "#sitelinks-wikipedia"
end
end
 
value = value .. "|" .. s.i18n['info']['edit-on-wikidata'] .. "]]"
value = value .. "|" .. i18n['info']['edit-on-wikidata'] .. "]]"
 
return front .. value .. back
return front .. value .. back
end
end
716行目: 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
722行目: 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
731行目: 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)
outString = outString .. mw.getCurrentFrame():extensionTag("ref", valuesArray[i][1], {name = "wikidata-" .. valuesArray[i].refHash .. "-v" .. s.i18n['cite']['version']})
outString = outString .. mw.getCurrentFrame():extensionTag("ref", valuesArray[i][1], {name = valuesArray[i].refHash})
end
end
else
else
740行目: 782行目:
end
end
end
end
 
return outString
return outString
end
end
747行目: 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
763行目: 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
769行目: 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
799行目: 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)
813行目: 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
823行目: 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 = s.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
855行目: 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"
864行目: 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
suffix = s.i18n['datetime']['suffixes']['millennium']
suffix = i18n['datetime']['suffixes']['millennium']
else
else
suffix = s.i18n['datetime']['suffixes']['century']
suffix = i18n['datetime']['suffixes']['century']
end
end
 
suffix = s.i18n.getOrdinalSuffix(yRound) .. suffix
suffix = i18n.getOrdinalSuffix(yRound) .. suffix
else
else
-- if not verbose, take the first year of the century/millennium
-- if not verbose, take the first year of the century/millennium
901行目: 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 = s.i18n['datetime']['prefixes']['decade-period']
prefix = i18n['datetime']['prefixes']['decade-period']
suffix = s.i18n['datetime']['suffixes']['decade-period']
suffix = i18n['datetime']['suffixes']['decade-period']
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"
915行目: 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
924行目: 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
932行目: 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
941行目: 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
958行目: 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
967行目: 1,018行目:
end
end
end
end
 
if not raw then
if not raw then
if precision == 3 then
if precision == 3 then
suffix = s.i18n['datetime']['suffixes']['million-years']
suffix = i18n['datetime']['suffixes']['million-years']
elseif precision == 0 then
elseif precision == 0 then
suffix = s.i18n['datetime']['suffixes']['billion-years']
suffix = i18n['datetime']['suffixes']['billion-years']
else
else
yRound = yRound * yFactor
yRound = yRound * yFactor
if yRound == 1 then
if yRound == 1 then
suffix = s.i18n['datetime']['suffixes']['year']
suffix = i18n['datetime']['suffixes']['year']
else
else
suffix = s.i18n['datetime']['suffixes']['years']
suffix = i18n['datetime']['suffixes']['years']
end
end
end
end
989行目: 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
if link then
if link then
calendar = " ("..buildWikilink(s.i18n['datetime']['julian-calendar'], s.i18n['datetime']['julian'])..")"
calendar = " ("..buildWikilink(i18n['datetime']['julian-calendar'], i18n['datetime']['julian'])..")"
else
else
calendar = " ("..s.i18n['datetime']['julian']..")"
calendar = " ("..i18n['datetime']['julian']..")"
end
end
else
else
calendar = "/"..s.i18n['datetime']['julian']
calendar = "/"..i18n['datetime']['julian']
end
end
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 = s.i18n['datetime']['BCE']
ce = i18n['datetime']['BCE']
elseif precision <= 5 then
elseif precision <= 5 then
ce = s.i18n['datetime']['CE']
ce = i18n['datetime']['CE']
end
end
 
if ce then
if ce then
if link then
if link then
ce = buildWikilink(s.i18n['datetime']['common-era'], ce)
ce = buildWikilink(i18n['datetime']['common-era'], ce)
end
end
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,034行目: 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 = tostring(yRound * sign)
value = padZeros(yRound * sign, 4)
 
if m then
if m then
value = value .. "-" .. m
value = value .. "-" .. padZeros(m, 2)
 
if d then
if d then
value = value .. "-" .. d
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
-- logic from https://github.com/DataValues/Geo (v4.0.1)
 
local precision, numDigits, strFormat, value, globe
local precision, unitsPerDegree, numDigits, strFormat, value, globe
local latValue, latitude, latDegrees, latMinutes, latSeconds
local latitude, latConv, latValue, latLink
local lonValue, longitude, lonDegrees, lonMinutes, lonSeconds
local longitude, lonConv, lonValue, lonLink
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 latMinutes = nil
local latSeconds = nil
local lonDegrees = nil
local lonMinutes = nil
local lonSeconds = nil
 
local latDegSym = ""
local latMinSym = ""
local latSecSym = ""
local lonDegSym = ""
local lonMinSym = ""
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 = s.i18n['coord']['latitude-north']
latDirectionN = i18n['coord']['latitude-north']
latDirectionS = s.i18n['coord']['latitude-south']
latDirectionS = i18n['coord']['latitude-south']
lonDirectionE = s.i18n['coord']['longitude-east']
lonDirectionE = i18n['coord']['longitude-east']
lonDirectionW = s.i18n['coord']['longitude-west']
lonDirectionW = i18n['coord']['longitude-west']
 
degSymbol = s.i18n['coord']['degrees']
degSymbol = i18n['coord']['degrees']
minSymbol = s.i18n['coord']['minutes']
minSymbol = i18n['coord']['minutes']
secSymbol = s.i18n['coord']['seconds']
secSymbol = i18n['coord']['seconds']
separator = s.i18n['coord']['separator']
separator = i18n['coord']['separator']
else
else
latDirectionN = latDirectionEN_N
latDirectionN = latDirectionEN_N
1,083行目: 1,149行目:
lonDirectionE = lonDirectionEN_E
lonDirectionE = lonDirectionEN_E
lonDirectionW = lonDirectionEN_W
lonDirectionW = lonDirectionEN_W
 
degSymbol = "/"
degSymbol = "/"
minSymbol = "/"
minSymbol = "/"
1,089行目: 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,101行目: 1,167行目:
latDirectionEN = latDirectionEN_N
latDirectionEN = latDirectionEN_N
end
end
 
if longitude < 0 then
if longitude < 0 then
lonDirection = lonDirectionW
lonDirection = lonDirectionW
1,110行目: 1,176行目:
lonDirectionEN = lonDirectionEN_E
lonDirectionEN = lonDirectionEN_E
end
end
 
precision = datavalue['precision']
precision = datavalue['precision']
 
if not precision or precision <= 0 then
precision = 1 / 3600  -- precision not set (correctly), set to arcsecond
end
 
-- 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
 
numDigits = math.ceil(-math.log10(3600 * precision))
if precision >= 1 - (1 / 60) and precision < 1 then
precision = 1
if numDigits < 0 or numDigits == -0 then
elseif precision >= (1 / 60) - (1 / 3600) and precision < (1 / 60) then
precision = 1 / 60
end
 
if precision >= 1 then
unitsPerDegree = 1
elseif precision >= (1 / 60)  then
unitsPerDegree = 60
else
unitsPerDegree = 3600
end
 
numDigits = math.ceil(-math.log10(unitsPerDegree * precision))
 
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"
 
-- use string.format() to strip decimal point followed by a zero (.0) for whole numbers
if precision >= 1 then
latSeconds = tonumber(strFormat:format(math.floor(latitude * 3600 * 10^numDigits + 0.5) / 10^numDigits))
latDegrees = strFormat:format(latitude)
lonSeconds = tonumber(strFormat:format(math.floor(longitude * 3600 * 10^numDigits + 0.5) / 10^numDigits))
lonDegrees = strFormat:format(longitude)
 
latMinutes = math.floor(latSeconds / 60)
lonMinutes = math.floor(lonSeconds / 60)
latSeconds = latSeconds - (latMinutes * 60)
lonSeconds = lonSeconds - (lonMinutes * 60)
latDegrees = math.floor(latMinutes / 60)
lonDegrees = math.floor(lonMinutes / 60)
latMinutes = latMinutes - (latDegrees * 60)
lonMinutes = lonMinutes - (lonDegrees * 60)
latValue = latDegrees .. degSymbol
lonValue = lonDegrees .. degSymbol
if precision < 1 then
latValue = latValue .. latMinutes .. minSymbol
lonValue = lonValue .. lonMinutes .. minSymbol
end
if precision < (1 / 60) then
latSeconds = strFormat:format(latSeconds)
lonSeconds = strFormat:format(lonSeconds)
if not raw then
if not raw then
-- replace decimal marks based on locale
latDegSym = replaceDecimalMark(latDegrees) .. degSymbol
latSeconds = replaceDecimalMark(latSeconds)
lonDegSym = replaceDecimalMark(lonDegrees) .. degSymbol
lonSeconds = replaceDecimalMark(lonSeconds)
end
latValue = latValue .. latSeconds .. secSymbol
lonValue = lonValue .. lonSeconds .. secSymbol
end
latValue = latValue .. latDirection
lonValue = lonValue .. lonDirection
value = latValue .. separator .. lonValue
if link then
globe = parseWikidataURL(datavalue['globe'])
if globe then
globe = mw.wikibase.getEntity(globe):getLabel("en"):lower()
else
else
globe = "earth"
latDegSym = latDegrees .. degSymbol
lonDegSym = lonDegrees .. degSymbol
end
else
latConv = math.floor(latitude * unitsPerDegree * 10^numDigits + 0.5) / 10^numDigits
lonConv = math.floor(longitude * unitsPerDegree * 10^numDigits + 0.5) / 10^numDigits
 
if precision >= (1 / 60) then
latMinutes = latConv
lonMinutes = lonConv
else
latSeconds = latConv
lonSeconds = lonConv
 
latMinutes = math.floor(latSeconds / 60)
lonMinutes = math.floor(lonSeconds / 60)
 
latSeconds = strFormat:format(latSeconds - (latMinutes * 60))
lonSeconds = strFormat:format(lonSeconds - (lonMinutes * 60))
 
if not raw then
latSecSym = replaceDecimalMark(latSeconds) .. secSymbol
lonSecSym = replaceDecimalMark(lonSeconds) .. secSymbol
else
latSecSym = latSeconds .. secSymbol
lonSecSym = lonSeconds .. secSymbol
end
end
 
latDegrees = math.floor(latMinutes / 60)
lonDegrees = math.floor(lonMinutes / 60)
 
latDegSym = latDegrees .. degSymbol
lonDegSym = lonDegrees .. degSymbol
 
latMinutes = latMinutes - (latDegrees * 60)
lonMinutes = lonMinutes - (lonDegrees * 60)
 
if precision >= (1 / 60) then
latMinutes = strFormat:format(latMinutes)
lonMinutes = strFormat:format(lonMinutes)
 
if not raw then
latMinSym = replaceDecimalMark(latMinutes) .. minSymbol
lonMinSym = replaceDecimalMark(lonMinutes) .. minSymbol
else
latMinSym = latMinutes .. minSymbol
lonMinSym = lonMinutes .. minSymbol
end
else
latMinSym = latMinutes .. minSymbol
lonMinSym = lonMinutes .. minSymbol
end
end
value = "[https://tools.wmflabs.org/geohack/geohack.php?language="..self.langCode.."&params="..latitude.."_"..latDirectionEN.."_"..longitude.."_"..lonDirectionEN.."_globe:"..globe.." "..value.."]"
end
end
 
return value
latValue = latDegSym .. latMinSym .. latSecSym .. latDirection
elseif datatype == 'wikibase-entityid' then
lonValue = lonDegSym .. lonMinSym .. lonSecSym .. lonDirection
local label
 
local itemID = datavalue['numeric-id']
value = latValue .. separator .. lonValue
 
if subtype == 'wikibase-item' then
if link then
globe = parseWikidataURL(datavalue['globe'])
 
if globe then
globe = mw.wikibase.getLabelByLang(globe, "en"):lower()
else
globe = "earth"
end
 
latLink = table.concat({latDegrees, latMinutes, latSeconds}, "_")
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.."]"
end
 
return value
elseif datatype == 'wikibase-entityid' then
local label
local itemID = datavalue['numeric-id']
 
if subtype == 'wikibase-item' then
itemID = "Q" .. itemID
itemID = "Q" .. itemID
elseif subtype == 'wikibase-property' then
elseif subtype == 'wikibase-property' then
1,191行目: 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,206行目: 1,319行目:
return " "  -- single space represents 'somevalue'
return " "  -- single space represents 'somevalue'
else
else
return s.i18n['values']['unknown']
return i18n['values']['unknown']
end
end
elseif snak.snaktype == 'novalue' and not noSpecial then
elseif snak.snaktype == 'novalue' and not noSpecial then
1,212行目: 1,325行目:
return ""  -- empty string represents 'novalue'
return ""  -- empty string represents 'novalue'
else
else
return s.i18n['values']['none']
return i18n['values']['none']
end
end
else
else
1,221行目: 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,233行目: 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,241行目: 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,247行目: 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,257行目: 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,264行目: 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,280行目: 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,290行目: 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,296行目: 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


function Config:processFlag(flag)
function Config:qualifierMatches(claim, id, value)
if not flag then
local qualifiers
return false
 
else
if claim.qualifiers then qualifiers = claim.qualifiers[id] end
flag = mw.text.trim(flag)
if qualifiers then
end
for _, v in pairs(qualifiers) do
if self:snakEqualsValue(v, value) then
if flag == p.flags.linked then
return true
self.curState.linked = true
end
return true
elseif flag == p.flags.raw then
self.curState.rawValue = true
if self.curState == self.states[parameters.reference] then
-- raw reference values end with periods and require a separator (other than none)
self.separators["sep%r"][1] = {" "}
end
end
elseif value == "" then
-- if the qualifier is not present then treat it the same as the special value 'novalue'
return true
return true
elseif flag == p.flags.short then
end
self.curState.shortName = true
 
return false
end
 
function Config:rankMatches(rankPos)
if self.bestRank then
return (self.ranks[rankPos] and self.foundRank >= rankPos)
else
return self.ranks[rankPos]
end
end
 
function Config:timeMatches(claim)
local startTime = nil
local startTimeY = nil
local startTimeM = nil
local startTimeD = nil
local endTime = nil
local endTimeY = nil
local endTimeM = nil
local endTimeD = nil
 
if self.periods[1] and self.periods[2] and self.periods[3] then
-- any time
return true
return true
elseif flag == p.flags.multilanguage then
self.curState.anyLanguage = true
return true
elseif flag == p.flags.unit then
self.curState.unitOnly = true
return true
elseif flag == p.flags.mdy then
self.mdyDate = true
return true
elseif flag == p.flags.single then
self.singleClaim = true
return true
elseif flag == p.flags.sourced then
self.sourcedOnly = true
return true
elseif flag == p.flags.edit then
self.editable = true
return true
elseif flag == p.flags.editAtEnd then
self.editable = true
self.editAtEnd = true
return true
elseif flag == p.flags.best or flag:match('^'..p.flags.preferred..'[+-]?$') or flag:match('^'..p.flags.normal..'[+-]?$') or flag:match('^'..p.flags.deprecated..'[+-]?$') then
self:setRank(flag)
return true
elseif flag == p.flags.future or flag == p.flags.current or flag == p.flags.former then
self:setPeriod(flag)
return true
elseif flag == "" then
-- ignore empty flags and carry on
return true
else
return false
end
end
end


function Config:processFlagOrCommand(flag)
startTime = self:getSingleRawQualifier(claim, aliasesP.startTime)
local param = ""
if startTime and startTime ~= "" and startTime ~= " " then
startTimeY, startTimeM, startTimeD = parseDate(startTime)
if not flag then
end
return false
 
else
endTime = self:getSingleRawQualifier(claim, aliasesP.endTime)
flag = mw.text.trim(flag)
if endTime and endTime ~= "" and endTime ~= " " then
endTimeY, endTimeM, endTimeD = parseDate(endTime)
end
 
if startTimeY ~= nil and endTimeY ~= nil and datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
-- invalidate end time if it precedes start time
endTimeY = nil
endTimeM = nil
endTimeD = nil
end
 
if self.periods[1] then
-- future
if startTimeY and datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], startTimeY, startTimeM, startTimeD) then
return true
end
end
 
if self.periods[2] then
-- current
if (startTimeY == nil or not datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], startTimeY, startTimeM, startTimeD)) and
  (endTimeY == nil or datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], endTimeY, endTimeM, endTimeD)) then
return true
end
end
end
 
if flag == p.valueCommands.property or flag == p.valueCommands.properties then
if self.periods[3] then
param = parameters.property
-- former
elseif flag == p.valueCommands.qualifier or flag == p.valueCommands.qualifiers then
if endTimeY and not datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], endTimeY, endTimeM, endTimeD) then
self.states.qualifiersCount = self.states.qualifiersCount + 1
return true
param = parameters.qualifier .. self.states.qualifiersCount
end
self.separators["sep"..param] = {copyTable(defaultSeparators["sep%q\\d"])}
elseif flag == p.valueCommands.reference or flag == p.valueCommands.references then
param = parameters.reference
else
return self:processFlag(flag)
end
end
 
if self.states[param] then
return false
end
 
function Config:processFlag(flag)
if not flag then
return false
return false
end
end
-- create a new state for each command
self.states[param] = State.new(self)
-- use "%x" as the general parameter name
self.states[param].parsedFormat = parseFormat(parameters.general)  -- will be overwritten for param=="%p"
-- set the separator
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
self.states[param].singleValue = true
end
self.curState = self.states[param]
return true
end


function Config:qualifierMatches(claim, id, value)
if flag == p.flags.linked then
local qualifiers
self.curState.linked = true
if claim.qualifiers then qualifiers = claim.qualifiers[id] end
if qualifiers then
for i, v in pairs(qualifiers) do
if self:snakEqualsValue(v, value) then
return true
end
end
elseif value == "" then
-- if the qualifier is not present then treat it the same as the special value 'novalue'
return true
return true
end
elseif flag == p.flags.raw then
self.curState.rawValue = true
return false
end


function Config:rankMatches(rankPos)
if self.curState == self.states[parameters.reference] then
if self.bestRank then
-- raw reference values end with periods and require a separator (other than none)
return (self.ranks[rankPos] and self.foundRank >= rankPos)
self.separators["sep%r"][1] = {" "}
else
end
return self.ranks[rankPos]
end
end


function Config:timeMatches(claim)
local startTime = nil
local startTimeY = nil
local startTimeM = nil
local startTimeD = nil
local endTime = nil
local endTimeY = nil
local endTimeM = nil
local endTimeD = nil
if self.periods[1] and self.periods[2] and self.periods[3] then
-- any time
return true
return true
elseif flag == p.flags.short then
self.curState.shortName = true
return true
elseif flag == p.flags.multilanguage then
self.curState.anyLanguage = true
return true
elseif flag == p.flags.unit then
self.curState.unitOnly = true
return true
elseif flag == p.flags.mdy then
self.mdyDate = true
return true
elseif flag == p.flags.single then
self.singleClaim = true
return true
elseif flag == p.flags.sourced then
self.sourcedOnly = true
return true
elseif flag == p.flags.edit then
self.editable = true
return true
elseif flag == p.flags.editAtEnd then
self.editable = true
self.editAtEnd = true
return true
elseif flag == p.flags.best or flag:match('^'..p.flags.preferred..'[+-]?$') or flag:match('^'..p.flags.normal..'[+-]?$') or flag:match('^'..p.flags.deprecated..'[+-]?$') then
self:setRank(flag)
return true
elseif flag == p.flags.future or flag == p.flags.current or flag == p.flags.former then
self:setPeriod(flag)
return true
elseif flag == "" then
-- ignore empty flags and carry on
return true
else
return false
end
end
end
local now = os.date('!*t')
 
function Config:processFlagOrCommand(flag)
startTime = self:getSingleRawQualifier(claim, p.aliasesP.startTime)
local param = ""
if startTime and startTime ~= "" and startTime ~= " " then
 
startTimeY, startTimeM, startTimeD = parseDate(startTime)
if not flag then
end
return false
endTime = self:getSingleRawQualifier(claim, p.aliasesP.endTime)
if endTime and endTime ~= "" and endTime ~= " " then
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
if startTimeY ~= nil and endTimeY ~= nil and datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
-- invalidate end time if it precedes start time
endTimeY = nil
endTimeM = nil
endTimeD = nil
end
if self.periods[1] then
-- future
if startTimeY and datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD) then
return true
end
end
end
 
if self.periods[2] then
if flag == p.claimCommands.property or flag == p.claimCommands.properties then
-- current
param = parameters.property
if (startTimeY == nil or not datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD)) and
elseif flag == p.claimCommands.qualifier or flag == p.claimCommands.qualifiers then
  (endTimeY == nil or datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD)) then
self.states.qualifiersCount = self.states.qualifiersCount + 1
return true
param = parameters.qualifier .. self.states.qualifiersCount
end
self.separators["sep"..param] = {copyTable(defaultSeparators["sep%q\\d"])}
elseif flag == p.claimCommands.reference or flag == p.claimCommands.references then
param = parameters.reference
else
return self:processFlag(flag)
end
end
 
if self.periods[3] then
if self.states[param] then
-- former
return false
if endTimeY and not datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD) then
return true
end
end
end
 
return false
-- create a new state for each command
self.states[param] = State:new(self, param)
 
-- use "%x" as the general parameter name
self.states[param].parsedFormat = parseFormat(parameters.general)  -- will be overwritten for param=="%p"
 
-- set the separator
self.states[param].separator = self.separators["sep"..param]  -- will be nil for param=="%p", which will be set separately
 
if flag == p.claimCommands.property or flag == p.claimCommands.qualifier or flag == p.claimCommands.reference then
self.states[param].singleValue = true
end
 
self.curState = self.states[param]
 
return true
end
 
function Config:processSeparators(args)
local sep
 
for i, v in pairs(self.separators) do
if args[i] then
sep = replaceSpecialChars(args[i])
 
if sep ~= "" then
self.separators[i][1] = {sep}
else
self.separators[i][1] = nil
end
end
end
end
 
function Config:setFormatAndSeparators(state, parsedFormat)
state.parsedFormat = parsedFormat
state.separator = self.separators["sep"]
state.movSeparator = self.separators["sep"..parameters.separator]
state.puncMark = self.separators["punc"]
end
end


1,507行目: 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,517行目: 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,540行目: 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,551行目: 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,558行目: 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,579行目: 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,599行目: 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,611行目: 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,624行目: 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,637行目: 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,667行目: 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,679行目: 1,803行目:
-- level 2 hook
-- level 2 hook
function State:getReference(statement)
function State:getReference(statement)
local lang, key, citeWeb, citeQ, label
local key, citeWeb, citeQ, label
local langParams = {p.aliasesP.language, p.aliasesP.languageOfWorkOrName}
local params = {}
local params = {}
local citeParams = {['web'] = {}, ['q'] = {}}
local citeParams = {['web'] = {}, ['q'] = {}}
1,688行目: 1,811行目:
local value = ""
local value = ""
local ref = {}
local ref = {}
 
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
 
-- don't include "inferred from", which is added by a bot
if statement.snaks[aliasesP.inferredFrom] then
statement.snaks[aliasesP.inferredFrom] = nil
end
 
-- don't include "type of reference"
if statement.snaks[aliasesP.typeOfReference] then
statement.snaks[aliasesP.typeOfReference] = nil
end
 
-- don't include "image" to prevent littering
if statement.snaks[aliasesP.image] then
statement.snaks[aliasesP.image] = nil
end
end
 
-- don't include languages that are equal to the local one
-- don't include "language" if it is equal to the local one
for i, v in ipairs(langParams) do
if self:getReferenceDetail(statement.snaks, aliasesP.language) == self.conf.langName then
lang = self:getReferenceDetail(statement.snaks, v)
statement.snaks[aliasesP.language] = nil
if self.conf.langName == lang then
statement.snaks[v] = nil
end
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,721行目: 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,728行目: 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,734行目: 1,870行目:
if not citeMismatch[j] then
if not citeMismatch[j] then
-- check if this parameter is not mismatching itself
-- check if this parameter is not mismatching itself
if s.i18n['cite'][j][key] then
if i18n['cite'][j][key] then
-- continue if an option is available in the corresponding cite template
-- continue if an option is available in the corresponding cite template
if s.i18n['cite'][j][key] ~= "" then
if i18n['cite'][j][key] ~= "" then
citeParams[j][s.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
citeParams[j][s.i18n['cite'][j][key]..k] = label .. params[i][k]
citeParams[j][i18n['cite'][j][key]..k] = label .. params[i][k]
end
end
end
end
1,751行目: 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'][s.i18n['cite']['web'][p.aliasesP.referenceURL]] and citeParams['web'][s.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'][s.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'][s.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,778行目: 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 = statement.hash
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,848行目: 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,876行目: 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
1,893行目: 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
1,915行目: 2,051行目:
end
end


function State:callHook(param, hooks, statement, result)
-- level 1 hook
local valuesArray, refHash
function State:getBadge(value)
value = self.conf:getLabel(value, self.rawValue, self.linked, self.shortName)
-- 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 value == "" then
valuesArray = self[hooks[param]](self, statement, param, result, hooks)  -- array with value objects
value = nil
end
 
value = {value}  -- create one value object
 
if #value > 0 then
return {value}  -- wrap the value object in an array and return it
else
return {}  -- return empty array if there was no value
end
end
 
function State:callHook(param, hooks, statement, result)
local valuesArray, refHash
 
-- call a parameter's hook if it has been defined and if it has not been called before
if not result[param] and hooks[param] then
valuesArray = self[hooks[param]](self, statement, param, result, hooks)  -- array with value objects
 
-- add to the result
-- add to the result
if #valuesArray > 0 then
if #valuesArray > 0 then
1,931行目: 2,084行目:
end
end
end
end
 
return false
return false
end
end
1,938行目: 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;
1,968行目: 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;
1,975行目: 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
1,991行目: 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,002行目: 2,155行目:
end
end
end
end
 
return self:out()
return self:out()
end
end


function extractEntityFromInput(id, allowUnknown)
local function getEntityId(arg, eid, page, allowOmitPropPrefix)
if id:sub(1,1):upper() == "Q" then
local id = nil
return id:upper()
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 allowUnknown and id ~= "" then  
if arg:sub(1,1) == ":" then
return replaceAlias(id):upper()
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
 
if eid then
if eid:sub(1,9):lower() == "property:" then
id = replaceAlias(mw.text.trim(eid:sub(10)))
 
if id:sub(1,1):upper() ~= "P" then
id = ""
end
else
id = replaceAlias(eid)
end
elseif page then
if page:sub(1,1) == ":" then
page = mw.text.trim(page:sub(2))
end
 
id = mw.wikibase.getEntityIdForTitle(page) or ""
end
 
if not id then
id = mw.wikibase.getEntityIdForCurrentPage() or ""
end
 
id = id:upper()
 
if not mw.wikibase.isValidEntityId(id) then
id = ""
end
end
return id, prop
end
end


function extractEntityFromArgs(args, nextIndex, handleUnknownPos)
local function nextArg(args)
local id, eidArg
local arg = args[args.pointer]
 
if args[nextIndex] then
if arg then
args[nextIndex] = mw.text.trim(args[nextIndex])
args.pointer = args.pointer + 1
return mw.text.trim(arg)
else
else
args[nextIndex] = ""
return nil
end
id = extractEntityFromInput(args[nextIndex], handleUnknownPos)
eidArg = args[p.args.eid]
if id then
return id, nextIndex + 1
elseif not eidArg then
return mw.wikibase.getEntityIdForCurrentPage(), nextIndex  -- by default, use item-entity connected to current page
else
return extractEntityFromInput(eidArg, true), nextIndex
end
end
end
end


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


function nameCommand(args, funcName)
local function generalCommand(args, funcName)
local _ = Config.new()
local cfg = Config:new()
_.curState = State.new(_)
cfg.curState = State:new(cfg)
 
local lastArg
local value = nil
local value = nil
local nextIndex = 1
 
repeat
while _:processFlag(args[nextIndex]) do
lastArg = nextArg(args)
nextIndex = nextIndex + 1
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
end
 
_.entityID, nextIndex = extractEntityFromArgs(args, nextIndex, true)
-- if eid was expliclty set to empty, then this returns an empty string
if _.entityID == nil then
return ""
end
-- serve according to the given command
-- serve according to the given command
if funcName == p.nameCommands.label then
if funcName == p.generalCommands.label then
value = _:getLabel(_.entityID, _.curState.rawValue, _.curState.linked, _.curState.shortName)
value = cfg:getLabel(cfg.entityID, cfg.curState.rawValue, cfg.curState.linked, cfg.curState.shortName)
elseif funcName == p.nameCommands.title then
elseif funcName == p.generalCommands.title then
_.pageTitle = true
cfg.inSitelinks = true
 
if _.entityID:sub(1,1) == "Q" then
if cfg.entityID:sub(1,1) == "Q" then
value = mw.wikibase.sitelink(_.entityID)
value = mw.wikibase.getSitelink(cfg.entityID)
end
end
 
if _.curState.linked and value then
if cfg.curState.linked and value then
value = buildWikilink(value)
value = buildWikilink(value)
end
end
elseif funcName == p.nameCommands.alias or funcName == p.nameCommands.aliases then
elseif funcName == p.generalCommands.description then
local aliases, parsedFormat, formatParams, sep
value = mw.wikibase.getDescription(cfg.entityID)
else
local parsedFormat, formatParams
local hooks = {count = 0}
local hooks = {count = 0}
 
if funcName == p.nameCommands.alias then
cfg.entity = mw.wikibase.getEntity(cfg.entityID)
_.curState.singleValue = true
 
if funcName == p.generalCommands.alias or funcName == p.generalCommands.badge then
cfg.curState.singleValue = true
end
end
 
-- parse the desired format, or parse the default aliases format
if funcName == p.generalCommands.alias or funcName == p.generalCommands.aliases then
if args["format"] then
if not cfg.entity.aliases or not cfg.entity.aliases[cfg.langCode] then
parsedFormat, formatParams = parseFormat(args["format"])
return ""  -- there is no use to continue without any aliasses
else
end
parsedFormat, formatParams = parseFormat(formats.alias)
 
end
local aliases = cfg.entity.aliases[cfg.langCode]
 
-- process overridden separator values;
-- parse the desired format, or parse the default aliases format
-- must come AFTER parsing the format
if args["format"] then
for i, v in pairs(_.separators) do
parsedFormat, formatParams = parseFormat(args["format"])
if args[i] then
else
sep = replaceSpecialChars(args[i])
parsedFormat, formatParams = parseFormat(formats.alias)
end
if sep ~= "" then
 
_.separators[i][1] = {sep}
-- process overridden separator values;
else
-- must come AFTER tweaking the default separators
_.separators[i][1] = nil
cfg:processSeparators(args)
end
 
-- define the hook that should be called (getAlias);
-- only define the hook if the parameter ("%a") has been given
if formatParams[parameters.alias] then
hooks[parameters.alias] = getHookName(parameters.alias, 1)
hooks.count = hooks.count + 1
end
 
-- set the parsed format and the separators (and optional punctuation mark)
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
end
end
 
-- process overridden separator values;
-- define the hook that should be called (getAlias);
-- must come AFTER tweaking the default separators
-- only define the hook if the parameter ("%a") has been given
cfg:processSeparators(args)
if formatParams[parameters.alias] then
 
hooks[parameters.alias] = getHookName(parameters.alias, 1)
-- define the hook that should be called (getBadge);
hooks.count = hooks.count + 1
-- only define the hook if the parameter ("%b") has been given
end
if formatParams[parameters.badge] then
hooks[parameters.badge] = getHookName(parameters.badge, 1)
-- set the parsed format and the separators (and optional punctuation mark)
hooks.count = hooks.count + 1
_.curState.parsedFormat = parsedFormat
end
_.curState.separator = _.separators["sep"]
 
_.curState.movSeparator = _.separators["sep"..parameters.separator]
-- set the parsed format and the separators (and optional punctuation mark)
_.curState.puncMark = _.separators["punc"]
cfg:setFormatAndSeparators(cfg.curState, parsedFormat)
 
_.entity = mw.wikibase.getEntity(_.entityID)
-- iterate to collect values
value = cfg:concatValues(cfg.curState:iterate(badges, hooks))
if _.entity and _.entity.aliases then aliases = _.entity.aliases[_.langCode] end
if aliases then
value = _:concatValues(_.curState:iterate(aliases, hooks))
end
end
end
end
 
value = value or ""
value = value or ""
 
if _.editable and value ~= "" then
if cfg.editable and value ~= "" then
-- if desired, add a clickable icon that may be used to edit the returned value on Wikidata
-- if desired, add a clickable icon that may be used to edit the returned value on Wikidata
value = value .. _:getEditIcon()
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 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)
 
-- remove the function name from the list
table.remove(args, 1)


-- modules that include this module should call the functions with an underscore prepended, e.g.: p._property(args)
function establishCommands(commandList, commandFunc)
for commandIndex, commandName in pairs(commandList) do
local function wikitextWrapper(frame)
loadSubmodules(frame)
return commandFunc(copyTable(frame.args), commandName)
end
p[commandName] = wikitextWrapper
local function luaWrapper(args)
loadSubmodules()
return commandFunc(args, commandName)
end
p["_" .. commandName] = luaWrapper
end
end
establishCommands(p.valueCommands, valueCommand)
establishCommands(p.nameCommands, nameCommand)
-- main function that is supposed to be used by wrapper templates
function p.main(frame)
local f, args, i, v
loadSubmodules(frame)
-- get the parent frame to take the arguments that were passed to the wrapper template
frame = frame:getParent() or frame
if not frame.args[1] then
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)
-- remove the function name from the list
table.remove(args, 1)
return p["_"..f](args)
return p["_"..f](args)
end
end


return p
return p
「https://wiki.sakishima.net/特別:携帯機器差分/6757...6768」から取得