Módulo:BaseConvert

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

Converte números para uma base especificada, entre 2 e 36, para uso em predefinições como {{Binário}}, {{Octal}}, {{Hexadecimal}}, etc.

Uso

local BaseConvert = require('Módulo:BaseConvert')
BaseConvert.convert({n = 14600926, base = 16}) -- retorna 'DECADE'

Argumentos:

• |n= - (necessário) o número a ser convertido, como uma string. Pode ser um número em vez disso, se a base de entrada for 10.
• |base= - (necessário) a base para a qual o número deve ser convertido. Pode ser entre 2 e 36, inclusive.
• |from= - a base da entrada. O padrão é 10 (ou 16 se a entrada tiver um '0x' inicial). Observe que bases diferentes de 10 não são suportadas se a entrada tiver uma parte fracionária.
• |precision= - número de dígitos a serem renderizados após o ponto de raiz. Zeros à direita serão adicionados, se necessário. Se não for especificado, serão mostrados quantos dígitos forem necessários, até 10.
• |width= - número mínimo de dígitos a serem renderizados antes do ponto de raiz. Zeros à esquerda serão adicionados, se necessário.
• |default= - Valor a ser retornado se n estiver vazio ou não for numérico. O padrão é o valor de n.
• |prefix= / |suffix= - texto wiki para adicionar antes/depois do resultado retornado. Não será adicionado se n estiver vazio ou não for numérico. Por exemplo, você pode usar um prefixo de 0x ao converter para hexadecimal ou um sufixo de <sub>8</sub> ao converter para octal.

A partir de predefinições

Na marcação wiki, este módulo pode ser chamado com um nome de função ntom, por exemplo:

Marcação	Renderiza como
{{#invoke:BaseConvert|16to10| FF }}	255
{{#invoke:BaseConvert|10to36|500}}	DW
{{#invoke:BaseConvert|10to16|Algum texto|default=0}}	0

Todas as opções acima são suportadas, exceto |base=, |from= e |n= que são definidas pelas opções obrigatórias.

Casos extremos

Marcação	Renderiza como
{{#invoke:BaseConvert|10to10|500}}	500
{{#invoke:BaseConvert|10to10|Algum texto}}	Algum texto
{{#invoke:BaseConvert|10to10|Algum texto|default=}}
{{#invoke:BaseConvert|10to16|Algum texto}}	Algum texto

local p = {}

local digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'

local function normalizeFullWidthChars(s)
	return mw.ustring.gsub(s, '[！-～]', function(s)
		return mw.ustring.char(mw.ustring.codepoint(s, 1) - 0xFEE0)
	end)
end

local function _convert(n, base, from, precision, width, default, prefix, suffix)
	n = tostring(n)

	-- retira qualquer "0x" inicial (a menos que x seja um dígito válido na base de entrada)
	from = tonumber(from)
	if not from or from < 34 then
		local c
		n, c = n:gsub('^(-?)0[Xx]', '%1')
		if c > 0 and not from then from = 16 end
	end

	-- verifica se há um sinal negativo. Faz isso enquanto a entrada ainda estiver na forma de string,
	-- porque tonumber não suporta números negativos em bases diferentes de 10.
	local sign = ''
	local c
	n, c = n:gsub('^-', '')
	if c > 0 then sign = '-' end

	-- substitui quaisquer caracteres Unicode de largura total na string por seus equivalentes no Código padrão americano para troca de informações (C.P.A.T.I. – A.S.C.I.I.)
	n = normalizeFullWidthChars(n)

	-- lida com notação científica com espaço em branco ao redor do "e*, por exemplo "5 e7"
	n = n:gsub('%s*[eE]%s*', 'e')

	from = from or 10
	local num = tonumber(n, from)
	base = tonumber(base)
	precision = tonumber(precision)
	width = tonumber(width)

	if not num or not base then return default or n end

	local i, f = math.modf(num)

	local t = {}
	repeat
		local d = (i % base) + 1
		i = math.floor(i / base)
		table.insert(t, 1, digits:sub(d, d))
	until i == 0
	while #t < (width or 0) do
		table.insert(t, 1, '0')
	end
	local intPart = table.concat(t, '')

	-- calcula a parte fracionária
	local tf = {}
	while f > 0 and #tf < (precision or 10) do
		f = f * base
		i, f = math.modf(f)
		table.insert(tf, digits:sub(i + 1, i + 1))
	end

	-- adiciona zeros à direita, se necessário
	if precision and #tf < precision then
		for i = 1, precision - #tf do
			table.insert(tf, '0')
		end
	end

	local fracPart = table.concat(tf, '')

	-- remove is zeros à direita, se não forem necessários
	if not precision then
		fracPart = fracPart:gsub('0*$', '')
	end

	-- adiciona o ponto de raiz, se necessário. Obs.: Aqui podemos modificar o sinal para decimais (o padrão em inglês é "." e em português é ",") na saída.
	if #fracPart > 0 then
		fracPart = '.' .. fracPart
	end

	return (prefix or '') .. sign .. intPart .. fracPart .. (suffix or '')
end

function p.convert(frame)
	-- Permite a invocação via #invoke ou diretamente de outro módulo
	local args
	if frame == mw.getCurrentFrame() then
		args = frame.args
	else
		args = frame
	end

	local n = args.n
	local base = args.base
	local from = args.from
	local precision = args.precision
	local width = args.width
	local default = args.default
	local prefix = args.prefix
	local suffix = args.suffix
	return _convert(n, base, from, precision, width, default, prefix, suffix)
end

setmetatable(p, {
	__index = function(t, k)
		local from, base = k:match('^([0-9]+)to([0-9]+)$')
		if not from then return nil end
		return function(frame)
			local args = frame.args
			return _convert(mw.text.trim(args[1]), base, from, args.precision, args.width,
				args.default, args.prefix, args.suffix)
		end
	end
})

return p