steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.ps: sort-by-pid and print headers.

db4
John Benediktsson 2013-04-25 10:05:57 -07:00
parent 46f306132c
commit ae3e48e156
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/tools/ps/macosx/macosx.factor
View File

@ -3,7 +3,7 @@
USING: accessors alien.c-types alien.data alien.syntax arrays USING: accessors alien.c-types alien.data alien.syntax arrays
assocs byte-arrays classes.struct continuations fry grouping assocs byte-arrays classes.struct continuations fry grouping
kernel literals math sequences sorting splitting strings system kernel literals math sequences splitting strings system
system-info.macosx tools.ps unix unix.time unix.types ; system-info.macosx tools.ps unix unix.time unix.types ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
@ -151,5 +151,4 @@ PRIVATE>
M: macosx ps ( -- assoc ) M: macosx ps ( -- assoc )
procs [ kp_proc>> p_pid>> 0 > ] filter procs [ kp_proc>> p_pid>> 0 > ] filter
[ kp_proc>> [ p_pid>> ] [ ps-arg ] bi ] { } map>assoc [ kp_proc>> [ p_pid>> ] [ ps-arg ] bi ] { } map>assoc ;
sort-keys ;

4
basis/tools/ps/ps.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2012-2013 Doug Coleman, John Benediktsson. ! Copyright (C) 2012-2013 Doug Coleman, John Benediktsson.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators prettyprint system vocabs ; USING: combinators prettyprint sequences sorting system vocabs ;
IN: tools.ps IN: tools.ps
HOOK: ps os ( -- assoc ) HOOK: ps os ( -- assoc )
@ -12,4 +12,4 @@ HOOK: ps os ( -- assoc )
} cond require } cond require
: ps. ( -- ) : ps. ( -- )
ps simple-table. ; ps sort-keys { "PID" "CMD" } prefix simple-table. ;