mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-12 22:37:42 +00:00
Code Issues 1 Releases Wiki Activity

Merge branch 'windows-ev' into ev

Browse Source
This commit is contained in:
Calvin Rose
2020-10-11 09:32:17 -05:00
parent bbe10e4938 964a800d51
commit 813e3fdcfd
6 changed files with 195 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
examples/evsleep.janet Normal file
View File

@@ -0,0 +1,12 @@
(defn worker
"Run for a number of iterations."
[name iterations]
(for i 0 iterations
(ev/sleep 1)
(print "worker " name " iteration " i)))
(ev/call worker :a 10)
(ev/sleep 0.2)
(ev/call worker :b 5)
(ev/sleep 0.3)
(ev/call worker :c 12)

7
examples/select.janet
View File

@@ -3,14 +3,15 @@
(defn writer [c]
(for i 0 3
(def item (string i ":" (mod (hash c) 999)))
(ev/sleep 0.1)
(print "writer giving item " i " to " c "...")
(ev/give c (string "item " i)))
(print "writer giving item " item " to " c "...")
(ev/give c item))
(print "Done!"))
(defn reader [name]
(forever
(def [_ c x] (ev/select ;channels))
(def [_ c x] (ev/rselect ;channels))
(print "reader " name " got " x " from " c)))
# Readers