StarMirror/OpenComputerScripts
1
0
Fork 0
mirror of https://github.com/Kiritow/OpenComputerScripts.git synced 2024-03-22 13:10:46 +08:00
Code Issues Projects Releases Wiki Activity

Add check function for EventBusListen()

Browse Source
This commit is contained in:
Kirigaya Kazuto 2018-03-22 22:49:34 +08:00
parent 8fdb8a9ffa
commit 5f97697230
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
libevent.lua
View File

@ -335,16 +335,28 @@ end
--- EventBus: Queued event bus. --- EventBus: Queued event bus.
--- Notice that event bus can only handle event packages. --- Notice that event bus can only handle event packages.
function EventBusListen(t,event_name) function EventBusListen(t,event_name,checkfn)
checktable(t) checktable(t)
checkstring(event_name) checkstring(event_name)
table.insert(t.listeners, if(checkfn~=nil and type(checkfn)=="function") then
AddEventListener(event_name, table.insert(t.listeners,
function(epack) AddEventListener(event_name,
table.insert(t.events,epack) function(epack)
end if(checkfn(epack)) then
table.insert(t.events,epack)
end
end
)
) )
) else
table.insert(t.listeners,
AddEventListener(event_name,
function(epack)
table.insert(t.events,epack)
end
)
)
end
end end
function GetNextEvent(t,wait_second,wait_ratio) function GetNextEvent(t,wait_second,wait_ratio)