mirror of
https://github.com/20kdc/OC-KittenOS.git
synced 2024-11-15 15:08:05 +11:00
31 lines
745 B
Lua
31 lines
745 B
Lua
-- This is released into the public domain.
|
|
-- No warranty is provided, implied or otherwise.
|
|
|
|
-- BDIVIDE (r5 edition)
|
|
-- decompression engine used to decompress DEFLATE decompression engine
|
|
|
|
$bdBDBuffer = ""
|
|
$bdBDWindow = ("\x00"):rep(2^16)
|
|
|
|
${
|
|
function $engineInput($L|lData)
|
|
$bdBDBuffer = $bdBDBuffer .. $lData
|
|
while #$bdBDBuffer > 2 do
|
|
$lData = $bdBDBuffer:byte()
|
|
if $lData < 128 then
|
|
$lData = $bdBDBuffer:sub(1, 1)
|
|
$bdBDBuffer = $bdBDBuffer:sub(2)
|
|
else
|
|
${
|
|
$L|bdBDPtr = $bdBDBuffer:byte(2) * 256 + $bdBDBuffer:byte(3) + 1
|
|
$lData = $bdBDWindow:sub($bdBDPtr, $bdBDPtr + $lData - 125)
|
|
$bdBDBuffer = $bdBDBuffer:sub(4)
|
|
$}
|
|
end
|
|
$bdBDWindow = ($bdBDWindow .. $lData):sub(-2^16)
|
|
$engineOutput($lData)
|
|
end
|
|
end
|
|
$}
|
|
|