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