Módulo:Separated entries/Testes

-- Este módulo pega parâmetros posicionais como entrada e os concatena com
-- um separador opcional. O separador final (a "conjunção") pode ser
-- especificado de forma independente, permitindo listas de linguagem natural como
-- "foo, bar, baz e qux". O parâmetro inicial também pode ser especificado.

local compressSparseArray = require('Módulo:TableTools/Testes').compressSparseArray
local p = {}

function p._main(args)
	local separator = args.separator
		-- Decodifica (converte para Unicode) sequências de escape em HTML, como " " para espaço.
		and mw.text.decode(args.separator) or ''
	local conjunction = args.conjunction and mw.text.decode(args.conjunction) or separator
	-- Descarta valores antes do parâmetro inicial.
	local start = tonumber(args.start)
	if start then
		for i = 1, start - 1 do args[i] = nil end
	end
	-- Descarta parâmetros nomeados.
	local values = compressSparseArray(args)
	return mw.text.listToText(values, separator, conjunction)
end

local function makeInvokeFunction(separator, conjunction, first)
	return function (frame)
		local args = require('Módulo:Arguments/Testes').getArgs(frame)
		args.separator = separator or args.separator
		args.conjunction = conjunction or args.conjunction
		args.first = first or args.first
		return p._main(args)
	end
end

p.main = makeInvokeFunction()
p.br = makeInvokeFunction('<br />')
p.comma = makeInvokeFunction(mw.message.new('comma-separator'):plain())

return p