OC-PsychOS2/lib/event.lua

local event = {}
function event.pull(t,...) -- return an event, optionally with timeout *t* and filter *...*.
 local tA = {...}
 if type(t) == "string" then
  table.insert(tA,1,t)
  t = 0
 end
 if not t or t <= 0 then
  t = math.huge
 end
 local tE = computer.uptime()+t
 repeat
  tEv = {coroutine.yield()}
  local ret = true
  for i = 1, #tA do
   if not (tEv[i] or ""):match(tA[i]) then
    ret = false
   end
  end
  if ret then return table.unpack(tEv) end
 until computer.uptime() > tE
 return nil
end

function event.listen(e,f) -- run function *f* for every occurance of event *e*
 local op = os.getenv("parent")
 os.setenv("parent",cPid)
 os.spawn(function() while true do
  local tEv = {coroutine.yield()}
  if tEv[1] == e then
   f(table.unpack(tEv))
  end
  if not tTasks[os.getenv("parent")] or (tEv[1] == "unlisten" and tEv[2] == e and tEv[3] == tostring(f)) then break end
 end end,string.format("[%d] %s listener",cPid,e))
 os.setenv("parent",op)
end

function event.ignore(e,f) -- stop function *f* running for every occurance of event *e*
 computer.pushSignal("unlisten",e,tostring(f))
end

return event