janet/examples/evsleep.janet

(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)

(defn worker2
  [name]
  (repeat 10
    (ev/sleep 0.2)
    (print name " working")))

(ev/go worker2 :bob)
(ev/go worker2 :joe)
(ev/go worker2 :sally)
Work on getting ev support on windows. 2020-10-04 17:46:15 +00:00			`(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)`
Allow passing a function to directly to ev/go. Makes ev/call less useful but ev/go more useful. No need to construct as many identical intermediate fibers. 2021-08-31 03:22:22 +00:00
			`(defn worker2`
			`[name]`
			`(repeat 10`
			`(ev/sleep 0.2)`
			`(print name " working")))`

			`(ev/go worker2 :bob)`
			`(ev/go worker2 :joe)`
			`(ev/go worker2 :sally)`