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

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

Doug Coleman 2013-02-01 11:35:05 -08:00
parent 5e882b9422
commit 979eae72e0
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. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: debugger.unix
CONSTANT: signal-names CONSTANT: signal-names
@ -13,7 +14,11 @@ CONSTANT: signal-names
"SIGUSR1" "SIGUSR2" "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. ( n -- )
signal-name [ " (" ")" surround write ] when* ; signal-name [ " (" ")" surround write ] when* ;