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 <stdio.h>
  22 #include <sys/types.h>
  23 #include <sys/times.h>
  24 #include <sys/stat.h>
  25 #include <fcntl.h>
  26 #include <unistd.h>
  27
  28 #define DEFTYPE(lispname,cname) { cname foo; \
  29     printf("(define-alien-type "##lispname##" (%s %d))\n", (((foo=-1)<0) ? "sb!alien:signed" : "unsigned"), (8 * (sizeof foo))); }
  30
  31 void
  32 defconstant(char* lisp_name, long unix_number)
  33 {
  34     printf("(defconstant %s %ld) ; #x%lx\n",
  35            lisp_name, unix_number, unix_number);
  36 }
  37
  38 int
  39 main(int argc, char *argv[])
  40 {
  41     /* don't need no steenking command line arguments */
  42     if (1 != argc) {
  43         fprintf(stderr, "argh! command line argument(s)\n");
  44         exit(1);
  45     }
  46
  47     /* don't need no steenking hand-editing */
  48     printf(
  49 ";;;; This is an automatically generated file, please do not hand-edit it.
  50 ;;;; See the program \"grovel_headers.c\".
  51
  52 ");
  53
  54     printf("(in-package \"SB!UNIX\")\n\n");
  55
  56     printf(";;; types, types, types\n");
  57     DEFTYPE("clock-t", clock_t);
  58     DEFTYPE("dev-t",   dev_t);
  59     DEFTYPE("gid-t",   gid_t);
  60     DEFTYPE("ino-t",   ino_t);
  61     DEFTYPE("mode-t",  mode_t);
  62     DEFTYPE("nlink-t", nlink_t);
  63     DEFTYPE("off-t",   off_t);
  64     DEFTYPE("size-t",  size_t);
  65     DEFTYPE("time-t",  time_t);
  66     DEFTYPE("uid-t",   uid_t);
  67     printf("\n");
  68
  69     printf(";;; fcntl.h (or unistd.h on OpenBSD)\n");
  70     defconstant("r_ok", R_OK);
  71     defconstant("w_ok", W_OK);
  72     defconstant("x_ok", X_OK);
  73     defconstant("f_ok", F_OK);
  74     printf("\n");
  75
  76     printf(";;; fcntlbits.h\n");
  77     defconstant("o_rdonly",  O_RDONLY);
  78     defconstant("o_wronly",  O_WRONLY);
  79     defconstant("o_rdwr",    O_RDWR);
  80     defconstant("o_accmode", O_ACCMODE);
  81     defconstant("o_creat",   O_CREAT);
  82     defconstant("o_excl",    O_EXCL);
  83     defconstant("o_noctty",  O_NOCTTY);
  84     defconstant("o_trunc",   O_TRUNC);
  85     defconstant("o_append",  O_APPEND);
  86     printf(";;;\n");
  87     defconstant("s-ifmt",  S_IFMT);
  88     defconstant("s-ififo", S_IFIFO);
  89     defconstant("s-ifchr", S_IFCHR);
  90     defconstant("s-ifdir", S_IFDIR);
  91     defconstant("s-ifblk", S_IFBLK);
  92     defconstant("s-ifreg", S_IFREG);
  93     printf("\n");
  94
  95     defconstant("s-iflnk",  S_IFLNK);
  96     defconstant("s-ifsock", S_IFSOCK);
  97     printf("\n");
  98
  99     return 0;
 100 }