Module:BaseConvert

From Chalo Chatu, Zambia online encyclopedia

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