tools.ps: Add a simple Linux-only ps clone.

slavapestov · Feb 4, 2012 · 1fa6818 · 1fa6818
1 parent 1280f4d
commit 1fa6818
Show file tree

Hide file tree

Showing 5 changed files with 30 additions and 0 deletions.
diff --git a/basis/tools/ps/authors.txt 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
@@ -0,0 +1 @@
+linux
diff --git a/basis/tools/ps/ps-tests.factor 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
@@ -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
@@ -0,0 +1 @@
+A basic ps utility for Linux.