Bharatpedia

Module:Wd: Difference between revisions

Module Talk

Module:Wd (view source)

Revision as of 11:30, 7 August 2023

4,707 bytes added ,  7 August 2023
Trying to fix some issues.
>IceWelder
(Avoid Lua errors should Wikidata not be available (tested via sandbox & testcases))
(Trying to fix some issues.)
 
(6 intermediate revisions by 2 users not shown)
Line 1: Line 1:
-- Original module located at [[:en:Module:Wd]] and [[:en:Module:Wd/i18n]].
-- Original module located at [[:en:Module:Wd]] and [[:en:Module:Wd/i18n]].


require("strict")
local p = {}
local p = {}
local arg = ...
local arg = ...
Line 72: Line 73:
image                  = "P18",
image                  = "P18",
author                  = "P50",
author                  = "P50",
authorNameString        = "P2093",
publisher              = "P123",
publisher              = "P123",
importedFrom            = "P143",
importedFrom            = "P143",
wikimediaImportURL      = "P4656",
statedIn                = "P248",
statedIn                = "P248",
pages                  = "P304",
pages                  = "P304",
Line 94: Line 97:
inferredFrom            = "P3452",
inferredFrom            = "P3452",
typeOfReference        = "P3865",
typeOfReference        = "P3865",
column                  = "P3903"
column                  = "P3903",
subjectNamedAs          = "P1810",
wikidataProperty        = "P1687",
publishedIn            = "P1433"
}
}


Line 148: Line 154:
}
}


local Config = {}
local function replaceAlias(id)
if aliasesP[id] then
id = aliasesP[id]
end


-- allows for recursive calls
return id
function Config:new()
end
local cfg = {}
setmetatable(cfg, self)
self.__index = self


cfg.separators = {
local function errorText(code, param)
-- single value objects wrapped in arrays so that we can pass by reference
local text = i18n["errors"][code]
["sep"]  = {copyTable(defaultSeparators["sep"])},
if param then text = mw.ustring.gsub(text, "$1", param) end
["sep%s"] = {copyTable(defaultSeparators["sep%s"])},
return text
["sep%q"] = {copyTable(defaultSeparators["sep%q"])},
end
["sep%r"] = {copyTable(defaultSeparators["sep%r"])},
["punc"]  = {copyTable(defaultSeparators["punc"])}
}


cfg.entity = nil
local function throwError(errorMessage, param)
cfg.entityID = nil
error(errorText(errorMessage, param))
cfg.propertyID = nil
end
cfg.propertyValue = nil
cfg.qualifierIDs = {}
cfg.qualifierIDsAndValues = {}


cfg.bestRank = true
local function replaceDecimalMark(num)
cfg.ranks = {true, true, false}  -- preferred = true, normal = true, deprecated = false
return mw.ustring.gsub(num, "[.]", i18n['numeric']['decimal-mark'], 1)
cfg.foundRank = #cfg.ranks
end
cfg.flagBest = false
cfg.flagRank = false


cfg.periods = {true, true, true}  -- future = true, current = true, former = true
local function padZeros(num, numDigits)
cfg.flagPeriod = false
local numZeros
cfg.atDate = {parseDate(os.date('!%Y-%m-%d'))}  -- today as {year, month, day}
local negative = false


cfg.mdyDate = false
if num < 0 then
cfg.singleClaim = false
negative = true
cfg.sourcedOnly = false
num = num * -1
cfg.editable = false
end
cfg.editAtEnd = false


cfg.inSitelinks = false
num = tostring(num)
numZeros = numDigits - num:len()


cfg.langCode = mw.language.getContentLanguage().code
for _ = 1, numZeros do
cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode)
num = "0"..num
cfg.langObj = mw.language.new(cfg.langCode)
end


cfg.siteID = mw.wikibase.getGlobalSiteId()
if negative then
num = "-"..num
end


cfg.states = {}
return num
cfg.states.qualifiersCount = 0
end
cfg.curState = nil


cfg.prefetchedRefs = nil
local function replaceSpecialChar(chr)
 
if chr == '_' then
return cfg
-- replace underscores with spaces
return ' '
else
return chr
end
end
end


local State = {}
local function replaceSpecialChars(str)
local chr
local esc = false
local strOut = ""


function State:new(cfg, type)
for i = 1, #str do
local stt = {}
chr = str:sub(i,i)
setmetatable(stt, self)
self.__index = self


stt.conf = cfg
if not esc then
stt.type = type
if chr == '\\' then
esc = true
else
strOut = strOut .. replaceSpecialChar(chr)
end
else
strOut = strOut .. chr
esc = false
end
end


stt.results = {}
return strOut
end


stt.parsedFormat = {}
local function buildWikilink(target, label)
stt.separator = {}
if not label or target == label then
stt.movSeparator = {}
return "[[" .. target .. "]]"
stt.puncMark = {}
else
return "[[" .. target .. "|" .. label .. "]]"
end
end


stt.linked = false
-- used to make frame.args mutable, to replace #frame.args (which is always 0)
stt.rawValue = false
-- with the actual amount and to simply copy tables
stt.shortName = false
local function copyTable(tIn)
stt.anyLanguage = false
if not tIn then
stt.unitOnly = false
return nil
stt.singleValue = false
end


return stt
local tOut = {}
end


local function replaceAlias(id)
for i, v in pairs(tIn) do
if aliasesP[id] then
tOut[i] = v
id = aliasesP[id]
end
end


return id
return tOut
end
end


local function errorText(code, param)
-- used to merge output arrays together;
local text = i18n["errors"][code]
-- note that it currently mutates the first input array
if param then text = mw.ustring.gsub(text, "$1", param) end
local function mergeArrays(a1, a2)
return text
for i = 1, #a2 do
a1[#a1 + 1] = a2[i]
end
 
return a1
end
end


local function throwError(errorMessage, param)
local function split(str, del)
error(errorText(errorMessage, param))
local out = {}
end
local i, j = str:find(del)
 
if i and j then
out[1] = str:sub(1, i - 1)
out[2] = str:sub(j + 1)
else
out[1] = str
end


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


local function padZeros(num, numDigits)
local function parseWikidataURL(url)
local numZeros
local id
local negative = false
 
if url:match('^http[s]?://') then
id = split(url, "Q")


if num < 0 then
if id[2] then
negative = true
return "Q" .. id[2]
num = num * -1
end
end
end


num = tostring(num)
return nil
numZeros = numDigits - num:len()
end
 
local function parseDate(dateStr, precision)
precision = precision or "d"


for _ = 1, numZeros do
local i, j, index, ptr
num = "0"..num
local parts = {nil, nil, nil}
end


if negative then
if dateStr == nil then
num = "-"..num
return parts[1], parts[2], parts[3]  -- year, month, day
end
end


return num
-- 'T' for snak values, '/' for outputs with '/Julian' attached
end
i, j = dateStr:find("[T/]")


local function replaceSpecialChar(chr)
if i then
if chr == '_' then
dateStr = dateStr:sub(1, i-1)
-- replace underscores with spaces
return ' '
else
return chr
end
end
end


local function replaceSpecialChars(str)
local from = 1
local chr
 
local esc = false
if dateStr:sub(1,1) == "-" then
local strOut = ""
-- this is a negative number, look further ahead
from = 2
end


for i = 1, #str do
index = 1
chr = str:sub(i,i)
ptr = 1


if not esc then
i, j = dateStr:find("-", from)
if chr == '\\' then
 
esc = true
if i then
else
-- year
strOut = strOut .. replaceSpecialChar(chr)
parts[index] = tonumber(dateStr:sub(ptr, i-1), 10) -- explicitly give base 10 to prevent error
end
 
else
if parts[index] == -0 then
strOut = strOut .. chr
parts[index] = tonumber("0")  -- for some reason, 'parts[index] = 0' may actually store '-0', so parse from string instead
esc = false
end
end
end


return strOut
if precision == "y" then
end
-- we're done
return parts[1], parts[2], parts[3]  -- year, month, day
end


local function buildWikilink(target, label)
index = index + 1
if not label or target == label then
ptr = i + 1
return "[[" .. target .. "]]"
else
return "[[" .. target .. "|" .. label .. "]]"
end
end


-- used to make frame.args mutable, to replace #frame.args (which is always 0)
i, j = dateStr:find("-", ptr)
-- with the actual amount and to simply copy tables
 
function copyTable(tIn)
if i then
if not tIn then
-- month
return nil
parts[index] = tonumber(dateStr:sub(ptr, i-1), 10)
 
if precision == "m" then
-- we're done
return parts[1], parts[2], parts[3]  -- year, month, day
end
 
index = index + 1
ptr = i + 1
end
end
end


local tOut = {}
if dateStr:sub(ptr) ~= "" then
 
-- day if we have month, month if we have year, or year
for i, v in pairs(tIn) do
parts[index] = tonumber(dateStr:sub(ptr), 10)
tOut[i] = v
end
end


return tOut
return parts[1], parts[2], parts[3]  -- year, month, day
end
end


-- used to merge output arrays together;
local function datePrecedesDate(aY, aM, aD, bY, bM, bD)
-- note that it currently mutates the first input array
if aY == nil or bY == nil then
local function mergeArrays(a1, a2)
return nil
for i = 1, #a2 do
a1[#a1 + 1] = a2[i]
end
end
aM = aM or 1
aD = aD or 1
bM = bM or 1
bD = bD or 1


return a1
if aY < bY then
end
return true
end


local function split(str, del)
if aY > bY then
local out = {}
return false
local i, j = str:find(del)
end


if i and j then
if aM < bM then
out[1] = str:sub(1, i - 1)
return true
out[2] = str:sub(j + 1)
else
out[1] = str
end
end


return out
if aM > bM then
end
return false
end


local function parseWikidataURL(url)
if aD < bD then
local id
return true
end


if url:match('^http[s]?://') then
return false
id = split(url, "Q")
end


if id[2] then
local function getHookName(param, index)
return "Q" .. id[2]
if hookNames[param] then
end
return hookNames[param][index]
elseif param:len() > 2 then
return hookNames[param:sub(1, 2).."\\d"][index]
else
return nil
end
end
end


return nil
local function alwaysTrue()
return true
end
end


function parseDate(dateStr, precision)
-- The following function parses a format string.
precision = precision or "d"
--
 
-- The example below shows how a parsed string is structured in memory.
local i, j, index, ptr
-- Variables other than 'str' and 'child' are left out for clarity's sake.
local parts = {nil, nil, nil}
--
 
-- Example:
if dateStr == nil then
-- "A %p B [%s[%q1]] C [%r] D"
return parts[1], parts[2], parts[3] -- year, month, day
--
end
-- Structure:
 
-- [
-- 'T' for snak values, '/' for outputs with '/Julian' attached
--   {
i, j = dateStr:find("[T/]")
--    str = "A "
 
--  },
if i then
--  {
dateStr = dateStr:sub(1, i-1)
--    str = "%p"
end
--  },
 
--  {
local from = 1
--    str = " B ",
 
--    child =
if dateStr:sub(1,1) == "-" then
--    [
-- this is a negative number, look further ahead
--      {
from = 2
--        str = "%s",
end
--         child =
 
--        [
index = 1
--          {
ptr = 1
--            str = "%q1"
 
--          }
i, j = dateStr:find("-", from)
--        ]
 
--      }
if i then
--    ]
-- year
--  },
parts[index] = tonumber(mw.ustring.gsub(dateStr:sub(ptr, i-1), "^\+(.+)$", "%1"), 10)  -- remove '+' sign (explicitly give base 10 to prevent error)
--  {
--    str = " C ",
--    child =
--    [
--       {
--        str = "%r"
--      }
--    ]
--  },
--  {
--    str = " D"
--  }
-- ]
--
local function parseFormat(str)
local chr, esc, param, root, cur, prev, new
local params = {}


if parts[index] == -0 then
local function newObject(array)
parts[index] = tonumber("0")  -- for some reason, 'parts[index] = 0' may actually store '-0', so parse from string instead
local obj = {}  -- new object
end
obj.str = ""


if precision == "y" then
array[#array + 1] = obj -- array{object}
-- we're done
obj.parent = array
return parts[1], parts[2], parts[3] -- year, month, day
end


index = index + 1
return obj
ptr = i + 1
end


i, j = dateStr:find("-", ptr)
local function endParam()
 
if param > 0 then
if i then
if cur.str ~= "" then
-- month
cur.str = "%"..cur.str
parts[index] = tonumber(dateStr:sub(ptr, i-1), 10)
cur.param = true
 
params[cur.str] = true
if precision == "m" then
cur.parent.req[cur.str] = true
-- we're done
prev = cur
return parts[1], parts[2], parts[3]  -- year, month, day
cur = newObject(cur.parent)
end
end
 
param = 0
index = index + 1
ptr = i + 1
end
end
end
end


if dateStr:sub(ptr) ~= "" then
root = {}  -- array
-- day if we have month, month if we have year, or year
root.req = {}
parts[index] = tonumber(dateStr:sub(ptr), 10)
cur = newObject(root)
end
prev = nil


return parts[1], parts[2], parts[3]  -- year, month, day
esc = false
end
param = 0


local function datePrecedesDate(aY, aM, aD, bY, bM, bD)
for i = 1, #str do
if aY == nil or bY == nil then
chr = str:sub(i,i)
return nil
end
aM = aM or 1
aD = aD or 1
bM = bM or 1
bD = bD or 1


if aY < bY then
if not esc then
return true
if chr == '\\' then
end
endParam()
 
esc = true
if aY > bY then
elseif chr == '%' then
return false
endParam()
end
if cur.str ~= "" then
 
cur = newObject(cur.parent)
if aM < bM then
end
return true
param = 2
end
elseif chr == '[' then
 
endParam()
if aM > bM then
if prev and cur.str == "" then
return false
table.remove(cur.parent)
end
cur = prev
 
end
if aD < bD then
cur.child = {}  -- new array
return true
cur.child.req = {}
end
cur.child.parent = cur
cur = newObject(cur.child)
elseif chr == ']' then
endParam()
if cur.parent.parent then
new = newObject(cur.parent.parent.parent)
if cur.str == "" then
table.remove(cur.parent)
end
cur = new
end
else
if param > 1 then
param = param - 1
elseif param == 1 then
if not chr:match('%d') then
endParam()
end
end


return false
cur.str = cur.str .. replaceSpecialChar(chr)
end
end
else
cur.str = cur.str .. chr
esc = false
end


local function getHookName(param, index)
prev = nil
if hookNames[param] then
end
return hookNames[param][index]
 
elseif param:len() > 2 then
endParam()
return hookNames[param:sub(1, 2).."\\d"][index]
 
else
-- make sure that at least one required parameter has been defined
return nil
if not next(root.req) then
throwError("missing-required-parameter")
end
 
-- make sure that the separator parameter "%s" is not amongst the required parameters
if root.req[parameters.separator] then
throwError("extra-required-parameter", parameters.separator)
end
end
return root, params
end
end


local function alwaysTrue()
local function sortOnRank(claims)
return true
local rankPos
end
local ranks = {{}, {}, {}, {}}  -- preferred, normal, deprecated, (default)
local sorted = {}


-- The following function parses a format string.
for _, v in ipairs(claims) do
--
rankPos = rankTable[v.rank] or 4
-- The example below shows how a parsed string is structured in memory.
ranks[rankPos][#ranks[rankPos] + 1] = v
-- Variables other than 'str' and 'child' are left out for clarity's sake.
end
--
 
-- Example:
sorted = ranks[1]
-- "A %p B [%s[%q1]] C [%r] D"
sorted = mergeArrays(sorted, ranks[2])
--
sorted = mergeArrays(sorted, ranks[3])
-- Structure:
 
-- [
return sorted
--  {
end
--     str = "A "
 
--  },
local Config = {}
--  {
 
--     str = "%p"
-- allows for recursive calls
--  },
function Config:new()
--  {
local cfg = {}
--    str = " B ",
setmetatable(cfg, self)
--    child =
self.__index = self
--    [
 
--      {
cfg.separators = {
--        str = "%s",
-- single value objects wrapped in arrays so that we can pass by reference
--        child =
["sep"]  = {copyTable(defaultSeparators["sep"])},
--        [
["sep%s"] = {copyTable(defaultSeparators["sep%s"])},
--          {
["sep%q"] = {copyTable(defaultSeparators["sep%q"])},
--            str = "%q1"
["sep%r"] = {copyTable(defaultSeparators["sep%r"])},
--          }
["punc"]  = {copyTable(defaultSeparators["punc"])}
--        ]
}
--      }
 
--    ]
cfg.entity = nil
--  },
cfg.entityID = nil
--  {
cfg.propertyID = nil
--    str = " C ",
cfg.propertyValue = nil
--    child =
cfg.qualifierIDs = {}
--    [
cfg.qualifierIDsAndValues = {}
--      {
--        str = "%r"
--      }
--    ]
--  },
--  {
--    str = " D"
--  }
-- ]
--
local function parseFormat(str)
local chr, esc, param, root, cur, prev, new
local params = {}


local function newObject(array)
cfg.bestRank = true
local obj = {}  -- new object
cfg.ranks = {true, true, false}  -- preferred = true, normal = true, deprecated = false
obj.str = ""
cfg.foundRank = #cfg.ranks
cfg.flagBest = false
cfg.flagRank = false


array[#array + 1] = obj -- array{object}
cfg.periods = {true, true, true} -- future = true, current = true, former = true
obj.parent = array
cfg.flagPeriod = false
cfg.atDate = {parseDate(os.date('!%Y-%m-%d'))}  -- today as {year, month, day}


return obj
cfg.mdyDate = false
end
cfg.singleClaim = false
cfg.sourcedOnly = false
cfg.editable = false
cfg.editAtEnd = false


local function endParam()
cfg.inSitelinks = false
if param > 0 then
if cur.str ~= "" then
cur.str = "%"..cur.str
cur.param = true
params[cur.str] = true
cur.parent.req[cur.str] = true
prev = cur
cur = newObject(cur.parent)
end
param = 0
end
end


root = {} -- array
cfg.langCode = mw.language.getContentLanguage().code
root.req = {}
cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode)
cur = newObject(root)
cfg.langObj = mw.language.new(cfg.langCode)
prev = nil
 
cfg.siteID = mw.wikibase.getGlobalSiteId()
 
cfg.states = {}
cfg.states.qualifiersCount = 0
cfg.curState = nil
 
cfg.prefetchedRefs = nil


esc = false
return cfg
param = 0
end


for i = 1, #str do
local State = {}
chr = str:sub(i,i)


if not esc then
function State:new(cfg, type)
if chr == '\\' then
local stt = {}
endParam()
setmetatable(stt, self)
esc = true
self.__index = self
elseif chr == '%' then
 
endParam()
stt.conf = cfg
if cur.str ~= "" then
stt.type = type
cur = newObject(cur.parent)
 
end
stt.results = {}
param = 2
 
elseif chr == '[' then
stt.parsedFormat = {}
endParam()
stt.separator = {}
if prev and cur.str == "" then
stt.movSeparator = {}
table.remove(cur.parent)
stt.puncMark = {}
cur = prev
 
end
stt.linked = false
cur.child = {} -- new array
stt.rawValue = false
cur.child.req = {}
stt.shortName = false
cur.child.parent = cur
stt.anyLanguage = false
cur = newObject(cur.child)
stt.unitOnly = false
elseif chr == ']' then
stt.singleValue = false
endParam()
if cur.parent.parent then
new = newObject(cur.parent.parent.parent)
if cur.str == "" then
table.remove(cur.parent)
end
cur = new
end
else
if param > 1 then
param = param - 1
elseif param == 1 then
if not chr:match('%d') then
endParam()
end
end


cur.str = cur.str .. replaceSpecialChar(chr)
return stt
end
end
else
cur.str = cur.str .. chr
esc = false
end


prev = nil
-- if id == nil then item connected to current page is used
end
function Config:getLabel(id, raw, link, short)
local label = nil
local prefix, title= "", nil


endParam()
if not id then
id = mw.wikibase.getEntityIdForCurrentPage()


-- make sure that at least one required parameter has been defined
if not id then
if not next(root.req) then
return ""
throwError("missing-required-parameter")
end
end
end


-- make sure that the separator parameter "%s" is not amongst the required parameters
id = id:upper()  -- just to be sure
if root.req[parameters.separator] then
throwError("extra-required-parameter", parameters.separator)
end


return root, params
if raw then
end
-- check if given id actually exists
if mw.wikibase.isValidEntityId(id) and mw.wikibase.entityExists(id) then
label = id
end


local function sortOnRank(claims)
prefix, title = "d:Special:EntityPage/", label -- may be nil
local rankPos
else
local ranks = {{}, {}, {}, {}}  -- preferred, normal, deprecated, (default)
-- try short name first if requested
local sorted = {}
if short then
label = p._property{aliasesP.shortName, [p.args.eid] = id}  -- get short name


for _, v in ipairs(claims) do
if label == "" then
rankPos = rankTable[v.rank] or 4
label = nil
ranks[rankPos][#ranks[rankPos] + 1] = v
end
end
end


sorted = ranks[1]
-- get label
sorted = mergeArrays(sorted, ranks[2])
if not label then
sorted = mergeArrays(sorted, ranks[3])
label = mw.wikibase.getLabelByLang(id, self.langCode) -- XXX: should use fallback labels?
 
return sorted
end
 
-- if id == nil then item connected to current page is used
function Config:getLabel(id, raw, link, short)
local label = nil
local title = nil
local prefix= ""
 
if not id then
id = mw.wikibase.getEntityIdForCurrentPage()
 
if not id then
return ""
end
end
 
id = id:upper()  -- just to be sure
 
if raw then
-- check if given id actually exists
if mw.wikibase.isValidEntityId(id) and mw.wikibase.entityExists(id) then
label = id
 
if id:sub(1,1) == "P" then
prefix = "Property:"
end
end
 
prefix = "d:" .. prefix
 
title = label  -- may be nil
else
-- try short name first if requested
if short then
label = p._property{aliasesP.shortName, [p.args.eid] = id}  -- get short name
 
if label == "" then
label = nil
end
end
 
-- get label
if not label then
label = mw.wikibase.getLabelByLang(id, self.langCode)
end
end
end
end
Line 704: Line 703:
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
title = id
prefix, title = "d:Special:EntityPage/", id
prefix = "d:Property:"
end
end
end
end


label = mw.text.nowiki(label) -- escape raw label text so it cannot be wikitext markup
if title then
if title then
label = buildWikilink(prefix .. title, label)
label = buildWikilink(prefix .. title, label)
Line 745: Line 744:
value = value .. "#" .. self.propertyID
value = value .. "#" .. self.propertyID
elseif self.inSitelinks then
elseif self.inSitelinks then
value = value .. "#sitelinks-wikipedia"
value = value .. "#sitelinks-bharatpedia"
end
end


Line 877: Line 876:
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
Line 1,289: Line 1,288:
lonLink = table.concat({lonDegrees, lonMinutes, lonSeconds}, "_")
lonLink = table.concat({lonDegrees, lonMinutes, lonSeconds}, "_")


value = "[https://tools.wmflabs.org/geohack/geohack.php?language="..self.langCode.."&params="..latLink.."_"..latDirectionEN.."_"..lonLink.."_"..lonDirectionEN.."_globe:"..globe.." "..value.."]"
value = "[https://geohack.toolforge.org/geohack.php?language="..self.langCode.."&params="..latLink.."_"..latDirectionEN.."_"..lonLink.."_"..lonDirectionEN.."_globe:"..globe.." "..value.."]"
end
end


Line 1,811: Line 1,810:
local value = ""
local value = ""
local ref = {}
local ref = {}
local referenceEmpty = true  -- will be set to false if at least one parameter is left unremoved
    local numAuthorParameters = 0
    local numAuthorNameStringParameters = 0
    local tempLink
    local additionalRefProperties = {}  -- will hold properties of the reference which are not in statement.snaks, namely backup title from "subject named as" and URL from an external ID
    local wikidataPropertiesOfSource  -- will contain "Wikidata property" properties of the item in stated in, if any


local version = 1 -- increment this each time the below logic is changed to avoid conflict errors
local version = 4 -- increment this each time the below logic is changed to avoid conflict errors


if statement.snaks then
if statement.snaks then
Line 1,818: Line 1,823:
if statement.snaks[aliasesP.importedFrom] then
if statement.snaks[aliasesP.importedFrom] then
statement.snaks[aliasesP.importedFrom] = nil
statement.snaks[aliasesP.importedFrom] = nil
end
-- don't include "Wikimedia import URL"
if statement.snaks[aliasesP.wikimediaImportURL] then
statement.snaks[aliasesP.wikimediaImportURL] = nil
-- don't include "retrieved" if no "referenceURL" is present,
-- as "retrieved" probably belongs to "Wikimedia import URL"
if statement.snaks[aliasesP.retrieved] and not statement.snaks[aliasesP.referenceURL] then
statement.snaks[aliasesP.retrieved] = nil
end
end
end


Line 1,834: Line 1,849:
statement.snaks[aliasesP.image] = nil
statement.snaks[aliasesP.image] = nil
end
end
 
 
-- don't include "language" if it is equal to the local one
-- don't include "language" if it is equal to the local one
if self:getReferenceDetail(statement.snaks, aliasesP.language) == self.conf.langName then
if self:getReferenceDetail(statement.snaks, aliasesP.language) == self.conf.langName then
statement.snaks[aliasesP.language] = nil
statement.snaks[aliasesP.language] = nil
end
end
 
       
-- retrieve all the parameters
        if statement.snaks[aliasesP.statedIn] and not statement.snaks[aliasesP.referenceURL] then
for i in pairs(statement.snaks) do
        -- "stated in" was given but "reference URL" was not.
label = ""
        -- get "Wikidata property" properties from the item in "stated in"
 
        -- if any of the returned properties of the external-id datatype is in statement.snaks, generate a URL from it and use the URL in the reference
-- multiple authors may be given
       
if i == aliasesP.author then
        -- find the "Wikidata property" properties in the item from "stated in"
params[i] = self:getReferenceDetails(statement.snaks, i, false, self.linked, true)  -- link = true/false, anyLang = true
        wikidataPropertiesOfSource = mw.text.split(p._properties{p.flags.raw, aliasesP.wikidataProperty, [p.args.eid] = self.conf:getValue(statement.snaks[aliasesP.statedIn][1], true, false)}, ", ", true)
else
        for i, wikidataPropertyOfSource in pairs(wikidataPropertiesOfSource) do
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
        if statement.snaks[wikidataPropertyOfSource] and statement.snaks[wikidataPropertyOfSource][1].datatype == "external-id" then
end
        tempLink = self.conf:getValue(statement.snaks[wikidataPropertyOfSource][1], false, true)  -- not raw, linked
 
        if mw.ustring.match(tempLink, "^%[%Z- %Z+%]$") then  -- getValue returned a URL.
if #params[i] == 0 then
            additionalRefProperties[aliasesP.referenceURL] = mw.ustring.gsub(tempLink, "^%[(%Z-) %Z+%]$", "%1")  -- the URL is in wiki markup, so strip the square brackets and the display text
params[i] = nil
            statement.snaks[wikidataPropertyOfSource] = nil
else
            break
if statement.snaks[i][1].datatype == 'external-id' then
        end
key = "external-id"
        end
label = self.conf:getLabel(i)
        end
 
        end
if label ~= "" then
       
label = label .. " "
        -- don't include "subject named as", but use it as the title when "title" is not present but a URL is
end
        if statement.snaks[aliasesP.subjectNamedAs] then
        if not statement.snaks[aliasesP.title] and (statement.snaks[aliasesP.referenceURL] or additionalRefProperties[aliasesP.referenceURL]) then
        additionalRefProperties[aliasesP.title] = statement.snaks[aliasesP.subjectNamedAs][1].datavalue.value
        end
        statement.snaks[aliasesP.subjectNamedAs] = nil
        end
 
-- retrieve all the parameters
for i in pairs(statement.snaks) do
label = ""
 
-- multiple authors may be given
if i == aliasesP.author or i == aliasesP.authorNameString then
params[i] = self:getReferenceDetails(statement.snaks, i, false, self.linked, true)  -- link = true/false, anyLang = true
else
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
 
if #params[i] == 0 then
params[i] = nil
else
referenceEmpty = false
if statement.snaks[i][1].datatype == 'external-id' then
key = "external-id"
label = self.conf:getLabel(i)
 
if label ~= "" then
label = label .. " "
end
else
key = i
end
 
-- add the parameter to each matching type of citation
for j in pairs(citeParams) do
-- do so if there was no mismatch with a previous parameter
if not citeMismatch[j] then
-- check if this parameter is not mismatching itself
if i18n['cite'][j][key] then
-- continue if an option is available in the corresponding cite template
if i18n['cite'][j][key] ~= "" then
                                -- handle non-author properties (and author properties ("author" and "author name string"), if they don't use the same template parameter)
                                if (i ~= aliasesP.author and i ~= aliasesP.authorNameString) or (i18n['cite'][j][aliasesP.author] ~= i18n['cite'][j][aliasesP.authorNameString]) then
    citeParams[j][i18n['cite'][j][key]] = label .. params[i][1]
                                    -- to avoid problems with non-author multiple parameters (if existent), the following old code is retained
    for k=2, #params[i] do
                                        citeParams[j][i18n['cite'][j][key]..k] = label .. params[i][k]
    end
                                -- handle "author" and "author name string" specially if they use the same template parameter
                                elseif i == aliasesP.author or i == aliasesP.authorNameString then
                                    if params[aliasesP.author] ~= nil then
                                        numAuthorParameters = #params[aliasesP.author]
                                    else
                                        numAuthorParameters = 0
                                    end
 
                                    if params[aliasesP.authorNameString] ~= nil then
                                        numAuthorNameStringParameters = #params[aliasesP.authorNameString]
                                    else
                                        numAuthorNameStringParameters = 0
                                    end
 
                                    -- execute only if both "author" and "author name string" satisfy this condition: the property is both in params and in statement.snaks or it is neither in params nor in statement.snaks
                                    -- reason: parameters are added to params each iteration of the loop, not before the loop
                                    if ((statement.snaks[aliasesP.author] == nil) == (numAuthorParameters == 0)) and ((statement.snaks[aliasesP.authorNameString] == nil) == (numAuthorNameStringParameters == 0)) then
                                        for k=1, numAuthorParameters + numAuthorNameStringParameters do
                                            if k <= numAuthorParameters then  -- now handling the authors from the "author" property
                                                citeParams[j][i18n['cite'][j][aliasesP.author]..k] = label .. params[aliasesP.author][k]
                                            else  -- now handling the authors from "author name string"
                                                citeParams[j][i18n['cite'][j][aliasesP.authorNameString]..k] = label .. params[aliasesP.authorNameString][k - numAuthorParameters]
                                            end
        end
                                    end
                                end
end
else
citeMismatch[j] = true
end
end
end
end
end
-- use additional properties
for i in pairs(additionalRefProperties) do
for j in pairs(citeParams) do
if not citeMismatch[j] and i18n["cite"][j][i] then
citeParams[j][i18n["cite"][j][i]] = additionalRefProperties[i]
else
else
key = i
citeMismatch[j] = true
end
 
-- add the parameter to each matching type of citation
for j in pairs(citeParams) do
-- do so if there was no mismatch with a previous parameter
if not citeMismatch[j] then
-- check if this parameter is not mismatching itself
if i18n['cite'][j][key] then
-- continue if an option is available in the corresponding cite template
if i18n['cite'][j][key] ~= "" then
citeParams[j][i18n['cite'][j][key]] = label .. params[i][1]
 
-- if there are multiple parameter values (authors), add those too
for k=2, #params[i] do
citeParams[j][i18n['cite'][j][key]..k] = label .. params[i][k]
end
end
else
citeMismatch[j] = true
end
end
end
end
end
end
Line 1,920: Line 2,002:
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) if the citation couldn't be displayed using Cite web or Cite Q, but has properties other than the removed ones, throw an error
elseif params[aliasesP.statedIn] or params[aliasesP.referenceURL] or params[aliasesP.title] then
elseif not referenceEmpty then
citeParams['default'] = {}
value = "<span style=\"color: crimson\">" .. errorText("malformed-reference") .. "</span>"
 
-- start by adding authors up front
if params[aliasesP.author] and #params[aliasesP.author] > 0 then
citeParams['default'][#citeParams['default'] + 1] = table.concat(params[aliasesP.author], " & ")
end
 
-- combine "reference URL" and "title" into one link if both are present
if params[aliasesP.referenceURL] and params[aliasesP.title] then
citeParams['default'][#citeParams['default'] + 1] = '[' .. params[aliasesP.referenceURL][1] .. ' "' .. params[aliasesP.title][1] .. '"]'
elseif params[aliasesP.referenceURL] then
citeParams['default'][#citeParams['default'] + 1] = params[aliasesP.referenceURL][1]
elseif params[aliasesP.title] then
citeParams['default'][#citeParams['default'] + 1] = '"' .. params[aliasesP.title][1] .. '"'
end
 
-- then add "stated in"
if params[aliasesP.statedIn] then
citeParams['default'][#citeParams['default'] + 1] = "''" .. params[aliasesP.statedIn][1] .. "''"
end
 
-- remove previously added parameters so that they won't be added a second time
params[aliasesP.author] = nil
params[aliasesP.referenceURL] = nil
params[aliasesP.title] = nil
params[aliasesP.statedIn] = nil
 
-- add the rest of the parameters
for i, v in pairs(params) do
i = self.conf:getLabel(i)
 
if i ~= "" then
citeParams['default'][#citeParams['default'] + 1] = i .. ": " .. v[1]
end
end
 
value = table.concat(citeParams['default'], "; ")
 
if value ~= "" then
value = value .. "."
end
end
end
 
if value ~= "" then
if value ~= "" then
value = {value}  -- create one value object
value = {value}  -- create one value object
Retrieved from "https://en.bharatpedia.org/wiki/Special:MobileDiff/22158...403573"