Módulo:Wikidata: diferenças entre revisões

Fonte: Enciclopédia de conhecimento da Igreja de Deus
Saltar para a navegação Saltar para a pesquisa
← Edição anterior
Sem resumo de edição
Sem resumo de edição
 
Linha 1: Linha 1:
-- Original module located at [[:en:Module:Wd]] and [[:en:Module:Wd/i18n]].
local p = {}
local p = {}
local arg = ...
local lang = 'pt'
local i18n
 
local function loadI18n(aliasesP, frame)
local title
 
if frame then
-- current module invoked by page/template, get its title from frame
title = frame:getTitle()
else
-- current module included by other module, get its title from ...
title = arg
end
 
if not i18n then
i18n = require(title .. "/i18n").init(aliasesP)
end
end
 
p.claimCommands = {
property  = "property",
properties = "properties",
qualifier  = "qualifier",
qualifiers = "qualifiers",
reference  = "reference",
references = "references"
}


p.generalCommands = {
local item = nil -- o elemento Wikidata ligado
label      = "label",
local localdata = {}-- guarda parâmetros passados à predefinição
title      = "title",
local page = { -- guarda parâmetros da página mostrados na infocaixa
description = "description",
        name = mw.title.getCurrentTitle().prefixedText,
alias      = "alias",
     namespace = mw.title.getCurrentTitle().namespace
aliases     = "aliases",
badge      = "badge",
badges      = "badges"
}
}
local maincolor, secondcolor, thirdcolor = '#E1E1E1', '#E1E1E1', '#000000'
-- o objecto principal a mostrar
local infobox = mw.html.create('div')


p.flags = {
-- objetos secundários a mostrar
linked        = "linked",
local maintenance = '' -- cadeia devolvida com o módulo : cats de monitoramento
short        = "short",
local externaltext = '' -- para exemplo com coordenadas no título
raw          = "raw",
-- modules importados
multilanguage = "multilanguage",
local linguistic = require "Módulo:Linguística"
unit          = "unit",
local wd = require 'Módulo:Infobox/Wikidata'
-------------
local valueexpl = wd.translate("activate-query")
preferred    = "preferred",
local CategorizacaoABeAD = require('Módulo:Categorização AD e AB de outras wikis')
normal        = "normal",
local i18n = {
deprecated    = "deprecated",
        ['see doc'] = 'Documentação da predefinição',
best          = "best",
        ['edit'] = 'editar',
future        = "future",
        ['edit code'] = 'editar código-fonte',
current      = "current",
        ['edit item'] = 'editar Wikidata',
former        = "former",
        ['tracking cat'] = "!Páginas que utilizam dados no Wikidata",
edit         = "edit",
        ['invalid block type'] = "Bloco de dados inválidos dentro do módulo infobox",
editAtEnd    = "edit@end",
        ['default cat'] = "!Monitoramento das infobox",
mdy          = "mdy",
single        = "single",
sourced      = "sourced"
}
}


p.args = {
local function addWikidataCat(prop)
eid  = "eid",
           maintenance = maintenance .. wd.addTrackingCat(prop)
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"
}
 
local aliasesQ = {
percentage              = "Q11229",
prolepticJulianCalendar = "Q1985786",
citeWeb                = "Q5637226",
citeQ                  = "Q22321052"
}
 
local parameters = {
property  = "%p",
qualifier = "%q",
reference = "%r",
alias    = "%a",
badge    = "%b",
separator = "%s",
general  = "%x"
}
 
local formats = {
property              = "%p[%s][%r]",
qualifier            = "%q[%s][%r]",
reference            = "%r",
propertyWithQualifier = "%p[ <span style=\"font-size:85\\%\">(%q)</span>][%s][%r]",
alias                = "%a[%s]",
badge                = "%b[%s]"
}
 
local hookNames = {              -- {level_1, level_2}
[parameters.property]        = {"getProperty"},
[parameters.reference]        = {"getReferences", "getReference"},
[parameters.qualifier]        = {"getAllQualifiers"},
[parameters.qualifier.."\\d"] = {"getQualifiers", "getQualifier"},
[parameters.alias]            = {"getAlias"},
[parameters.badge]            = {"getBadge"}
}
 
-- default value objects, should NOT be mutated but instead copied
local defaultSeparators = {
["sep"]      = {" "},
["sep%s"]    = {","},
["sep%q"]    = {"; "},
["sep%q\\d"] = {", "},
["sep%r"]    = nil,  -- none
["punc"]    = nil  -- none
}
 
local rankTable = {
["preferred"]  = 1,
["normal"]    = 2,
["deprecated"] = 3
}
 
local Config = {}
 
-- allows for recursive calls
function Config:new()
local cfg = {}
setmetatable(cfg, self)
self.__index = self
 
cfg.separators = {
-- single value objects wrapped in arrays so that we can pass by reference
["sep"]  = {copyTable(defaultSeparators["sep"])},
["sep%s"] = {copyTable(defaultSeparators["sep%s"])},
["sep%q"] = {copyTable(defaultSeparators["sep%q"])},
["sep%r"] = {copyTable(defaultSeparators["sep%r"])},
["punc"]  = {copyTable(defaultSeparators["punc"])}
}
 
cfg.entity = nil
cfg.entityID = nil
cfg.propertyID = nil
cfg.propertyValue = nil
cfg.qualifierIDs = {}
cfg.qualifierIDsAndValues = {}
 
cfg.bestRank = true
cfg.ranks = {true, true, false}  -- preferred = true, normal = true, deprecated = false
cfg.foundRank = #cfg.ranks
cfg.flagBest = false
cfg.flagRank = false
 
cfg.periods = {true, true, true}  -- future = true, current = true, former = true
cfg.flagPeriod = false
cfg.atDate = {parseDate(os.date('!%Y-%m-%d'))}  -- today as {year, month, day}
 
cfg.mdyDate = false
cfg.singleClaim = false
cfg.sourcedOnly = false
cfg.editable = false
cfg.editAtEnd = false
 
cfg.inSitelinks = false
 
cfg.langCode = mw.language.getContentLanguage().code
cfg.langName = mw.language.fetchLanguageName(cfg.langCode, cfg.langCode)
cfg.langObj = mw.language.new(cfg.langCode)
 
cfg.siteID = mw.wikibase.getGlobalSiteId()
 
cfg.states = {}
cfg.states.qualifiersCount = 0
cfg.curState = nil
 
cfg.prefetchedRefs = nil
 
return cfg
end
 
local State = {}
 
function State:new(cfg, type)
local stt = {}
setmetatable(stt, self)
self.__index = self
 
stt.conf = cfg
stt.type = type
 
stt.results = {}
 
stt.parsedFormat = {}
stt.separator = {}
stt.movSeparator = {}
stt.puncMark = {}
 
stt.linked = false
stt.rawValue = false
stt.shortName = false
stt.anyLanguage = false
stt.unitOnly = false
stt.singleValue = false
 
return stt
end
 
local function replaceAlias(id)
if aliasesP[id] then
id = aliasesP[id]
end
 
return id
end
 
local function errorText(code, param)
local text = i18n["errors"][code]
if param then text = mw.ustring.gsub(text, "$1", param) end
return text
end
 
local function throwError(errorMessage, param)
error(errorText(errorMessage, param))
end
 
local function replaceDecimalMark(num)
return mw.ustring.gsub(num, "[.]", i18n['numeric']['decimal-mark'], 1)
end
 
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
-- replace underscores with spaces
return ' '
else
return chr
end
end
 
local function replaceSpecialChars(str)
local chr
local esc = false
local strOut = ""
 
for i = 1, #str do
chr = str:sub(i,i)
 
if not esc then
if chr == '\\' then
esc = true
else
strOut = strOut .. replaceSpecialChar(chr)
end
else
strOut = strOut .. chr
esc = false
end
end
 
return strOut
end
 
local function buildWikilink(target, label)
if not label or target == label then
return "[[" .. target .. "]]"
else
return "[[" .. target .. "|" .. label .. "]]"
end
end
 
-- used to make frame.args mutable, to replace #frame.args (which is always 0)
-- with the actual amount and to simply copy tables
function copyTable(tIn)
if not tIn then
return nil
end
 
local tOut = {}
 
for i, v in pairs(tIn) do
tOut[i] = v
end
 
return tOut
end
 
-- used to merge output arrays together;
-- note that it currently mutates the first input array
local function mergeArrays(a1, a2)
for i = 1, #a2 do
a1[#a1 + 1] = a2[i]
end
 
return a1
end
 
local function split(str, del)
local out = {}
local i, j = str:find(del)
 
if i and j then
out[1] = str:sub(1, i - 1)
out[2] = str:sub(j + 1)
else
out[1] = str
end
 
return out
end
 
local function parseWikidataURL(url)
local id
 
if url:match('^http[s]?://') then
id = split(url, "Q")
 
if id[2] then
return "Q" .. id[2]
end
end
 
return nil
end
 
function parseDate(dateStr, precision)
precision = precision or "d"
 
local i, j, index, ptr
local parts = {nil, nil, nil}
 
if dateStr == nil then
return parts[1], parts[2], parts[3]  -- year, month, day
end
 
-- 'T' for snak values, '/' for outputs with '/Julian' attached
i, j = dateStr:find("[T/]")
 
if i then
dateStr = dateStr:sub(1, i-1)
end
 
local from = 1
 
if dateStr:sub(1,1) == "-" then
-- this is a negative number, look further ahead
from = 2
end
 
index = 1
ptr = 1
 
i, j = dateStr:find("-", from)
 
if i then
-- year
parts[index] = tonumber(mw.ustring.gsub(dateStr:sub(ptr, i-1), "^\+(.+)$", "%1"), 10)  -- remove '+' sign (explicitly give base 10 to prevent error)
 
if parts[index] == -0 then
parts[index] = tonumber("0")  -- for some reason, 'parts[index] = 0' may actually store '-0', so parse from string instead
end
 
if precision == "y" then
-- we're done
return parts[1], parts[2], parts[3]  -- year, month, day
end
 
index = index + 1
ptr = i + 1
 
i, j = dateStr:find("-", ptr)
 
if i then
-- month
parts[index] = tonumber(dateStr:sub(ptr, i-1), 10)
 
if precision == "m" then
-- we're done
return parts[1], parts[2], parts[3]  -- year, month, day
end
 
index = index + 1
ptr = i + 1
end
end
 
if dateStr:sub(ptr) ~= "" then
-- day if we have month, month if we have year, or year
parts[index] = tonumber(dateStr:sub(ptr), 10)
end
 
return parts[1], parts[2], parts[3]  -- year, month, day
end
 
local 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
 
local function getHookName(param, index)
if hookNames[param] then
return hookNames[param][index]
elseif param:len() > 2 then
return hookNames[param:sub(1, 2).."\\d"][index]
else
return nil
end
end
 
local function alwaysTrue()
return true
end
 
-- The following function parses a format string.
--
-- The example below shows how a parsed string is structured in memory.
-- Variables other than 'str' and 'child' are left out for clarity's sake.
--
-- Example:
-- "A %p B [%s[%q1]] C [%r] D"
--
-- Structure:
-- [
--  {
--    str = "A "
--  },
--  {
--    str = "%p"
--  },
--  {
--    str = " B ",
--    child =
--    [
--      {
--        str = "%s",
--        child =
--        [
--          {
--            str = "%q1"
--           }
--        ]
--      }
--    ]
--  },
--  {
--    str = " C ",
--    child =
--    [
--      {
--        str = "%r"
--      }
--    ]
--  },
--  {
--    str = " D"
--  }
-- ]
--
local function parseFormat(str)
local chr, esc, param, root, cur, prev, new
local params = {}
 
local function newObject(array)
local obj = {}  -- new object
obj.str = ""
 
array[#array + 1] = obj  -- array{object}
obj.parent = array
 
return obj
end
 
local function endParam()
if param > 0 then
if cur.str ~= "" then
cur.str = "%"..cur.str
cur.param = true
params[cur.str] = true
cur.parent.req[cur.str] = true
prev = cur
cur = newObject(cur.parent)
end
param = 0
end
end
 
root = {}  -- array
root.req = {}
cur = newObject(root)
prev = nil
 
esc = false
param = 0
 
for i = 1, #str do
chr = str:sub(i,i)
 
if not esc then
if chr == '\\' then
endParam()
esc = true
elseif chr == '%' then
endParam()
if cur.str ~= "" then
cur = newObject(cur.parent)
end
param = 2
elseif chr == '[' then
endParam()
if prev and cur.str == "" then
table.remove(cur.parent)
cur = prev
end
cur.child = {}  -- new array
cur.child.req = {}
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
 
cur.str = cur.str .. replaceSpecialChar(chr)
end
else
cur.str = cur.str .. chr
esc = false
end
 
prev = nil
end
 
endParam()
 
-- make sure that at least one required parameter has been defined
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
 
return root, params
end
 
local function sortOnRank(claims)
local rankPos
local ranks = {{}, {}, {}, {}}  -- preferred, normal, deprecated, (default)
local sorted = {}
 
for _, v in ipairs(claims) do
rankPos = rankTable[v.rank] or 4
ranks[rankPos][#ranks[rankPos] + 1] = v
end
 
sorted = ranks[1]
sorted = mergeArrays(sorted, ranks[2])
sorted = mergeArrays(sorted, ranks[3])
 
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 prefix, title= "", nil
 
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
end
 
prefix, title = "d:Special:EntityPage/", 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) -- XXX: should use fallback labels?
end
end
 
if not label then
label = ""
elseif link then
-- build a link if requested
if not title then
if id:sub(1,1) == "Q" then
title = mw.wikibase.getSitelink(id)
elseif id:sub(1,1) == "P" then
-- properties have no sitelink, link to Wikidata instead
prefix, title = "d:Special:EntityPage/", id
end
end
 
label = mw.text.nowiki(label) -- escape raw label text so it cannot be wikitext markup
if title then
label = buildWikilink(prefix .. title, label)
end
end
 
return label
end
 
function Config:getEditIcon()
local value = ""
local prefix = ""
local front = "&nbsp;"
local back = ""
 
if self.entityID:sub(1,1) == "P" then
prefix = "Property:"
end
 
if self.editAtEnd then
front = '<span style="float:'
 
if self.langObj:isRTL() then
front = front .. 'left'
else
front = front .. 'right'
end
 
front = front .. '">'
back = '</span>'
end
 
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
value = value .. "#" .. self.propertyID
elseif self.inSitelinks then
value = value .. "#sitelinks-wikipedia"
end
 
value = value .. "|" .. i18n['info']['edit-on-wikidata'] .. "]]"
 
return front .. value .. back
end
 
-- used to create the final output string when it's all done, so that for references the
-- function extensionTag("ref", ...) is only called when they really ended up in the final output
function Config:concatValues(valuesArray)
local outString = ""
local j, skip
 
for i = 1, #valuesArray do
-- check if this is a reference
if valuesArray[i].refHash then
j = i - 1
skip = false
 
-- skip this reference if it is part of a continuous row of references that already contains the exact same reference
while valuesArray[j] and valuesArray[j].refHash do
if valuesArray[i].refHash == valuesArray[j].refHash then
skip = true
break
end
j = j - 1
end
 
if not skip then
-- add <ref> tag with the reference's hash as its name (to deduplicate references)
outString = outString .. mw.getCurrentFrame():extensionTag("ref", valuesArray[i][1], {name = valuesArray[i].refHash})
end
else
outString = outString .. valuesArray[i][1]
end
end
 
return outString
end
 
function Config:convertUnit(unit, raw, link, short, unitOnly)
local space = " "
local label = ""
local itemID
 
if unit == "" or unit == "1" then
return nil
end
 
if unitOnly then
space = ""
end
 
itemID = parseWikidataURL(unit)
 
if itemID then
if itemID == aliasesQ.percentage then
return "%"
else
label = self:getLabel(itemID, raw, link, short)
 
if label ~= "" then
return space .. label
end
end
end
 
return ""
end
 
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
local datatype = snak.datavalue.type
local subtype = snak.datatype
local datavalue = snak.datavalue.value
 
if datatype == 'string' then
if subtype == 'url' and link then
-- create link explicitly
if raw then
-- will render as a linked number like [1]
return "[" .. datavalue .. "]"
else
return "[" .. datavalue .. " " .. datavalue .. "]"
end
elseif subtype == 'commonsMedia' then
if link then
return buildWikilink("c:File:" .. datavalue, datavalue)
elseif not raw then
return "[[File:" .. datavalue .. "]]"
else
return datavalue
end
elseif subtype == 'geo-shape' and link then
return buildWikilink("c:" .. datavalue, datavalue)
elseif subtype == 'math' and not raw then
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
local url = p._property{aliasesP.formatterURL, [p.args.eid] = snak.property}  -- get formatter URL
 
if url ~= "" then
url = mw.ustring.gsub(url, "$1", datavalue)
return "[" .. url .. " " .. datavalue .. "]"
else
return datavalue
end
else
return datavalue
end
elseif datatype == 'monolingualtext' then
if anyLang or datavalue['language'] == self.langCode then
return datavalue['text']
else
return nil
end
elseif datatype == 'quantity' then
local value = ""
local unit
 
if not unitOnly then
-- get value and strip + signs from front
value = mw.ustring.gsub(datavalue['amount'], "^\+(.+)$", "%1")
 
if raw then
return value
end
 
-- replace decimal mark based on locale
value = replaceDecimalMark(value)
 
-- add delimiters for readability
value = i18n.addDelimiters(value)
end
 
unit = self:convertUnit(datavalue['unit'], raw, link, short, unitOnly)
 
if unit then
value = value .. unit
end
 
return value
elseif datatype == 'time' then
local y, m, d, p, yDiv, yRound, yFull, value, calendarID, dateStr
local yFactor = 1
local sign = 1
local prefix = ""
local suffix = ""
local mayAddCalendar = false
local calendar = ""
local precision = datavalue['precision']
 
if precision == 11 then
p = "d"
elseif precision == 10 then
p = "m"
else
p = "y"
yFactor = 10^(9-precision)
end
 
y, m, d = parseDate(datavalue['time'], p)
 
if y < 0 then
sign = -1
y = y * sign
end
 
-- if precision is tens/hundreds/thousands/millions/billions of years
if precision <= 8 then
yDiv = y / yFactor
 
-- if precision is tens/hundreds/thousands of years
if precision >= 6 then
mayAddCalendar = true
 
if precision <= 7 then
-- round centuries/millenniums up (e.g. 20th century or 3rd millennium)
yRound = math.ceil(yDiv)
 
if not raw then
if precision == 6 then
suffix = i18n['datetime']['suffixes']['millennium']
else
suffix = i18n['datetime']['suffixes']['century']
end
 
suffix = i18n.getOrdinalSuffix(yRound) .. suffix
else
-- if not verbose, take the first year of the century/millennium
-- (e.g. 1901 for 20th century or 2001 for 3rd millennium)
yRound = (yRound - 1) * yFactor + 1
end
else
-- precision == 8
-- round decades down (e.g. 2010s)
yRound = math.floor(yDiv) * yFactor
 
if not raw then
prefix = i18n['datetime']['prefixes']['decade-period']
suffix = i18n['datetime']['suffixes']['decade-period']
end
end
 
if raw and sign < 0 then
-- if BCE then compensate for "counting backwards"
-- (e.g. -2019 for 2010s BCE, -2000 for 20th century BCE or -3000 for 3rd millennium BCE)
yRound = yRound + yFactor - 1
end
else
local yReFactor, yReDiv, yReRound
 
-- round to nearest for tens of thousands of years or more
yRound = math.floor(yDiv + 0.5)
 
if yRound == 0 then
if precision <= 2 and y ~= 0 then
yReFactor = 1e6
yReDiv = y / yReFactor
yReRound = math.floor(yReDiv + 0.5)
 
if yReDiv == yReRound then
-- change precision to millions of years only if we have a whole number of them
precision = 3
yFactor = yReFactor
yRound = yReRound
end
end
 
if yRound == 0 then
-- otherwise, take the unrounded (original) number of years
precision = 5
yFactor = 1
yRound = y
mayAddCalendar = true
end
end
 
if precision >= 1 and y ~= 0 then
yFull = yRound * yFactor
 
yReFactor = 1e9
yReDiv = yFull / yReFactor
yReRound = math.floor(yReDiv + 0.5)
 
if yReDiv == yReRound then
-- change precision to billions of years if we're in that range
precision = 0
yFactor = yReFactor
yRound = yReRound
else
yReFactor = 1e6
yReDiv = yFull / yReFactor
yReRound = math.floor(yReDiv + 0.5)
 
if yReDiv == yReRound then
-- change precision to millions of years if we're in that range
precision = 3
yFactor = yReFactor
yRound = yReRound
end
end
end
 
if not raw then
if precision == 3 then
suffix = i18n['datetime']['suffixes']['million-years']
elseif precision == 0 then
suffix = i18n['datetime']['suffixes']['billion-years']
else
yRound = yRound * yFactor
if yRound == 1 then
suffix = i18n['datetime']['suffixes']['year']
else
suffix = i18n['datetime']['suffixes']['years']
end
end
else
yRound = yRound * yFactor
end
end
else
yRound = y
mayAddCalendar = true
end
 
if mayAddCalendar then
calendarID = parseWikidataURL(datavalue['calendarmodel'])
 
if calendarID and calendarID == aliasesQ.prolepticJulianCalendar then
if not raw then
if link then
calendar = " ("..buildWikilink(i18n['datetime']['julian-calendar'], i18n['datetime']['julian'])..")"
else
calendar = " ("..i18n['datetime']['julian']..")"
end
else
calendar = "/"..i18n['datetime']['julian']
end
end
end
 
if not raw then
local ce = nil
 
if sign < 0 then
ce = i18n['datetime']['BCE']
elseif precision <= 5 then
ce = i18n['datetime']['CE']
end
 
if ce then
if link then
ce = buildWikilink(i18n['datetime']['common-era'], ce)
end
suffix = suffix .. " " .. ce
end
 
value = tostring(yRound)
 
if m then
dateStr = self.langObj:formatDate("F", "1-"..m.."-1")
 
if d then
if self.mdyDate then
dateStr = dateStr .. " " .. d .. ","
else
dateStr = d .. " " .. dateStr
end
end
 
value = dateStr .. " " .. value
end
 
value = prefix .. value .. suffix .. calendar
else
value = padZeros(yRound * sign, 4)
 
if m then
value = value .. "-" .. padZeros(m, 2)
 
if d then
value = value .. "-" .. padZeros(d, 2)
end
end
 
value = value .. calendar
end
 
return value
elseif datatype == 'globecoordinate' then
-- logic from https://github.com/DataValues/Geo (v4.0.1)
 
local precision, unitsPerDegree, numDigits, strFormat, value, globe
local latitude, latConv, latValue, latLink
local longitude, lonConv, lonValue, lonLink
local latDirection, latDirectionN, latDirectionS, latDirectionEN
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_S = "S"
local lonDirectionEN_E = "E"
local lonDirectionEN_W = "W"
 
if not raw then
latDirectionN = i18n['coord']['latitude-north']
latDirectionS = i18n['coord']['latitude-south']
lonDirectionE = i18n['coord']['longitude-east']
lonDirectionW = i18n['coord']['longitude-west']
 
degSymbol = i18n['coord']['degrees']
minSymbol = i18n['coord']['minutes']
secSymbol = i18n['coord']['seconds']
separator = i18n['coord']['separator']
else
latDirectionN = latDirectionEN_N
latDirectionS = latDirectionEN_S
lonDirectionE = lonDirectionEN_E
lonDirectionW = lonDirectionEN_W
 
degSymbol = "/"
minSymbol = "/"
secSymbol = "/"
separator = "/"
end
 
latitude = datavalue['latitude']
longitude = datavalue['longitude']
 
if latitude < 0 then
latDirection = latDirectionS
latDirectionEN = latDirectionEN_S
latitude = math.abs(latitude)
else
latDirection = latDirectionN
latDirectionEN = latDirectionEN_N
end
 
if longitude < 0 then
lonDirection = lonDirectionW
lonDirectionEN = lonDirectionEN_W
longitude = math.abs(longitude)
else
lonDirection = lonDirectionE
lonDirectionEN = lonDirectionEN_E
end
 
precision = 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
longitude = math.floor(longitude / precision + 0.5) * precision
 
if precision >= 1 - (1 / 60) and precision < 1 then
precision = 1
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
end
 
strFormat = "%." .. numDigits .. "f"
 
if precision >= 1 then
latDegrees = strFormat:format(latitude)
lonDegrees = strFormat:format(longitude)
 
if not raw then
latDegSym = replaceDecimalMark(latDegrees) .. degSymbol
lonDegSym = replaceDecimalMark(lonDegrees) .. degSymbol
else
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
 
latValue = latDegSym .. latMinSym .. latSecSym .. latDirection
lonValue = lonDegSym .. lonMinSym .. lonSecSym .. lonDirection
 
value = latValue .. separator .. lonValue
 
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
elseif subtype == 'wikibase-property' then
itemID = "P" .. itemID
else
return '<strong class="error">' .. errorText('unknown-data-type', subtype) .. '</strong>'
end
 
label = self:getLabel(itemID, raw, link, short)
 
if label == "" then
label = nil
end
 
return label
else
return '<strong class="error">' .. errorText('unknown-data-type', datatype) .. '</strong>'
end
elseif snak.snaktype == 'somevalue' and not noSpecial then
if raw then
return " "  -- single space represents 'somevalue'
else
return i18n['values']['unknown']
end
elseif snak.snaktype == 'novalue' and not noSpecial then
if raw then
return ""  -- empty string represents 'novalue'
else
return i18n['values']['none']
end
else
return nil
end
end
 
function Config:getSingleRawQualifier(claim, qualifierID)
local qualifiers
 
if claim.qualifiers then qualifiers = claim.qualifiers[qualifierID] end
 
if qualifiers and qualifiers[1] then
return self:getValue(qualifiers[1], true)  -- raw = true
else
return nil
end
end
end


function Config:snakEqualsValue(snak, value)
local function expandQuery(query)
local snakValue = self:getValue(snak, true)  -- raw = true
          local value, number -- valor a mostrar, nome dos valores para o rótulo
 
        if not query.entity then
if snakValue and snak.snaktype == 'value' and snak.datavalue.type == 'wikibase-entityid' then value = value:upper() end
                query.entity = localdata.item
 
        end
return snakValue == value
        if not query.conjtype then
                query.conjtype = 'new line'
        end
        local claims = wd.getClaims(query)
                  if (not claims) then
              return nil
        end
        return wd.formatAndCat(query), #claims -- para acordo do plural
end
end


function Config:setRank(rank)
local function getWikidataValue(params, wikidataparam)
local rankPos
          -- Mostrar o valor Wikidata para o valor, quer no parâmetro "wikidata" ou no parâmetro "property"
        if not localdata.item then
                return nil
        end


if rank == p.flags.best then
        if params.blockers then -- blockers are local parameters that disable the wikidata query
self.bestRank = true
                  local blockers = params.blockers
self.flagBest = true  -- mark that 'best' flag was given
              if (type(blockers) == 'string') then
return
                      blockers = {blockers}
end
              end
              for i, blocker in ipairs(blockers) do
                      if localdata[blocker] then
                                  return nil
                  end
              end
        end


if rank:sub(1,9) == p.flags.preferred then
        local v, valnum -- o valor a retornar e o número de valores (para concordância gramatical)
rankPos = 1
elseif rank:sub(1,6) == p.flags.normal then
    if not wikidataparam then -- por padrão o valor wikidata está no parâmetro "wikidata" mas nas estruturas compostas como "title", existem vários parâmetros wikidata
rankPos = 2
              wikidataparam = 'wikidata'
elseif rank:sub(1,10) == p.flags.deprecated then
        end
rankPos = 3
else
return
end


-- one of the rank flags was given, check if another one was given before
        if params[wikidataparam] then
if not self.flagRank then
               if type(params[wikidataparam]) == 'function' then
self.ranks = {false, false, false}  -- no other rank flag given before, so unset ranks
                      v, valnum = params[wikidataparam](localdata.item)
self.bestRank = self.flagBest      -- unsets bestRank only if 'best' flag was not given before
            elseif type(params[wikidataparam]) == 'table' then
self.flagRank = true               -- mark that a rank flag was given
                          v, valnum = expandQuery(params[wikidataparam])
end
            else
 
            v, valnum = params[wikidataparam]
if rank:sub(-1) == "+" then
            end
for i = rankPos, 1, -1 do
        end
self.ranks[i] = true
        if not v then
end
                return nil
elseif rank:sub(-1) == "-" then
        end
for i = rankPos, #self.ranks do
        --v = linguistic.ucfirst(v)
self.ranks[i] = true
        return v, valnum
end
else
self.ranks[rankPos] = true
end
end
end


function Config:setPeriod(period)
local function getValue(val, params)
local periodPos
          if type(val) == 'string' then
 
              return localdata[val]
if period == p.flags.future then
        elseif type(val) == 'function' then
periodPos = 1
              return val(localdata, localdata.item, params)
elseif period == p.flags.current then
        elseif type(val) == 'table' then
periodPos = 2
              for i, j in pairs(val) do -- se vários parâmetros possíveis (legado do código antigo), tomar o primeiro não-vazio
elseif period == p.flags.former then
                          if localdata[j] then
periodPos = 3
                                    return localdata[j]
else
                      end
return
               end
end
        end
 
-- one of the period flags was given, check if another one was given before
if not self.flagPeriod then
self.periods = {false, false, false}  -- no other period flag given before, so unset periods
self.flagPeriod = true               -- mark that a period flag was given
end
 
self.periods[periodPos] = true
end
end


function Config:qualifierMatches(claim, id, value)
local function addMaintenanceCat(cat, sortkey)
local qualifiers
          if page.namespace ~= 0 then
 
              return ''
if claim.qualifiers then qualifiers = claim.qualifiers[id] end
        end
if qualifiers then
        if cat then
for _, v in pairs(qualifiers) do
        maintenance = maintenance .. '[[Category:' .. cat .. '|' .. (sortkey or page.name) .. ']]'
if self:snakEqualsValue(v, value) then
        end
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
end
 
return false
end
end


function Config:rankMatches(rankPos)
function p.separator(params)
if self.bestRank then
        local style = params['estilo separador'] or {}
return (self.ranks[rankPos] and self.foundRank >= rankPos)
        style.height = style.height or '2px'
else
        style['background-color'] = style['background-color'] or maincolor
return self.ranks[rankPos]
end
    return mw.html.create('hr'):css( style )
end
end


function Config:timeMatches(claim)
function p.buildtitle(params)
local startTime = nil
        local text = getValue(params.value, params) or params.textdefaultvalue or  getWikidataValue(params) or mw.title.getCurrentTitle().text
local startTimeY = nil
    local subtext = getValue(params.subtitle) or  getWikidataValue(params, 'wikidatasubtitle') or params.subtitledefaultvalue
local startTimeM = nil
    if subtext and (subtext ~= text) then
local startTimeD = nil
              text = text .. '<br /><small>' .. subtext .. '</small>'
local endTime = nil
        end
local endTimeY = nil
        local style = {
local endTimeM = nil
                  border = 'none',
local endTimeD = nil
            ['text-align'] = 'center',
 
            ['font-size'] = '1.3em',
if self.periods[1] and self.periods[2] and self.periods[3] then
            padding = '0',
-- any time
            display = 'table',
return true
            height = '45px',
end
            width = '100%',
 
            ['*height'] = 'auto', -- be kind ie7
startTime = self:getSingleRawQualifier(claim, aliasesP.startTime)
            ['*padding'] = '12px 0',
if startTime and startTime ~= "" and startTime ~= " " then
    }
startTimeY, startTimeM, startTimeD = parseDate(startTime)
    local style2 = {
end
                  display = 'table-cell',
 
                  ['vertical-align'] = 'middle',
endTime = self:getSingleRawQualifier(claim, aliasesP.endTime)
                  padding = '3px',
if endTime and endTime ~= "" and endTime ~= " " then
    }
endTimeY, endTimeM, endTimeD = parseDate(endTime)
        local icon = params.icon or ''
end
        if icon ~= '' and not params.large then
 
                  icon = ' ' .. icon
if startTimeY ~= nil and endTimeY ~= nil and datePrecedesDate(endTimeY, endTimeM, endTimeD, startTimeY, startTimeM, startTimeD) then
        else
-- invalidate end time if it precedes start time
          -- style.padding = '12px'
endTimeY = nil
                icon = " "
endTimeM = nil
        end
endTimeD = nil
        local class = 'topo' .. icon
end
 
    -- overwrites with those provided in the module
if self.periods[1] then
        -- local style = {}
-- future
        style['background-color'] = maincolor
if startTimeY and datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], startTimeY, startTimeM, startTimeD) then
        style['color'] = thirdcolor
return true
        if params.style then
end
                  for i, j in pairs(params.style) do
end
                            style[i] = j
 
                end
if self.periods[2] then
        end
-- current
        local title = mw.html.create('div')
if (startTimeY == nil or not datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], startTimeY, startTimeM, startTimeD)) and
                  :addClass(class)
  (endTimeY == nil or datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], endTimeY, endTimeM, endTimeD)) then
            :css(style)
return true
            :tag('div')
end
            :css(style2)
end
        :wikitext(text)
 
            :allDone()
if self.periods[3] then
        return title
-- former
if endTimeY and not datePrecedesDate(self.atDate[1], self.atDate[2], self.atDate[3], endTimeY, endTimeM, endTimeD) then
return true
end
end
 
return false
end
end
p.buildTitle = p.buildtitle


function Config:processFlag(flag)
function p.buildnavbox(params)
if not flag then
return false
    -- definição do estilo
end
        local class = "navbox " .. (params.class or '')
        local style = params.style or {['overflow'] = 'hidden'}


if flag == p.flags.linked then
        if params.separated then -- opções para adicionar uma linha de separação acima
self.curState.linked = true
              class = class .. ' bordered'
return true
            style['border-top'] = '1px solid' .. maincolor
elseif flag == p.flags.raw then
        end
self.curState.rawValue = true


if self.curState == self.states[parameters.reference] then
        -- ajuste de parâmetros de dados
-- raw reference values end with periods and require a separator (other than none)
        params.previousval = params.previousval or params.previousparameter -- nome do parâmetro obsoleto
self.separators["sep%r"][1] = {" "}
        params.nextval = params.nextval or params.nextparameter
end
    if params.previousproperty then
              params.previouswikidata = {property = params.previousproperty}
        end
        if params.nextproperty then
              params.nextwikidata = {property = params.nextproperty}
        end


return true
    local previousval = getValue(params.previousval, params) or getWikidataValue(params, 'previouswikidata')
elseif flag == p.flags.short then
        local nextval = getValue(params.nextval, params) or getWikidataValue(params, 'nextwikidata')
self.curState.shortName = true
return true
    local navbox
elseif flag == p.flags.multilanguage then
        if params.inner then -- para quem está dentro de uma tabela
self.curState.anyLanguage = true
              navbox = mw.html.create('tr'):tag('th'):attr('colspan', 2)
return true
            style['font-weight'] = style['font-weight'] or 'normal'
elseif flag == p.flags.unit then
        else
self.curState.unitOnly = true
        navbox = mw.html.create('div')
return true
        end
elseif flag == p.flags.mdy then
self.mdyDate = true
    navbox
return true
    :css({['background-color'] = '#E6E6E6'})
elseif flag == p.flags.single then
        :addClass(class)
self.singleClaim = true
        -- :css(style)
return true
        :css{border = '2px ' .. maincolor, ['font-weight'] = 'normal'}
elseif flag == p.flags.sourced then
        :tag('div')
self.sourcedOnly = true
        :addClass('prev_bloc')
return true
        :wikitext(previousval)
elseif flag == p.flags.edit then
        :done()
self.editable = true
        :tag('div')
return true
        :addClass('next_bloc')
elseif flag == p.flags.editAtEnd then
        :wikitext(nextval)
self.editable = true
        :done()
self.editAtEnd = true
        :allDone()
return true
        return navbox
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
p.buildNavbox = p.buildnavbox


function Config:processFlagOrCommand(flag)
function p.buildimages(params)
local param = ""
        local images = {}
 
        local upright, link, caption, alt, size    -- size is deprecated
if not flag then
        if type(params.imageparameters) == 'string' then
return false
                params.imageparameters = {params.imageparameters}
end
        end
 
        if not params.imageparameters then -- se não houver nenhum parâmetro de imagem, continue, talvez haja uma imagem padrão definida no módulo de infobox
if flag == p.claimCommands.property or flag == p.claimCommands.properties then
              params.imageparameters = {}
param = parameters.property
        end
elseif flag == p.claimCommands.qualifier or flag == p.claimCommands.qualifiers then
        for j, k in ipairs(params.imageparameters) do
self.states.qualifiersCount = self.states.qualifiersCount + 1
              table.insert(images, localdata[k])
param = parameters.qualifier .. self.states.qualifiersCount
        end
self.separators["sep"..param] = {copyTable(defaultSeparators["sep%q\\d"])}
        -- Images de Wikidata
elseif flag == p.claimCommands.reference or flag == p.claimCommands.references then
        if #images == 0 and localdata.item then
param = parameters.reference
          if params.property then
else
                                params.wikidata = {entity = localdata.item, property = params.property}
return self:processFlag(flag)
            end
end
            if params.wikidata then
 
                        local wdq = params.wikidata
if self.states[param] then
                    wdq.excludespecial = true
return false
                    if type(wdq) == 'table' then
end
                          wdq.entity = wdq.entity or localdata.item
                        wdq.numval = wdq.numval or params.numval or 1
                        images = wd.getClaims(wdq)
                end
                if type(wdq) == 'function' then
                          images = params.wikidata()
                        if type(images) == 'string' then
                        return images
                        end --provavelmente é um erro no pedido => mostrar a mensagem
                end
                if (not images) then
                          images = {}
                end
                if (#images > 0) and (params.wikidata.property) then
                          addWikidataCat(params.wikidata.property)
                end


-- create a new state for each command
                if type(images[1]) == 'table' then
self.states[param] = State:new(self, param)
                      for i, image in pairs(images) do
                              if image.mainsnak.snaktype ~= 'value' then
                            return
                        end
                        if #images == 1 then -- se apenas uma imagem, usamos a legenda (se mais duas imagens, como formatar?)
                                      caption = wd.getFormattedQualifiers('P18', {qualifier = 'P2096'}, {isinlang = 'pt'})
                        end
                        images[i] = image.mainsnak.datavalue.value
                    end
              end
              end
        end


-- use "%x" as the general parameter name
        -- Imagens por padrao
self.states[param].parsedFormat = parseFormat(parameters.general) -- will be overwritten for param=="%p"
        if #images == 0 then
              if params.maintenancecat then
                      addMaintenanceCat(params.maintenancecat, params.sortkey)
            end
            if params.defaultimages then
                      images = params.defaultimages
                    if type(images) == 'string' then
                          images = {images}
                    end
                    upright = params.defaultimageupright
                    caption = params.defaultimagecaption
                    link = params.defaultimagelink
                    alt = params.defaultimagealt
                    if not alt and ( images[1] == 'Padrao.svg' or images[1] == 'Padrao 2.svg' ) then
                            alt = 'uma ilustração licenciada gratuita seria bem-vinda'
                    end
            end
        end
        if #images == 0 then
              return nil
        end
    upright = upright or getValue(params.uprightparameter) or params.defaultupright or "1" -- 1.2 deixa uma margem
        link = link or getValue(params.linkparameter) or params.defaultlink
        caption = caption or getValue(params.captionparameter) or params.defaultcaption
        alt = alt or getValue( params.altparameter) or params.defaultalt


-- set the separator
        -- tamanho com "size" (obsoleto)
self.states[param].separator = self.separators["sep"..param]  -- will be nil for param=="%p", which will be set separately
        size = size or getValue(params.sizeparameter) or params.defaultsize or params.tamanho-- deprecated
 
        if size then
if flag == p.claimCommands.property or flag == p.claimCommands.qualifier or flag == p.claimCommands.reference then
              local numsize = size:gsub('px', '')
self.states[param].singleValue = true
            numsize = mw.ustring.gsub(numsize, 'x.*', '')
end
            numsize = tonumber(numsize)
 
            if type(numsize) ~= 'number' or numsize > 280 then
self.curState = self.states[param]
                      addMaintenanceCat("tamanho da imagem inválido")
 
            end
return true
            if tonumber(size) then
end
                      size = size .. 'px'
            end
            size = '|' .. size
        else
        size = ''
        end
    if tonumber(upright) then
              upright = tostring(tonumber(upright) ) / #images
        end
        if tonumber(size) then
              size = tostring(tonumber(size) ) / #images
        end


function Config:processSeparators(args)
    local style = params.style or {
local sep
                  padding ='2px 0',
        ['text-align'] = 'center',
          ['display'] = 'flex',
          ['justify-content'] = 'space-around',
          ['align-items'] = 'center',
    }
        local styleLegend = params.stylelegend or {
                  ['font-size'] = '0.9em',
          ['text-align'] = 'center',
          ['margin'] = '5px 0 5px 0',
        }


for i, v in pairs(self.separators) do
    -- Imagem da peça
if args[i] then
sep = replaceSpecialChars(args[i])


if sep ~= "" then
        local imagesString = ''
self.separators[i][1] = {sep}
        for i,image in pairs(images) do
else
                if image == '-' then
self.separators[i][1] = nil
                      return
end
            end
end
            imagesString = imagesString ..      '[[File:' .. image .. "|" .. size .. '|frameless'
end
            if alt then
end
            imagesString = imagesString .. '|alt=' .. alt
            end
            if link then
                      imagesString = imagesString .. '|link=' .. link
            end
            if upright then
                      imagesString = imagesString .. '|upright=' .. upright
            elseif #images > 1 then
                          imagesString = imagesString .. '|upright=' .. ( 1 / #images )
            end
            imagesString = imagesString .. ']]'
        end


function Config:setFormatAndSeparators(state, parsedFormat)
        local image = mw.html.create('div')
state.parsedFormat = parsedFormat
                  :addClass("image")
state.separator = self.separators["sep"]
            :css(style)
state.movSeparator = self.separators["sep"..parameters.separator]
            :wikitext(imagesString)
state.puncMark = self.separators["punc"]
end


-- determines if a claim has references by prefetching them from the claim using getReferences,
        -- Parte da legenda
-- which applies some filtering that determines if a reference is actually returned,
        local captionobj
-- and caches the references for later use
        if caption then
function State:isSourced(claim)
              captionobj = mw.html.create('p')
self.conf.prefetchedRefs = self:getReferences(claim)
                    :css(styleLegend)
return (#self.conf.prefetchedRefs > 0)
            :wikitext(caption)
                    :css(params.style or {})
                    :addClass("caption")
                    :done()
        end
        -- separador
          local separator
        if params.separator then
              separator = separator(params)
        end
        return mw.html.create('div')
                :node(image)
                :node(captionobj)
                :node(separator)
                :done()
end
end
p.buildImages = p.buildimages


function State:resetCaches()
function p.buildtext(params)
-- any prefetched references of the previous claim must not be used
        local class = params.class or ''
self.conf.prefetchedRefs = nil
        local style = {
                ['text-align'] = 'center',
            ['font-weight'] = 'bold'
        }
        if params.style then
              for i, j in pairs(params.style) do
                        style[i] = j
            end
        end
        local text = getValue(params.value, params) or getWikidataValue(params) or params.defaultvalue
        if text == '-' then
              return
        end
        if not text then
                addMaintenanceCat(params.maintenancecat, params.sortkey)
        return nil
        end
        local formattedtext = mw.html.create('p')
                :addClass(class)
            :css(style)
            :wikitext(text)
            :done()
        return formattedtext
end
end
p.buildText = p.buildtext


function State:claimMatches(claim)
function p.buildrow(params)
local matches, rankPos
    local class = params.class or ''
 
        local style = params.style or {}
-- first of all, reset any cached values used for the previous claim
    style['vertical-align'] = 'middle'
self:resetCaches()
 
-- if a property value was given, check if it matches the claim's property value
if self.conf.propertyValue then
matches = self.conf:snakEqualsValue(claim.mainsnak, self.conf.propertyValue)
else
matches = true
end


-- if any qualifier values were given, check if each matches one of the claim's qualifier values
    local style2 = {
for i, v in pairs(self.conf.qualifierIDsAndValues) do
          ['text-align'] = 'left',
matches = (matches and self.conf:qualifierMatches(claim, i, v))
          ['padding-right'] = '10px',
end
          ['width'] = '8em',
          ['max-width'] = '140px',
          ['word-wrap'] = 'normal',
    }
        local value, number =  getValue(params.value, params)
        if (value == valueexpl) then
                value = nil
            params.wikidata.expl = false
        end
        if (not value) then
              value, number = getWikidataValue(params, 'wikidata')
        end
        if (not value) and (params.property) then
              value, number = expandQuery{ property = params.property, ucfirst = params.ucfirst }
        end
        if not value then
                value = params.defaultvalue
        end
        if value == '-' then
                return nil
        end
        if not number then
                number = 0 -- == indefinido
        end


-- check if the claim's rank and time period match
        if not value then
rankPos = rankTable[claim.rank] or 4
                if params.maintenancecat then
matches = (matches and self.conf:rankMatches(rankPos) and self.conf:timeMatches(claim))
                      local maintenancecat = getValue(params.maintenancecat, params)
                    addMaintenanceCat(maintenancecat, params.sortkey)
            end
            return nil
        end


-- if only claims with references must be returned, check if this one has any
        local label = params.label
if self.conf.sourcedOnly then
        if number > 1 and (params.plurallabel) then
matches = (matches and self:isSourced(claim)) -- prefetches and caches references
              label = params.plurallabel
end
        elseif number == 1 and (params.singularlabel) then
                label = params.singularlabel
        end
        if type(label) == 'function' then
              label = label(localdata, localdata.item)
        end


return matches, rankPos
        -- format
        local formattedvalue = mw.html.create('div')
        :wikitext('\n' .. value) -- 'não é necessário quando o valor é uma lista que começa com '*' ou '#'
        if (params.hidden == true)then
                formattedvalue
                    :attr({class="NavContent", background= "none !important", ['padding-top'] = "0 !important", ['padding-bottom']="0 !important", ['border-top']= "1px solid grey !important", ['border-bottom']= "1px solid grey !important", ['margin-left']= "2em !important", ['margin-right']= "2em !important", style="display: none; text-align: left;"})
            formattedvalue = mw.html.create('div')
                        :attr({class="NavFrame", title="[Mostrar]/[Esconder]", style="border: none; padding: 0;"})
                    :node(formattedvalue)
        end
        formattedvalue =  mw.html.create('td')
                  :node(formattedvalue)
                  :allDone()
    local formattedlabel
        if label then
              formattedlabel = mw.html.create('th')
                :attr('scope', 'row')
                :css(style2)
                :wikitext(label)
                :done()
        end
        local row = mw.html.create('tr')
            :attr('scope', 'row')
            :addClass(class)
            :css(style)
            :node(formattedlabel)
            :node(formattedvalue)
            :done()
        return row
end
end
p.buildRow = p.buildrow


function State:out()
function p.buildsuccession(params)
local result  -- collection of arrays with value objects
        if not params.value then
local valuesArray -- array with value objects
                return nil
local sep = nil  -- value object
        end
local out = {}  -- array with value objects
   
 
    --local style = params.style or {}
local function walk(formatTable, result)
        --style['text-align'] = style['text-align'] or 'center'
local valuesArray = {} -- array with value objects
        --style['color'] = style['color'] or '#000000'
 
        --style['background-color'] = style['background-color'] or '#F9F9F9'
for i, v in pairs(formatTable.req) do
if not result[i] or not result[i][1] then
    local rowI = mw.html.create('tr')
-- we've got no result for a parameter that is required on this level,
-- so skip this level (and its children) by returning an empty result
    local colspan = '2'
return {}
        cellI = mw.html.create('td')
end
            :attr({colspan = colspan})
end
                :attr({align = 'center'})
 
for _, v in ipairs(formatTable) do
    local styleT = {}
if v.param then
        styleT['background-color'] = 'transparent'
valuesArray = mergeArrays(valuesArray, result[v.str])
        styleT['width'] = '100%'
elseif v.str ~= "" then
        tabC = mw.html.create('table')
valuesArray[#valuesArray + 1] = {v.str}
            :attr({cellspacing = '0'})
end
                :addClass('navigation-not-searchable')
                :css(styleT)
    local row = mw.html.create('tr')


if v.child then
        local color = params.color
valuesArray = mergeArrays(valuesArray, walk(v.child, result))
end
end


return valuesArray
        local style = {}
end
        local arrowLeft
 
        local arrowRight
-- iterate through the results from back to front, so that we know when to add separators
for i = #self.results, 1, -1 do
    if color == 'default' then
result = self.results[i]
              style['background-color'] = '#E6E6E6'
 
            arrowLeft = '[[Ficheiro:Fleche-defaut-gauche.png|13px|alt=Precedente|link=]]'
-- if there is already some output, then add the separators
            arrowRight = '[[Ficheiro:Fleche-defaut-droite.png|13px|alt=Precedente|link=]]'
if #out > 0 then
        else
sep = self.separator[1]  -- fixed separator
        style['background-color'] = color
result[parameters.separator] = {self.movSeparator[1]} -- movable separator
            arrowLeft = '[[Ficheiro:Fleche-defaut-gauche-gris-32.png|13px|alt=Próximo|link=]]'
else
            arrowRight = '[[Ficheiro:Fleche-defaut-droite-gris-32.png|13px|alt=Próximo|link=]]'
sep = nil
        end
result[parameters.separator] = {self.puncMark[1]}  -- optional punctuation mark
end
    local styleTrans = {}
 
        styleTrans['background-color'] = '#F9F9F9'
valuesArray = walk(self.parsedFormat, result)
 
    local values = params.value
if #valuesArray > 0 then
        local before = values['before']
if sep then
        local center = values['center']
valuesArray[#valuesArray + 1] = sep
        local after = values['after']
end
 
    local widthCell = '44%'
out = mergeArrays(valuesArray, out)
        if center then
end
              widthCenter = '28%'
end
            widthCell = '29%'
 
        end
-- reset state before next iteration
self.results = {}
    local formattedbefore
 
        if before then
return out
              formattedbefore = mw.html.create('td')
                    :attr({valign = 'middle'})
                    :attr({align = 'left'})
                    :attr({width = '5%'})
                    :css(style)
                    :wikitext(arrowLeft)
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(style)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({align = 'left'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(style)
                    :wikitext(before)
                    :done()
                row:node(formattedbefore)
        else
        formattedbefore = mw.html.create('td')
                    :attr({valign = 'middle'})
                    :attr({align = 'left'})
                    :attr({width = '5%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({align = 'left'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
        end
    local formattedcenter
        formattedcenter = mw.html.create('td')
            :attr({width = '1%'})
            :css(styleTrans)
            :wikitext('')
            :done()
        row:node(formattedcenter)
   
    if center then
              formattedcenter = mw.html.create('td')
                    :attr({align = 'center'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCenter})
                    :css(style)
                    :wikitext(center)
                    :done()
            row:node(formattedcenter)
            formattedcenter = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedcenter)
        end
    local formattedafter
        if after then
              formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(style)
                    :wikitext(after)
                    :done()
            row:node(formattedafter)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(style)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = '5%'})
                    :css(style)
                    :wikitext(arrowRight)
                    :done()
            row:node(formattedafter)
        else
        formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedafter)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = '5%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedafter)
        end
    row:done()
        tabC:node(row)
        tabC:done()
        cellI:node(tabC)
        cellI:done()
        rowI:node(cellI)
        rowI:allDone()
    return rowI
end
end
p.buildSuccession = p.buildsuccession


-- level 1 hook
function p.buildrow1col(params)
function State:getProperty(claim)
local value = {self:getValue(claim.mainsnak)} -- create one value object
    if not params.value then
                return nil
        end
    --local style = params.style or {}
        --style['text-align'] = style['text-align'] or 'center'
        --style['color'] = style['color'] or '#000000'
        --style['background-color'] = style['background-color'] or '#F9F9F9'
        local class = params.class
        local rowcolor
        if params.color == 'secondcolor' then
              rowcolor = secondcolor
        else
        rowcolor = params.color
        end
    local style = {}
        style['padding'] = '4px'
        style['text-align'] = 'center'
        style['background-color'] = rowcolor or '#F9F9F9'
        style['color'] = '#000000'
    local text = params.value


if #value > 0 then
        local colspan ='2'
return {value}  -- wrap the value object in an array and return it
else
return {}  -- return empty array if there was no value
end
end


-- level 1 hook
        local formattedlabel
function State:getQualifiers(claim, param)
        formattedlabel = mw.html.create('th')
local qualifiers
            :attr({colspan = colspan})
            :css(style)
            :wikitext(text)
            :done()


if claim.qualifiers then qualifiers = claim.qualifiers[self.conf.qualifierIDs[param]] end
        local row = mw.html.create('tr')
if qualifiers then
                :addClass(class)
-- iterate through claim's qualifier statements to collect their values;
            :css(style)
-- return array with multiple value objects
            :node(formattedlabel)
return self.conf.states[param]:iterate(qualifiers, {[parameters.general] = hookNames[parameters.qualifier.."\\d"][2], count = 1})  -- pass qualifier state with level 2 hook
            :done()
else
   
return {}  -- return empty array
    return row
end
end
end
p.buildRow1Col = p.buildrow1col


-- level 2 hook
function p.buildtable(params)
function State:getQualifier(snak)
        local tab = mw.html.create('table'):css(params.style or {})
local value = {self:getValue(snak)}  -- create one value object


if #value > 0 then
        local rows = params.rows
return {value} -- wrap the value object in an array and return it
   
else
    -- expand parameters so that we have a list of tables
return {}  -- return empty array if there was no value
        local i = 1
end
end


-- level 1 hook
        while (i <= #rows) do
function State:getAllQualifiers(claim, param, result, hooks)
                  local l = rows[i]
local out = {}  -- array with value objects
            if type(l) == 'function' then
local sep = self.conf.separators["sep"..parameters.qualifier][1]  -- value object
                      l = l(localdata, localdata.item)
            end
            if (type(l) == 'table') and (l.type == 'multi') then
                      table.remove(rows, i)
                    for j, row in ipairs(l.rows) do
                              table.insert(rows, i + j - 1, row)
                    end
            elseif type(l) == 'nil' then
                        table.remove(rows, i)
            elseif type(l) ~= 'table' then
                          return error('as linhas da infobox ("rows") devem ser tabelas, e ' .. type(l))
            else
            i = i + 1
            end
        end


-- iterate through the output of the separate "qualifier(s)" commands
        -- CREATE ROW
for i = 1, self.conf.states.qualifiersCount do
        local expandedrows = {}
        for k, row in ipairs(rows) do
                  local v = p.buildblock(row)
            if v then
            table.insert(expandedrows, v)
            end
        end
        if (#expandedrows == 0) then
              return nil
        end
        rows = expandedrows


-- if a hook has not been called yet, call it now
        -- ADD TITLE
if not result[parameters.qualifier..i] then
        local title
self:callHook(parameters.qualifier..i, hooks, claim, result)
        if params.title or params.singulartitle or params.pluraltitle then
end
              local text
            if #rows > 1 and params.pluraltitle then
                  text = params.pluraltitle
            elseif #rows == 1 and params.singulartitle then
                      text = params.singulartitle
            else
            text = params.title
            end


-- if there is output for this particular "qualifier(s)" command, then add it
            local style = params.titlestyle or {}
if result[parameters.qualifier..i] and result[parameters.qualifier..i][1] then
            style['font-weight'] = style['font-weight'] or 'bolder'
            style['width'] = style['width'] or '23em'
            style['text-align'] = style['text-align'] or 'center'
            style['line-height'] = style['line-height'] or '1.5'
            style['margin'] = style['margin'] or '0 0 5px 0'
            --style['padding-top'] = style['padding-top'] or '.5em'
            --style['padding-bottom'] = style['padding-bottom'] or '.5em'
            style['color'] = style['color'] or thirdcolor
            style['background-color'] = style['background-color'] or maincolor
        style['max-width'] = style['max-width'] or '300px'
        style['word-wrap'] = style['word-wrap'] or 'break-word'


-- if there is already some output, then add the separator
if #out > 0 and sep then
out[#out + 1] = sep
end


out = mergeArrays(out, result[parameters.qualifier..i])
end
end


return out
            local colspan ='2'
            title = mw.html.create('caption')
                      :attr({colspan = colspan})
                :css(style)
                :wikitext(text)
                :done()
    end
    if title then
              tab:node(title)
        end
    for i, j in pairs (rows) do
                  tab:node(j)
        end
    if params.separator then
              local separator = p.separator(params)
            tab:node(separator)
        end
        tab:allDone()
        return tab
end
end
p.buildTable = p.buildtable


-- level 1 hook
function p.buildinvalidblock(args)
function State:getReferences(claim)
        addMaintenanceCat(defaultcat)
if self.conf.prefetchedRefs then
        local text = ''
-- return references that have been prefetched by isSourced
        if type(args) ~= 'table' then
return self.conf.prefetchedRefs
              text = "Blocos de infobox devem ser tabelas"
end
        else
 
        text = i18n["invalid block type"] .. ' : ' .. (args.type or '??')
if claim.references then
        end
-- iterate through claim's reference statements to collect their values;
        return text
-- return array with multiple value objects
return self.conf.states[parameters.reference]:iterate(claim.references, {[parameters.general] = hookNames[parameters.reference][2], count = 1}) -- pass reference state with level 2 hook
else
return {}  -- return empty array
end
end
end
p.buildInvalidBlock = p.buildinvalidblock


-- level 2 hook
function p.buildmap(params)
function State:getReference(statement)
local key, citeWeb, citeQ, label
local params = {}
local citeParams = {['web'] = {}, ['q'] = {}}
local citeMismatch = {}
local useCite = nil
local useParams = nil
local value = ""
local ref = {}
 
local version = 1  -- increment this each time the below logic is changed to avoid conflict errors
 
if statement.snaks then
-- don't include "imported from", which is added by a bot
if statement.snaks[aliasesP.importedFrom] then
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
 
-- don't include "language" if it is equal to the local one
if self:getReferenceDetail(statement.snaks, aliasesP.language) == self.conf.langName then
statement.snaks[aliasesP.language] = nil
end
 
-- retrieve all the parameters
for i in pairs(statement.snaks) do
label = ""
 
-- multiple authors may be given
if i == aliasesP.author 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
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
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
 
-- get title of general template for citing web references
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
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
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
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
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
citeParams['q'][i18n['cite']['q'][aliasesP.statedIn]] = self:getReferenceDetail(statement.snaks, aliasesP.statedIn, true)  -- raw = true
 
useCite = citeQ
useParams = citeParams['q']
end
 
if useCite and useParams then
-- if this module is being substituted then build a regular template call, otherwise expand the template
if mw.isSubsting() then
for i, v in pairs(useParams) do
value = value .. "|" .. i .. "=" .. v
end
 
value = "{{" .. useCite .. value .. "}}"
else
value = mw.getCurrentFrame():expandTemplate{title=useCite, args=useParams}
end


-- (3) else, do some default rendering of name-value pairs, but only if at least "stated in", "reference URL" or "title" is present
        -- configuração de exibição
elseif params[aliasesP.statedIn] or params[aliasesP.referenceURL] or params[aliasesP.title] then
        local maplist = getValue(params.maps)
citeParams['default'] = {}
        local pointtype = params.pointtype
        local maptype = params.maptype -- escolhe o tipo de mapa mais adequado (alívio, administrativo, etc.)
        if type(maplist) == 'function' then
              maplist = maplist(localdata, localdata.item)
        end
        local width = tonumber(params.largura) or 270 -- 280 padrao f.ajustar
        if width > 280 then
              addMaintenanceCat("!Erro de infobox - imagem muito grande")
            return 'imagem muito grande, a largura deve ser menor ou igual a 280px'
        end


-- start by adding authors up front
        -- mostrar os dados locais
if params[aliasesP.author] and #params[aliasesP.author] > 0 then
        local pointtable = {}
citeParams['default'][#citeParams['default'] + 1] = table.concat(params[aliasesP.author], " & ")
        local globe = params.globe
end
        if params.latitude then
              local lat, long
            if type(params.latitude) == 'function' then
                        lat, long = params.latitude(localdata, localdata.item), params.longitude(localdata, localdata.item)
        else
        lat, long = localdata[params.latitude], localdata[params.longitude]
            end
            if lat then
            table.insert(pointtable, {latitude = lat, longitude = long})
            end
        end


-- combine "reference URL" and "title" into one link if both are present
        -- mostrar os dados wikidata
if params[aliasesP.referenceURL] and params[aliasesP.title] then
        local function processWDval(claim, displayformat)
citeParams['default'][#citeParams['default'] + 1] = '[' .. params[aliasesP.referenceURL][1] .. ' "' .. params[aliasesP.title][1] .. '"]'
                  if not claim then
elseif params[aliasesP.referenceURL] then
                      return nil
citeParams['default'][#citeParams['default'] + 1] = params[aliasesP.referenceURL][1]
            end
elseif params[aliasesP.title] then
            local val = wd.formatSnak( claim.mainsnak )
citeParams['default'][#citeParams['default'] + 1] = '"' .. params[aliasesP.title][1] .. '"'
            return {latitude = val.latitude, longitude = val.longitude, globe = val.globe, marker = displayformat.marker}
end
        end
 
-- then add "stated in"
    local function getWDvals(query)
if params[aliasesP.statedIn] then
                  query.excludespecial = true
citeParams['default'][#citeParams['default'] + 1] = "''" .. params[aliasesP.statedIn][1] .. "''"
            query.numval = query.numval or 1
end
            query.entity = query.entity or localdata.item
 
            local claims = wd.getClaims(query)
-- remove previously added parameters so that they won't be added a second time
            if (not claims) then
params[aliasesP.author] = nil
                  return
params[aliasesP.referenceURL] = nil
            end
params[aliasesP.title] = nil
            for i, claim in ipairs(claims) do
params[aliasesP.statedIn] = nil
                      claim = processWDval(claim, query)
 
                table.insert(pointtable, claim)
-- add the rest of the parameters
            end
for i, v in pairs(params) do
        end
i = self.conf:getLabel(i)
 
    if (#pointtable == 0) and localdata.item and params.wikidata and (params.wikidata ~= '-') then
if i ~= "" then
              for i, query in ipairs(params.wikidata) do
citeParams['default'][#citeParams['default'] + 1] = i .. ": " .. v[1]
                          if type(query) == 'function' then
end
                          query = query()
end
                    end
 
                    if query then
value = table.concat(citeParams['default'], "; ")
                              getWDvals(query)
 
                    end
if value ~= "" then
            end
value = value .. "."
        end
end
end
    if (not pointtable) or (#pointtable == 0) then
 
              return nil
if value ~= "" then
        end
value = {value}  -- create one value object
 
    local newparams = {maplist = maplist, pointtype = pointtype, maptype = maptype, width = width, item = localdata.item, pointtable = pointtable, globe = globe, marker=params.marker, default_zoom=params.default_zoom, ids = params.ids, markercolor = params.markercolor, shapecolor = params.shapecolor }
if not self.rawValue then
        if params.params and type(params.params) == 'table' then -- parâmetro adicionais
-- this should become a <ref> tag, so save the reference's hash for later
              for i, j in pairs(params.params) do
value.refHash = "wikidata-" .. statement.hash .. "-v" .. (tonumber(i18n['cite']['version']) + version)
                          newparams[i] = j
end
            end
 
        end
ref = {value}  -- wrap the value object in an array
        return require('Módulo:Mapa').multimap(newparams)
end
end
 
return ref
end
end
p.buildMap = p.buildmap


-- gets a detail of one particular type for a reference
function p.buildexternaltext(params)
function State:getReferenceDetail(snaks, dType, raw, link, anyLang)
    local value = getValue(params.value)
local switchLang = anyLang
        if value and (type(value) == 'string') then
local value = nil
              externaltext = externaltext .. value
 
        end
if not snaks[dType] then
return nil
end
 
-- if anyLang, first try the local language and otherwise any language
repeat
for _, v in ipairs(snaks[dType]) do
value = self.conf:getValue(v, raw, link, false, anyLang and not switchLang, false, true) -- noSpecial = true
 
if value then
break
end
end
 
if value or not anyLang then
break
end
 
switchLang = not switchLang
until anyLang and switchLang
 
return value
end
end
p.buildExternalText = p.buildexternaltext


-- gets the details of one particular type for a reference
function p.buildfooter(params)
function State:getReferenceDetails(snaks, dType, raw, link, anyLang)
        if not params then
local values = {}
                  params = {}
 
        end
if not snaks[dType] then
return {}
    local class = 'navbar noprint bordered ' .. (params.class or '')
end
        local style = params.style or {['border-width'] = '1px'}
        style['margin-top'] = '5px' -- espaço vertical para o footer
    style['margin-bottom'] = '-0.125em'
        style['border-top'] = style['border-top'] or '1px solid ' .. maincolor
    style['border-bottom'] = '0'
    style['display'] = 'block'


for _, v in ipairs(snaks[dType]) do
    local backlinkstr = '[' .. tostring( mw.uri.fullUrl( page.name, 'veaction=edit&section=0' ) ) .. ' ' .. i18n['edit'] .. ']'
-- if nil is returned then it will not be added to the table
                  .. ' - [' .. tostring( mw.uri.fullUrl( page.name, 'action=edit&section=0' ) ) .. ' ' .. i18n['edit code'] .. ']'
values[#values + 1] = self.conf:getValue(v, raw, link, false, anyLang, false, true) -- noSpecial = true
end


return values
        local itemlinkstr
        if localdata.item then
              itemlinkstr = '[[d:' .. localdata.item.id .. '|' .. i18n['edit item'] .. ']]'
        end
        local editstr = backlinkstr
      if itemlinkstr then
                editstr = editstr .. ' - ' .. itemlinkstr
        end
        local editlinkspan =  mw.html.create('span')
                  :css({['text-align'] = "left"})
            :css({['width'] = "23em"})
        --:css({['float'] = "left"})
            :addClass('plainlinks') --?existe
            :wikitext(editstr)
            :done()
        local doclinkstr = '[[Imagem:Info Simple.svg|12px|link=' .. localdata.templatename .. '|' .. i18n['see doc'] .. ']]'
        -- Se esse link nem sempre funcionar, adicione uma variável para o nome da infobox recuperada pelo quadro
        local doclinkspan = mw.html.create('span')
                  :css({['text-align'] = "right"})
            :css({['float'] = "right"})
            :wikitext(doclinkstr)
            :done()
    local footer = mw.html.create('p')
                  :addClass(class)
            :css(style)
            :node(editlinkspan)
            :node(doclinkspan)
        return footer
end
end
p.buildFooter = p.buildfooter


-- level 1 hook
function p.buildblock(block)
function State:getAlias(object)
        if type(block) == 'function' then
local value = object.value
              block = block( localdata )
local title = nil
        end
 
if value and self.linked then
if self.conf.entityID:sub(1,1) == "Q" then
title = mw.wikibase.getSitelink(self.conf.entityID)
elseif self.conf.entityID:sub(1,1) == "P" then
title = "d:Property:" .. self.conf.entityID
end


if title then
        local blocktypes = { -- list of functions for block buildings
value = buildWikilink(title, value)
                  ['invalid'] = p.buildinvalidblock,
end
            ['external text'] = p.buildexternaltext,
end
            ['footer'] = p.buildfooter,
 
            ['images'] = p.buildimages,
value = {value} -- create one value object
            ['map']= p.buildmap,
 
            ['mixed'] = p.buildrow,
if #value > 0 then
            ['navbox'] = p.buildnavbox,
return {value}  -- wrap the value object in an array and return it
            ['table'] = p.buildtable,
else
            ['row'] = p.buildrow,
return {}  -- return empty array if there was no value
            ['row1col'] = p.buildrow1col,
end
            ['succession'] = p.buildnavbox,
            ['text'] = p.buildtext,
            ['title'] = p.buildtitle,
        }
        if type(block) ~= 'table' or (not block.type) or (not blocktypes[block.type]) then
          return blocktypes['invalid'](block)
        end
        return blocktypes[block.type](block)
end
end
p.buildBlock = p.buildblock


-- level 1 hook
function p.build()
function State:getBadge(value)
   
value = self.conf:getLabel(value, self.rawValue, self.linked, self.shortName)
    localdata = require( 'Módulo:Infobox/Localdata' )
 
        item = localdata.item
if value == "" then
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
if #valuesArray > 0 then
result[param] = valuesArray
result.count = result.count + 1
else
result[param] = {}  -- an empty array to indicate that we've tried this hook already
return true  -- miss == true
end
end
 
return false
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 matches = false
local rankPos = nil
local result, gotRequired
 
for _, v in ipairs(statements) do
-- rankPos will be nil for non-claim statements (e.g. qualifiers, references, etc.)
matches, rankPos = matchHook(self, v)
 
if matches then
result = {count = 0}  -- collection of arrays with value objects
 
local function walk(formatTable)
local miss
 
for i2, v2 in pairs(formatTable.req) do
-- call a hook, adding its return value to the result
miss = self:callHook(i2, hooks, v, result)
 
if miss then
-- we miss a required value for this level, so return false
return false
end
 
if result.count == hooks.count then
-- we're done if all hooks have been called;
-- returning at this point breaks the loop
return true
end
end
 
for _, 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
 
if v2.child then
walk(v2.child)
end
end
 
return true
end
gotRequired = walk(self.parsedFormat)
 
-- only append the result if we got values for all required parameters on the root level
if gotRequired then
-- if we have a rankPos (only with matchHook() for complete claims), then update the foundRank
if rankPos and self.conf.foundRank > rankPos then
self.conf.foundRank = rankPos
end
 
-- append the result
self.results[#self.results + 1] = result
 
-- break if we only need a single value
if self.singleValue then
break
end
end
end
end
 
return self:out()
end
 
local function getEntityId(arg, eid, page, allowOmitPropPrefix)
local id = nil
local prop = nil
 
if arg then
if arg:sub(1,1) == ":" then
page = arg
eid = 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
 
return id, prop
end
 
local function nextArg(args)
local arg = args[args.pointer]
 
if arg then
args.pointer = args.pointer + 1
return mw.text.trim(arg)
else
return nil
end
end
 
local function claimCommand(args, funcName)
local cfg = Config:new()
cfg:processFlagOrCommand(funcName)  -- process first command (== function name)
 
local lastArg, parsedFormat, formatParams, claims, value
local hooks = {count = 0}
 
-- set the date if given;
-- must come BEFORE processing the flags
if args[p.args.date] then
cfg.atDate = {parseDate(args[p.args.date])}
cfg.periods = {false, true, false}  -- change default time constraint to 'current'
end
 
-- process flags and commands
repeat
lastArg = nextArg(args)
until not cfg:processFlagOrCommand(lastArg)
 
-- 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
 
cfg.propertyID = replaceAlias(cfg.propertyID)
 
if not cfg.entity or not cfg.propertyID then
return ""  -- we cannot continue without an entity or a property ID
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
 
if #args - args.pointer + 1 > cfg.states.qualifiersCount then
-- claim ID or literal value has been given
 
cfg.propertyValue = nextArg(args)
end
 
for i = 1, cfg.states.qualifiersCount do
-- check if given qualifier ID is an alias and add it
cfg.qualifierIDs[parameters.qualifier..i] = replaceAlias(nextArg(args) or ""):upper()
end
elseif cfg.states[parameters.reference] then
-- do further processing if "reference(s)" command was given
 
cfg.propertyValue = nextArg(args)
end
 
-- check for special property value 'somevalue' or 'novalue'
if cfg.propertyValue then
cfg.propertyValue = replaceSpecialChars(cfg.propertyValue)
 
if cfg.propertyValue ~= "" and mw.text.trim(cfg.propertyValue) == "" then
cfg.propertyValue = " "  -- single space represents 'somevalue', whereas empty string represents 'novalue'
else
cfg.propertyValue = mw.text.trim(cfg.propertyValue)
end
end
 
-- parse the desired format, or choose an appropriate format
if args["format"] then
parsedFormat, formatParams = parseFormat(args["format"])
elseif cfg.states.qualifiersCount > 0 then  -- "qualifier(s)" command given
if cfg.states[parameters.property] then  -- "propert(y|ies)" command given
parsedFormat, formatParams = parseFormat(formats.propertyWithQualifier)
else
parsedFormat, formatParams = parseFormat(formats.qualifier)
end
elseif cfg.states[parameters.property] then  -- "propert(y|ies)" command given
parsedFormat, formatParams = parseFormat(formats.property)
else  -- "reference(s)" command given
parsedFormat, formatParams = parseFormat(formats.reference)
end
 
-- if a "qualifier(s)" command and no "propert(y|ies)" command has been given, make the movable separator a semicolon
if cfg.states.qualifiersCount > 0 and not cfg.states[parameters.property] then
cfg.separators["sep"..parameters.separator][1] = {";"}
end
 
-- if only "reference(s)" has been given, set the default separator to none (except when raw)
if cfg.states[parameters.reference] and not cfg.states[parameters.property] and cfg.states.qualifiersCount == 0
  and not cfg.states[parameters.reference].rawValue then
cfg.separators["sep"][1] = nil
end
 
-- if exactly one "qualifier(s)" command has been given, make "sep%q" point to "sep%q1" to make them equivalent
if cfg.states.qualifiersCount == 1 then
cfg.separators["sep"..parameters.qualifier] = cfg.separators["sep"..parameters.qualifier.."1"]
end
 
-- process overridden separator values;
-- must come AFTER tweaking the default separators
cfg:processSeparators(args)
 
-- define the hooks that should be called (getProperty, getQualifiers, getReferences);
-- only define a hook if both its command ("propert(y|ies)", "reference(s)", "qualifier(s)") and its parameter ("%p", "%r", "%q1", "%q2", "%q3") have been given
for i, v in pairs(cfg.states) do
-- e.g. 'formatParams["%q1"] or formatParams["%q"]' to define hook even if "%q1" was not defined to be able to build a complete value for "%q"
if formatParams[i] or formatParams[i:sub(1, 2)] then
hooks[i] = getHookName(i, 1)
hooks.count = hooks.count + 1
end
end
 
-- 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
if formatParams[parameters.qualifier] and cfg.states.qualifiersCount > 0 then
hooks[parameters.qualifier] = getHookName(parameters.qualifier, 1)
hooks.count = hooks.count + 1
end
 
-- 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
if not cfg.states[parameters.property] then
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 cfg.singleClaim then
cfg.states[parameters.property].singleValue = true
end
end
 
-- 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;
-- must come AFTER defining the hooks
if cfg.sourcedOnly and not cfg.states[parameters.reference] then
cfg:processFlagOrCommand(p.claimCommands.reference)  -- use singular "reference" to minimize overhead
end
 
-- set the parsed format and the separators (and optional punctuation mark);
-- must come AFTER creating the additonal states
cfg:setFormatAndSeparators(cfg.states[parameters.property], parsedFormat)
 
-- process qualifier matching values, analogous to cfg.propertyValue
for i, v in pairs(args) do
i = tostring(i)
 
if i:match('^[Pp]%d+$') or aliasesP[i] then
v = replaceSpecialChars(v)
 
-- check for special qualifier value 'somevalue'
if v ~= "" and mw.text.trim(v) == "" then
v = " "  -- single space represents 'somevalue'
end
 
cfg.qualifierIDsAndValues[replaceAlias(i):upper()] = v
end
end
 
-- 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
 
-- if desired, add a clickable icon that may be used to edit the returned values on Wikidata
if cfg.editable and value ~= "" then
value = value .. cfg:getEditIcon()
end
 
return value
end
 
local function generalCommand(args, funcName)
local cfg = Config:new()
cfg.curState = State:new(cfg)
 
local lastArg
local value = nil
 
repeat
lastArg = nextArg(args)
until not cfg:processFlag(lastArg)
 
-- get the entity ID from either the positional argument, the eid argument or the page argument
cfg.entityID = getEntityId(lastArg, args[p.args.eid], args[p.args.page], true)
 
if cfg.entityID == "" or not mw.wikibase.entityExists(cfg.entityID) then
return ""  -- we cannot continue without an entity
end
 
-- serve according to the given command
if funcName == p.generalCommands.label then
value = cfg:getLabel(cfg.entityID, cfg.curState.rawValue, cfg.curState.linked, cfg.curState.shortName)
elseif funcName == p.generalCommands.title then
cfg.inSitelinks = true
 
if cfg.entityID:sub(1,1) == "Q" then
value = mw.wikibase.getSitelink(cfg.entityID)
end
 
if cfg.curState.linked and value then
value = buildWikilink(value)
end
elseif funcName == p.generalCommands.description then
value = mw.wikibase.getDescription(cfg.entityID)
else
local parsedFormat, formatParams
local hooks = {count = 0}
 
cfg.entity = mw.wikibase.getEntity(cfg.entityID)
 
if funcName == p.generalCommands.alias or funcName == p.generalCommands.badge then
cfg.curState.singleValue = true
end
 
if funcName == p.generalCommands.alias or funcName == p.generalCommands.aliases then
if not cfg.entity.aliases or not cfg.entity.aliases[cfg.langCode] then
return ""  -- there is no use to continue without any aliasses
end
 
local aliases = cfg.entity.aliases[cfg.langCode]
 
-- parse the desired format, or parse the default aliases format
if args["format"] then
parsedFormat, formatParams = parseFormat(args["format"])
else
parsedFormat, formatParams = parseFormat(formats.alias)
end
 
-- process overridden separator values;
-- must come AFTER tweaking the default separators
cfg:processSeparators(args)
 
-- define the hook that should be called (getAlias);
-- only define the hook if the parameter ("%a") has been given
if formatParams[parameters.alias] then
hooks[parameters.alias] = getHookName(parameters.alias, 1)
hooks.count = hooks.count + 1
end
 
-- set the parsed format and the separators (and optional punctuation mark)
cfg:setFormatAndSeparators(cfg.curState, parsedFormat)
 
-- iterate to collect values
value = cfg:concatValues(cfg.curState:iterate(aliases, hooks))
elseif funcName == p.generalCommands.badge or funcName == p.generalCommands.badges then
if not cfg.entity.sitelinks or not cfg.entity.sitelinks[cfg.siteID] or not cfg.entity.sitelinks[cfg.siteID].badges then
return ""  -- there is no use to continue without any badges
end
 
local badges = cfg.entity.sitelinks[cfg.siteID].badges
 
cfg.inSitelinks = true
 
-- parse the desired format, or parse the default aliases format
if args["format"] then
parsedFormat, formatParams = parseFormat(args["format"])
else
parsedFormat, formatParams = parseFormat(formats.badge)
end
 
-- process overridden separator values;
-- must come AFTER tweaking the default separators
cfg:processSeparators(args)
 
-- define the hook that should be called (getBadge);
-- only define the hook if the parameter ("%b") has been given
if formatParams[parameters.badge] then
hooks[parameters.badge] = getHookName(parameters.badge, 1)
hooks.count = hooks.count + 1
end
 
-- set the parsed format and the separators (and optional punctuation mark)
cfg:setFormatAndSeparators(cfg.curState, parsedFormat)
 
-- iterate to collect values
value = cfg:concatValues(cfg.curState:iterate(badges, hooks))
end
end
 
value = value or ""
 
if cfg.editable and value ~= "" then
-- if desired, add a clickable icon that may be used to edit the returned value on Wikidata
value = value .. cfg:getEditIcon()
end
 
return value
end
 
-- modules that include this module should call the functions with an underscore prepended, e.g.: p._property(args)
local function establishCommands(commandList, commandFunc)
for _, commandName in pairs(commandList) do
local function wikitextWrapper(frame)
local args = copyTable(frame.args)
args.pointer = 1
loadI18n(aliasesP, frame)
return commandFunc(args, commandName)
end
p[commandName] = wikitextWrapper
 
local function luaWrapper(args)
args = copyTable(args)
args.pointer = 1
loadI18n(aliasesP)
return commandFunc(args, commandName)
end
p["_" .. commandName] = luaWrapper
end
end
 
establishCommands(p.claimCommands, claimCommand)
establishCommands(p.generalCommands, generalCommand)
 
-- main function that is supposed to be used by wrapper templates
function p.main(frame)
if not mw.wikibase then return nil end
 
local f, args
 
loadI18n(aliasesP, frame)
 
-- get the parent frame to take the arguments that were passed to the wrapper template
frame = frame:getParent() or frame
 
if not frame.args[1] then
throwError("no-function-specified")
end
 
f = mw.text.trim(frame.args[1])
 
if f == "main" then
throwError("main-called-twice")
end


assert(p["_"..f], errorText('no-such-function', f))
        -- assign rank to the infobox, "secondary" means special formatting like no displaytitle for coordinates
        local infoboxrank = 'main' -- main infobox of the page, with coordinates displayed in title etc.
        if page.namespace ~= 0 then
              infoboxrank = 'secondary'
        end
        -- if infobox is linked to another item: rank = secondary
        if localdata.item then
              local itemlink = mw.wikibase.sitelink(localdata.item.id)
            local pagetitle = mw.title.getCurrentTitle().text
            if (itemlink or '') ~= pagetitle then
                      infoboxrank = 'secondary'
            end
        end
        localdata.infoboxrank = infoboxrank


-- copy arguments from immutable to mutable table
        -- load infobox module page
args = copyTable(frame.args)
        local moduledata = require('Módulo:Infobox/' .. localdata.modulename)
        moduledata.name = localdata.modulename
        -- defines main color
        maincolor = localdata['cor infobox'] or localdata['caixa de cor'] or moduledata.maincolor or maincolor
        secondcolor =  moduledata.secondcolor or secondcolor
        thirdcolor =  moduledata.thirdcolor or thirdcolor
        if maincolor:match( '^%x%x%x%x%x%x$' ) or maincolor:match( '^%x%x%x$' ) then
              maincolor = '#' .. maincolor
        end
        -- class
        local class = 'infobox_v2'
        if moduledata.class then
            class = class .. ' ' .. moduledata.class
        end
    -- style
        local style = moduledata.style or {} --{'width: 20em; text-align: left; font-size: 88%; max-width: 23em'}
        style['font-size'] = style['font-size'] or '88%'
    -- build infobox
        infobox :addClass(class)
            :attr({cellpadding= "3"})
                :attr({border= "0"})
                :css(style)
        for i, j in pairs( moduledata.parts ) do
                  infobox:node( p.buildblock(j) )
        end
        infobox :node(p.buildfooter(moduledata.footer))
                :done()


-- remove the function name from the list
        if CategorizacaoABeAD.hasAnyBadge() == '1' then
table.remove(args, 1)
            maintenance = maintenance .. (CategorizacaoABeAD.badgesCategories())
        end


return p["_"..f](args)
        return tostring(infobox) .. externaltext, maintenance
end
end


return p
return p

Edição atual desde as 04h59min de 22 de maio de 2024

A documentação para este módulo pode ser criada na página Módulo:Wikidata/doc 

local p = {}
local lang = 'pt'

local item = nil -- o elemento Wikidata ligado
local localdata = {}-- guarda parâmetros passados à predefinição
local page = { -- guarda parâmetros da página mostrados na infocaixa
        name = mw.title.getCurrentTitle().prefixedText,
    namespace =  mw.title.getCurrentTitle().namespace
}
local maincolor, secondcolor, thirdcolor = '#E1E1E1', '#E1E1E1', '#000000'
-- o objecto principal a mostrar
local infobox = mw.html.create('div')

-- objetos secundários a mostrar
local maintenance = '' -- cadeia devolvida com o módulo : cats de monitoramento
local externaltext = '' -- para exemplo com coordenadas no título
-- modules importados
local linguistic = require "Módulo:Linguística"
local wd = require 'Módulo:Infobox/Wikidata'
local valueexpl = wd.translate("activate-query")
local CategorizacaoABeAD = require('Módulo:Categorização AD e AB de outras wikis')
local i18n = {
        ['see doc'] = 'Documentação da predefinição',
        ['edit'] = 'editar',
        ['edit code'] = 'editar código-fonte',
        ['edit item'] = 'editar Wikidata',
        ['tracking cat'] = "!Páginas que utilizam dados no Wikidata",
        ['invalid block type'] = "Bloco de dados inválidos dentro do módulo infobox",
        ['default cat'] = "!Monitoramento das infobox",
}

local function addWikidataCat(prop)
          maintenance = maintenance .. wd.addTrackingCat(prop)
end

local function expandQuery(query)
          local value, number -- valor a mostrar, nome dos valores para o rótulo
        if not query.entity then
                query.entity = localdata.item
        end
        if not query.conjtype then
                query.conjtype = 'new line'
        end
        local claims = wd.getClaims(query)
                  if (not claims) then
               return nil
        end
        return wd.formatAndCat(query), #claims -- para acordo do plural
end

local function getWikidataValue(params, wikidataparam)
          -- Mostrar o valor Wikidata para o valor, quer no parâmetro "wikidata" ou no parâmetro "property"
        if not localdata.item then
                return nil
        end

        if params.blockers then -- blockers are local parameters that disable the wikidata query
                  local blockers = params.blockers
               if (type(blockers) == 'string') then
                      blockers = {blockers}
               end
               for i, blocker in ipairs(blockers) do
                      if localdata[blocker] then
                                   return nil
                   end
               end
        end

        local v, valnum -- o valor a retornar e o número de valores (para concordância gramatical)
 
    if not wikidataparam then -- por padrão o valor wikidata está no parâmetro "wikidata" mas nas estruturas compostas como "title", existem vários parâmetros wikidata
               wikidataparam = 'wikidata'
        end

        if params[wikidataparam] then
               if type(params[wikidataparam]) == 'function' then
                       v, valnum = params[wikidataparam](localdata.item)
            elseif type(params[wikidataparam]) == 'table' then
                           v, valnum = expandQuery(params[wikidataparam])
            else
            v, valnum = params[wikidataparam]
            end
        end
        if not v then
                return nil
        end
        --v = linguistic.ucfirst(v)
        return v, valnum
end

local function getValue(val, params)
          if type(val) == 'string' then
               return localdata[val]
        elseif type(val) == 'function' then
               return val(localdata, localdata.item, params)
        elseif type(val) == 'table' then
               for i, j in pairs(val) do -- se vários parâmetros possíveis (legado do código antigo), tomar o primeiro não-vazio
                          if localdata[j] then
                                    return localdata[j]
                      end
               end
        end
end

local function addMaintenanceCat(cat, sortkey)
          if page.namespace ~= 0 then
               return ''
        end
        if cat then
        maintenance = maintenance .. '[[Category:' .. cat .. '|' .. (sortkey or page.name) .. ']]'
        end
end

function p.separator(params)
        local style = params['estilo separador'] or {}
        style.height = style.height or '2px'
        style['background-color'] = style['background-color'] or maincolor
 
    return mw.html.create('hr'):css( style )
end

function p.buildtitle(params)
        local text = getValue(params.value, params) or params.textdefaultvalue or  getWikidataValue(params) or mw.title.getCurrentTitle().text
    local subtext = getValue(params.subtitle) or  getWikidataValue(params, 'wikidatasubtitle') or params.subtitledefaultvalue
    if subtext and (subtext ~= text) then
              text = text .. '<br /><small>' .. subtext .. '</small>'
        end
        local style = {
                  border = 'none',
             ['text-align'] = 'center',
             ['font-size'] = '1.3em',
             padding = '0',
             display = 'table',
             height = '45px',
             width = '100%',
             ['*height'] = 'auto', -- be kind ie7
             ['*padding'] = '12px 0',
    }
    local style2 = {
                  display = 'table-cell',
                  ['vertical-align'] = 'middle',
                  padding = '3px',
    }
        local icon = params.icon or ''
        if icon ~= '' and not params.large then
                   icon = ' ' .. icon
        else
           -- style.padding = '12px'
                icon = " "
        end
        local class = 'topo' .. icon
 
    -- overwrites with those provided in the module
        -- local style = {}
        style['background-color'] = maincolor
        style['color'] = thirdcolor
        if params.style then
                  for i, j in pairs(params.style) do
                             style[i] = j
                end
        end
        local title = mw.html.create('div')
                  :addClass(class)
            :css(style)
            :tag('div')
            :css(style2)
        :wikitext(text)
            :allDone()
        return title
end
p.buildTitle = p.buildtitle

function p.buildnavbox(params)
 
    -- definição do estilo
        local class = "navbox " .. (params.class or '')
        local style = params.style or {['overflow'] = 'hidden'}

        if params.separated then -- opções para adicionar uma linha de separação acima
               class = class .. ' bordered'
            style['border-top'] = '1px solid' .. maincolor
        end

        -- ajuste de parâmetros de dados
        params.previousval = params.previousval or params.previousparameter -- nome do parâmetro obsoleto
        params.nextval = params.nextval or params.nextparameter
 
    if params.previousproperty then
               params.previouswikidata = {property = params.previousproperty}
        end
        if params.nextproperty then
               params.nextwikidata = {property = params.nextproperty}
        end
 

    local previousval = getValue(params.previousval, params) or getWikidataValue(params, 'previouswikidata')
        local nextval = getValue(params.nextval, params) or getWikidataValue(params, 'nextwikidata')
 
    local navbox
        if params.inner then -- para quem está dentro de uma tabela
               navbox = mw.html.create('tr'):tag('th'):attr('colspan', 2)
            style['font-weight'] = style['font-weight'] or 'normal'
        else
        navbox = mw.html.create('div')
        end
 
    navbox
    :css({['background-color'] = '#E6E6E6'})
        :addClass(class)
        -- :css(style)
        :css{border = '2px ' .. maincolor, ['font-weight'] = 'normal'}
        :tag('div')
        :addClass('prev_bloc')
        :wikitext(previousval)
        :done()
        :tag('div')
        :addClass('next_bloc')
        :wikitext(nextval)
        :done()
        :allDone()
        return navbox
end
p.buildNavbox = p.buildnavbox

function p.buildimages(params)
        local images = {}
        local upright, link, caption, alt, size    -- size is deprecated
        if type(params.imageparameters) == 'string' then
                params.imageparameters = {params.imageparameters}
        end
        if not params.imageparameters then -- se não houver nenhum parâmetro de imagem, continue, talvez haja uma imagem padrão definida no módulo de infobox
               params.imageparameters = {}
        end
        for j, k in ipairs(params.imageparameters) do
               table.insert(images, localdata[k])
        end
        -- Images de Wikidata
        if #images == 0 and localdata.item then
           if params.property then
                                 params.wikidata = {entity = localdata.item, property = params.property}
            end
            if params.wikidata then
                        local wdq = params.wikidata
                    wdq.excludespecial = true
                    if type(wdq) == 'table' then
                           wdq.entity = wdq.entity or localdata.item
                        wdq.numval = wdq.numval or params.numval or 1
                        images = wd.getClaims(wdq)
                end
                if type(wdq) == 'function' then
                           images = params.wikidata()
                        if type(images) == 'string' then
                        return images
                        end --provavelmente é um erro no pedido => mostrar a mensagem
                end
                if (not images) then
                           images = {}
                end
                if (#images > 0) and (params.wikidata.property) then
                           addWikidataCat(params.wikidata.property)
                end

                if type(images[1]) == 'table' then
                      for i, image in pairs(images) do
                               if image.mainsnak.snaktype ~= 'value' then
                            return
                        end
                        if #images == 1 then -- se apenas uma imagem, usamos a legenda (se mais duas imagens, como formatar?)
                                      caption = wd.getFormattedQualifiers('P18', {qualifier = 'P2096'}, {isinlang = 'pt'})
                        end
                        images[i] = image.mainsnak.datavalue.value
                    end
               end
              end
        end

        -- Imagens por padrao
        if #images == 0 then
               if params.maintenancecat then
                       addMaintenanceCat(params.maintenancecat, params.sortkey)
            end
            if params.defaultimages then
                       images = params.defaultimages
                    if type(images) == 'string' then
                           images = {images}
                    end
                    upright = params.defaultimageupright
                    caption = params.defaultimagecaption
                    link = params.defaultimagelink
                    alt = params.defaultimagealt
                    if not alt and ( images[1] == 'Padrao.svg' or images[1] == 'Padrao 2.svg' ) then
                            alt = 'uma ilustração licenciada gratuita seria bem-vinda'
                    end
            end
        end
        if #images == 0 then
               return nil
        end
 
    upright = upright or getValue(params.uprightparameter) or params.defaultupright or "1" -- 1.2 deixa uma margem
        link = link or getValue(params.linkparameter) or params.defaultlink
        caption = caption or getValue(params.captionparameter) or params.defaultcaption
        alt = alt or getValue( params.altparameter) or params.defaultalt

        -- tamanho com "size" (obsoleto)
        size = size or getValue(params.sizeparameter) or params.defaultsize or params.tamanho-- deprecated
        if size then
               local numsize = size:gsub('px', '')
            numsize = mw.ustring.gsub(numsize, 'x.*', '')
            numsize = tonumber(numsize)
            if type(numsize) ~= 'number' or numsize > 280 then
                       addMaintenanceCat("tamanho da imagem inválido")
            end
            if tonumber(size) then
                       size = size .. 'px'
            end
            size = '|' .. size
        else
        size = ''
        end
 
    if tonumber(upright) then
               upright = tostring(tonumber(upright) ) / #images
        end
        if tonumber(size) then
               size = tostring(tonumber(size) ) / #images
        end

    local style = params.style or {
                  padding ='2px 0',
        ['text-align'] = 'center',
          ['display'] = 'flex',
          ['justify-content'] = 'space-around',
          ['align-items'] = 'center',
    }
        local styleLegend = params.stylelegend or {
                  ['font-size'] = '0.9em',
          ['text-align'] = 'center',
          ['margin'] = '5px 0 5px 0',
        }

    -- Imagem da peça

        local imagesString = ''
        for i,image in pairs(images) do
                if image == '-' then
                       return
            end
            imagesString = imagesString ..      '[[File:' .. image .. "|" .. size .. '|frameless'
            if alt then
            imagesString = imagesString .. '|alt=' .. alt
            end
            if link then
                       imagesString = imagesString .. '|link=' .. link
            end
            if upright then
                       imagesString = imagesString .. '|upright=' .. upright
            elseif #images > 1 then
                           imagesString = imagesString .. '|upright=' .. ( 1 / #images )
            end
            imagesString = imagesString .. ']]'
        end

        local image = mw.html.create('div')
                  :addClass("image")
            :css(style)
            :wikitext(imagesString)

        -- Parte da legenda
        local captionobj
        if caption then
               captionobj = mw.html.create('p')
                    :css(styleLegend)
            :wikitext(caption)
                    :css(params.style or {})
                    :addClass("caption")
                    :done()
        end
 
        -- separador
           local separator
        if params.separator then
               separator = separator(params)
        end
        return mw.html.create('div')
                :node(image)
                :node(captionobj)
                :node(separator)
                :done()
end
p.buildImages = p.buildimages

function p.buildtext(params)
        local class = params.class or ''
        local style = {
                ['text-align'] = 'center',
            ['font-weight'] = 'bold'
        }
        if params.style then
               for i, j in pairs(params.style) do
                        style[i] = j
            end
        end
        local text = getValue(params.value, params) or getWikidataValue(params) or params.defaultvalue
        if text == '-' then
               return
        end
        if not text then
                addMaintenanceCat(params.maintenancecat, params.sortkey)
        return nil
        end
        local formattedtext = mw.html.create('p')
                :addClass(class)
            :css(style)
            :wikitext(text)
            :done()
        return formattedtext
end
p.buildText = p.buildtext

function p.buildrow(params)
    local class = params.class or ''
        local style = params.style or {}
    style['vertical-align'] = 'middle'

    local style2 = {
          ['text-align'] = 'left',
          ['padding-right'] = '10px',
          ['width'] = '8em',
          ['max-width'] = '140px',
          ['word-wrap'] = 'normal',
    }
        local value, number =  getValue(params.value, params)
        if (value == valueexpl) then
                value = nil
            params.wikidata.expl = false
        end
        if (not value) then
               value, number = getWikidataValue(params, 'wikidata')
        end
        if (not value) and (params.property) then
               value, number = expandQuery{ property = params.property, ucfirst = params.ucfirst }
        end
        if not value then
                value = params.defaultvalue
        end
        if value == '-' then
                return nil
        end
        if not number then
                number = 0 -- == indefinido
        end

        if not value then
                if params.maintenancecat then
                       local maintenancecat = getValue(params.maintenancecat, params)
                    addMaintenanceCat(maintenancecat, params.sortkey)
            end
            return nil
        end

        local label = params.label
        if number > 1 and (params.plurallabel) then
               label = params.plurallabel
        elseif number == 1 and (params.singularlabel) then
                label = params.singularlabel
        end
        if type(label) == 'function' then
               label = label(localdata, localdata.item)
        end

        -- format
        local formattedvalue = mw.html.create('div')
        :wikitext('\n' .. value) -- 'não é necessário quando o valor é uma lista que começa com '*' ou '#'
 
        if (params.hidden == true)then
                formattedvalue
                    :attr({class="NavContent", background= "none !important", ['padding-top'] = "0 !important", ['padding-bottom']="0 !important", ['border-top']= "1px solid grey !important", ['border-bottom']= "1px solid grey !important", ['margin-left']= "2em !important", ['margin-right']= "2em !important", style="display: none; text-align: left;"})
            formattedvalue = mw.html.create('div')
                        :attr({class="NavFrame", title="[Mostrar]/[Esconder]", style="border: none; padding: 0;"})
                    :node(formattedvalue)
        end
        formattedvalue =  mw.html.create('td')
                   :node(formattedvalue)
                   :allDone()
 
    local formattedlabel
        if label then
               formattedlabel = mw.html.create('th')
                 :attr('scope', 'row')
                 :css(style2)
                 :wikitext(label)
                 :done()
        end
        local row = mw.html.create('tr')
            :attr('scope', 'row')
            :addClass(class)
            :css(style)
            :node(formattedlabel)
            :node(formattedvalue)
            :done()
 
        return row
end
p.buildRow = p.buildrow

function p.buildsuccession(params)
        if not params.value then
                return nil
        end
 
    --local style = params.style or {}
        --style['text-align'] = style['text-align'] or 'center'
        --style['color'] = style['color'] or '#000000'
        --style['background-color'] = style['background-color'] or '#F9F9F9'
 
    local rowI = mw.html.create('tr')
 
    local colspan = '2'
        cellI = mw.html.create('td')
            :attr({colspan = colspan})
                :attr({align = 'center'})
 
    local styleT = {}
        styleT['background-color'] = 'transparent'
        styleT['width'] = '100%'
        tabC = mw.html.create('table')
            :attr({cellspacing = '0'})
                :addClass('navigation-not-searchable')
                :css(styleT)
 
    local row = mw.html.create('tr')

        local color = params.color

        local style = {}
        local arrowLeft
        local arrowRight
 
    if color == 'default' then
               style['background-color'] = '#E6E6E6'
            arrowLeft = '[[Ficheiro:Fleche-defaut-gauche.png|13px|alt=Precedente|link=]]'
            arrowRight = '[[Ficheiro:Fleche-defaut-droite.png|13px|alt=Precedente|link=]]'
        else
        style['background-color'] = color
            arrowLeft = '[[Ficheiro:Fleche-defaut-gauche-gris-32.png|13px|alt=Próximo|link=]]'
            arrowRight = '[[Ficheiro:Fleche-defaut-droite-gris-32.png|13px|alt=Próximo|link=]]'
        end
 
    local styleTrans = {}
        styleTrans['background-color'] = '#F9F9F9'
 
    local values = params.value
        local before = values['before']
        local center = values['center']
        local after = values['after']
 
    local widthCell = '44%'
        if center then
               widthCenter = '28%'
            widthCell = '29%'
        end
 
    local formattedbefore
        if before then
               formattedbefore = mw.html.create('td')
                    :attr({valign = 'middle'})
                    :attr({align = 'left'})
                    :attr({width = '5%'})
                    :css(style)
                    :wikitext(arrowLeft)
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(style)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({align = 'left'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(style)
                    :wikitext(before)
                    :done()
                row:node(formattedbefore)
        else
        formattedbefore = mw.html.create('td')
                    :attr({valign = 'middle'})
                    :attr({align = 'left'})
                    :attr({width = '5%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({align = 'left'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
        end
 
    local formattedcenter
        formattedcenter = mw.html.create('td')
            :attr({width = '1%'})
            :css(styleTrans)
            :wikitext('')
            :done()
        row:node(formattedcenter)
 
    if center then
               formattedcenter = mw.html.create('td')
                    :attr({align = 'center'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCenter})
                    :css(style)
                    :wikitext(center)
                    :done()
            row:node(formattedcenter)
            formattedcenter = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedcenter)
        end
 
    local formattedafter
        if after then
               formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(style)
                    :wikitext(after)
                    :done()
            row:node(formattedafter)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(style)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = '5%'})
                    :css(style)
                    :wikitext(arrowRight)
                    :done()
            row:node(formattedafter)
        else
        formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedafter)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = '5%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedafter)
        end
 
    row:done()
        tabC:node(row)
        tabC:done()
        cellI:node(tabC)
        cellI:done()
        rowI:node(cellI)
        rowI:allDone()
 
    return rowI
end
p.buildSuccession = p.buildsuccession

function p.buildrow1col(params)
 
    if not params.value then
                return nil
        end
 
    --local style = params.style or {}
        --style['text-align'] = style['text-align'] or 'center'
        --style['color'] = style['color'] or '#000000'
        --style['background-color'] = style['background-color'] or '#F9F9F9'
        local class = params.class
        local rowcolor
        if params.color == 'secondcolor' then
               rowcolor = secondcolor
        else
        rowcolor = params.color
        end
 
    local style = {}
        style['padding'] = '4px'
        style['text-align'] = 'center'
        style['background-color'] = rowcolor or '#F9F9F9'
        style['color'] = '#000000'
 
    local text = params.value

        local colspan ='2'

        local formattedlabel
        formattedlabel = mw.html.create('th')
            :attr({colspan = colspan})
            :css(style)
            :wikitext(text)
            :done()

        local row = mw.html.create('tr')
                :addClass(class)
            :css(style)
            :node(formattedlabel)
            :done()
 
    return row
end
p.buildRow1Col = p.buildrow1col

function p.buildtable(params)
        local tab = mw.html.create('table'):css(params.style or {})

        local rows = params.rows
 
    -- expand parameters so that we have a list of tables
        local i = 1

        while (i <= #rows) do
                  local l = rows[i]
            if type(l) == 'function' then
                       l = l(localdata, localdata.item)
            end
            if (type(l) == 'table') and (l.type == 'multi') then
                       table.remove(rows, i)
                    for j, row in ipairs(l.rows) do
                               table.insert(rows, i + j - 1, row)
                    end
            elseif type(l) == 'nil' then
                        table.remove(rows, i)
            elseif type(l) ~= 'table' then
                           return error('as linhas da infobox ("rows") devem ser tabelas, e ' .. type(l))
            else
            i = i + 1
            end
        end

        -- CREATE ROW
        local expandedrows = {}
        for k, row in ipairs(rows) do
                   local v = p.buildblock(row)
            if v then
            table.insert(expandedrows, v)
            end
        end
        if (#expandedrows == 0) then
               return nil
        end
        rows = expandedrows

        -- ADD TITLE
        local title
        if params.title or params.singulartitle or params.pluraltitle then
               local text
            if #rows > 1 and params.pluraltitle then
                   text = params.pluraltitle
            elseif #rows == 1 and params.singulartitle then
                       text = params.singulartitle
            else
            text = params.title
            end

            local style = params.titlestyle or {}
            style['font-weight'] = style['font-weight'] or 'bolder'
            style['width'] = style['width'] or '23em'
            style['text-align'] = style['text-align'] or 'center'
            style['line-height'] = style['line-height'] or '1.5'
            style['margin'] = style['margin'] or '0 0 5px 0'
            --style['padding-top'] = style['padding-top'] or '.5em'
            --style['padding-bottom'] = style['padding-bottom'] or '.5em'
            style['color'] = style['color'] or thirdcolor
            style['background-color'] = style['background-color'] or maincolor
        style['max-width'] = style['max-width'] or '300px'
        style['word-wrap'] = style['word-wrap'] or 'break-word'



            local colspan ='2'
            title = mw.html.create('caption')
                      :attr({colspan = colspan})
                :css(style)
                :wikitext(text)
                :done()
     end
 
    if title then
               tab:node(title)
        end
 
    for i, j in pairs (rows) do
                   tab:node(j)
        end
 
    if params.separator then
               local separator = p.separator(params)
            tab:node(separator)
        end
        tab:allDone()
        return tab
end
p.buildTable = p.buildtable

function p.buildinvalidblock(args)
        addMaintenanceCat(defaultcat)
        local text = ''
        if type(args) ~= 'table' then
               text = "Blocos de infobox devem ser tabelas"
        else
        text = i18n["invalid block type"] .. ' : ' .. (args.type or '??')
        end
        return text
end
p.buildInvalidBlock = p.buildinvalidblock

function p.buildmap(params)

        -- configuração de exibição
        local maplist = getValue(params.maps)
        local pointtype = params.pointtype
        local maptype = params.maptype -- escolhe o tipo de mapa mais adequado (alívio, administrativo, etc.)
        if type(maplist) == 'function' then
               maplist = maplist(localdata, localdata.item)
        end
        local width = tonumber(params.largura) or 270 -- 280 padrao f.ajustar
        if width > 280 then
               addMaintenanceCat("!Erro de infobox - imagem muito grande")
            return 'imagem muito grande, a largura deve ser menor ou igual a 280px'
        end

        -- mostrar os dados locais
        local pointtable = {}
        local globe = params.globe
        if params.latitude then
               local lat, long
             if type(params.latitude) == 'function' then
                        lat, long = params.latitude(localdata, localdata.item), params.longitude(localdata, localdata.item)
        else
        lat, long = localdata[params.latitude], localdata[params.longitude]
            end
            if lat then
            table.insert(pointtable, {latitude = lat, longitude = long})
             end
        end

        -- mostrar os dados wikidata
        local function processWDval(claim, displayformat)
                  if not claim then
                       return nil
            end
            local val = wd.formatSnak( claim.mainsnak )
            return {latitude = val.latitude, longitude = val.longitude, globe = val.globe, marker = displayformat.marker}
        end
 
    local function getWDvals(query)
                  query.excludespecial = true
            query.numval = query.numval or 1
            query.entity = query.entity or localdata.item
            local claims = wd.getClaims(query)
            if (not claims) then
                   return
            end
            for i, claim in ipairs(claims) do
                       claim = processWDval(claim, query)
                table.insert(pointtable, claim)
            end
        end
 
    if (#pointtable == 0) and localdata.item and params.wikidata and (params.wikidata ~= '-') then
               for i, query in ipairs(params.wikidata) do
                           if type(query) == 'function' then
                           query = query()
                    end
                    if query then
                              getWDvals(query)
                    end
            end
        end
 
    if (not pointtable) or (#pointtable == 0) then
               return nil
        end
 
    local newparams = {maplist = maplist, pointtype = pointtype, maptype = maptype, width = width, item = localdata.item, pointtable = pointtable, globe = globe, marker=params.marker, default_zoom=params.default_zoom, ids = params.ids, markercolor = params.markercolor, shapecolor = params.shapecolor }
        if params.params and type(params.params) == 'table' then -- parâmetro adicionais
               for i, j in pairs(params.params) do
                           newparams[i] = j
            end
        end
        return require('Módulo:Mapa').multimap(newparams)
end
p.buildMap = p.buildmap

function p.buildexternaltext(params)
    local value = getValue(params.value)
        if value and (type(value) == 'string') then
               externaltext = externaltext .. value
        end
end
p.buildExternalText = p.buildexternaltext

function p.buildfooter(params)
        if not params then
                   params = {}
        end
 
    local class = 'navbar noprint bordered ' .. (params.class or '')
        local style = params.style or {['border-width'] = '1px'}
        style['margin-top'] = '5px' -- espaço vertical para o footer
    style['margin-bottom'] = '-0.125em'
        style['border-top'] = style['border-top'] or '1px solid ' .. maincolor
    style['border-bottom'] = '0'
    style['display'] = 'block'

    local backlinkstr = '[' .. tostring( mw.uri.fullUrl( page.name, 'veaction=edit&section=0' ) ) .. ' ' .. i18n['edit'] .. ']'
                  .. ' - [' .. tostring( mw.uri.fullUrl( page.name, 'action=edit&section=0' ) ) .. ' ' .. i18n['edit code'] .. ']'

        local itemlinkstr
        if localdata.item then
               itemlinkstr = '[[d:' .. localdata.item.id .. '|' .. i18n['edit item'] .. ']]'
        end
        local editstr = backlinkstr
       if itemlinkstr then
                editstr = editstr .. ' - ' .. itemlinkstr
        end
        local editlinkspan =  mw.html.create('span')
                  :css({['text-align'] = "left"})
            :css({['width'] = "23em"})
        --:css({['float'] = "left"})
            :addClass('plainlinks') --?existe
            :wikitext(editstr)
            :done()
        local doclinkstr = '[[Imagem:Info Simple.svg|12px|link=' .. localdata.templatename .. '|' .. i18n['see doc'] .. ']]'
        -- Se esse link nem sempre funcionar, adicione uma variável para o nome da infobox recuperada pelo quadro
        local doclinkspan = mw.html.create('span')
                  :css({['text-align'] = "right"})
            :css({['float'] = "right"})
            :wikitext(doclinkstr)
            :done()
 
    local footer = mw.html.create('p')
                  :addClass(class)
            :css(style)
            :node(editlinkspan)
            :node(doclinkspan)
        return footer
end
p.buildFooter = p.buildfooter

function p.buildblock(block)
        if type(block) == 'function' then
               block = block( localdata )
        end

        local blocktypes = { -- list of functions for block buildings
                  ['invalid'] = p.buildinvalidblock,
            ['external text'] = p.buildexternaltext,
            ['footer'] = p.buildfooter,
            ['images'] = p.buildimages,
            ['map']= p.buildmap,
            ['mixed'] = p.buildrow,
            ['navbox'] = p.buildnavbox,
            ['table'] = p.buildtable,
            ['row'] = p.buildrow,
            ['row1col'] = p.buildrow1col,
            ['succession'] = p.buildnavbox,
            ['text'] = p.buildtext,
            ['title'] = p.buildtitle,
        }
        if type(block) ~= 'table' or (not block.type) or (not blocktypes[block.type]) then
           return blocktypes['invalid'](block)
        end
        return blocktypes[block.type](block)
end
p.buildBlock = p.buildblock

function p.build()
 
    localdata = require( 'Módulo:Infobox/Localdata' )
        item = localdata.item

        -- assign rank to the infobox, "secondary" means special formatting like no displaytitle for coordinates
        local infoboxrank = 'main' -- main infobox of the page, with coordinates displayed in title etc.
        if page.namespace ~= 0 then
               infoboxrank = 'secondary'
        end
        -- if infobox is linked to another item: rank = secondary
        if localdata.item then
               local itemlink = mw.wikibase.sitelink(localdata.item.id)
            local pagetitle = mw.title.getCurrentTitle().text
            if (itemlink or '') ~= pagetitle then
                       infoboxrank = 'secondary'
            end
        end
        localdata.infoboxrank = infoboxrank

        -- load infobox module page
        local moduledata = require('Módulo:Infobox/' .. localdata.modulename)
        moduledata.name = localdata.modulename
        -- defines main color
        maincolor = localdata['cor infobox'] or localdata['caixa de cor'] or moduledata.maincolor or maincolor
        secondcolor =  moduledata.secondcolor or secondcolor
        thirdcolor =  moduledata.thirdcolor or thirdcolor
        if maincolor:match( '^%x%x%x%x%x%x$' ) or maincolor:match( '^%x%x%x$' ) then
               maincolor = '#' .. maincolor
        end
 
        -- class
        local class = 'infobox_v2'
        if moduledata.class then
            class = class .. ' ' .. moduledata.class
        end
 
    -- style
        local style = moduledata.style or {} --{'width: 20em; text-align: left; font-size: 88%; max-width: 23em'}
        style['font-size'] = style['font-size'] or '88%'
 
    -- build infobox
        infobox :addClass(class)
            :attr({cellpadding= "3"})
                :attr({border= "0"})
                :css(style)
        for i, j in pairs( moduledata.parts ) do
                   infobox:node( p.buildblock(j) )
        end
        infobox :node(p.buildfooter(moduledata.footer))
                :done()

        if CategorizacaoABeAD.hasAnyBadge() == '1' then
            maintenance = maintenance .. (CategorizacaoABeAD.badgesCategories())
        end

        return tostring(infobox) .. externaltext, maintenance
end

return p
Obtida de "https://churchofgod.wiki/pt/pt/index.php?title=Módulo:Wikidata&oldid=29545"