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

io.streams.byte-array: faster M\ byte-reader stream-read-unsafe.

db4
John Benediktsson 2014-02-24 21:40:38 -08:00
parent dcd8d4ef51
commit dbfa18e8fc
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/io/streams/byte-array/byte-array.factor
View File

@ -1,12 +1,12 @@
! Copyright (C) 2008, 2009 Daniel Ehrenberg ! Copyright (C) 2008, 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays byte-vectors destructors io USING: accessors byte-arrays byte-vectors destructors io
io.encodings io.streams.sequence kernel namespaces sequences io.encodings io.streams.sequence kernel math namespaces
sequences.private ; sequences sequences.private ;
IN: io.streams.byte-array IN: io.streams.byte-array
INSTANCE: byte-vector output-stream INSTANCE: byte-vector output-stream
M: byte-vector stream-element-type drop +byte+ ; M: byte-vector stream-element-type drop +byte+ ; inline
: <byte-writer> ( encoding -- stream ) : <byte-writer> ( encoding -- stream )
512 <byte-vector> swap <encoder> ; 512 <byte-vector> swap <encoder> ;
@ -20,7 +20,10 @@ INSTANCE: byte-reader input-stream
M: byte-reader stream-element-type drop +byte+ ; inline M: byte-reader stream-element-type drop +byte+ ; inline
M: byte-reader stream-read-unsafe sequence-read-unsafe ; M: byte-reader stream-read-unsafe
[ integer>fixnum ]
[ dup byte-array? [ "not a byte array" throw ] unless ]
[ sequence-read-unsafe ] tri* ;
M: byte-reader stream-read1 sequence-read1 ; M: byte-reader stream-read1 sequence-read1 ;
M: byte-reader stream-read-until sequence-read-until ; M: byte-reader stream-read-until sequence-read-until ;
M: byte-reader dispose drop ; M: byte-reader dispose drop ;