add unix utilities words

basis/unix/utilities/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

basis/unix/utilities/utilities.factor

@@ -0,0 +1,19 @@
+! Copyright (C) 2008 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.c-types alien.strings
+combinators.short-circuit fry kernel layouts sequences ;
+IN: unix.utilities
+
+: more? ( alien -- ? )
+    { [ ] [ *void* ] } 1&& ;
+
+: advance ( void* -- void* )
+    cell swap <displaced-alien> ;
+
+: alien>strings ( alien encoding -- strings )
+    [ [ dup more? ] ] dip
+    '[ [ advance ] [ *void* _ alien>string ] bi ]
+    [ ] produce nip ;
+
+: strings>alien ( strings encoding -- alien )
+    '[ _ malloc-string ] map f suffix >c-void*-array ;