diff options
Diffstat (limited to 'src/clojure/contrib/jar.clj')
-rw-r--r-- | src/clojure/contrib/jar.clj | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/src/clojure/contrib/jar.clj b/src/clojure/contrib/jar.clj deleted file mode 100644 index de979bba..00000000 --- a/src/clojure/contrib/jar.clj +++ /dev/null @@ -1,35 +0,0 @@ -;;; jar.clj: utilities for working with Java JAR files - -;; by Stuart Sierra, http://stuartsierra.com/ -;; April 19, 2009 - -;; Copyright (c) Stuart Sierra, 2009. All rights reserved. The use -;; and distribution terms for this software are covered by the Eclipse -;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) -;; which can be found in the file epl-v10.html at the root of this -;; distribution. By using this software in any fashion, you are -;; agreeing to be bound by the terms of this license. You must not -;; remove this notice, or any other, from this software. - - -(ns - #^{:author "Stuart Sierra", - :doc "Utilities for working with Java JAR files"} - clojure.contrib.jar - (:import (java.io File) - (java.util.jar JarFile))) - -(defn jar-file? - "Returns true if file is a normal file with a .jar or .JAR extension." - [#^File file] - (and (.isFile file) - (or (.endsWith (.getName file) ".jar") - (.endsWith (.getName file) ".JAR")))) - -(defn filenames-in-jar - "Returns a sequence of Strings naming the non-directory entries in - the JAR file." - [#^JarFile jar-file] - (map #(.getName %) - (filter #(not (.isDirectory %)) - (enumeration-seq (.entries jar-file))))) |