gistfile1.clj

(require '[clojure.data.fressian :as fress])
(require '[clojure.java.io :as io])
(import 'java.util.zip.GZIPInputStream)


(defn fress-seq* [reader]
  (let [x (try (fress/read-object reader) (catch Exception e :eof))]
    (if (= :eof x)
      (do (.close reader) nil)
      (cons x
            (lazy-seq (fress-seq* reader))))))
            
(defn fress-seq [file]
  (let [ is (GZIPInputStream. (io/input-stream (io/file file)))
         r (fress/create-reader is)]
    (.read is)                                            
    (fress-seq* r)))

(count (fress-seq "/Users/kovasb/data/events.fress.gzip"))