Módulo:BaseConvert
Aspeto
Este módulo Lua é usado em aproximadamente 2 100 páginas e as mudanças podem ser amplamente notadas. Teste as mudanças nas subpáginas, /Testes ou /Exemplos para testes do módulo, ou em sua própria subpágina de testes de módulos. Considere discutir as mudanças na página de discussão antes de implementá-las. |
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 de0x
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