1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
local math_abs = math.abs;
local math_ceil = math.ceil;
local math_floor = math.floor;
local math_log = math.log;
local math_max = math.max;
local math_min = math.min;
local unpack = table.unpack or unpack; --luacheck: ignore 113
if math_log(10, 10) ~= 1 then
-- Lua 5.1 COMPAT
local log10 = math.log10;
function math_log(n, base)
return log10(n) / log10(base);
end
end
local large = {
"k", 1000,
"M", 1000000,
"G", 1000000000,
"T", 1000000000000,
"P", 1000000000000000,
"E", 1000000000000000000,
"Z", 1000000000000000000000,
"Y", 1000000000000000000000000,
}
local small = {
"m", 0.001,
"μ", 0.000001,
"n", 0.000000001,
"p", 0.000000000001,
"f", 0.000000000000001,
"a", 0.000000000000000001,
"z", 0.000000000000000000001,
"y", 0.000000000000000000000001,
}
local binary = {
"Ki", 2^10,
"Mi", 2^20,
"Gi", 2^30,
"Ti", 2^40,
"Pi", 2^50,
"Ei", 2^60,
"Zi", 2^70,
"Yi", 2^80,
}
-- n: number, the number to format
-- unit: string, the base unit
-- b: optional enum 'b', thousands base
local function format(n, unit, b) --> string
local round = math_floor;
local prefixes = large;
local logbase = 1000;
local fmt = "%.3g %s%s";
if n == 0 then
return fmt:format(n, "", unit);
end
if b == 'b' then
prefixes = binary;
logbase = 1024;
elseif n < 1 then
prefixes = small;
round = math_ceil;
end
local m = math_max(0, math_min(8, round(math_abs(math_log(math_abs(n), logbase)))));
local prefix, multiplier = unpack(prefixes, m * 2-1, m*2);
return fmt:format(n / (multiplier or 1), prefix or "", unit);
end
return {
format = format;
};
|
