puts files into an archive

(archive “test-scratch/hello.jar” “src”) => coll?

creats a zip file

(fs/delete “test-scratch/hello.jar”)

(create “test-scratch/hello.jar”) => zip-system?

extracts all file from an archive

(extract “test-scratch/hello.jar”) => coll?

checks if the archive has a particular entry

(has? “test-scratch/hello.jar” “world.java”) => false

inserts a file to an entry within the archive

(open “test-scratch/hello.jar” {:create true}) (insert “test-scratch/hello.jar” “project.clj” “project.clj”) => fs/path?

lists all the entries in the archive

(map str (list “test-scratch/hello.jar”)) => “/”

either opens an existing archive or creates one if it doesn’t exist

(open “test-scratch/hello.jar” {:create true}) => zip-system?

helper function for opening an archive and performing a single operation

(->> (open-and “test-scratch/hello.jar” {:create false} #(protocol.archive/-list %)) (map str)) => “/”

returns the url of the archive

(-> (open “test-scratch/hello.jar”) (path “world.java”) (str)) => “world.java”

removes an entry from the archive

(remove “test-scratch/hello.jar” “project.clj”) => #{“project.clj”}

creates a stream for an entry wthin the archive

(do (insert “test-scratch/hello.jar” “project.clj” “project.clj”) (slurp (stream “test-scratch/hello.jar” “project.clj”))) => (slurp “project.clj”)

returns the url of the archive

(url (open “test-scratch/hello.jar”)) => (str (fs/path “test-scratch/hello.jar”))

writes files to an archive

(doto “test-scratch/hello.jar” (fs/delete) (open) (write “test.stuff” (binary/input-stream (.getBytes “Hello World”))))

(slurp (stream (open “test-scratch/hello.jar”) “test.stuff”)) => “Hello World”

checks if object is a ZipSystem

(zip-system? (open “test-scratch/hello.jar”)) => true