関南・東山地方Wiki

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

モジュール 議論

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

2017年1月13日 (金) 14:42時点における版

10,032 バイト追加 、 2017年1月13日 (金)
en:Module:Wd 2017年1月12日 (木) 22:42(UTC)より
template>K-iczn
(en:Module:Wd 2016年12月11日 (日) 14:14‎(UTC)より)
template>K-iczn
(en:Module:Wd 2017年1月12日 (木) 22:42(UTC)より)
2行目: 2行目:


local aliasesP = {
local aliasesP = {
coord          = "P625",
author          = "P50",
author          = "P50",
publisher      = "P123",
publisher      = "P123",
importedFrom    = "P143",
importedFrom    = "P143",
statedIn        = "P248",
statedIn        = "P248",
coord          = "P625",
publicationDate = "P577",
publicationDate = "P577",
startTime      = "P580",
startTime      = "P580",
24行目: 24行目:
prolepticJulianCalendar = "Q1985786"
prolepticJulianCalendar = "Q1985786"
}
}
local parameters = {
property  = "%p",
qualifier = "%q",
reference = "%r",
separator = "%s"
}
local formats = {
property              = "%p[%s][%r]",
qualifier            = "%q[%s][%r]",
reference            = "%r",
propertyWithQualifier = "%p[ <span style=\"font-size:smaller\">(%q)</span>][%s][%r]"
}
local hookNames = {
                      -- {level_1, level_2}
[parameters.property]  = {"getProperty"},
[parameters.qualifier] = {"getQualifiers", "getQualifier"},
[parameters.reference] = {"getReferences", "getReference"}
}
local Config = {}
Config.__index = Config
-- allows for recursive calls
function Config.new()
local cfg = {}
setmetatable(cfg, Config)
cfg.separators = {
-- use tables so that we can pass by reference
["sep"]  = {" "},
["sep%s"] = {","},
["sep%q"] = {", "},
["sep%r"] = {""},
["punc"] = {""}
}
cfg.entity = nil
cfg.propertyID = nil
cfg.propertyValue = nil
cfg.qualifierID = nil
cfg.bestRank = true
cfg.foundRank = 3
cfg.maxRank = nil
cfg.minRank = nil
cfg:setRankBoundaries("best")
cfg.period = 0
cfg.mdyDate = false
cfg.pageTitle = false
cfg.langCode = mw.language.getContentLanguage().code
cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode)
cfg.langObj = mw.language.new(cfg.langCode)
cfg.states = {}
cfg.curState = nil
return cfg
end


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


-- allows for recursive calls
function State.new(cfg)
function State.new()
local stt = {}
local stt = {}
setmetatable(stt, State)
setmetatable(stt, State)
stt.conf = cfg
stt.outPreferred = {}
stt.outPreferred = {}
37行目: 102行目:
stt.outDeprecated = {}
stt.outDeprecated = {}
stt.bestRank = true
stt.parsedFormat = {}
stt.foundRank = 3
stt.separator = {}
stt.maxRank = nil
stt.movSeparator = {}
stt.minRank = nil
stt.puncMark = {}
stt.period = 0
stt.propertyWithQualifier = false
stt.pageTitle = false
stt.linked = false
stt.linked = false
51行目: 111行目:
stt.shortName = false
stt.shortName = false
stt.singleValue = false
stt.singleValue = false
stt.mdyDate = false
stt.withRefs = false
stt.langCode = mw.language.getContentLanguage().code
stt.langName = mw.language.fetchLanguageName(stt.langCode, stt.langCode)
stt.langObj = mw.language.new(stt.langCode)
stt:setRankBoundaries("best")
return stt
return stt
end
end


function State:unknownDatatypeError(type)
function unknownDataTypeError(dataType)
return "<strong class=\"error\">'" .. type .. "'は不明もしくは未対応のデータタイプです。</strong>"
return "<strong class=\"error\">'" .. type .. "'は不明もしくは未対応のデータタイプです。</strong>"
end
end


function State:parseWikidataURL(url)
function missingRequiredParameterError()
return "<strong class=\"error\">No required parameters defined, needing at least one.</strong>"
end
 
function extraRequiredParameterError(param)
return "<strong class=\"error\">Parameter '" .. param .. "' must be defined as optional.</strong>"
end
 
function parseWikidataURL(url)
local i, j
local i, j
81行目: 141行目:
end
end


function State: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
149行目: 209行目:
end
end


function State:convertUnit(unit, link)
function convertUnit(unit, link)
link = link or false
link = link or false
local itemID, label, title
local itemID, label, title
157行目: 217行目:
end
end
itemID = self:parseWikidataURL(unit)
itemID = parseWikidataURL(unit)
if itemID then
if itemID then
187行目: 247行目:
end
end


function State:getShortName(itemID)
function getOrdinalSuffix(num)
return p._property({"single", itemID, aliasesP.shortName})
end
 
function State:getLabel(ID)
return p._label({ID})
end
 
function State:getOrdinalSuffix(num)
if tostring(num):sub(-2,-2) == '1' then
if tostring(num):sub(-2,-2) == '1' then
return "th"  -- 10th, 11th, 12th, 13th, ... 19th
return "th"  -- 10th, 11th, 12th, 13th, ... 19th
213行目: 265行目:
end
end


function State:addDecimalMarks(n)
function addDecimalMarks(n)
local left,num,right = string.match(n,'^([^%d]*%d)(%d*)(.-)$')
local left,num,right = string.match(n,'^([^%d]*%d)(%d*)(.-)$')
return left..(num:reverse():gsub('(%d%d%d)','%1,'):reverse())..right
return left..(num:reverse():gsub('(%d%d%d)','%1,'):reverse())..right
end
end


function State:getValue(snak, raw, link, anyLang)
function convertRank(rank)
if (rank == "preferred") then
return 1
elseif (rank == "normal") then
return 2
elseif (rank == "deprecated") then
return 3
else
return 4  -- default (in its literal sense)
end
end
 
function datePrecedesDate(aY, aM, aD, bY, bM, bD)
if aY == nil or bY == nil then
return nil
end
aM = aM or 1
aD = aD or 1
bM = bM or 1
bD = bD or 1
if aY < bY then
return true
end
if aY > bY then
return false
end
if aM < bM then
return true
end
if aM > bM then
return false
end
if aD < bD then
return true
end
return false
end
 
function alwaysTrue()
return true
end
 
function parseFormat(str)
local chr, esc, param, root, cur
local params = {}
local function newObject(array)
local obj = {}  -- new object
obj.str = ""
array[#array + 1] = obj  -- array{object}
obj.parent = array
return obj
end
root = {}  -- array
root.req = {}
cur = newObject(root)
esc = false
param = false
for i = 1, #str do
chr = str:sub(i,i)
if not esc then
if chr == '\\' then
esc = true
elseif chr == '%' then
cur = newObject(cur.parent)
param = true
else
if chr == '[' then
cur.child = {}  -- new array
cur.child.req = {}
cur.child.parent = cur
cur = newObject(cur.child)
elseif chr == ']' then
if cur.parent.parent then
cur = newObject(cur.parent.parent.parent)
end
else
cur.str = cur.str .. chr
if param then
cur.str = "%"..cur.str
cur.param = true
params[cur.str] = true
cur.parent.req[cur.str] = true
cur = newObject(cur.parent)
end
end
param = false
end
else
cur.str = cur.str .. chr
esc = false
if param then
cur.str = "%"..cur.str
cur.param = true
params[cur.str] = true
cur.parent.req[cur.str] = true
cur = newObject(cur.parent)
param = false
end
end
end
return root, params
end
 
function getShortName(itemID)
return p._property({itemID, aliasesP.shortName})  -- "property" is single
end
 
function getLabel(ID)
return p._label({ID})
end
 
function Config:getValue(snak, raw, link, short, anyLang)
raw = raw or false
raw = raw or false
link = link or false
link = link or false
short = short or false
anyLang = anyLang or false
anyLang = anyLang or false
239行目: 420行目:
if not raw then
if not raw then
value = self:addDecimalMarks(value)
value = addDecimalMarks(value)
local unit = self:convertUnit(snak.datavalue.value['unit'], link)
local unit = convertUnit(snak.datavalue.value['unit'], link)
if unit then
if unit then
value = value .. unit
value = value .. unit
265行目: 446行目:
end
end
y, m, d = self:parseDate(snak.datavalue.value['time'], p)
y, m, d = parseDate(snak.datavalue.value['time'], p)
if y < 0 then
if y < 0 then
291行目: 472行目:
end
end
suffix = self:getOrdinalSuffix(yRound) .. suffix
suffix = 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
367行目: 548行目:
end
end
if addUnit then
if not raw then
if precision == 3 then
if precision == 3 then
suffix = "百万年"
suffix = "百万年"
390行目: 571行目:
if mayAddCalendar then
if mayAddCalendar then
calendarID = self:parseWikidataURL(snak.datavalue.value['calendarmodel'])
calendarID = parseWikidataURL(snak.datavalue.value['calendarmodel'])
if calendarID and calendarID == aliasesQ.prolepticJulianCalendar then
if calendarID and calendarID == aliasesQ.prolepticJulianCalendar then
if addUnit then
if not raw then
if addLink then
if link then
calendar = " ([[ユリウス暦]])"
calendar = " ([[ユリウス暦]])"
else
else
528行目: 709行目:
if link then
if link then
globe = self:parseWikidataURL(snak.datavalue.value['globe'])
globe = parseWikidataURL(snak.datavalue.value['globe'])
if globe then
if globe then
553行目: 734行目:
end
end
if self.shortName then
if short then
value = self:getShortName(itemID)
value = getShortName(itemID)
end
end
577行目: 758行目:
return value
return value
else
else
return self:unknownDatatypeError(snak.datavalue.type)
return unknownDataTypeError(snak.datavalue.type)
end
end
elseif snak.snaktype == 'somevalue' then
elseif snak.snaktype == 'somevalue' then
587行目: 768行目:
elseif snak.snaktype == 'novalue' then
elseif snak.snaktype == 'novalue' then
if raw then
if raw then
return ""  -- empty value represents 'novalue'
return ""  -- empty string represents 'novalue'
else
else
return "none"
return "none"
596行目: 777行目:
end
end


function State:getSingleRawQualifier(claim, qualifierID)
function Config:getSingleRawQualifier(claim, qualifierID)
local qualifiers
local qualifiers
608行目: 789行目:
end
end


function State:snakEqualsValue(snak, value)
function Config:snakEqualsValue(snak, value)
local snakValue = self:getValue(snak, true)  -- raw = true
local snakValue = self:getValue(snak, true)  -- raw = true
616行目: 797行目:
end
end


function State:setRankBoundaries(rank)
function Config:setRankBoundaries(rank)
local rankPos
local rankPos
self.foundRank = 3  -- must equal the lowest possible rank
if (rank == "best") then
if (rank == "best") then
self.bestRank = true
self.bestRank = true
self.foundRank = 3
return
return
else
else
647行目: 829行目:
end
end


function State:convertRank(rank)
function Config:processFlag(flag)
if (rank == "preferred") then
if flag == "linked" then
return 1
self.curState.linked = true
elseif (rank == "normal") then
return true
return 2
elseif flag == "raw" then
elseif (rank == "deprecated") then
self.curState.rawValue = true
return 3
else
if self.curState == self.states[parameters.reference] then
return 4  -- default (in its literal sense)
-- raw reference values end with periods and require a separator different from ""
end
self.separators["sep%r"][1] = " "
end
 
function State:rankMatches(rankPos)
if self.bestRank then
if self.foundRank > rankPos then
self.foundRank = rankPos
-- found a better rank, reset worse rank outputs
if self.foundRank == 1 then
self.outNormal = {}
self.outDeprecated = {}
elseif self.foundRank == 2 then
self.outDeprecated = {}
end
end
end
return self.foundRank >= rankPos  -- == would also work here
return true
elseif flag == "short" then
self.curState.shortName = true
return true
elseif flag == "mdy" then
self.mdyDate = true
return true
elseif flag == "best" or flag:match('^preferred[+-]?$') or flag:match('^normal[+-]?$') or flag:match('^deprecated[+-]?$') then
self:setRankBoundaries(flag)
return true
elseif flag == "future" then
self.period = 1
return true
elseif flag == "current" then
self.period = 2
return true
elseif flag == "former" then
self.period = 3
return true
elseif flag == "" then
-- ignore empty flags and carry on
return true
else
else
return (self.maxRank <= rankPos and rankPos <= self.minRank)
return false
end
end
end
end


function State:datePrecedesDate(aY, aM, aD, bY, bM, bD)
function Config:processFlagOrCommand(flag)
if aY == nil or bY == nil then
local param = ""
return nil
end
aM = aM or 1
aD = aD or 1
bM = bM or 1
bD = bD or 1
if aY < bY then
if flag == "property" or flag == "properties" then
return true
param = parameters.property
elseif flag:match('^qualifier[s]?$') then
param = parameters.qualifier
elseif flag:match('^reference[s]?$') then
param = parameters.reference
else
return self:processFlag(flag)
end
end
if aY > bY then
if self.states[param] then
return false
return false
end
end
if aM < bM then
-- create a new State for each command
return true
self.states[param] = State.new(self)
-- use "%x" as the general parameter name
self.states[param].parsedFormat = parseFormat("%x")  -- 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 string.sub(flag, -1) ~= 's' then
self.states[param].singleValue = true
end
end
if aM > bM then
self.curState = self.states[param]
return false
end
if aD < bD then
return true
return true
end
 
function Config:rankMatches(rankPos)
if self.bestRank then
return self.foundRank >= rankPos
else
return (self.maxRank <= rankPos and rankPos <= self.minRank)
end
end
return false
end
end


function State:timeMatches(claim)
function Config:timeMatches(claim)
local startTime = nil
local startTime = nil
local startTimeY = nil
local startTimeY = nil
730行目: 930行目:
startTime = self:getSingleRawQualifier(claim, aliasesP.startTime)
startTime = self:getSingleRawQualifier(claim, aliasesP.startTime)
if startTime and startTime ~= "" and startTime ~= " " then
if startTime and startTime ~= "" and startTime ~= " " then
startTimeY, startTimeM, startTimeD = self:parseDate(startTime)
startTimeY, startTimeM, startTimeD = parseDate(startTime)
end
end
endTime = self:getSingleRawQualifier(claim, aliasesP.endTime)
endTime = self:getSingleRawQualifier(claim, aliasesP.endTime)
if endTime and endTime ~= "" and endTime ~= " " then
if endTime and endTime ~= "" and endTime ~= " " then
endTimeY, endTimeM, endTimeD = self:parseDate(endTime)
endTimeY, endTimeM, endTimeD = parseDate(endTime)
elseif endTime == " " then
elseif endTime == " " then
-- end time is 'unknown', assume it is somewhere in the past;
-- end time is 'unknown', assume it is somewhere in the past;
744行目: 944行目:
end
end
if startTimeY ~= nil and endTimeY ~= nil and self:datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
if startTimeY ~= nil and endTimeY ~= nil and datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
-- invalidate end time if it precedes start time
-- invalidate end time if it precedes start time
endTimeY = nil
endTimeY = nil
753行目: 953行目:
if self.period == 1 then
if self.period == 1 then
-- future
-- future
if startTimeY == nil or not self:datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD) then
if startTimeY == nil or not datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD) then
return false
return false
else
else
760行目: 960行目:
elseif self.period == 2 then
elseif self.period == 2 then
-- current
-- current
if (startTimeY ~= nil and self:datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD)) or
if (startTimeY ~= nil and datePrecedesDate(now['year'], now['month'], now['day'], startTimeY, startTimeM, startTimeD)) or
  (endTimeY ~= nil and not self:datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD)) then
  (endTimeY ~= nil and not datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD)) then
    return false
    return false
else
else
768行目: 968行目:
elseif self.period == 3 then
elseif self.period == 3 then
-- former
-- former
if endTimeY == nil or self:datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD) then
if endTimeY == nil or datePrecedesDate(now['year'], now['month'], now['day'], endTimeY, endTimeM, endTimeD) then
return false
return false
else
else
776行目: 976行目:
end
end


function State:appendOutput(value, rankPos)
function State:claimMatches(claim)
local matches, rankPos
-- if a property value was given, check if it matches the claim's property value
if self.conf.propertyValue then
matches = self.conf:snakEqualsValue(claim.mainsnak, self.conf.propertyValue)
else
matches = true
end
-- check if the claim's rank and time period match
rankPos = convertRank(claim.rank)
matches = (matches and self.conf:rankMatches(rankPos) and self.conf:timeMatches(claim))
return matches, rankPos
end
 
function State:appendOutput(result, rankPos)
local done = false
local done = false
-- a rankPos should only apply to complete claims, not to its individual qualifiers or references;
-- for the latter two, no rankPos should be given and their default rankPos must be the highest possible (i.e. 1)
if rankPos then
if (self.conf.bestRank or self.singleValue) and self.conf.foundRank > rankPos then
self.conf.foundRank = rankPos
-- found a better rank, reset worse rank outputs
if self.conf.foundRank == 1 then
self.outNormal = {}
self.outDeprecated = {}
elseif self.conf.foundRank == 2 then
self.outDeprecated = {}
end
end
else
rankPos = 1
end
if rankPos == 1 then
if rankPos == 1 then
self.outPreferred[#self.outPreferred + 1] = value
self.outPreferred[#self.outPreferred + 1] = result
if self.singleValue then
if self.singleValue then
786行目: 1,021行目:
end
end
elseif rankPos == 2 then
elseif rankPos == 2 then
self.outNormal[#self.outNormal + 1] = value
self.outNormal[#self.outNormal + 1] = result
if self.singleValue and not self.bestRank and self.maxRank == 2 then
if self.singleValue and not self.conf.bestRank and self.conf.maxRank == 2 then
done = true
done = true
end
end
elseif rankPos == 3 then
elseif rankPos == 3 then
self.outDeprecated[#self.outDeprecated + 1] = value
self.outDeprecated[#self.outDeprecated + 1] = result
if self.singleValue and not self.bestRank and self.maxRank == 3 then
if self.singleValue and not self.conf.bestRank and self.conf.maxRank == 3 then
done = true
done = true
end
end
805行目: 1,040行目:
local out = ""
local out = ""
if self.outDeprecated[1] then
local function walk(formatTable, result)
if self.singleValue then
local str = ""
out = self.outDeprecated[1]
else
for i, v in pairs(formatTable.req) do
out = table.concat(self.outDeprecated, ", ")
if not result[i] then
-- we've got no result for a parameter that is required on this level,
-- so skip this level (and its children) by returning an empty string
return ""
end
end
end
end
for i, v in ipairs(formatTable) do
if self.outNormal[1] then
if v.param then
if self.singleValue then
str = str .. result[v.str]
out = self.outNormal[1]
else
else
str = str .. v.str
if out ~= "" then
out = "; " .. out
end
end
out = table.concat(self.outNormal, ", ") .. out
if v.child then
str = str .. walk(v.child, result)
end
end
end
return str
end
end
if self.outPreferred[1] then
local function prepend(results)
if self.singleValue then
local sep = ""
out = self.outPreferred[1]
local result, value
else
-- iterate from back to front, so that we know when to add separators
for i = #results, 1, -1 do
result = results[i]
-- if there is already some output, then add the separators
if out ~= "" then
if out ~= "" then
out = "; " .. out
sep = self.separator[1]  -- fixed separator
result[parameters.separator] = self.movSeparator[1]  -- movable separator
else
sep = ""
result[parameters.separator] = self.puncMark[1]  -- optional punctuation mark
end
end
out = table.concat(self.outPreferred, ", ") .. out
value = walk(self.parsedFormat, result)
if value ~= "" then
out = value .. sep .. out
end
end
end
end
end
prepend(self.outDeprecated)
prepend(self.outNormal)
prepend(self.outPreferred)
-- reset state before next iteration
self.outDeprecated = {}
self.outNormal = {}
self.outPreferred = {}
return out
return out
end
end


-- logic based on https://www.wikidata.org/wiki/Help:Sources
-- level 1 hook
function State:getProperty(claim)
return self.conf:getValue(claim.mainsnak, self.rawValue, self.linked, self.shortName)
end
 
-- level 1 hook
function State:getQualifiers(claim)
local qualifiers
if claim.qualifiers then qualifiers = claim.qualifiers[self.conf.qualifierID] end
if qualifiers then
-- iterate through claim's qualifier statements to collect their values
return self.conf.states[parameters.qualifier]:iterate(qualifiers, {["%x"] = hookNames[parameters.qualifier][2], count = 1})  -- pass qualifier State with level 2 hook
else
return nil
end
end
 
-- level 2 hook
function State:getQualifier(snak)
return self.conf:getValue(snak, self.rawValue, self.linked, self.shortName)
end
 
-- level 1 hook
function State:getReferences(claim)
function State:getReferences(claim)
local snaks, snakValue, lang, params, leadParams, property, ref
if claim.references then
-- iterate through claim's reference statements to collect their values
return self.conf.states[parameters.reference]:iterate(claim.references, {["%x"] = hookNames[parameters.reference][2], count = 1})  -- pass reference State with level 2 hook
else
return nil
end
end
 
-- level 2 hook
-- logic determined based on https://www.wikidata.org/wiki/Help:Sources
function State:getReference(statement)
local snakValue, lang, property
local value = ""
local value = ""
local snaks = {}
local params = {}
local leadParams = {}
if not claim.references then
if statement.snaks then
return ""
for i, v in pairs(statement.snaks) do
end
if v[1] then
snaks[i] = v[1]
for i, v in ipairs(claim.references) do
end
if v.snaks then
end
ref = ""
snaks = {}
if snaks[aliasesP.importedFrom] then
params = {}
snaks[aliasesP.importedFrom] = nil
leadParams = {}
end
if snaks[aliasesP.referenceURL] and snaks[aliasesP.title] then
params["url"] = self.conf:getValue(snaks[aliasesP.referenceURL])
params["title"] = self.conf:getValue(snaks[aliasesP.title], false, false, false, true)  -- anyLang = true
if snaks[aliasesP.publicationDate] then params["date"]        = self.conf:getValue(snaks[aliasesP.publicationDate])                  end
if snaks[aliasesP.retrieved]      then params["access-date"]  = self.conf:getValue(snaks[aliasesP.retrieved])                        end
if snaks[aliasesP.archiveURL]      then params["archive-url"]  = self.conf:getValue(snaks[aliasesP.archiveURL])                      end
if snaks[aliasesP.archiveDate]    then params["archive-date"] = self.conf:getValue(snaks[aliasesP.archiveDate])                      end
if snaks[aliasesP.author]          then params["author"]      = self.conf:getValue(snaks[aliasesP.author])                          end
if snaks[aliasesP.publisher]      then params["publisher"]    = self.conf:getValue(snaks[aliasesP.publisher])                        end
if snaks[aliasesP.quote]          then params["quote"]        = self.conf:getValue(snaks[aliasesP.quote], false, false, false, true) end  -- anyLang = true
for i2, v2 in pairs(v.snaks) do
if snaks[aliasesP.language] then
if v2[1] then
snakValue = self.conf:getValue(snaks[aliasesP.language])
snaks[i2] = v2[1]
if self.conf.langName ~= snakValue then
params["language"] = snakValue
end
end
end
end
if snaks[aliasesP.importedFrom] then
value = mw.getCurrentFrame():expandTemplate{title="cite_web", args=params}
snaks[aliasesP.importedFrom] = nil
else
end
for i, v in pairs(snaks) do
property = getLabel(i)
if snaks[aliasesP.referenceURL] and snaks[aliasesP.title] then
params["url"] = self:getValue(snaks[aliasesP.referenceURL])
params["title"] = self:getValue(snaks[aliasesP.title], false, false, true)
if snaks[aliasesP.publicationDate] then params["date"]        = self:getValue(snaks[aliasesP.publicationDate])           end
if property ~= "" then
if snaks[aliasesP.retrieved]      then params["access-date"]  = self:getValue(snaks[aliasesP.retrieved])                end
snakValue, lang = self.conf:getValue(v, false, (i == aliasesP.statedIn), false, true) -- link = true/false, anyLang = true
if snaks[aliasesP.archiveURL]      then params["archive-url"]  = self:getValue(snaks[aliasesP.archiveURL])                end
if snaks[aliasesP.archiveDate]    then params["archive-date"] = self:getValue(snaks[aliasesP.archiveDate])              end
if lang and lang ~= self.conf.langCode then
if snaks[aliasesP.author]          then params["author"]      = self:getValue(snaks[aliasesP.author])                    end
snakValue = "''" .. snakValue .. "'' (" .. mw.language.fetchLanguageName(lang, self.conf.langCode) .. ")"
if snaks[aliasesP.publisher]      then params["publisher"]    = self:getValue(snaks[aliasesP.publisher])                 end
end
if snaks[aliasesP.quote]          then params["quote"]        = self:getValue(snaks[aliasesP.quote], false, false, true) end
if snaks[aliasesP.language] then
snakValue = self:getValue(snaks[aliasesP.language])
if self.langName ~= snakValue then
if i == aliasesP.referenceURL or i == aliasesP.statedIn then
params["language"] = snakValue
leadParams[#leadParams + 1] = snakValue
elseif i ~= aliasesP.language or self.conf.langName ~= snakValue then
params[#params + 1] = property .. ": " .. snakValue
end
end
end
end
value = table.concat(leadParams, "; ")
params = table.concat(params, "; ")
if params ~= "" then
if value ~= "" then
value = value .. "; "
end
value = value .. params
end
if value ~= "" then
value = value .. "."
end
end
if value ~= "" then
if not self.rawValue then
-- add <ref> tags with the reference's hash as its name (to deduplicate references)
value = mw.getCurrentFrame():extensionTag("ref", value, {name = statement.hash})
end
else
value = nil
end
end
return value
end
-- iterate through claims, claim's qualifiers or claim's references to collect values
function State:iterate(statements, hooks, matchHook)
matchHook = matchHook or alwaysTrue
local done = false
local matches = false
local rankPos = nil
local result, numValues, doAppend, gotRequired
for i, v in ipairs(statements) do
-- rankPos will be nil for non-claim statements (e.g. qualifiers, references, etc.),
-- but let appendOutput handle that
matches, rankPos = matchHook(self, v)
if matches then
result = {count = 0}
doAppend = true
-- if we need to return a single value, check if we don't have one already
if self.singleValue then
if not rankPos or rankPos == 1 then
numValues = #self.outPreferred
elseif rankPos == 2 then
numValues = #self.outNormal
elseif rankPos == 3 then
numValues = #self.outDeprecated
end
end
ref = mw.getCurrentFrame():expandTemplate{title="cite_web", args=params}
if numValues > 0 then
else
doAppend = false
for i2, v2 in pairs(snaks) do
end
property = self:getLabel(i2)
end
if doAppend then
local function walk(formatTable)
local value
if property ~= "" then
for i2, v2 in pairs(formatTable.req) do
snakValue, lang = self:getValue(v2, false, (i2 == aliasesP.statedIn), true)
if not result[i2] and hooks[i2] then
-- call a hook and add its return value to the result
value = self[hooks[i2]](self, v)
if value then
result[i2] = value
result.count = result.count + 1
else
return false  -- we miss a required value for this level
end
end
if lang and lang ~= self.langCode then
if result.count == hooks.count then
snakValue = "''" .. snakValue .. "'' (" .. mw.language.fetchLanguageName(lang, self.langCode) .. ")"
-- we're done if all hooks have been called;
-- returning at this point breaks the loop
return true
end
end
for i2, v2 in ipairs(formatTable) do
if result.count == hooks.count then
-- we're done if all hooks have been called;
-- returning at this point prevents further childs from being processed
return true
end
end
if i2 == aliasesP.referenceURL or i2 == aliasesP.statedIn then
if v2.child then
leadParams[#leadParams + 1] = snakValue
walk(v2.child)
elseif i2 ~= aliasesP.language or self.langName ~= snakValue then
params[#params + 1] = property .. ": " .. snakValue
end
end
end
end
return true
end
end
gotRequired = walk(self.parsedFormat)
ref = table.concat(leadParams, "; ")
-- only append the result if we got values for all required parameters on the root level
params = table.concat(params, "; ")
if gotRequired then
done = self:appendOutput(result, rankPos)
if params ~= "" then
if done then
if ref ~= "" then
break
ref = ref .. "; "
end
end
ref = ref .. params
end
end
if ref ~= "" then
ref = ref .. "."
end
end
if ref ~= "" then
value = value .. mw.getCurrentFrame():extensionTag("ref", ref)
end
end
end
end
end
end
return value
return self:out()
end
 
function p.property(frame)
return p._property(frame.args)
end
 
function p._property(args)
return execCommand(args, "property")
end
 
function p.properties(frame)
return p._properties(frame.args)
end
 
function p._properties(args)
return execCommand(args, "properties")
end
 
function p.qualifier(frame)
return p._qualifier(frame.args)
end
 
function p._qualifier(args)
return execCommand(args, "qualifier")
end
 
function p.qualifiers(frame)
return p._qualifiers(frame.args)
end
 
function p._qualifiers(args)
return execCommand(args, "qualifiers")
end
 
function p.reference(frame)
return p._reference(frame.args)
end
 
function p._reference(args)
return execCommand(args, "reference")
end
end


function State:processFlag(flag)
function p.references(frame)
if flag == "linked" then
return p._references(frame.args)
self.linked = true
return true
elseif flag == "raw" then
self.rawValue = true
return true
elseif flag == "short" then
self.shortName = true
return true
elseif flag == "single" then
self.singleValue = true
return true
elseif flag == "mdy" then
self.mdyDate = true
return true
elseif flag == "refs" then
self.withRefs = true
return true
elseif flag == "best" or flag:match('^preferred[+-]?$') or flag:match('^normal[+-]?$') or flag:match('^deprecated[+-]?$') then
self:setRankBoundaries(flag)
return true
elseif flag == "future" then
self.period = 1
return true
elseif flag == "current" then
self.period = 2
return true
elseif flag == "former" then
self.period = 3
return true
elseif flag == "" then
-- ignore empty flags and carry on
return true
else
return false
end
end
end


function p.property(frame)
function p._references(args)
return p._property(frame.args)
return execCommand(args, "references")
end
end


function p._property(args, _)
function execCommand(args, funcName)
_ = _ or State.new()
_ = Config.new()
_:processFlagOrCommand(funcName)  -- process first command (== function name)
local parsedFormat, formatParams, claims
local hooks = {count = 0}
local entity, propertyID, claims, rankPos, value, done
local nextArg = mw.text.trim(args[1] or "")
local nextArg = mw.text.trim(args[1] or "")
local nextIndex = 2
local nextIndex = 2
while _:processFlag(nextArg) do
-- process flags and commands
while _:processFlagOrCommand(nextArg) do
nextArg = mw.text.trim(args[nextIndex] or "")
nextArg = mw.text.trim(args[nextIndex] or "")
nextIndex = nextIndex + 1
nextIndex = nextIndex + 1
end
end
-- check for optional item ID
if nextArg:sub(1,1):upper() == "Q" then
if nextArg:sub(1,1):upper() == "Q" then
entity = mw.wikibase.getEntity(nextArg)
_.entity = mw.wikibase.getEntity(nextArg) -- item ID given
propertyID = mw.text.trim(args[nextIndex] or "")
_.propertyID = mw.text.trim(args[nextIndex] or "") -- property ID
nextIndex = nextIndex + 1
else
else
entity = mw.wikibase.getEntity()
_.entity = mw.wikibase.getEntity() -- no item ID given, use item connected to current page
propertyID = nextArg
_.propertyID = nextArg -- property ID
end
end
if aliasesP[propertyID] then
-- check if given property ID is an alias
propertyID = aliasesP[propertyID]
if aliasesP[_.propertyID] then
_.propertyID = aliasesP[_.propertyID]
end
end
propertyID = propertyID:upper()
_.propertyID = _.propertyID:upper()
if entity and entity.claims then claims = entity.claims[propertyID] end
if _.states[parameters.qualifier] then
if claims then
-- do further processing if "qualifier(s)" command was given
for i, v in ipairs(claims) do
rankPos = _:convertRank(v.rank)
nextArg = args[nextIndex]
if _:rankMatches(rankPos) and _:timeMatches(v) then
nextIndex = nextIndex + 1
value = _:getValue(v.mainsnak, _.rawValue, _.linked)
if value then
_.qualifierID = nextArg
if _.withRefs then
value = value .. _:getReferences(v)
nextArg = mw.text.trim(args[nextIndex] or "")
end
nextIndex = nextIndex + 1
done = _:appendOutput(value, rankPos)
if done then
if nextArg == "" then
break
-- claim ID or literal value has NOT been given
end
_.propertyValue = nil
end
_.qualifierID = mw.text.trim(_.qualifierID or "")
end
else
-- claim ID or literal value has been given
_.propertyValue = _.qualifierID  -- cannot be nil when reached
_.qualifierID = nextArg
end
-- check if given qualifier ID is an alias
if aliasesP[_.qualifierID] then
_.qualifierID = aliasesP[_.qualifierID]
end
end
return _:out()
else
_.qualifierID = _.qualifierID:upper()
return ""
elseif _.states[parameters.reference] then
-- do further processing if "reference(s)" command was given
nextArg = args[nextIndex]
nextIndex = nextIndex + 1
_.propertyValue = nextArg  -- claim ID or literal value (possibly nil)
end
end
end
function p.qualifier(frame)
return p._qualifier(frame.args)
end
function p._qualifier(args, _)
_ = _ or State.new()
local entity, propertyID, propertyValue, qualifierID, claims, qualifiers, rankPos, outValue, outInter, outQualifiers
-- check for special property value 'somevalue' or 'novalue'
local done = false
if _.propertyValue then
if _.propertyValue ~= "" and mw.text.trim(_.propertyValue) == "" then
local nextArg = mw.text.trim(args[1] or "")
_.propertyValue = " "  -- single space represents 'somevalue', whereas empty string represents 'novalue'
local nextIndex = 2
else
_.propertyValue = mw.text.trim(_.propertyValue)
while _:processFlag(nextArg) do
end
nextArg = mw.text.trim(args[nextIndex] or "")
nextIndex = nextIndex + 1
end
end
if nextArg:sub(1,1):upper() == "Q" then
-- parse the desired format, or choose an appropriate format
entity = mw.wikibase.getEntity(nextArg)
if args["format"] then
propertyID = mw.text.trim(args[nextIndex] or "")
parsedFormat, formatParams = parseFormat(mw.text.trim(args["format"]))
nextIndex = nextIndex + 1
elseif _.states[parameters.qualifier] then
if _.states[parameters.property] then
parsedFormat, formatParams = parseFormat(formats.propertyWithQualifier)
else
parsedFormat, formatParams = parseFormat(formats.qualifier)
end
elseif _.states[parameters.property] then
parsedFormat, formatParams = parseFormat(formats.property)
else
else
entity = mw.wikibase.getEntity()
parsedFormat, formatParams = parseFormat(formats.reference)
propertyID = nextArg
-- if only "reference(s)" has been given, make the emtpy string the default separator (except when raw)
if not _.states[parameters.reference].rawValue then
_.separators["sep"][1] = ""
end
end
end
if aliasesP[propertyID] then
-- process overridden separator values;
propertyID = aliasesP[propertyID]
-- must come AFTER parsing the formats
for i, v in pairs(_.separators) do
if args[i] then
_.separators[i][1] = args[i]
end
end
end
propertyID = propertyID:upper()
-- make sure that at least one required parameter has been defined
if not next(parsedFormat.req) then
return missingRequiredParameterError()
end
nextArg = args[nextIndex]
-- make sure that the separator parameter "%s" is not amongst the required parameters
nextIndex = nextIndex + 1
if parsedFormat.req[parameters.separator] then
return extraRequiredParameterError(parameters.separator)
qualifierID = nextArg
end
nextArg = mw.text.trim(args[nextIndex] or "")
nextIndex = nextIndex + 1
if nextArg == "" then
-- define the hooks that should be called (getProperty, getQualifiers, getReferences);
-- claim ID or literal value has NOT been given
-- only define a hook if both its command ("propert(y|ies)", "qualifier(s)", "reference(s)") and its parameter ("%p", "%q", "%r") have been given
propertyValue = nil
for i, v in pairs(_.states) do
qualifierID = mw.text.trim(qualifierID or "")
if formatParams[i] then
else
hooks[i] = hookNames[i][1]
-- claim ID or literal value has been given
hooks.count = hooks.count + 1
propertyValue = qualifierID  -- cannot be nil when reached; empty value represents 'novalue'
if propertyValue ~= "" and mw.text.trim(propertyValue) == "" then
propertyValue = " " -- single space represents 'somevalue'
else
propertyValue = mw.text.trim(propertyValue)
end
end
qualifierID = nextArg
end
end
if aliasesP[qualifierID] then
-- create a state for "properties" if it doesn't exist yet, which will be used as a base configuration for each claim iteration;
qualifierID = aliasesP[qualifierID]
-- must come AFTER defining the hooks
if not _.states[parameters.property] then
_.states[parameters.property] = State.new(_)
end
end
qualifierID = qualifierID:upper()
-- set the parsed format and the separators (and optional punctuation mark)
_.states[parameters.property].parsedFormat = parsedFormat
_.states[parameters.property].separator = _.separators["sep"]
_.states[parameters.property].movSeparator = _.separators["sep"..parameters.separator]
_.states[parameters.property].puncMark = _.separators["punc"]
if entity and entity.claims then claims = entity.claims[propertyID] end
if _.entity and _.entity.claims then claims = _.entity.claims[_.propertyID] end
if claims then
if claims then
for i, v in ipairs(claims) do
-- iterate through the claims to collect values
rankPos = _:convertRank(v.rank)
return _.states[parameters.property]:iterate(claims, hooks, State.claimMatches) -- pass property State with level 1 hooks and matchHook
if propertyValue == nil or _:snakEqualsValue(v.mainsnak, propertyValue) then
if _:rankMatches(rankPos) and _:timeMatches(v) then
outValue = nil
outInter = nil
outQualifiers = {}
if _.propertyWithQualifier then
-- get the property value first
outValue = _:getValue(v.mainsnak, _.rawValue, _.linked)
if outValue and _.withRefs then
outValue = outValue .. _:getReferences(v)
end
end
if v.qualifiers then qualifiers = v.qualifiers[qualifierID] end
if (not _.propertyWithQualifier or outValue) and qualifiers then
-- get a bare qualifier, or the qualifiers connected to the property if it had a value
for i2, v2 in ipairs(qualifiers) do
outInter = _:getValue(v2, _.rawValue, _.linked)
if outInter then
if not _.propertyWithQualifier then
done = _:appendOutput(outInter, rankPos)
if done then
break
end
else
outQualifiers[#outQualifiers + 1] = outInter
end
end
end
end
if _.propertyWithQualifier and outValue then
outQualifiers = table.concat(outQualifiers, ", ")
if outQualifiers ~= "" then
outQualifiers = " <span style=\"font-size:smaller\">(" .. outQualifiers .. ")</span>"
outValue = outValue .. outQualifiers
end
done = _:appendOutput(outValue, rankPos)
end
if done then
break
end
end
end
end
return _:out()
else
else
return ""
return ""
end
end
end
function p.propertyWithQualifier(frame)
return p._propertyWithQualifier(frame.args)
end
function p._propertyWithQualifier(args, _)
_ = _ or State.new()
_.propertyWithQualifier = true
return p._qualifier(args, _)
end
end


1,159行目: 1,510行目:


function p._label(args, _)
function p._label(args, _)
_ = _ or State.new()
_ = _ or Config.new()
_.curState = State.new(_)
local ID
local ID
1,187行目: 1,539行目:
end
end
if _.rawValue then
if _.curState.rawValue then
if mw.wikibase.getEntity(ID) or mw.wikibase.resolvePropertyId(ID) then
if mw.wikibase.getEntity(ID) or mw.wikibase.resolvePropertyId(ID) then
if _.linked then
if _.curState.linked then
if ID:sub(1,1) == "P" then
if ID:sub(1,1) == "P" then
label = "[[d:Property:" .. ID .. "|" .. ID .. "]]"
label = "[[d:Property:" .. ID .. "|" .. ID .. "]]"
1,204行目: 1,556行目:
label = mw.wikibase.label(ID) or ""
label = mw.wikibase.label(ID) or ""
if _.linked and label ~= "" then
if _.curState.linked and label ~= "" then
label = "[[d:Property:" .. ID .. "|" .. label .. "]]"
label = "[[d:Property:" .. ID .. "|" .. label .. "]]"
end
end
1,210行目: 1,562行目:
else
else
if not _.pageTitle then
if not _.pageTitle then
if _.shortName then
if _.curState.shortName then
label = _:getShortName(ID)
label = getShortName(ID)
end
end
1,226行目: 1,578行目:
-- at this point, 'label' will be nil or a non-empty string
-- at this point, 'label' will be nil or a non-empty string
if _.linked or label == nil then
if _.curState.linked or label == nil then
title = mw.wikibase.sitelink(ID)
title = mw.wikibase.sitelink(ID)
end
end
if _.linked and title then
if _.curState.linked and title then
label = "[[" .. title .. "|" .. (label or title) .. "]]"
label = "[[" .. title .. "|" .. (label or title) .. "]]"
else
else
1,238行目: 1,590行目:
end
end
else
else
if _.rawValue then
if _.curState.rawValue then
label = mw.wikibase.getEntityIdForCurrentPage() or ""
label = mw.wikibase.getEntityIdForCurrentPage() or ""
if _.linked and label ~= "" then
if _.curState.linked and label ~= "" then
label = "[[d:" .. label .. "|" .. label .. "]]"
label = "[[d:" .. label .. "|" .. label .. "]]"
end
end
1,252行目: 1,604行目:
end
end
if _.linked or label == nil then
if _.curState.linked or label == nil then
title = mw.title.getCurrentTitle().prefixedText
title = mw.title.getCurrentTitle().prefixedText
end
end
if _.linked then
if _.curState.linked then
label = "[[" .. title .. "|" .. (label or title) .. "]]"  -- not much use since it links to the current page, but does add wiki mark-up
label = "[[" .. title .. "|" .. (label or title) .. "]]"  -- not much use since it links to the current page, but does add wiki mark-up
else
else
1,272行目: 1,624行目:


function p._title(args, _)
function p._title(args, _)
_ = _ or State.new()
_ = _ or Config.new()
_.pageTitle = true
_.pageTitle = true
return p._label(args, _)
return p._label(args, _)
1,285行目: 1,637行目:
assert(p[f], 'The function "' .. f .. '" does not exist')
assert(p[f], 'The function "' .. f .. '" does not exist')
    args = {}
args = {}
    for i, v in ipairs(frame.args) do
    if i > 1 then
-- copy arguments from immutable to mutable table
        args[i-1] = v
for i, v in pairs(frame.args) do
        end
args[i] = v
    end
end
frame.args = args
-- remove the function name from the list
table.remove(args, 1)
return p[f](frame)
return p["_"..f](args)
end
end


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