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

14
libevent.lua
View File

@ -335,9 +335,20 @@ 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)
if(checkfn~=nil and type(checkfn)=="function") then
table.insert(t.listeners,
AddEventListener(event_name,
function(epack)
if(checkfn(epack)) then
table.insert(t.events,epack)
end
end
)
)
else
table.insert(t.listeners, table.insert(t.listeners,
AddEventListener(event_name, AddEventListener(event_name,
function(epack) function(epack)
@ -345,6 +356,7 @@ function EventBusListen(t,event_name)
end end
) )
) )
end
end end
function GetNextEvent(t,wait_second,wait_ratio) function GetNextEvent(t,wait_second,wait_ratio)