On Aug 10, 7:57 pm, "Kyle R. Burton" <kyle.bur...@gmail.com> wrote: > On Mon, Aug 10, 2009 at 10:42 PM, Kyle R. Burton<kyle.bur...@gmail.com> wrote: > >> Is there a way to do binary serialization of Clojure/Java values? > >> ASCII (read) and (write) are nice, but they are wasting space, > >> truncating floats and are probably slow compared to binary > >> serialization. > > > The following utility functions have worked in many cases for me: > > > (defn object->file [obj file] > > (with-open [outp (java.io.ObjectOutputStream. > > (java.io.FileOutputStream. file))] > > (.writeObject outp obj))) > > > (defn file->object [file] > > (with-open [inp (java.io.ObjectInputStream. (java.io.FileInputStream. > > file))] > > (.readObject inp))) > > > (defn freeze > > ([obj] > > (with-open [baos (java.io.ByteArrayOutputStream. 1024) > > oos (java.io.ObjectOutputStream. baos)] > > (.writeObject oos obj) > > (.toByteArray baos))) > > ([obj & objs] > > (freeze (vec (cons obj objs))))) > > Sorry, forgot to offer up the inverse of freeze, thaw: > > (defn thaw [bytes] > (with-open [bais (java.io.ByteArrayInputStream. bytes) > ois (java.io.ObjectInputStream. bais)] > (.readObject ois))) >
Does all this work with cycles, Java arrays, etc.? --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en -~----------~----~----~----~------~----~------~--~---
