Added alien-contrib for alien related utility words

diff --git a/contrib/alien.factor b/contrib/alien.factor
new file mode 100644 (file)
index 0000000..ef09c4c
--- /dev/null
+++ b/contrib/alien.factor
@@ -0,0 +1,10 @@
+
+IN: alien-contrib
+
+: copy-seq-to-float-array ( seq byte-array -- )
+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 ;