gered/clj-jtwig
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

implement checking for existence of files inside jar archives

Browse source
This commit is contained in:
Gered 2014-03-23 10:06:14 -04:00
parent a84c8588bd
commit 0358df49c4
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/clj_jtwig/utils.clj
View file

@ -1,7 +1,8 @@
(ns clj-jtwig.utils
"various helper / utility functions"
(:import (java.net URL)
(java.io File)))
(java.io File)
(java.util.jar JarFile)))
(defn inside-jar? [^File file]
(-> file
@ -15,10 +16,20 @@
(subs resource-filename (+ pos 5))
resource-filename)))
(defn get-jar-filename [^String resource-filename]
(let [start (.indexOf resource-filename "file:")
end (.indexOf resource-filename "jar!")]
(if (and (not= -1 start)
(not= -1 end))
(subs resource-filename 5 (+ end 3))
resource-filename)))
(defn exists? [^File file]
(if (inside-jar? file)
;; TODO: can't use File.exists() for this
true
(let [filename (.getPath file)
jar-file (new JarFile (get-jar-filename filename))
jar-entry (.getJarEntry jar-file (get-jar-resource-filename filename))]
(not (nil? jar-entry)))
(.exists file)))
(defn get-file-last-modified [^File file]