Looks like spit is for printing just text. On Wed, Jan 7, 2009 at 12:20 PM, Paul Barry <pauljbar...@gmail.com> wrote:
> clojure.contrib.duck_streams/spit? > > > On Wed, Jan 7, 2009 at 2:14 PM, Brian Doyle <brianpdo...@gmail.com> wrote: > >> I couldn't find anything in core or contrib that wrote out >> bytes to a file so I wrote something to do it. Is this >> functionality already implemented and I just couldn't find >> it? If there isn't anything already, would this be something >> good to put in contrib somewhere? Thanks. >> >> (defn write-bytes >> "Writes the bytes from the in-stream to the given filename." >> [#^java.io.InputStream in-stream #^String filename] >> (with-open [out-stream (new FileOutputStream filename)] >> (let [buffer (make-array (Byte/TYPE) 4096)] >> (loop [bytes (.read in-stream buffer)] >> (if (not (neg? bytes)) >> (do >> (.write out-stream buffer 0 bytes) >> (recur (.read in-stream buffer)))))))) >> >> >> >> > > > > --~--~---------~--~----~------------~-------~--~----~ 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 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 -~----------~----~----~----~------~----~------~--~---
