mirror of https://github.com/20kdc/OC-KittenOS.git
74 lines
1.5 KiB
Lua
74 lines
1.5 KiB
Lua
-- This is released into the public domain. XX
|
|
-- No warranty is provided, implied or otherwise. XX
|
|
local sector = io.write -- XX
|
|
-- BUNDIVIDE reference implementation for integration XX
|
|
local Cs,Cbu,Cb,Cw,Cp,Ct,Ci,CP,CB,CD={},128,"",128,"",""
|
|
CP = function(d,b)
|
|
Ct = Ct .. d
|
|
while#Ct>2 do
|
|
b = Ct:byte()
|
|
Ct = Ct:sub(2)
|
|
if b == 127 then
|
|
b = Ct:byte()
|
|
Ct = Ct:sub(2)
|
|
if b == 127 then
|
|
b = Ct:byte()+254
|
|
if b > 255then
|
|
b = b - 256
|
|
end
|
|
Ct = Ct:sub(2)
|
|
else
|
|
b = b + 127
|
|
end
|
|
end
|
|
Cp = Cp..string.char(b)
|
|
if #Cp == 512 then
|
|
sector(Cp)
|
|
Cp = ""
|
|
end
|
|
end
|
|
end
|
|
for i = 128, 127 + Cbu do
|
|
Cs[i] = ("\x00"):rep(512)
|
|
end
|
|
Cs[Cw] = ""
|
|
CB = function (d, i, d2, x, y)
|
|
i=1
|
|
while i <= #d - 2 do
|
|
b=d:byte(i)
|
|
d2=d:sub(i,i)
|
|
i=i+1
|
|
if not Ci then
|
|
if b==0then
|
|
Ci=1
|
|
end
|
|
else
|
|
if b >= 128 then
|
|
x = d:byte(i)
|
|
i = i + 1
|
|
y=d:byte(i) + ((x % 2) * 256)
|
|
i = i + 1
|
|
d2=Cs[b]:sub(y + 1,y + 3 + math.floor(x / 2))
|
|
end
|
|
Cs[Cw]=Cs[Cw]..d2
|
|
if #Cs[Cw]>=512 then
|
|
CP(Cs[Cw])
|
|
Cw=((Cw-127)%Cbu)+128
|
|
Cs[Cw]=""
|
|
end
|
|
end
|
|
end
|
|
return i
|
|
end
|
|
CD = function(d)
|
|
Cb = Cb .. d
|
|
Cb = Cb:sub(CB(Cb))
|
|
end
|
|
CD(io.read("*a")) -- XX
|
|
--D.remove("init-bdivide.lua")--
|
|
--D.rename("init.lua","init-bdivide.lua")--
|
|
--local Ch=D.open("init-bdivide.lua","rb")--
|
|
--dieCB=function()D.close(Ch)D.remove("init-bdivide.lua")end--
|
|
--while true do local t=D.read(Ch, 64)if not t then break end CD(t)end--
|
|
CD("\x00\x00")CP(Cs[Cw] .. "\x00\x00")
|