2006-09-11 06:57:10 -04:00
|
|
|
USING: kernel alien sequences ;
|
2006-09-11 06:24:05 -04:00
|
|
|
IN: alien-contrib
|
|
|
|
|
|
2006-10-04 00:09:59 -04:00
|
|
|
: copy-seq-to-float-array ( seq byte-array -- byte-array )
|
2006-09-11 06:24:05 -04:00
|
|
|
swap dup length [ pick set-float-nth ] 2each ;
|
|
|
|
|
|
|
|
|
|
: >float-array ( seq -- byte-array )
|
|
|
|
|
dup length "float" <c-array> copy-seq-to-float-array ;
|
|
|
|
|
|
|
|
|
|
: float-array>array ( byte-array n -- array ) [ swap float-nth ] map-with ;
|
2006-09-11 06:57:10 -04:00
|
|
|
|
|
|
|
|
PROVIDE: contrib/alien ;
|
