binary file slurping and spitting

gistfile1.clj

(ns slurper
  (:import [java.io FileInputStream FileOutputStream File]))


(defn slurp-binary
  [f-name]
  (let [f (File. f-name)
        fis (FileInputStream. f)
        len (.length f)
        ba (byte-array len)]
    (loop [offset 0]
      (when (< offset len)
        (let [num-read (.read fis ba offset (- len offset))]
          (when (>= num-read 0)
            (recur (+ offset num-read))))))
    (.close fis)
    ba))

(defn spit-binary
  [f-name bytes]
  (let [f (File. f-name)
        fos (FileOutputStream. f)]
    (.write fos bytes)
    (.close fos)))