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