mirror of
https://github.com/20kdc/OC-KittenOS.git
synced 2024-11-15 15:08:05 +11:00
19 lines
459 B
Lua
19 lines
459 B
Lua
|
-- This is released into the public domain.
|
||
|
|
-- No warranty is provided, implied or otherwise.
|
||
|
|
|
||
|
|
local frw = require("libs.frw")
|
||
|
|
|
||
|
|
local bdCore = require("bdivide.core")
|
||
|
|
|
||
|
|
return function (data, lexCrunch)
|
||
|
|
io.stderr:write("\nbdivide: ")
|
||
|
|
local pi = frw.progress()
|
||
|
|
local function p(b)
|
||
|
|
pi(1 - (#b / #data))
|
||
|
|
end
|
||
|
|
data = bdCore.bdividePad(bdCore.bdivide(data, p))
|
||
|
|
io.stderr:write("\n")
|
||
|
|
return lexCrunch.process(frw.read("bdvlite/instdeco.lua"), {}), data
|
||
|
|
end
|
||
|
|
|