From 51f72043561dd954cf496cdf0f02138e76517a39 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 18 Oct 2008 21:14:51 -0500
Subject: [PATCH] add unix utilities words

---
 basis/unix/utilities/authors.txt      |  1 +
 basis/unix/utilities/utilities.factor | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 basis/unix/utilities/authors.txt
 create mode 100644 basis/unix/utilities/utilities.factor

diff --git a/basis/unix/utilities/authors.txt b/basis/unix/utilities/authors.txt
new file mode 100644
index 0000000000..b4bd0e7b35
--- /dev/null
+++ b/basis/unix/utilities/authors.txt
@@ -0,0 +1 @@
+Doug Coleman
\ No newline at end of file
diff --git a/basis/unix/utilities/utilities.factor b/basis/unix/utilities/utilities.factor
new file mode 100644
index 0000000000..1f3a6bf78a
--- /dev/null
+++ b/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 ;