add io/byteslurp

apage43 · Sep 10, 2012 · c680229 · c680229
1 parent 2da8223
commit c680229
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/grab_bag/io.clj b/src/grab_bag/io.clj
@@ -0,0 +1,11 @@
+(ns grab-bag.io
+  (:require [clojure.java.io :as io]))
+
+(defn byteslurp
+  "Like slurp but returns a byte[]"
+  [file]
+  (let [bs (transient [])]
+    (with-open [istream (io/input-stream file)]
+      (loop [b (.read istream)]
+        (if (neg? b) (byte-array (persistent! bs))
+          (do (conj! bs (.byteValue b)) (recur (.read istream))))))))