Skip to content

Instantly share code, notes, and snippets.

@bpsm
Created February 18, 2012 10:31
Show Gist options
  • Star 11 You must be signed in to star a gist
  • Fork 3 You must be signed in to fork a gist
  • Save bpsm/1858654 to your computer and use it in GitHub Desktop.
Save bpsm/1858654 to your computer and use it in GitHub Desktop.
g[un]zip input to output
(ns clj-gunzip.core
(:require [clojure.java.io :as io])
(:require [clojure.string :as str])
(:import java.util.zip.GZIPInputStream
java.util.zip.GZIPOutputStream))
(defn gunzip
"Writes the contents of input to output, decompressed.
input: something which can be opened by io/input-stream.
The bytes supplied by the resulting stream must be gzip compressed.
output: something which can be copied to by io/copy."
[input output & opts]
(with-open [input (-> input io/input-stream GZIPInputStream.)]
(apply io/copy input output opts)))
(defn gzip
"Writes the contents of input to output, compressed.
input: something which can be copied from by io/copy.
output: something which can be opend by io/output-stream.
The bytes written to the resulting stream will be gzip compressed."
[input output & opts]
(with-open [output (-> output io/output-stream GZIPOutputStream.)]
(apply io/copy input output opts)))
(defn gunzip-text-lines
"Returns the contents of input as a sequence of lines (strings).
input: something which can be opened by io/input-stream.
The bytes supplied by the resulting stream must be gzip compressed.
opts: as understood by clojure.core/slurp pass :encoding \"XYZ\" to
set the encoding of the decompressed bytes. UTF-8 is assumed if
encoding is not specified."
[input & opts]
(with-open [input (-> input io/input-stream GZIPInputStream.)]
(str/split-lines (apply slurp input opts))))
@yimikailori
Copy link

I'm a novice in Clojure but I had a relook at your gzip function, can you consider this below. It takes all string in the file and convert it into gzip file. instead of adding a file into gzip file.
(defn gzip
[input output & opts]
(with-open [output (-> output io/output-stream GZIPOutputStream.)]
(with-open [rdr (io/reader input)]
(doall (apply io/copy rdr output opts)))))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment