basis/tools/ps/ps.factor

   1 ! Copyright (C) 2012-2013 Doug Coleman, John Benediktsson.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors prettyprint sequences sorting system vocabs
   4 vocabs.platforms ;
   5 IN: tools.ps
   6
   7 HOOK: ps os ( -- assoc )
   8
   9 USE-OS-SUFFIX: tools.ps
  10
  11 : ps. ( -- )
  12     ps sort-keys { "PID" "CMD" } prefix simple-table. ;
  13
  14 MAIN: ps.