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

io: default each-block-size is 65536, but add words that allow you to use a different size.

db4
John Benediktsson 2013-09-19 13:46:39 -07:00
parent 602e0aab94
commit 6d09b34b94
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/io/io.factor
View File

@ -171,13 +171,19 @@ ERROR: invalid-read-buffer buf stream ;
CONSTANT: each-block-size 65536
: each-stream-block-slice ( ... stream quot: ( ... block-slice -- ... ) -- ... )
[ drop ] prepose
swap [ each-block-size swap (new-sequence-for-stream) ] keep
: (each-stream-block-slice) ( ... stream quot: ( ... block-slice -- ... ) block-size -- ... )
[ [ drop ] prepose swap ] dip
[ swap (new-sequence-for-stream) ] curry keep
[ stream-read-partial-into ] 2curry each-morsel drop ; inline
: each-stream-block-slice ( ... stream quot: ( ... block-slice -- ... ) -- ... )
each-block-size (each-stream-block-slice) ; inline
: (each-stream-block) ( ... stream quot: ( ... block -- ... ) block-size -- ... )
rot [ stream-read-partial ] 2curry each-morsel ; inline
: each-stream-block ( ... stream quot: ( ... block -- ... ) -- ... )
swap [ each-block-size swap stream-read-partial ] curry each-morsel ; inline
each-block-size (each-stream-block) ; inline
: each-block-slice ( ... quot: ( ... block -- ... ) -- ... )
input-stream get swap each-stream-block-slice ; inline