baseconvert

local p = {}  local digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'  function normalizeFullWidthChars(s)     return mw.ustring.gsub(s, '[！-～]', function(s)          return mw.ustring.char(mw.ustring.codepoint(s, 1) - 0xFEE0)      end)     end  function _convert(n, base, from, precision, width, default, prefix, suffix)     n = '' .. n   -- convert to a string          -- strip off any leading '0x' (unless x is a valid digit in the input base)     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      -- check for a negative sign. Do this while the input is still in string form,     -- because tonumber doesn't support negative numbers in non-10 bases.     local sign = ''     local c     n, c = n:gsub('^-', '')     if c > 0 then sign = '-' end          -- replace any full-width Unicode characters in the string with their ASCII equivalents     n = normalizeFullWidthChars(n)          -- handle scientific notation with whitespace around the 'e' e.g. '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, '')          -- compute the fractional part     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          -- add trailing zeros if needed     if precision and #tf < precision then         for i = 1, precision - #tf do             table.insert(tf, '0')          end     end      fracPart = table.concat(tf, '')          -- remove trailing zeros if not needed     if not precision then         fracPart = fracPart:gsub('0*$', '')     end          -- add the radix point if needed     if #fracPart > 0 then         fracPart = '.' .. fracPart     end          return (prefix or '') .. sign .. intPart .. fracPart .. (suffix or '') end  function p.convert(frame)     -- Allow for invocation via #invoke or directly from another module     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  return p