35 lines
664 B
Lua
35 lines
664 B
Lua
_G.io = {}
|
|
io.write = write
|
|
function io.open(n,m)
|
|
m=m or "rb"
|
|
local h=fopen(n,m)
|
|
if h then
|
|
if h and m:sub(1,1) == "w" then
|
|
return cB(function(bt)
|
|
bt.s="o"
|
|
s("io worker: "..n,function()
|
|
while true do
|
|
if bt.s ~= "o" and bt.b == "" then fclose(h) break end
|
|
local nd = bt:read(2048)
|
|
if nd ~= nil and nd ~= "" then
|
|
fwrite(h,nd)
|
|
end
|
|
C.yield()
|
|
end
|
|
end) end,function(bt) bt.s="c" end)
|
|
elseif h and m:sub(1,1) == "r" then
|
|
return cB(function(bt)
|
|
local sb = ""
|
|
repeat
|
|
bt.b=bt.b..sb
|
|
sb=fread(h,2048)
|
|
until sb == "" or sb == nil
|
|
fclose(h)
|
|
C.yield()
|
|
end,function() end)
|
|
end
|
|
else
|
|
return false
|
|
end
|
|
end
|