A-M baby

Task/Fork/Clojure/fork-1.clj

@@ -0,0 +1,2 @@
+(require '[clojure.java.shell :as shell])
+(shell/sh "echo" "foo") ; evaluates to {:exit 0, :out "foo\n", :err ""}

Task/Fork/Clojure/fork-2.clj

@@ -0,0 +1,7 @@
+(let [search (future (shell/sh "find" "." "-name" "needle.*" :dir haystack))]
+  (while (and (other-stuff-to-do?) (not (future-done? search)))
+    (do-other-stuff))
+  (let [{:keys [exit out err]} @search]
+    (if (zero? exit)
+      (do-something-with out)
+      (report-errors-in err))))