2020-12-31 17:52:12 +00:00
|
|
|
(defn dowork [name n]
|
|
|
|
|
(print name " starting work...")
|
2020-12-31 22:12:42 +00:00
|
|
|
(os/execute [(dyn :executable) "-e" (string "(os/sleep " n ")")])
|
2020-12-31 17:52:12 +00:00
|
|
|
(print name " finished work!"))
|
|
|
|
|
|
|
|
|
|
# Will be done in parallel
|
|
|
|
|
(print "starting group A")
|
|
|
|
|
(ev/call dowork "A 2" 2)
|
|
|
|
|
(ev/call dowork "A 1" 1)
|
|
|
|
|
(ev/call dowork "A 3" 3)
|
|
|
|
|
|
|
|
|
|
(ev/sleep 4)
|
|
|
|
|
|
|
|
|
|
# Will also be done in parallel
|
|
|
|
|
(print "starting group B")
|
|
|
|
|
(ev/call dowork "B 2" 2)
|
|
|
|
|
(ev/call dowork "B 1" 1)
|
|
|
|
|
(ev/call dowork "B 3" 3)
|
|
|
|
|
|
|
|
|
|
(ev/sleep 4)
|
|
|
|
|
|
|
|
|
|
(print "all work done")
|
