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

Merge branch 'master' of git://github.com/ehird/factor

db4
Slava Pestov 2009-04-20 00:03:52 -05:00
parent dc2423de06 9436ddac24
commit 0c4d9617f6
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/debugger/debugger.factor
View File

@ -88,8 +88,27 @@ M: string error. print ;
: divide-by-zero-error. ( obj -- ) : divide-by-zero-error. ( obj -- )
"Division by zero" print drop ; "Division by zero" print drop ;
CONSTANT: signal-names
{
"SIGHUP" "SIGINT" "SIGQUIT" "SIGILL" "SIGTRAP" "SIGABRT"
"SIGEMT" "SIGFPE" "SIGKILL" "SIGBUS" "SIGSEGV" "SIGSYS"
"SIGPIPE" "SIGALRM" "SIGTERM" "SIGURG" "SIGSTOP" "SIGTSIP"
"SIGCONT" "SIGCHLD" "SIGTTIN" "SIGTTOU" "SIGIO" "SIGXCPU"
"SIGXFSZ" "SIGVTALRM" "SIGPROF" "SIGWINCH" "SIGINFO"
"SIGUSR1" "SIGUSR2"
}
: signal-name ( n -- str )
1- signal-names nth;
: signal-name. ( n -- )
dup signal-names length <=
os unix? and
[ " (" write signal-name write ")" write ] [ drop ] if ;
: signal-error. ( obj -- ) : signal-error. ( obj -- )
"Operating system signal " write third . ; "Operating system signal " write
third [ pprint ] [ signal-name. ] bi nl ;
: array-size-error. ( obj -- ) : array-size-error. ( obj -- )
"Invalid array size: " write dup third . "Invalid array size: " write dup third .