From: Christophe R. <cr...@us...> - 2005-04-29 14:37:49
|
Update of /cvsroot/sbcl/sbcl/tools-for-build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10092/tools-for-build Modified Files: grovel-headers.c Log Message: 0.9.0.6: MORE CASE CONSISTENCY Make the system (with the x86-64 backend) buildable under (readtable-case *readtable*) => :invert. This may seem like a bit of an eccentric thing to do. The plan, however, is to in future define this as the build mode for SBCL, enforcing it in the build scripts, so that userinits are prevented from interfering in this respect, and also so that case-consistency throughout the system is enforced (to reduce potential reader confusion further down the line). However, since there are 100000 MIPS-related patches waiting to be merged, it would be a bad time to enforce this (and break all non-x86-64 backends). Index: grovel-headers.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/tools-for-build/grovel-headers.c,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- grovel-headers.c 20 Dec 2004 13:10:39 -0000 1.8 +++ grovel-headers.c 29 Apr 2005 14:37:40 -0000 1.9 @@ -49,8 +49,15 @@ lisp_name, unix_number, unix_number); } -#define DEFERRNO(name) defconstant(#name, name) -#define DEFSIGNAL(name) defconstant(#name, name) +void deferrno(char* lisp_name, long unix_number) +{ + defconstant(lisp_name, unix_number); +} + +void defsignal(char* lisp_name, long unix_number) +{ + defconstant(lisp_name, unix_number); +} int main(int argc, char *argv[]) @@ -125,12 +132,12 @@ printf("\n"); printf(";;; error numbers\n"); - DEFERRNO(ENOENT); - DEFERRNO(EINTR); - DEFERRNO(EIO); - DEFERRNO(EEXIST); - DEFERRNO(ESPIPE); - DEFERRNO(EWOULDBLOCK); + deferrno("enoent", ENOENT); + deferrno("eintr", EINTR); + deferrno("eio", EIO); + deferrno("eexist", EEXIST); + deferrno("espipe", ESPIPE); + deferrno("ewouldblock", EWOULDBLOCK); printf("\n"); printf(";;; for wait3(2) in run-program.lisp\n"); @@ -174,47 +181,47 @@ printf("\n"); printf(";;; signals\n"); - DEFSIGNAL(SIGALRM); - DEFSIGNAL(SIGBUS); - DEFSIGNAL(SIGCHLD); - DEFSIGNAL(SIGCONT); + defsignal("sigalrm", SIGALRM); + defsignal("sigbus", SIGBUS); + defsignal("sigchld", SIGCHLD); + defsignal("sigcont", SIGCONT); #ifdef SIGEMT - DEFSIGNAL(SIGEMT); + defsignal("sigemt", SIGEMT); #endif - DEFSIGNAL(SIGFPE); - DEFSIGNAL(SIGHUP); - DEFSIGNAL(SIGILL); - DEFSIGNAL(SIGINT); - DEFSIGNAL(SIGIO); - DEFSIGNAL(SIGIOT); - DEFSIGNAL(SIGKILL); - DEFSIGNAL(SIGPIPE); - DEFSIGNAL(SIGPROF); - DEFSIGNAL(SIGQUIT); - DEFSIGNAL(SIGSEGV); + defsignal("sigfpe", SIGFPE); + defsignal("sighup", SIGHUP); + defsignal("sigill", SIGILL); + defsignal("sigint", SIGINT); + defsignal("sigio", SIGIO); + defsignal("sigiot", SIGIOT); + defsignal("sigkill", SIGKILL); + defsignal("sigpipe", SIGPIPE); + defsignal("sigprof", SIGPROF); + defsignal("sigquit", SIGQUIT); + defsignal("sigsegv", SIGSEGV); #if ((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86)) - DEFSIGNAL(SIGSTKFLT); + defsignal("sigstkflt", SIGSTKFLT); #endif - DEFSIGNAL(SIGSTOP); + defsignal("sigstop", SIGSTOP); #if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86))) - DEFSIGNAL(SIGSYS); + defsignal("sigsys", SIGSYS); #endif - DEFSIGNAL(SIGTERM); - DEFSIGNAL(SIGTRAP); - DEFSIGNAL(SIGTSTP); - DEFSIGNAL(SIGTTIN); - DEFSIGNAL(SIGTTOU); - DEFSIGNAL(SIGURG); - DEFSIGNAL(SIGUSR1); - DEFSIGNAL(SIGUSR2); - DEFSIGNAL(SIGVTALRM); + defsignal("sigterm", SIGTERM); + defsignal("sigtrap", SIGTRAP); + defsignal("sigtstp", SIGTSTP); + defsignal("sigttin", SIGTTIN); + defsignal("sigttou", SIGTTOU); + defsignal("sigurg", SIGURG); + defsignal("sigusr1", SIGUSR1); + defsignal("sigusr2", SIGUSR2); + defsignal("sigvtalrm", SIGVTALRM); #ifdef LISP_FEATURE_SUNOS - DEFSIGNAL(SIGWAITING); + defsignal("sigwaiting", SIGWAITING); #endif - DEFSIGNAL(SIGWINCH); + defsignal("sigwinch", SIGWINCH); #ifndef LISP_FEATURE_HPUX - DEFSIGNAL(SIGXCPU); - DEFSIGNAL(SIGXFSZ); + defsignal("sigxcpu", SIGXCPU); + defsignal("sigxfsz", SIGXFSZ); #endif return 0; } |