X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fgrovel-headers.c;h=9746e124a2d8d94bf3c521e3de977b647549bf55;hb=f7a78dd3554bd977b006e5da349a11d4e8463bb5;hp=3c3cebcc90b14b75a0e6e614404158a46867c39e;hpb=ff257d8d6acc59dee58eca6a284aced4506f727b;p=sbcl.git diff --git a/tools-for-build/grovel-headers.c b/tools-for-build/grovel-headers.c index 3c3cebc..9746e12 100644 --- a/tools-for-build/grovel-headers.c +++ b/tools-for-build/grovel-headers.c @@ -32,6 +32,8 @@ #include #undef boolean #else + #include + #include #include #include #include @@ -41,7 +43,6 @@ #endif #include -#include #include #include #include @@ -238,6 +239,9 @@ main(int argc, char *argv[]) DEFTYPE("wst-nlink-t", wst_nlink_t); DEFTYPE("wst-uid-t", wst_uid_t); DEFTYPE("wst-gid-t", wst_gid_t); + + /* KLUDGE */ + defconstant("fd-setsize", 1024); printf("\n"); #else printf("(in-package \"SB!ALIEN\")\n\n"); @@ -250,8 +254,16 @@ main(int argc, char *argv[]) printf("(in-package \"SB!UNIX\")\n\n"); + printf(";;; select()\n"); defconstant("fd-setsize", FD_SETSIZE); + printf(";;; poll()\n"); + defconstant("pollin", POLLIN); + defconstant("pollout", POLLOUT); + defconstant("pollpri", POLLPRI); + defconstant("pollhup", POLLHUP); + DEFTYPE("nfds-t", nfds_t); + printf(";;; langinfo\n"); defconstant("codeset", CODESET); @@ -455,13 +467,16 @@ main(int argc, char *argv[]) printf("\n"); #endif + printf("(in-package \"SB!KERNEL\")\n\n"); #ifdef LISP_FEATURE_GENCGC printf(";;; GENCGC related\n"); - printf("(in-package \"SB!KERNEL\")\n"); DEFTYPE("page-index-t", page_index_t); DEFTYPE("generation-index-t", generation_index_t); printf("\n"); #endif + printf(";;; Our runtime types\n"); + DEFTYPE("os-vm-size-t", os_vm_size_t); + return 0; }