X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tools-for-build%2Fgrovel-headers.c;h=18af7882b23dbe635d9c881682842747523c029e;hb=04d819bb1a2e64de4e997203b9516229bb73c686;hp=cf02e27ee60fbae09555807048fd0f0f8566a9f1;hpb=4dc4761909992ceb346d003f3fb19e5c837ee985;p=sbcl.git

diff --git a/tools-for-build/grovel-headers.c b/tools-for-build/grovel-headers.c
index cf02e27..18af788 100644
--- a/tools-for-build/grovel-headers.c
+++ b/tools-for-build/grovel-headers.c
@@ -12,7 +12,7 @@
  * While most of SBCL is derived from the CMU CL system, many
  * utilities for the build process (like this one) were written from
  * scratch after the fork from CMU CL.
- * 
+ *
  * This software is in the public domain and is provided with
  * absolutely no warranty. See the COPYING and CREDITS files for
  * more information.
@@ -20,22 +20,27 @@
 
 #include <stdio.h>
 #include <sys/types.h>
-#include <sys/times.h>
+#ifdef _WIN32
+  #include <stdlib.h>
+#else
+  #include <sys/times.h>
+  #include <sys/wait.h>
+  #include <sys/ioctl.h>
+  #include <sys/termios.h>
+  #ifdef __APPLE_CC__
+    #include "../src/runtime/ppc-darwin-dlshim.h"
+    #include "../src/runtime/ppc-darwin-langinfo.h"
+  #else
+    #include <dlfcn.h>
+    #include <langinfo.h>
+  #endif
+#endif
+
 #include <sys/stat.h>
-#include <sys/wait.h>
-#include <sys/ioctl.h>
-#include <sys/termios.h>
 #include <fcntl.h>
 #include <unistd.h>
 #include <signal.h>
 #include <errno.h>
-#ifdef __APPLE_CC__
-  #include "../src/runtime/ppc-darwin-dlshim.h"
-  #include "../src/runtime/ppc-darwin-langinfo.h"
-#else
-  #include <dlfcn.h>
-  #include <langinfo.h>
-#endif
 
 #include "genesis/config.h"
 
@@ -46,7 +51,7 @@ void
 defconstant(char* lisp_name, long unix_number)
 {
     printf("(defconstant %s %ld) ; #x%lx\n",
-	   lisp_name, unix_number, unix_number);
+           lisp_name, unix_number, unix_number);
 }
 
 void deferrno(char* lisp_name, long unix_number)
@@ -64,8 +69,8 @@ main(int argc, char *argv[])
 {
     /* don't need no steenking command line arguments */
     if (1 != argc) {
-	fprintf(stderr, "argh! command line argument(s)\n");
-	exit(1);
+        fprintf(stderr, "argh! command line argument(s)\n");
+        exit(1);
     }
 
     /* don't need no steenking hand-editing */
@@ -74,15 +79,17 @@ main(int argc, char *argv[])
 ;;;; See the program \"grovel-headers.c\".\n\
 \n\
 ");
-
+#ifdef _WIN32
+    printf (";;; This file is presently unused for the Windows version of sbcl.\n");
+#else
     printf("(in-package \"SB!ALIEN\")\n\n");
 
     printf (";;;flags for dlopen()\n");
-    
+
     defconstant ("rtld-lazy", RTLD_LAZY);
     defconstant ("rtld-now", RTLD_NOW);
     defconstant ("rtld-global", RTLD_GLOBAL);
-    
+
     printf("(in-package \"SB!UNIX\")\n\n");
 
     printf(";;; langinfo\n");
@@ -126,7 +133,7 @@ main(int argc, char *argv[])
     defconstant("s-ifblk", S_IFBLK);
     defconstant("s-ifreg", S_IFREG);
     printf("\n");
-  
+
     defconstant("s-iflnk",  S_IFLNK);
     defconstant("s-ifsock", S_IFSOCK);
     printf("\n");
@@ -203,7 +210,7 @@ main(int argc, char *argv[])
     defsignal("sigstkflt", SIGSTKFLT);
 #endif
     defsignal("sigstop", SIGSTOP);
-#if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86))) 
+#if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86)))
     defsignal("sigsys", SIGSYS);
 #endif
     defsignal("sigterm", SIGTERM);
@@ -223,5 +230,6 @@ main(int argc, char *argv[])
     defsignal("sigxcpu", SIGXCPU);
     defsignal("sigxfsz", SIGXFSZ);
 #endif
+#endif // _WIN32
     return 0;
 }