24 lines
515 B
Lua
24 lines
515 B
Lua
|
local l = lpeg or require'lpeg'
|
||
|
|
local trailing_zeros = l.P'0'^0 * -l.R'09'
|
||
|
|
local strip_floats_patt = l.Cs((1-l.R'09' +
|
||
|
|
(l.R'09')^1 * (l.P'.' * trailing_zeros / '' + l.P'.' * (l.R'09'-trailing_zeros)^1 * (trailing_zeros/''))^-1)^0)
|
||
|
|
local match = l.match
|
||
|
|
|
||
|
|
local function strip_floats(s)
|
||
|
|
return match(strip_floats_patt, s)
|
||
|
|
end
|
||
|
|
|
||
|
|
local function to_bp(sp)
|
||
|
|
return sp/65781.76
|
||
|
|
end
|
||
|
|
|
||
|
|
local function to_sp(bp)
|
||
|
|
return (bp*65781.76+.5)//1
|
||
|
|
end
|
||
|
|
|
||
|
|
return {
|
||
|
|
strip_floats = strip_floats,
|
||
|
|
to_bp = to_bp,
|
||
|
|
to_sp = to_sp,
|
||
|
|
}
|