mirror of
https://github.com/janet-lang/janet
synced 2024-07-04 02:53:27 +00:00
25 lines
504 B
Plaintext
25 lines
504 B
Plaintext
(defn worker-main
|
|
[parent]
|
|
(def name (:receive parent))
|
|
(def interval (:receive parent))
|
|
(for i 0 10
|
|
(os/sleep interval)
|
|
(printf "thread %s wakeup no. %d\n" name i))
|
|
(:send parent :done))
|
|
|
|
(defn make-worker
|
|
[name interval]
|
|
(-> (thread/new)
|
|
(:send worker-main)
|
|
(:send name)
|
|
(:send interval)))
|
|
|
|
(def bob (make-worker "bob" 0.2))
|
|
(def joe (make-worker "joe" 0.3))
|
|
(def sam (make-worker "joe" 0.5))
|
|
|
|
# Receive out of order
|
|
(:receive bob)
|
|
(:receive sam)
|
|
(:receive joe)
|