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 -~----------~----~----~----~------~----~------~--~---
