steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io: implement "stream-contents" in terms of "each-stream-block".

db4
John Benediktsson 2011-03-25 13:58:16 -07:00
parent 69ec12c2dc
commit 3523d24785
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/io/io.factor
View File

@ -102,21 +102,21 @@ PRIVATE>
: lines ( -- seq ) : lines ( -- seq )
input-stream get stream-lines ; inline input-stream get stream-lines ; inline
: each-stream-block ( stream quot: ( ... block -- ... ) -- )
swap 65536 swap [ stream-read-partial ] 2curry each-morsel ; inline
: each-block ( quot: ( ... block -- ... ) -- )
input-stream get swap each-stream-block ; inline
: stream-contents ( stream -- seq ) : stream-contents ( stream -- seq )
[ [
[ [ 65536 swap stream-read-partial dup ] curry [ ] produce nip ] [ [ ] collector [ each-stream-block ] dip { } like ]
[ stream-element-exemplar concat-as ] bi [ stream-element-exemplar concat-as ] bi
] with-disposal ; ] with-disposal ;
: contents ( -- seq ) : contents ( -- seq )
input-stream get stream-contents ; inline input-stream get stream-contents ; inline
: each-stream-block ( stream quot: ( ... block -- ... ) -- )
swap [ 8192 swap stream-read-partial ] curry each-morsel ; inline
: each-block ( quot: ( ... block -- ... ) -- )
input-stream get swap each-stream-block ; inline
: stream-copy ( in out -- ) : stream-copy ( in out -- )
[ [ [ write ] each-block ] with-output-stream ] [ [ [ write ] each-block ] with-output-stream ]
curry with-input-stream ; curry with-input-stream ;