15 lines
334 B
Factor
15 lines
334 B
Factor
USING: kernel alien sequences ;
|
|
IN: alien-contrib
|
|
|
|
: float-array>array ( byte-array n -- array )
|
|
[ swap float-nth ] map-with ;
|
|
|
|
: uint-array>array ( byte-array n -- array )
|
|
[ swap uint-nth ] map-with ;
|
|
|
|
: >void*-array
|
|
[ length "void*" <c-array> ] keep
|
|
dup length [ pick set-void*-nth ] 2each ;
|
|
|
|
PROVIDE: libs/alien ;
|