From: Andreas Fuchs <asf@boinkor.net>
Date: Mon, 1 Sep 2003 21:22:14 +0000 (+0000)
Subject: 0.8.3.22:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f51d3fd40bb44b518299f0ae626583a6899f7af2;p=sbcl.git

0.8.3.22:
	Contrib frobs
	... add a safeguard to sb-grovel:
 		issue a STYLE-WARNING when a constant can not be
		groveled;
	... grovel SIG* names in sb-posix; this includes SIGRT* names
		on platforms where they are defined.
---

diff --git a/contrib/sb-grovel/def-to-lisp.lisp b/contrib/sb-grovel/def-to-lisp.lisp
index b73553f..fe83f9c 100644
--- a/contrib/sb-grovel/def-to-lisp.lisp
+++ b/contrib/sb-grovel/def-to-lisp.lisp
@@ -50,8 +50,12 @@ printf(\"(in-package ~S)\\\n\");~%" package-name)
       (destructuring-bind (type lispname cname &optional doc) def
         (cond ((eq type :integer)
                (format stream
-                       "printf(\"(cl:defconstant ~A %d \\\"~A\\\")\\\n\",~A);~%"
-                       lispname doc cname))
+                       "#ifdef ~A~%~
+                        printf(\"(cl:defconstant ~A %d \\\"~A\\\")\\\n\",~A);~%~
+                        #else~%~
+                        printf(\"(sb-int:style-warn \\\"Couln't grovel definition for ~A (unknown to the C compiler).\\\")\\n\");~%~
+                        #endif~%"
+                       cname lispname doc cname cname))
 	      ((eq type :type)
 	       (format stream
                        "printf(\"(sb-alien:define-alien-type ~A (sb-alien:%ssigned %d))\\\n\",SIGNED_(~A),8*(sizeof(~A)));~%"
diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index dd519f6..052a734 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -11,7 +11,7 @@
  "sys/socket.h" "sys/un.h" "netinet/in.h" "netinet/in_systm.h"
  "netinet/ip.h" "net/if.h" "netdb.h" "errno.h" "netinet/tcp.h"
  "fcntl.h" "sys/mman.h"
- "dirent.h")
+ "dirent.h" "signal.h")
 
 ;;; then the stuff we're looking for
 ((:integer af-inet "AF_INET" "IP Protocol family")
@@ -21,6 +21,41 @@
 
  (:type pid-t "pid_t")
 
+ ;; signals
+ (:integer SIGHUP "SIGHUP" "terminal line hangup.")
+ (:integer SIGINT "SIGINT" "interrupt program.")
+ (:integer SIGQUIT "SIGQUIT" "quit program.")
+ (:integer SIGILL "SIGILL" "illegal instruction.")
+ (:integer SIGTRAP "SIGTRAP" "trace trap.")
+ (:integer SIGABRT "SIGABRT" "abort program (formerly SIGIOT).")
+ (:integer SIGEMT "SIGEMT" "emulate instruction executed.")
+ (:integer SIGFPE "SIGFPE" "floating-point exception.")
+ (:integer SIGKILL "SIGKILL" "kill program.")
+ (:integer SIGBUS "SIGBUS" "bus error.")
+ (:integer SIGSEGV "SIGSEGV" "segmentation violation.")
+ (:integer SIGSYS "SIGSYS" "non-existent system call invoked.")
+ (:integer SIGPIPE "SIGPIPE" "write on a pipe with no reader.")
+ (:integer SIGALRM "SIGALRM" "real-time timer expired.")
+ (:integer SIGTERM "SIGTERM" "software termination signal.")
+ (:integer SIGURG "SIGURG" "urgent condition present on socket.")
+ (:integer SIGSTOP "SIGSTOP" "stop (cannot be caught or ignored).")
+ (:integer SIGTSTP "SIGTSTP" "stop signal generated from keyboard.")
+ (:integer SIGCONT "SIGCONT" "continue after stop.")
+ (:integer SIGCHLD "SIGCHLD" "child status has changed.")
+ (:integer SIGTTIN "SIGTTIN" "background read attempted from control terminal.")
+ (:integer SIGTTOU "SIGTTOU" "background write attempted to control terminal.")
+ (:integer SIGIO "SIGIO" "I/O is possible on a descriptor (see fcntl(2)).")
+ (:integer SIGXCPU "SIGXCPU" "cpu time limit exceeded (see setrlimit(2)).")
+ (:integer SIGXFSZ "SIGXFSZ" "file size limit exceeded (see setrlimit(2)).")
+ (:integer SIGVTALRM "SIGVTALRM" "virtual time alarm (see setitimer(2)).")
+ (:integer SIGPROF "SIGPROF" "profiling timer alarm (see setitimer(2)).")
+ (:integer SIGWINCH "SIGWINCH" "Window size change.")
+ (:integer SIGINFO "SIGINFO" "status request from keyboard.")
+ (:integer SIGUSR1 "SIGUSR1" "User defined signal 1.")
+ (:integer SIGUSR2 "SIGUSR2" "User defined signal 2.")
+ (:integer SIGRTMIN "SIGRTMIN" "Smallest real-time signal number.")
+ (:integer SIGRTMAX "SIGRTMAX" "Largest real-time signal number.")
+ 
  ;; mode_t
  (:type mode-t "mode_t")
  (:integer s-isuid "S_ISUID")
diff --git a/version.lisp-expr b/version.lisp-expr
index 7d52788..fc89c05 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.3.21"
+"0.8.3.22"