Sort process table by PID
This commit is contained in:
parent
985403894f
commit
f440911e7f
|
@ -2,6 +2,7 @@
|
|||
|
||||
(provide set-stderr-trace-flags!)
|
||||
|
||||
(require data/order)
|
||||
(require racket/set)
|
||||
(require racket/match)
|
||||
(require racket/pretty)
|
||||
|
@ -234,7 +235,9 @@
|
|||
['SIGUSR1
|
||||
(with-color WHITE-ON-GREEN
|
||||
(output "\e[2J\e[HProcess name table:\n")
|
||||
(for [((pid name) (in-hash process-names))]
|
||||
(for [(pid (in-list (sort (hash-keys process-names)
|
||||
(order-<? datum-order))))]
|
||||
(define name (hash-ref process-names pid))
|
||||
(output "\t~v\t--> ~v\n" pid name)))]
|
||||
['SIGUSR2
|
||||
(with-color WHITE-ON-BLUE
|
||||
|
|
Loading…
Reference in New Issue