tools-for-build/grovel-headers.c

   1 /*
   2  * Rummage through the system header files using the C compiler itself
   3  * as a parser, extracting stuff like preprocessor constants and the
   4  * sizes and signedness of basic system types, and write it out as
   5  * Lisp code.
   6  */
   7
   8 /*
   9  * This software is part of the SBCL system. See the README file for
  10  * more information.
  11  *
  12  * While most of SBCL is derived from the CMU CL system, many
  13  * utilities for the build process (like this one) were written from
  14  * scratch after the fork from CMU CL.
  15  *
  16  * This software is in the public domain and is provided with
  17  * absolutely no warranty. See the COPYING and CREDITS files for
  18  * more information.
  19  */
  20
  21 #include "genesis/config.h"
  22
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <sys/types.h>
  26 #ifdef _WIN32
  27   /* KLUDGE: From src/runtime/runtime.h, avoid double definition of
  28      boolean.  We really should clean up our act on this one. */
  29   #define boolean rpcndr_boolean
  30   #define WIN32_LEAN_AND_MEAN
  31   #include <windows.h>
  32   #include <shlobj.h>
  33   #include <wincrypt.h>
  34   #include <winsock2.h>
  35   #undef boolean
  36 #else
  37   #include <poll.h>
  38   #include <sys/select.h>
  39   #include <sys/times.h>
  40   #include <sys/wait.h>
  41   #include <sys/ioctl.h>
  42 #ifdef LISP_FEATURE_ANDROID
  43   #include <termios.h>
  44 #else
  45   #include <sys/termios.h>
  46   #include <langinfo.h>
  47 #endif
  48   #include <sys/time.h>
  49   #include <dlfcn.h>
  50 #endif
  51
  52 #include <sys/stat.h>
  53 #include <fcntl.h>
  54 #include <unistd.h>
  55 #include <signal.h>
  56 #include <errno.h>
  57 #include <time.h>
  58
  59 #ifdef LISP_FEATURE_HPUX
  60 #include <sys/bsdtty.h> /* for TIOCGPGRP */
  61 #endif
  62
  63 #ifdef LISP_FEATURE_BSD
  64   #include <sys/param.h>
  65   #include <sys/sysctl.h>
  66 #endif
  67
  68 #ifdef _WIN32
  69   #include "pthreads_win32.h"
  70 #endif
  71
  72 #include "wrap.h"
  73 #include "gc.h"
  74
  75 #define DEFTYPE(lispname,cname) { cname foo; \
  76     printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); }
  77
  78 #define DEFSTRUCT(lispname,cname,body) { cname bar; \
  79     printf("(define-alien-type nil\n  (struct %s", #lispname); \
  80     body; \
  81     printf("))\n"); }
  82 #define DEFSLOT(lispname,cname) \
  83     printf("\n          (%s (%s %d))", \
  84            #lispname, \
  85            (((bar.cname=-1)<0) ? "signed" : "unsigned"), \
  86            (8 * (sizeof bar.cname)))
  87
  88 void
  89 defconstant(char* lisp_name, unsigned long unix_number)
  90 {
  91     printf("(defconstant %s %lu) ; #x%lx\n",
  92            lisp_name, unix_number, unix_number);
  93 }
  94
  95 void deferrno(char* lisp_name, unsigned long unix_number)
  96 {
  97     defconstant(lisp_name, unix_number);
  98 }
  99
 100 void defsignal(char* lisp_name, unsigned long unix_number)
 101 {
 102     defconstant(lisp_name, unix_number);
 103 }
 104
 105 int
 106 main(int argc, char *argv[])
 107 {
 108     /* don't need no steenking command line arguments */
 109     if (1 != argc) {
 110         fprintf(stderr, "argh! command line argument(s)\n");
 111         exit(1);
 112     }
 113
 114     /* don't need no steenking hand-editing */
 115     printf(
 116 ";;;; This is an automatically generated file, please do not hand-edit it.\n\
 117 ;;;; See the program \"grovel-headers.c\".\n\
 118 \n\
 119 ");
 120 #ifdef _WIN32
 121     #include "grovel-headers-win32.h"
 122 #else
 123     printf("(in-package \"SB!ALIEN\")\n\n");
 124
 125     printf (";;;flags for dlopen()\n");
 126
 127     defconstant ("rtld-lazy", RTLD_LAZY);
 128     defconstant ("rtld-now", RTLD_NOW);
 129     defconstant ("rtld-global", RTLD_GLOBAL);
 130
 131     printf("(in-package \"SB!UNIX\")\n\n");
 132
 133     printf(";;; select()\n");
 134     defconstant("fd-setsize", FD_SETSIZE);
 135
 136     printf(";;; poll()\n");
 137     defconstant("pollin", POLLIN);
 138     defconstant("pollout", POLLOUT);
 139     defconstant("pollpri", POLLPRI);
 140     defconstant("pollhup", POLLHUP);
 141     defconstant("pollnval", POLLNVAL);
 142     defconstant("pollerr", POLLERR);
 143     DEFTYPE("nfds-t", nfds_t);
 144 #ifndef LISP_FEATURE_ANDROID
 145     printf(";;; langinfo\n");
 146     defconstant("codeset", CODESET);
 147 #endif
 148     printf(";;; types, types, types\n");
 149     DEFTYPE("clock-t", clock_t);
 150     DEFTYPE("dev-t",   dev_t);
 151     DEFTYPE("gid-t",   gid_t);
 152     DEFTYPE("ino-t",   ino_t);
 153     DEFTYPE("mode-t",  mode_t);
 154     DEFTYPE("nlink-t", nlink_t);
 155     DEFTYPE("off-t",   off_t);
 156     DEFTYPE("size-t",  size_t);
 157     DEFTYPE("time-t",  time_t);
 158 #if !defined(LISP_FEATURE_OS_PROVIDES_SUSECONDS_T)
 159     /* Similar kludge in sb-posix. */
 160     DEFTYPE("suseconds-t", long);
 161 #else
 162     DEFTYPE("suseconds-t", suseconds_t);
 163 #endif
 164     DEFTYPE("uid-t",   uid_t);
 165     printf(";; Types in src/runtime/wrap.h. See that file for explantion.\n");
 166     printf(";; Don't use these types for anything other than the stat wrapper.\n");
 167     DEFTYPE("wst-ino-t", wst_ino_t);
 168     DEFTYPE("wst-dev-t", wst_dev_t);
 169     DEFTYPE("wst-off-t", wst_off_t);
 170     DEFTYPE("wst-blksize-t", wst_blksize_t);
 171     DEFTYPE("wst-blkcnt-t", wst_blkcnt_t);
 172     DEFTYPE("wst-nlink-t", wst_nlink_t);
 173     DEFTYPE("wst-uid-t", wst_uid_t);
 174     DEFTYPE("wst-gid-t", wst_gid_t);
 175     printf("\n");
 176
 177     printf(";;; fcntl.h (or unistd.h on OpenBSD and NetBSD)\n");
 178     defconstant("r_ok", R_OK);
 179     defconstant("w_ok", W_OK);
 180     defconstant("x_ok", X_OK);
 181     defconstant("f_ok", F_OK);
 182     printf("\n");
 183
 184     printf(";;; fcntlbits.h\n");
 185     defconstant("o_rdonly",  O_RDONLY);
 186     defconstant("o_wronly",  O_WRONLY);
 187     defconstant("o_rdwr",    O_RDWR);
 188     defconstant("o_accmode", O_ACCMODE);
 189     defconstant("o_creat",   O_CREAT);
 190     defconstant("o_excl",    O_EXCL);
 191     defconstant("o_noctty",  O_NOCTTY);
 192     defconstant("o_trunc",   O_TRUNC);
 193     defconstant("o_append",  O_APPEND);
 194 #ifdef LISP_FEATURE_LARGEFILE
 195     defconstant("o_largefile", O_LARGEFILE);
 196 #endif
 197
 198     printf(";;;\n");
 199     defconstant("s-ifmt",  S_IFMT);
 200     defconstant("s-ififo", S_IFIFO);
 201     defconstant("s-ifchr", S_IFCHR);
 202     defconstant("s-ifdir", S_IFDIR);
 203     defconstant("s-ifblk", S_IFBLK);
 204     defconstant("s-ifreg", S_IFREG);
 205     printf("\n");
 206
 207     defconstant("s-iflnk",  S_IFLNK);
 208     defconstant("s-ifsock", S_IFSOCK);
 209     printf("\n");
 210
 211     printf(";;; error numbers\n");
 212     deferrno("ebadf", EBADF);
 213     deferrno("enoent", ENOENT);
 214     deferrno("eintr", EINTR);
 215     deferrno("eagain", EAGAIN);
 216     deferrno("eio", EIO);
 217     deferrno("eexist", EEXIST);
 218     deferrno("eloop", ELOOP);
 219     deferrno("espipe", ESPIPE);
 220     deferrno("ewouldblock", EWOULDBLOCK);
 221     printf("\n");
 222
 223     printf(";;; for wait3(2) in run-program.lisp\n");
 224     defconstant("wnohang", WNOHANG);
 225     defconstant("wuntraced", WUNTRACED);
 226     printf("\n");
 227
 228     printf(";;; various ioctl(2) flags\n");
 229     defconstant("tiocgpgrp",  TIOCGPGRP);
 230     defconstant("tiocspgrp",  TIOCSPGRP);
 231     defconstant("tiocgwinsz", TIOCGWINSZ);
 232     defconstant("tiocswinsz", TIOCSWINSZ);
 233     /* KLUDGE: These are referenced by old CMUCL-derived code, but
 234      * Linux doesn't define them.
 235      *
 236      * I think these are the BSD names, but I don't know what the
 237      * corresponding SysV/Linux names are. As a point of reference,
 238      * CMUCL doesn't have these defined either (although the defining
 239      * forms *do* exist in src/code/unix.lisp), so I don't feel nearly
 240      * so bad about not hunting them down. Insight into renamed
 241      * obscure ioctl(2) flags appreciated. --njf, 2002-08-26
 242      *
 243      * I note that the first one I grepped for, TIOCSIGSEND, is
 244      * referenced in SBCL conditional on #+HPUX. Maybe the porters of
 245      * Oxbridge know more about things like that? And even if they
 246      * don't, one benefit of the Rhodes crusade to heal the worthy
 247      * ports should be that afterwards, if we grep for something like
 248      * this in CVS and it's not there, we can lightheartedly nuke it.
 249      * -- WHN 2002-08-30 */
 250     /*
 251       defconstant("tiocsigsend", TIOCSIGSEND);
 252       defconstant("tiocflush", TIOCFLUSH);
 253       defconstant("tiocgetp", TIOCGETP);
 254       defconstant("tiocsetp", TIOCSETP);
 255       defconstant("tiocgetc", TIOCGETC);
 256       defconstant("tiocsetc", TIOCSETC);
 257       defconstant("tiocgltc", TIOCGLTC);
 258       defconstant("tiocsltc", TIOCSLTC);
 259     */
 260     printf("\n");
 261
 262     printf(";;; signals\n");
 263     defconstant("sig-dfl", (unsigned long)SIG_DFL);
 264     defconstant("sig-ign", (unsigned long)SIG_IGN);
 265
 266     defsignal("sigalrm", SIGALRM);
 267     defsignal("sigbus", SIGBUS);
 268     defsignal("sigchld", SIGCHLD);
 269     defsignal("sigcont", SIGCONT);
 270 #ifdef SIGEMT
 271     defsignal("sigemt", SIGEMT);
 272 #endif
 273     defsignal("sigfpe", SIGFPE);
 274     defsignal("sighup", SIGHUP);
 275     defsignal("sigill", SIGILL);
 276     defsignal("sigint", SIGINT);
 277     defsignal("sigio", SIGIO);
 278     defsignal("sigiot", SIGIOT);
 279     defsignal("sigkill", SIGKILL);
 280     defsignal("sigpipe", SIGPIPE);
 281     defsignal("sigprof", SIGPROF);
 282     defsignal("sigquit", SIGQUIT);
 283     defsignal("sigsegv", SIGSEGV);
 284 #ifdef SIGSTKFLT
 285     defsignal("sigstkflt", SIGSTKFLT);
 286 #endif
 287     defsignal("sigstop", SIGSTOP);
 288 #ifdef SIGSYS
 289     defsignal("sigsys", SIGSYS);
 290 #endif
 291     defsignal("sigterm", SIGTERM);
 292     defsignal("sigtrap", SIGTRAP);
 293     defsignal("sigtstp", SIGTSTP);
 294     defsignal("sigttin", SIGTTIN);
 295     defsignal("sigttou", SIGTTOU);
 296     defsignal("sigurg", SIGURG);
 297     defsignal("sigusr1", SIGUSR1);
 298     defsignal("sigusr2", SIGUSR2);
 299     defsignal("sigvtalrm", SIGVTALRM);
 300 #ifdef SIGWAITING
 301     defsignal("sigwaiting", SIGWAITING);
 302 #endif
 303     defsignal("sigwinch", SIGWINCH);
 304 #ifdef SIGXCPU
 305     defsignal("sigxcpu", SIGXCPU);
 306 #endif
 307 #ifdef SIGXFSZ
 308     defsignal("sigxfsz", SIGXFSZ);
 309 #endif
 310
 311    /* Floating point exception codes. Some of these
 312     * are missing on Darwin. */
 313 #ifdef FPE_INTOVF
 314     defconstant("fpe-intovf", FPE_INTOVF);
 315 #else
 316     defconstant("fpe-intovf", -1);
 317 #endif
 318 #ifdef FPE_INTDIV
 319     defconstant("fpe-intdiv", FPE_INTDIV);
 320 #else
 321     defconstant("fpe-intdiv", -1);
 322 #endif
 323     defconstant("fpe-fltdiv", FPE_FLTDIV);
 324     defconstant("fpe-fltovf", FPE_FLTOVF);
 325     defconstant("fpe-fltund", FPE_FLTUND);
 326     defconstant("fpe-fltres", FPE_FLTRES);
 327     defconstant("fpe-fltinv", FPE_FLTINV);
 328 #ifdef FPE_FLTSUB
 329     defconstant("fpe-fltsub", FPE_FLTSUB);
 330 #else
 331     defconstant("fpe-fltsub", -1);
 332 #endif
 333 #endif // !WIN32
 334     printf("\n");
 335
 336     printf(";;; structures\n");
 337     DEFSTRUCT(timeval, struct timeval,
 338         DEFSLOT(tv-sec, tv_sec);
 339         DEFSLOT(tv-usec, tv_usec));
 340     DEFSTRUCT(timespec, struct timespec,
 341         DEFSLOT(tv-sec, tv_sec);
 342         DEFSLOT(tv-nsec, tv_nsec));
 343     printf("\n");
 344
 345 #ifdef LISP_FEATURE_ANDROID
 346     defconstant("path-max", PATH_MAX);
 347     printf("\n");
 348 #endif
 349
 350 #ifdef LISP_FEATURE_BSD
 351     printf(";;; sysctl(3) names\n");
 352     printf("(in-package \"SB!IMPL\")\n");
 353     defconstant("ctl-kern", CTL_KERN);
 354     defconstant("ctl-hw", CTL_HW);
 355     defconstant("ctl-maxname", CTL_MAXNAME);
 356     defconstant("kern-ostype", KERN_OSTYPE);
 357     defconstant("kern-osrelease", KERN_OSRELEASE);
 358     defconstant("hw-model", HW_MODEL);
 359     defconstant("hw-pagesize", HW_PAGESIZE);
 360
 361     defconstant("path-max", PATH_MAX);
 362     printf("\n");
 363 #endif
 364
 365     printf("(in-package \"SB!KERNEL\")\n\n");
 366 #ifdef LISP_FEATURE_GENCGC
 367     printf(";;; GENCGC related\n");
 368     DEFTYPE("page-index-t", page_index_t);
 369     DEFTYPE("generation-index-t", generation_index_t);
 370     printf("\n");
 371 #endif
 372
 373     printf(";;; Our runtime types\n");
 374     DEFTYPE("os-vm-size-t", os_vm_size_t);
 375
 376     return 0;
 377 }