·

1.448K

· edbond

(ns timeout
 (:import [java.util.concurrent TimeoutException]))

(defmacro with-timeout
 [msec & body]
 `(let [f# (future (do ~@body))
 v# (gensym)
 result# (deref f# ~msec v#)]
 (if (= v# result#)
 (do
 (future-cancel f#)
 (throw (TimeoutException.)))
 result#)))

(with-timeout 1000
 (Thread/sleep 40)
 42)
;; returns 42

(with-timeout 1000
 (Thread/sleep 4000)
 42)
;; throws TimeoutException

Related protips

Have a fresh tip? Share with Coderwall community!

Post

Post a tip

Sponsored by

#native_company#

#native_desc#

#native_cta#

Post a job for only 299ドル

Sponsored by #native_company# — Learn More