Módulo:BaseConvert

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