Módulo:Link de predefinição em geral
-- Implementa a infraestrutura de Predefinição:Tlg e de outras -- predefinições da família de ligações para predefinições. local getArgs = require('Módulo:Arguments').getArgs
local p = {}
-- É uma string que não está vazia? local function _ne(s)
return s ~= nil and s ~=
end
local nw = mw.text.nowiki
-- Retorna um argumento posicional independentemente de sua chave ter -- sido armazenada como número ou como representação textual do número. local function getPositionalArg(args, index)
local value = args[index]
if value == nil then
value = args[tostring(index)]
end
return value
end
-- Retorna, em ordem, somente os índices posicionais realmente presentes. -- -- Não percorremos de 2 até o maior índice: uma chamada artificial como -- |999999999=x não deve provocar centenas de milhões de iterações. local function getNumericArgIndexes(args)
local indexes = {}
local seen = {}
for key in pairs(args) do
local index
if type(key) == 'number' then
if key >= 2 and key % 1 == 0 then
index = key
end
elseif type(key) == 'string'
and key:match('^[1-9]%d*$') then
local n = tonumber(key)
if n and n >= 2 then
index = n
end
end
if index and not seen[index] then
seen[index] = true
indexes[#indexes + 1] = index
end
end
table.sort(indexes)
return indexes
end
-- Divide uma representação de parâmetro nomeado no primeiro "=". -- -- Exemplo: -- url=https://example.org/?a=b -- torna-se: -- chave = "url" -- valor = "https://example.org/?a=b" -- -- Uma string que começa por "=" continua sendo tratada como argumento -- posicional, como no comportamento histórico. local function splitNamedParameter(value)
local pos = value:find('=', 1, true)
if not pos then
return nil
end
-- Nomes e valores de parâmetros nomeados têm os espaços externos
-- removidos pelo MediaWiki; reproduzimos esse comportamento aqui.
local key = mw.text.trim(value:sub(1, pos - 1))
if key == then
return nil
end
local val = mw.text.trim(value:sub(pos + 1)) return key, val
end
-- Acrescenta o domínio Predefinição: quando o título fornecido não -- possui um domínio reconhecido. local function addTemplate(s)
if not _ne(s) then
return
end
local i = s:find(':', 1, true)
if i == nil then
return 'Predefinição:' .. s
end
local ns = s:sub(1, i - 1)
if ns == or mw.site.namespaces[ns] then
return s
end
return 'Predefinição:' .. s
end
-- Constrói a parte correspondente ao nome e à ligação. local function linkTitle(args)
local firstArg = getPositionalArg(args, 1)
local titleObj
if _ne(firstArg) then
-- Isso lida com :Página e outros domínios.
titleObj = mw.title.new(firstArg, 'Predefinição')
else
titleObj = mw.title.getCurrentTitle()
end
local textPart = args.alttext
if not _ne(textPart) then
if titleObj ~= nil then
-- 10 é o identificador numérico do domínio Predefinição.
if titleObj:inNamespace(10) and _ne(firstArg) then
textPart = firstArg
else
textPart = titleObj.fullText
end
else
-- Título inválido: conserva o texto fornecido, produzindo
-- posteriormente uma ligação vermelha quando possível.
textPart = firstArg or
end
end
if _ne(args.subst) then
textPart = 'subst:' .. textPart
end
if _ne(args.brace) then
textPart = nw('Predefinição:') .. textPart .. nw('')
elseif _ne(args.braceinside) then
textPart = nw('{') .. textPart .. nw('}')
end
local titlePart
if _ne(args.nolink) then
titlePart = textPart
else
local target
if titleObj ~= nil then
target = titleObj.fullText
else
target = addTemplate(firstArg)
end
titlePart = '' .. textPart .. '' end
if _ne(args.braceinside) then
titlePart = nw('{') .. titlePart .. nw('}')
end
local bold =
_ne(args.bold)
or _ne(args.boldlink)
or _ne(args.boldname)
if bold then
titlePart = "" .. titlePart .. ""
end
if _ne(args.nowrapname) then
titlePart =
''
.. titlePart
.. ''
end
return titlePart
end
function p.main(frame)
local args = getArgs(frame, {
trim = true,
removeBlanks = false
})
return p._main(args)
end
function p._main(args)
local italic =
_ne(args.italic)
or _ne(args.italics)
local dontBrace =
_ne(args.brace)
or _ne(args.braceinside)
local code =
_ne(args.code)
or _ne(args.tt)
local showResult = _ne(args._show_result) local expand = _ne(args._expand)
local firstArg = getPositionalArg(args, 1) local titlePart = linkTitle(args)
-- Constrói os argumentos mostrados. local textPart = local textPartBuffer = '|'
-- Argumentos usados por _show_result.
--
-- "j" representa o próximo índice posicional da chamada reconstruída
-- para _show_result. Argumentos ausentes ou vazios são omitidos,
-- portanto ele não corresponde necessariamente ao índice recebido
-- por este módulo.
local codeArguments = {}
local j = 1
-- Representação em wikitexto usada pelo link para ExpandTemplates. -- Os separadores são acrescentados diretamente para não substituir -- entidades | que façam parte do próprio valor do argumento. local expandArgumentsString =
for _, i in ipairs(getNumericArgIndexes(args)) do
local val = getPositionalArg(args, i)
if val ~= nil and val ~= then
if _ne(args.nowiki) then
-- Remove primeiro eventuais marcadores internos de <nowiki>.
-- Aplicar mw.text.nowiki diretamente a uma string que já
-- contenha strip markers pode expor literalmente UNIQ...QINU.
val = nw(mw.text.unstripNoWiki(val))
end
local key, value = splitNamedParameter(val)
if key then
codeArguments[key] = value
else
codeArguments[j] = val
j = j + 1
end
-- O itálico é aplicado ao argumento inteiro, inclusive quando
-- ele representa um parâmetro nomeado (por exemplo, "a=b").
-- Isso preserva o comportamento histórico da interface.
local displayedVal = val
if italic then
displayedVal =
''
.. displayedVal
.. ''
end
expandArgumentsString =
expandArgumentsString
.. '|'
.. val
textPart =
textPart
.. textPartBuffer
.. displayedVal
end
end
-- Envoltório final. local ret = titlePart .. textPart
if not dontBrace then
ret = nw('Predefinição:') .. ret .. nw('')
end
if _ne(args.a) then
ret = nw('*') .. ' ' .. ret
end
if _ne(args.kbd) then
ret = '' .. ret .. ''
end
if code then
ret = '' .. ret .. ''
elseif _ne(args.plaincode) then
ret =
''
.. ret
.. ''
end
if _ne(args.nowrap) then
ret =
''
.. ret
.. ''
end
if _ne(args.debug) then
ret =
ret
.. '\n
'
.. mw.text.encode(mw.dumpObject(args))
.. ''
end
-- Mostra o resultado da predefinição representada.
--
-- Chamadas sem nome não são expandidas: elas continuam podendo ser
-- exibidas para diagnóstico, mas não provocam erro em addTemplate().
if showResult and _ne(firstArg) then
if _ne(args.nocat) then
codeArguments.nocat = true
end
local result = mw.getCurrentFrame():expandTemplate {
title = addTemplate(firstArg),
args = codeArguments
}
ret = ret .. ' → ' .. result end
-- Adiciona ligação para Especial:Expandir predefinições.
if expand and _ne(firstArg) then
local query =
mw.text.encode(
'{{'
.. addTemplate(firstArg)
.. expandArgumentsString
.. '}}'
)
local url =
mw.uri.fullUrl(
'special:ExpandTemplates',
'wpInput=' .. query
)
ret =
ret
.. ' ['
.. tostring(url)
.. ']'
end
return ret
end
return p