Módulo:Demo/Testes

Documentação do módulo[ver] [editar] [histórico] [purgar]

Uso

Uso por meio de predefinições

Este módulo suporta {{Demo/Testes}}

{{#invoke:Demo|main}}

e {{Demo inline/Testes}}

{{#invoke:Demo|inline}}

A entrada deve ser envolvida em marcações (tags) <nowiki>...</nowiki> ou então pode ser processada antes que o módulo possa lê-la.

Uso em um módulo

Se quiser usar isso em outro módulo (para deixar a saída mais bonita), você pode obter valores como estes:

require('Módulo:Demo/Testes').get(frame)

A função get() retorna uma tabela contendo:

• source = o código fonte (sem wrappers de <syntaxhighlight>...</syntaxhighlight>, caracteres substituídos por entidades de html)
• output = o resultado da execução da fonte.
• frame = o quadro a partir do qual esta predefinição obteve o parâmetro.

Por padrão, get() usa o primeiro parâmetro de frame. Se o quadro usar um nome de parâmetro diferente para a fonte encapsulada nowiki, coloque esse nome (como uma sequência, string) como o segundo parâmetro, assim require('Módulo:Demo'/Testes).get(frame, 'nome_alternativo')

Exemplo:

local p = {}

function p.main(frame)
	local parts = require('Módulo:Demo/Testes').get(frame)
	return '…HTML bonita… <pre>' .. parts.source .. '</pre> …HTML mais bonita… ' .. parts.output .. ' …HTML ainda mais bonita…'
end

return p

Ver também

• Predefinição:Demo predefinição nowiki/Testes que usa Módulo:Exemplo teste predefinição/Testes
• Predefinição:Automarkup/Testes que usa Módulo:Automarkup/Testes

local p = {}

-- cria um objeto de frame que não pode acessar nenhum dos argumentos do parental
-- a menos que uma tabela contendo uma lista de chaves para não herdar seja fornecida
function disinherit(frame, onlyTheseKeys)
	local parent = frame:getParent() or frame
	local orphan = parent:newChild{}
	orphan.getParent = parent.getParent -- retorna nil
	orphan.args = {}
	if onlyTheseKeys then
		local family = {parent, frame}
		for f = 1, 2 do
			for k, v in pairs(family[f] and family[f].args or {}) do
				orphan.args[k] = orphan.args[k] or v
			end
		end
		parent.args = mw.clone(orphan.args)
		setmetatable(orphan.args, nil)
		for _, k in ipairs(onlyTheseKeys) do
			rawset(orphan.args, k, nil)
		end
	end
	return orphan, parent
end

function getSeparator(args, default)
	local br = tonumber(args.br) and ('<br>'):rep(args.br) or args.br
	local sep = args.sep or br or default
	return #sep > 0 and ' ' .. sep .. ' ' or sep
end

function p.get(frame, arg, passArgs)
	local orphan, frame = disinherit(frame, passArgs and {arg or 1})
	local code = frame.args[arg or 1] or ''
	if code:match'UNIQ%-%-nowiki' then
		code = mw.text.unstripNoWiki(code)
			:gsub('&lt;', '<')
			:gsub('&gt;', '>')
			:gsub('&quot;', '"')
			-- Substitui `&#125;%-` por `}-` devido a alguma peculiaridade do servidor que leva a
			-- =mw.text.unstripNoWiki(mw.getCurrentFrame():preprocess('<nowiki>}-</nowiki>'))
			-- gerando `&#125;-` em vez de `}-`, embora esteja tudo bem com `<nowiki>} -</nowiki>`
			:gsub('&#125;%-', '}-')
			-- O mesmo com `-&#123;`
			:gsub('%-&#123;', '-{')
	end
	local kill_categories = frame.args.demo_kill_categories or frame.args.nocat
	return {
		source = code,
		output = orphan:preprocess(code):gsub(kill_categories and '%[%[Categoria.-%]%]' or '', ''),
		frame = frame
	}
end

function p.main(frame, demoTable)
	local show = demoTable or p.get(frame)
	local args = show.frame.args
	if show[args.result_arg] then
		return show[args.result_arg]
	end
	local yesno = require('Módulo:Yesno/Testes')
	args.reverse = yesno(args.reverse, false)
	args.sep = getSeparator(args, '')
	local source = frame:extensionTag{
		name = 'syntaxhighlight',
		args = {
			lang = 'wikitext',
			style = args.style
		},
		content = show.source
	}
	return args.reverse and
		show.output .. args.sep .. source or
		source .. args.sep .. show.output
end

-- Função alternativa para retornar um resultado em linha
function p.inline(frame, demoTable)
	local show = demoTable or p.get(frame)
	local args = show.frame.args
	if show[args.result_arg] then
		return show[args.result_arg]
	end
	local yesno = require('Módulo:Yesno/Testes')
	args.reverse = yesno(args.reverse, false)
	args.sep = getSeparator(args, args.reverse and '←' or '→')
	local source =  frame:extensionTag{
		name = 'syntaxhighlight',
		args = {
			lang = 'wikitext',
			inline = true,
			style = args.style
		},
		content = show.source
	}
	return args.reverse and
		show.output .. args.sep .. source or
		source .. args.sep .. show.output
end

-- passagem de argumentos para outro módulo sem pré-processamento
function p.module(frame)
	local orphan, frame = disinherit(frame, {
		'demo_template',
		'demo_module',
		'demo_module_func',
		'demo_main',
		'demo_sep',
		'demo_br',
		'demo_result_arg',
		'demo_kill_categories',
		'nocat'
	})
	local template = frame.args.demo_template and 'Predefinição:'..frame.args.demo_template
	local demoFunc = frame.args.demo_module_func or 'main\n'
	local demoModule = require('Módulo:' .. frame.args.demo_module)[demoFunc:match('^%s*(.-)%s*$')]
	frame.args.br, frame.args.result_arg = frame.args.demo_sep or frame.args.demo_br, frame.args.demo_result_arg
	local kill_categories = frame.args.demo_kill_categories or frame.args.nocat
	if demoModule then
		local named = {insert = function(self, ...) table.insert(self, ...) return self end}
		local source = {insert = named.insert, '{{', frame.args.demo_template or frame.args.demo_module, '\n'}
		if not template then
			source:insert(2, '#invoke:'):insert(4, '|'):insert(5, demoFunc)
		end
		local insertNamed = #source + 1
		for k, v in pairs(orphan.args) do
			local nan, insert = type(k) ~= 'number', {v}
			local target = nan and named or source
			target:insert'|'
			if nan then
				target:insert(k):insert'=':insert'\n'
				table.insert(insert, 1, #target)
			end
			target:insert(unpack(insert))
			local nowiki = v:match('nowiki')
			if nowiki or v:match('{{.-}}') then
				orphan.args[k] = frame:preprocess(nowiki and mw.text.unstripNoWiki(v) or v)
			end
		end
		source:insert'}}'
		table.insert(source, insertNamed, table.concat(named))
		return p.main(orphan, {
			source = table.concat(source), "<>'|=~",
			output = tostring(demoModule(orphan)):gsub(kill_categories and '%[%[Categoria.-%]%]' or '', ''),
			frame = frame
		})
	else
		return "ERRO: Função de módulo inválida: "..demoFunc
	end
end

return p