basis/debugger/unix/unix.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: debugger io kernel math prettyprint sequences system ;
   4 IN: debugger.unix
   5
   6 CONSTANT: signal-names
   7 {
   8     "SIGHUP" "SIGINT" "SIGQUIT" "SIGILL" "SIGTRAP" "SIGABRT"
   9     "SIGEMT" "SIGFPE" "SIGKILL" "SIGBUS" "SIGSEGV" "SIGSYS"
  10     "SIGPIPE" "SIGALRM" "SIGTERM" "SIGURG" "SIGSTOP" "SIGTSIP"
  11     "SIGCONT" "SIGCHLD" "SIGTTIN" "SIGTTOU" "SIGIO" "SIGXCPU"
  12     "SIGXFSZ" "SIGVTALRM" "SIGPROF" "SIGWINCH" "SIGINFO"
  13     "SIGUSR1" "SIGUSR2"
  14 }
  15
  16 : signal-name ( n -- str/f ) 1 - signal-names ?nth ;
  17
  18 : signal-name. ( n -- )
  19     signal-name [ " (" ")" surround write ] when* ;
  20
  21 M: unix signal-error. ( obj -- )
  22     "Unix signal #" write
  23     third [ pprint ] [ signal-name. ] bi nl ;