clojure untar

untar.clj

(ns untar
  (:import (org.apache.commons.compress.archivers.tar TarArchiveInputStream)
           (java.io File)
           (java.io FileOutputStream)
           (java.io FileInputStream)))

(defn untar-file
  "untar file and save to location - preserving filenames"
  [zipfile outdirpath]
  (let [buffer (byte-array 1024)
        outdir (File. outdirpath)]
    (.mkdir outdir)
    (println "untarring " (.getPath zipfile))
    (with-open [zis (TarArchiveInputStream. (FileInputStream. zipfile))]
      (loop [e (.getNextEntry zis)]
        (if e
          (let [filename (.getName e)
                outfile (File. (str outdir (File/separator) filename))]
            (if (.isDirectory e)
              (.mkdirs outfile)
              (do
                (.mkdirs (File. (.getParent outfile)))
                (with-open [outstream (FileOutputStream. outfile)]
                  (loop [len (.read zis buffer)]
                    (if (< 0 len)
                      (do
                        (.write outstream buffer 0 len)
                        (recur (.read zis buffer))))))))
            (recur (.getNextEntry zis))))))))