Move io.buffers to extra
parent
b31440a574
commit
fe9563ece2
|
@ -5,7 +5,7 @@ USING: alien arrays generic hashtables inference.dataflow
|
|||
inference.class kernel assocs math math.private kernel.private
|
||||
sequences words parser vectors strings sbufs io namespaces
|
||||
assocs quotations sequences.private io.binary io.crc32
|
||||
io.buffers io.streams.string layouts splitting math.intervals
|
||||
io.streams.string layouts splitting math.intervals
|
||||
math.floats.private tuples tuples.private classes
|
||||
optimizer.def-use optimizer.backend optimizer.pattern-match
|
||||
float-arrays combinators.private ;
|
||||
|
@ -148,5 +148,3 @@ float-arrays combinators.private ;
|
|||
\ >le { { fixnum bignum } fixnum } "specializer" set-word-prop
|
||||
|
||||
\ >be { { fixnum bignum } fixnum } "specializer" set-word-prop
|
||||
|
||||
\ search-buffer-until { fixnum fixnum simple-alien string } "specializer" set-word-prop
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: io.buffers
|
||||
USING: alien alien.syntax kernel kernel.private libc math
|
||||
sequences strings ;
|
||||
sequences strings hints ;
|
||||
|
||||
TUPLE: buffer size ptr fill pos ;
|
||||
|
||||
|
@ -54,6 +54,8 @@ TUPLE: buffer size ptr fill pos ;
|
|||
: search-buffer-until ( start end alien separators -- n )
|
||||
[ >r swap alien-unsigned-1 r> memq? ] 2curry find* drop ;
|
||||
|
||||
HINTS: search-buffer-until { fixnum fixnum simple-alien string } ;
|
||||
|
||||
: finish-buffer-until ( buffer n -- string separator )
|
||||
[
|
||||
over buffer-pos -
|
Loading…
Reference in New Issue