forked from izaya/OC-PsychOS2
23 lines
513 B
Lua
23 lines
513 B
Lua
tTasks,nPid,nTimeout,cPid = {},1,1,0
|
|
function os.spawn(f,n)
|
|
tTasks[nPid] = {["c"]=coroutine.create(f),["n"]=n,["p"]=nPid}
|
|
for k,v in pairs(tTasks[cPid] or {}) do
|
|
tTasks[nPid][k] = tTasks[nPid][k] or v
|
|
end
|
|
nPid = nPid + 1
|
|
return nPid - 1
|
|
end
|
|
function sched()
|
|
while #tTasks > 0 do
|
|
local tEv = {computer.pullSignal(nTimeout)}
|
|
for k,v in pairs(tTasks) do
|
|
if coroutine.status(v.c) ~= "dead" then
|
|
cPid = k
|
|
coroutine.resume(v.c,table.unpack(tEv))
|
|
else
|
|
tTasks[k] = nil
|
|
end
|
|
end
|
|
end
|
|
end
|