mirror of
https://github.com/janet-lang/janet
synced 2026-02-17 15:39:48 +00:00
ddc7cc5ae4
This does create a lot of warnings, especially in the test suite, but should improve code and point out real issues. To disable individual messages, either disable linting, add the metadata :unused to a binding, or add the prefix "_" to a symbol.
23 lines
534 B
Janet
23 lines
534 B
Janet
(def chan (ev/thread-chan 10))
|
|
|
|
(ev/spawn
|
|
(ev/sleep 0)
|
|
(print "started fiber!")
|
|
(ev/give chan (math/random))
|
|
(ev/give chan (math/random))
|
|
(ev/give chan (math/random))
|
|
(ev/sleep 0.5)
|
|
(repeat 10
|
|
(print "giving to channel...")
|
|
(ev/give chan (math/random))
|
|
(ev/sleep 1))
|
|
(print "finished fiber!")
|
|
(:close chan))
|
|
|
|
(ev/do-thread
|
|
(print "started thread!")
|
|
(ev/sleep 1)
|
|
(while (def x (do (print "taking from channel...") (ev/take chan)))
|
|
(print "got " x " from thread!"))
|
|
(print "finished thread!"))
|