12 lines
282 B
Text
12 lines
282 B
Text
|
(def ^:dynamic chunk-size 17)
|
||
|
|
|
||
|
|
(defn next-chunk [rdr]
|
||
|
|
(let [buf (char-array chunk-size)
|
||
|
|
s (.read rdr buf)]
|
||
|
|
(when (pos? s)
|
||
|
|
(java.nio.CharBuffer/wrap buf 0 s))))
|
||
|
|
|
||
|
|
(defn chunk-seq [rdr]
|
||
|
|
(when-let [chunk (next-chunk rdr)]
|
||
|
|
(cons chunk (lazy-seq (chunk-seq rdr)))))
|