store struct class in struct-array
parent
5a298a00fd
commit
4a9f885ac9
|
@ -4,10 +4,14 @@ USING: accessors alien alien.c-types byte-arrays kernel libc
|
||||||
math sequences sequences.private ;
|
math sequences sequences.private ;
|
||||||
IN: struct-arrays
|
IN: struct-arrays
|
||||||
|
|
||||||
|
: c-type-struct-class ( c-type -- class )
|
||||||
|
c-type boxed-class>> ; foldable
|
||||||
|
|
||||||
TUPLE: struct-array
|
TUPLE: struct-array
|
||||||
{ underlying c-ptr read-only }
|
{ underlying c-ptr read-only }
|
||||||
{ length array-capacity read-only }
|
{ length array-capacity read-only }
|
||||||
{ element-size array-capacity read-only } ;
|
{ element-size array-capacity read-only }
|
||||||
|
{ class read-only } ;
|
||||||
|
|
||||||
M: struct-array length length>> ;
|
M: struct-array length length>> ;
|
||||||
M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ;
|
M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ;
|
||||||
|
@ -19,25 +23,28 @@ M: struct-array set-nth-unsafe
|
||||||
[ nth-unsafe swap ] [ element-size>> ] bi memcpy ;
|
[ nth-unsafe swap ] [ element-size>> ] bi memcpy ;
|
||||||
|
|
||||||
M: struct-array new-sequence
|
M: struct-array new-sequence
|
||||||
element-size>> [ * <byte-array> ] 2keep struct-array boa ; inline
|
[ element-size>> [ * <byte-array> ] 2keep ]
|
||||||
|
[ class>> ] bi struct-array boa ; inline
|
||||||
|
|
||||||
M: struct-array resize ( n seq -- newseq )
|
M: struct-array resize ( n seq -- newseq )
|
||||||
[ [ element-size>> * ] [ underlying>> ] bi resize ] [ element-size>> ] 2bi
|
[ [ element-size>> * ] [ underlying>> ] bi resize ]
|
||||||
|
[ [ element-size>> ] [ class>> ] bi ] 2bi
|
||||||
struct-array boa ;
|
struct-array boa ;
|
||||||
|
|
||||||
: <struct-array> ( length c-type -- struct-array )
|
: <struct-array> ( length c-type -- struct-array )
|
||||||
heap-size [ * <byte-array> ] 2keep struct-array boa ; inline
|
[ heap-size [ * <byte-array> ] 2keep ]
|
||||||
|
[ c-type-struct-class ] bi struct-array boa ; inline
|
||||||
|
|
||||||
ERROR: bad-byte-array-length byte-array ;
|
ERROR: bad-byte-array-length byte-array ;
|
||||||
|
|
||||||
: byte-array>struct-array ( byte-array c-type -- struct-array )
|
: byte-array>struct-array ( byte-array c-type -- struct-array )
|
||||||
heap-size [
|
[ heap-size [
|
||||||
[ dup length ] dip /mod 0 =
|
[ dup length ] dip /mod 0 =
|
||||||
[ drop bad-byte-array-length ] unless
|
[ drop bad-byte-array-length ] unless
|
||||||
] keep struct-array boa ; inline
|
] keep ] [ c-type-struct-class ] bi struct-array boa ; inline
|
||||||
|
|
||||||
: <direct-struct-array> ( alien length c-type -- struct-array )
|
: <direct-struct-array> ( alien length c-type -- struct-array )
|
||||||
heap-size struct-array boa ; inline
|
[ heap-size ] [ c-type-struct-class ] bi struct-array boa ; inline
|
||||||
|
|
||||||
: malloc-struct-array ( length c-type -- struct-array )
|
: malloc-struct-array ( length c-type -- struct-array )
|
||||||
[ heap-size calloc ] 2keep <direct-struct-array> ; inline
|
[ heap-size calloc ] 2keep <direct-struct-array> ; inline
|
||||||
|
|
Loading…
Reference in New Issue