pass event producer fn as param
This commit is contained in:
@@ -1,18 +1,15 @@
|
||||
(local fennel (require :fennel))
|
||||
|
||||
(fn events [groups]
|
||||
(fn event-fn [groups]
|
||||
(let [data (with-open [e (io.open "events-fixture" "r")] (e:read "*a"))
|
||||
parse (fennel.parser data)]
|
||||
;(print data)
|
||||
(coroutine.wrap
|
||||
(fn []
|
||||
(each [ok ast parse]
|
||||
(if ok (coroutine.yield ast)))))))
|
||||
|
||||
(tset package.loaded :anoia.nl { :events events })
|
||||
|
||||
(set _G.arg (doto ["-v" "dummy0" "up"] (tset 0 "test")))
|
||||
|
||||
(local ifwait (require :ifwait))
|
||||
|
||||
(ifwait.run)
|
||||
(ifwait.run event-fn)
|
||||
|
||||
Reference in New Issue
Block a user