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