Dark Mode

Shko te permbajtja

Moduli:BaseConvert

Nga Wikipedia, enciklopedia e lire
Udhezuesi i modulit[Krijo] [rifresko]
Krijo nje udhezues per kete modul Skribuntoje.
Redaktoret mund te eksperimentojne ne faqen e livadhit (krijo | pasqyro) dhe provezave (krijo) te ketij moduli.
Ju lutemi t'i shtoni kategorite ne nenfaqen /udhezuesi. Nenfaqet e ketij moduli.
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)

 -- 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

 local 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

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