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

debugger.unix: Get the signal name from a signal object too.

db4
Doug Coleman 2013-02-01 11:35:05 -08:00
parent 4eb9126971
commit 193d7ff24b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/debugger/unix/unix.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: debugger io kernel math prettyprint sequences system ;
USING: debugger io kernel math prettyprint sequences system
io.launcher.unix accessors strings ;
IN: debugger.unix
CONSTANT: signal-names
@ -13,7 +14,11 @@ CONSTANT: signal-names
"SIGUSR1" "SIGUSR2"
}
: signal-name ( n -- str/f ) 1 - signal-names ?nth ;
GENERIC: signal-name ( obj -- str/f )
M: signal signal-name n>> signal-name ;
M: integer signal-name ( n -- str/f ) 1 - signal-names ?nth ;
: signal-name. ( n -- )
signal-name [ " (" ")" surround write ] when* ;