multiline eval words vocabs namespaces assocs prettyprint
alien.data math.vectors definitions compiler.test ;
FROM: specialized-arrays.private => specialized-array-vocab ;
-FROM: alien.c-types => int float bool char float ulonglong ushort uint
+FROM: alien.c-types => int float bool uchar char float ulonglong ushort uint
heap-size ;
FROM: alien.data => little-endian? ;
IN: specialized-arrays.tests
SPECIALIZED-ARRAY: int
-SPECIALIZED-ARRAYS: bool ushort char uint float ulonglong ;
+SPECIALIZED-ARRAYS: bool uchar ushort char uint float ulonglong ;
[ t ] [ { 1 2 3 } int >c-array int-array? ] unit-test
int-array{ 3 1 3 3 7 } malloc-byte-array 5 int <c-direct-array> >array
] unit-test
-[ float-array{ HEX: 1.222,222 HEX: 1.111,112 } ]
-[ float-array{ HEX: 1.222,222,2 HEX: 1.111,111,1 } ] unit-test
+[ float-array{ 0x1.222,222 0x1.111,112 } ]
+[ float-array{ 0x1.222,222,2 0x1.111,111,1 } ] unit-test
[ f ] [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] unit-test
[ 5/4 ] [
[
- 2 malloc-test-struct-array
+ 2 \ test-struct malloc-array
dup &free drop
1 2 make-point over set-first
3 4 make-point over set-second
[ ] [
[
- 10 malloc-test-struct-array
+ 10 \ test-struct malloc-array
&free drop
] with-destructors
] unit-test
[ f ] [
"__does_not_exist__-array{"
- __does_not_exist__ specialized-array-vocab lookup
+ __does_not_exist__ specialized-array-vocab lookup-word
deferred?
] unit-test
: struct-resize-test-usage ( seq -- seq )
[ struct-resize-test <struct> swap >>x ] map
- >struct-resize-test-array
+ \ struct-resize-test >c-array
[ x>> ] { } map-as ;
[ { 10 20 30 } ] [ { 10 20 30 } struct-resize-test-usage ] unit-test
[ int-array{ 4 5 6 7 8 } ] [ int-array{ 1 2 3 4 5 6 7 8 } 3 direct-tail ] unit-test
[ int-array{ 6 7 8 } ] [ int-array{ 1 2 3 4 5 6 7 8 } 3 direct-tail* ] unit-test
+[ uchar-array{ 0 1 255 } ] [ 3 6 B{ 1 1 1 0 1 255 2 2 2 } direct-slice ] unit-test
[ int-array{ 1 2 3 4 55555 6 7 8 } ] [
int-array{ 1 2 3 4 5 6 7 8 }