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

byte-vectors: dos2unix

db4
Doug Coleman 2014-10-31 00:45:51 -07:00
parent 0c5ff7e2c6
commit e50d9e5a4c
1 changed files with 48 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
core/byte-vectors/byte-vectors.factor
View File

@ -1,48 +1,48 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays growable kernel math sequences USING: accessors byte-arrays growable kernel math sequences
sequences.private ; sequences.private ;
IN: byte-vectors IN: byte-vectors
TUPLE: byte-vector TUPLE: byte-vector
{ underlying byte-array } { underlying byte-array }
{ length array-capacity } ; { length array-capacity } ;
: <byte-vector> ( n -- byte-vector ) : <byte-vector> ( n -- byte-vector )
(byte-array) 0 byte-vector boa ; inline (byte-array) 0 byte-vector boa ; inline
: >byte-vector ( seq -- byte-vector ) : >byte-vector ( seq -- byte-vector )
>byte-array dup length byte-vector boa ; >byte-array dup length byte-vector boa ;
M: byte-vector like M: byte-vector like
drop dup byte-vector? [ drop dup byte-vector? [
dup byte-array? dup byte-array?
[ dup length byte-vector boa ] [ >byte-vector ] if [ dup length byte-vector boa ] [ >byte-vector ] if
] unless ; inline ] unless ; inline
M: byte-vector new-sequence M: byte-vector new-sequence
drop [ (byte-array) ] [ >fixnum ] bi byte-vector boa ; inline drop [ (byte-array) ] [ >fixnum ] bi byte-vector boa ; inline
M: byte-vector equal? M: byte-vector equal?
over byte-vector? [ sequence= ] [ 2drop f ] if ; over byte-vector? [ sequence= ] [ 2drop f ] if ;
M: byte-vector contract 2drop ; inline M: byte-vector contract 2drop ; inline
M: byte-array like M: byte-array like
#! If we have an byte-array, we're done. #! If we have an byte-array, we're done.
#! If we have a byte-vector, and it's at full capacity, #! If we have a byte-vector, and it's at full capacity,
#! we're done. Otherwise, call resize-byte-array, which is a #! we're done. Otherwise, call resize-byte-array, which is a
#! relatively fast primitive. #! relatively fast primitive.
drop dup byte-array? [ drop dup byte-array? [
dup byte-vector? [ dup byte-vector? [
[ length ] [ underlying>> ] bi [ length ] [ underlying>> ] bi
2dup length eq? 2dup length eq?
[ nip ] [ resize-byte-array ] if [ nip ] [ resize-byte-array ] if
] [ >byte-array ] if ] [ >byte-array ] if
] unless ; inline ] unless ; inline
M: byte-array new-resizable drop <byte-vector> ; inline M: byte-array new-resizable drop <byte-vector> ; inline
M: byte-vector new-resizable drop <byte-vector> ; inline M: byte-vector new-resizable drop <byte-vector> ; inline
INSTANCE: byte-vector growable INSTANCE: byte-vector growable