From a813b0436d94778097c101b7949680e3e87643ae Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 3 Feb 2012 17:30:34 -0800
Subject: [PATCH] tools.ps: Add a simple Linux-only ps clone.

---
 basis/tools/ps/authors.txt     |  1 +
 basis/tools/ps/platforms.txt   |  1 +
 basis/tools/ps/ps-tests.factor |  4 ++++
 basis/tools/ps/ps.factor       | 23 +++++++++++++++++++++++
 basis/tools/ps/summary.txt     |  1 +
 5 files changed, 30 insertions(+)
 create mode 100644 basis/tools/ps/authors.txt
 create mode 100644 basis/tools/ps/platforms.txt
 create mode 100644 basis/tools/ps/ps-tests.factor
 create mode 100644 basis/tools/ps/ps.factor
 create mode 100644 basis/tools/ps/summary.txt

diff --git a/basis/tools/ps/authors.txt b/basis/tools/ps/authors.txt
new file mode 100644
index 0000000000..7c1b2f2279
--- /dev/null
+++ b/basis/tools/ps/authors.txt
@@ -0,0 +1 @@
+Doug Coleman
diff --git a/basis/tools/ps/platforms.txt b/basis/tools/ps/platforms.txt
new file mode 100644
index 0000000000..a08e1f35eb
--- /dev/null
+++ b/basis/tools/ps/platforms.txt
@@ -0,0 +1 @@
+linux
diff --git a/basis/tools/ps/ps-tests.factor b/basis/tools/ps/ps-tests.factor
new file mode 100644
index 0000000000..01c7245a7a
--- /dev/null
+++ b/basis/tools/ps/ps-tests.factor
@@ -0,0 +1,4 @@
+USING: tools.ps tools.test ;
+IN: tools.ps.tests
+
+{ } [ ps. ] unit-test
diff --git a/basis/tools/ps/ps.factor b/basis/tools/ps/ps.factor
new file mode 100644
index 0000000000..caf567a9eb
--- /dev/null
+++ b/basis/tools/ps/ps.factor
@@ -0,0 +1,23 @@
+! Copyright (C) 2012 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: assocs io.directories io.encodings.utf8 io.files
+io.pathnames kernel math.parser prettyprint sequences splitting
+unicode.categories ;
+IN: tools.ps
+
+: ps-comm ( path -- string )
+    "/comm" append utf8 file-contents "\0" split " " join
+    [ blank? ] trim "[" "]" surround ;
+
+: ps-cmdline ( path -- path string )
+    dup "/cmdline" append utf8 file-contents
+    [ dup ps-comm ] [ "\0" split " " join ] if-empty ;
+
+: ps ( -- assoc )
+    "/proc" [
+        "." directory-files [ file-name string>number ] filter
+        [ ps-cmdline ] { } map>assoc
+    ] with-directory ;
+
+: ps. ( -- )
+    ps simple-table. ;
diff --git a/basis/tools/ps/summary.txt b/basis/tools/ps/summary.txt
new file mode 100644
index 0000000000..b6c670821b
--- /dev/null
+++ b/basis/tools/ps/summary.txt
@@ -0,0 +1 @@
+A basic ps utility for Linux.