tools.ps: Use unix.linux.proc for parsing.

basis/tools/ps/ps.factor

@@ -1,32 +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
+USING: accessors assocs io.directories io.pathnames kernel
-io.pathnames kernel math.parser prettyprint sequences splitting
+math.parser prettyprint sequences splitting unix.linux.proc ;
-unicode.categories ;
 IN: tools.ps
 
-! Only in Linux 3
+! If cmdline is empty, read the filename from /proc/pid/stat
-: ps-comm ( path -- string )
-    "/comm" append utf8 file-contents "\0" split " " join
-    [ blank? ] trim "[" "]" surround ;
-
-: parse-stat ( string -- program-name )
-    " " split
-    second
-    [ CHAR: ( = ] trim-head
-    [ CHAR: ) = ] trim-tail 
-    "[" "]" surround ;
-
-: ps-stat ( path -- string )
-    "/stat" append utf8 file-contents parse-stat ;
-
 : ps-cmdline ( path -- path string )
-    dup "/cmdline" append utf8 file-contents
+    dup parse-proc-pid-cmdline [
-    [ dup ps-stat ] [ "\0" split " " join ] if-empty ;
+        dup parse-proc-pid-stat filename>>
+        [ "()" member? ] trim
+        "[" "]" surround
+    ] [
+        "\0" split " " join
+    ] if-empty ;
 
 : ps ( -- assoc )
     "/proc" [
-        "." directory-files [ file-name string>number ] filter
+        "." directory-files
+        [ file-name string>number ] filter
         [ ps-cmdline ] { } map>assoc
     ] with-directory ;