33 lines
953 B
Factor
33 lines
953 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: threads kernel prettyprint prettyprint.config
|
||
|
|
io io.styles sequences assocs namespaces sorting boxes
|
||
|
heaps.private system math math.parser math.order ;
|
||
|
|
IN: tools.threads
|
||
|
|
|
||
|
|
: thread. ( thread -- )
|
||
|
|
dup thread-id pprint-cell
|
||
|
|
dup thread-name over [ write-object ] with-cell
|
||
|
|
dup thread-state [
|
||
|
|
[ dup self eq? "running" "yield" ? ] unless*
|
||
|
|
write
|
||
|
|
] with-cell
|
||
|
|
[
|
||
|
|
thread-sleep-entry [
|
||
|
|
entry-key millis [-] number>string write
|
||
|
|
" ms" write
|
||
|
|
] when*
|
||
|
|
] with-cell ;
|
||
|
|
|
||
|
|
: threads. ( -- )
|
||
|
|
standard-table-style [
|
||
|
|
[
|
||
|
{ "ID:" "Name:" "Waiting on:" "Remaining sleep:" }
|
||
|
|
[ [ write ] with-cell ] each
|
||
|
|
] with-row
|
||
|
|
|
||
|
|
threads >alist sort-keys values [
|
||
|
|
[ thread. ] with-row
|
||
|
|
] each
|
||
|
|
] tabular-output ;
|