[Sbcl-commits] CVS: sbcl/tools-for-build grovel-headers.c,1.2,1.3

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tools-for-build
In directory sc8-pr-cvs1:/tmp/cvs-serv29091/tools-for-build

Modified Files:
	grovel-headers.c 
Log Message:
0.8.6.31:
	Grovel errnos rather than (wrongly, for *BSD) hardcoding them.


Index: grovel-headers.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tools-for-build/grovel-headers.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- grovel-headers.c	27 Nov 2003 06:21:05 -0000	1.2
+++ grovel-headers.c	6 Dec 2003 16:11:33 -0000	1.3
@@ -28,6 +28,7 @@
 #include <fcntl.h>
 #include <unistd.h>
 #include <signal.h>
+#include <errno.h>
 
 #include "genesis/config.h"
 
@@ -41,6 +42,7 @@
 	   lisp_name, unix_number, unix_number);
 }
 
+#define DEFERRNO(name) defconstant(#name, name)
 #define DEFSIGNAL(name) defconstant(#name, name)
 
 int
@@ -102,6 +104,15 @@
   
     defconstant("s-iflnk",  S_IFLNK);
     defconstant("s-ifsock", S_IFSOCK);
+    printf("\n");
+
+    printf(";;; error numbers\n");
+    DEFERRNO(ENOENT);
+    DEFERRNO(EINTR);
+    DEFERRNO(EIO);
+    DEFERRNO(EEXIST);
+    DEFERRNO(ESPIPE);
+    DEFERRNO(EWOULDBLOCK);
     printf("\n");
 
     printf(";;; for wait3(2) in run-program.lisp\n");