steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/core/byte-arrays/byte-arrays.factor

38 lines
1.2 KiB
Factor
Raw Normal View History

Add 1sequence word. Add unit tests for existing 1vector and 1byte-array words, and make them use 1sequence
2009-02-04 06:13:12 -05:00
! Copyright (C) 2007, 2009 Slava Pestov.
Initial import
2007-09-20 18:09:08 -04:00
! See http://factorcode.org/license.txt for BSD license.
core: cleanup USING lists.
2013-03-05 13:34:47 -05:00
USING: accessors alien.accessors kernel math sequences
sequences.private ;
Initial import
2007-09-20 18:09:08 -04:00
IN: byte-arrays
classes.builtin: Add the BUILTIN: keyword which lets builtin classes show up in source files. Probably could use save-location to allow editing, but it seemed to break things.
2013-03-10 15:04:34 -04:00
BUILTIN: byte-array
{ length array-capacity read-only initial: 0 } ;
primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the stack effect is correct. Use PRIMITIVE: in core/ and basis/
2015-06-25 21:02:03 -04:00
PRIMITIVE: (byte-array) ( n -- byte-array )
PRIMITIVE: <byte-array> ( n -- byte-array )
PRIMITIVE: resize-byte-array ( n byte-array -- new-byte-array )
Add inline declarations for various assorted methods
2009-08-17 23:32:21 -04:00
M: byte-array clone (clone) ; inline
byte-arrays: faster clone-like when both arguments are byte-arrays.
2013-06-25 18:39:24 -04:00
M: byte-array clone-like
over byte-array? [ drop clone ] [ call-next-method ] if ; inline
Add inline declarations for various assorted methods
2009-08-17 23:32:21 -04:00
M: byte-array length length>> ; inline
using integer>fixnum in more places.
2012-08-02 17:26:39 -04:00
M: byte-array nth-unsafe swap integer>fixnum alien-unsigned-1 ; inline
M: byte-array set-nth-unsafe swap integer>fixnum set-alien-unsigned-1 ; inline
Initial import
2007-09-20 18:09:08 -04:00
: >byte-array ( seq -- byte-array ) B{ } clone-like ; inline
Add inline declarations for various assorted methods
2009-08-17 23:32:21 -04:00
M: byte-array new-sequence drop (byte-array) ; inline
Initial import
2007-09-20 18:09:08 -04:00
M: byte-array equal?
over byte-array? [ sequence= ] [ 2drop f ] if ;
Working on new resizables
2008-01-28 19:15:21 -05:00
M: byte-array resize
Add inline declarations for various assorted methods
2009-08-17 23:32:21 -04:00
resize-byte-array ; inline
Working on new resizables
2008-01-28 19:15:21 -05:00
Initial import
2007-09-20 18:09:08 -04:00
INSTANCE: byte-array sequence
Add some new byte array constructors
2008-09-01 19:26:10 -04:00
Add 1sequence word. Add unit tests for existing 1vector and 1byte-array words, and make them use 1sequence
2009-02-04 06:13:12 -05:00
: 1byte-array ( x -- byte-array ) B{ } 1sequence ; inline
Add some new byte array constructors
2008-09-01 19:26:10 -04:00
document remainder of byte-arrays
2008-09-05 17:04:23 -04:00
: 2byte-array ( x y -- byte-array ) B{ } 2sequence ; inline
Add some new byte array constructors
2008-09-01 19:26:10 -04:00
document remainder of byte-arrays
2008-09-05 17:04:23 -04:00
: 3byte-array ( x y z -- byte-array ) B{ } 3sequence ; inline
Add some new byte array constructors
2008-09-01 19:26:10 -04:00
document remainder of byte-arrays
2008-09-05 17:04:23 -04:00
: 4byte-array ( w x y z -- byte-array ) B{ } 4sequence ; inline