Jump to content

Module:BaseConvert

Permanently protected module
From Wikipedia, the free encyclopedia
This is an old revision of this page, as edited by Toohool (talk | contribs) at 05:48, 23 February 2013 (add support for leading zeros). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

--
-- Converts numbers to a specified base between 2 and 36, for use in
-- templates such as {{binary}}, {{octal}}, {{hexadecimal}}, etc.
--
-- precision -  number of digits to be rendered after the radix point. Trailing
--   zeros will be added if needed. If not specified, however many digits are
--   needed will be shown, up to 10.
-- width - minimum number of digits to be rendered before the radix point.
--   Leading zeros will be added if needed.

local p = {}

local digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'

function p._convert(n, base, precision, width)
    local num = tonumber(n)
    base = tonumber(base)
    precision = tonumber(precision)
    width = tonumber(width)
    
    if not num or not base then return n end
    
    local sign = ''
    if num < 0 then
        sign = '-'
        num = -num
    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 sign .. intPart .. fracPart
end

function p.convert(frame)
    local n = frame.args.n
    local base = frame.args.base
    local precision = frame.args.precision
    local width = frame.args.width
    return p._convert(n, base, precision, width)
end

return p