38 lines
1.1 KiB
Factor
38 lines
1.1 KiB
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors alien alien.c-types byte-arrays kernel libc
|
||
|
|
math sequences sequences.private ;
|
||
|
|
IN: struct-arrays
|
||
|
|
|
||
|
|
TUPLE: struct-array
|
||
|
|
{ underlying c-ptr read-only }
|
||
|
|
{ length array-capacity read-only }
|
||
|
|
{ element-size array-capacity read-only } ;
|
||
|
|
|
||
|
|
M: struct-array length length>> ;
|
||
|
|
|
||
|
|
M: struct-array nth-unsafe
|
||
|
|
[ element-size>> * ] [ underlying>> ] bi <displaced-alien> ;
|
||
|
|
|
||
|
|
M: struct-array set-nth-unsafe
|
||
|
|
[ nth-unsafe swap ] [ element-size>> ] bi memcpy ;
|
||
|
|
|
||
|
|
M: struct-array new-sequence
|
||
|
|
element-size>> [ * <byte-array> ] 2keep struct-array boa ; inline
|
||
|
|
|
||
|
|
: <struct-array> ( length c-type -- struct-array )
|
||
|
|
heap-size [ * <byte-array> ] 2keep struct-array boa ; inline
|
||
|
|
|
||
|
|
ERROR: bad-byte-array-length byte-array ;
|
||
|
|
|
||
|
|
: byte-array>struct-array ( byte-array c-type -- struct-array )
|
||
|
|
heap-size [
|
||
|
|
[ dup length ] dip /mod 0 =
|
||
|
|
[ drop bad-byte-array-length ] unless
|
||
|
|
] keep struct-array boa ; inline
|
||
|
|
|
||
|
|
: <direct-struct-array> ( alien length c-type -- struct-array )
|
||
|
|
struct-array boa ; inline
|
||
|
|
|
||
|
|
INSTANCE: struct-array sequence
|