00001 #include <stdio.h>
00002 #include <sys/types.h>
00003 #include <sys/stat.h>
00004 #include <utime.h>
00005 #include <sys/socket.h>
00006 #include <sys/un.h>
00007 #include <netinet/in.h>
00008 #include <netinet/in_systm.h>
00009 #include <netinet/ip.h>
00010 #include <net/if.h>
00011 #include <netinet/tcp.h>
00012 #include <sys/mman.h>
00013 #include <sys/wait.h>
00014 #include <fcntl.h>
00015 #include <netdb.h>
00016 #include <errno.h>
00017 #include <dirent.h>
00018 #include <signal.h>
00019 #include <pwd.h>
00020 #include <grp.h>
00021 #include <unistd.h>
00022 #include <termios.h>
00023 #include <syslog.h>
00024 #define SIGNEDP(x) (((x)-1)<0)
00025 #define SIGNED_(x) (SIGNEDP(x)?"":"un")
00026 int main(int argc, char *argv[]) {
00027 FILE *out;
00028 if (argc != 2) {
00029 printf("Invalid argcount!");
00030 return 1;
00031 } else
00032 out = fopen(argv[1], "w");
00033 if (!out) {
00034 printf("Error opening output file!");
00035 return 1;
00036 }
00037 fprintf (out, "(cl:in-package #:SB-POSIX)\n");
00038 fprintf (out, "(cl:eval-when (:compile-toplevel)\n");
00039 fprintf (out, " (cl:defparameter *integer-sizes* (cl:make-hash-table))\n");
00040 fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:char)\n", sizeof(char));
00041 fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:short)\n", sizeof(short));
00042 fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:long)\n", sizeof(long));
00043 fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:int)\n", sizeof(int));
00044 fprintf (out, ")\n");
00045 #ifdef AF_INET
00046 fprintf (out, "(cl:defconstant AF-INET %d \"IP Protocol family\")\n", AF_INET);
00047 #else
00048 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for AF_INET (unknown to the C compiler).\")\n");
00049 #endif
00050 fprintf (out, "(cl:export 'AF-INET)\n");
00051 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type UID-T (sb-alien:%ssigned %d)))\n", SIGNED_(uid_t), (8*sizeof(uid_t)));
00052 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type GID-T (sb-alien:%ssigned %d)))\n", SIGNED_(gid_t), (8*sizeof(gid_t)));
00053 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type NLINK-T (sb-alien:%ssigned %d)))\n", SIGNED_(nlink_t), (8*sizeof(nlink_t)));
00054 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type PID-T (sb-alien:%ssigned %d)))\n", SIGNED_(pid_t), (8*sizeof(pid_t)));
00055 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type INO-T (sb-alien:%ssigned %d)))\n", SIGNED_(ino_t), (8*sizeof(ino_t)));
00056 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type TIME-T (sb-alien:%ssigned %d)))\n", SIGNED_(time_t), (8*sizeof(time_t)));
00057 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type DEV-T (sb-alien:%ssigned %d)))\n", SIGNED_(dev_t), (8*sizeof(dev_t)));
00058 #ifdef SIGHUP
00059 fprintf (out, "(cl:defconstant SIGHUP %d \"terminal line hangup.\")\n", SIGHUP);
00060 #else
00061 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGHUP (unknown to the C compiler).\")\n");
00062 #endif
00063 fprintf (out, "(cl:export 'SIGHUP)\n");
00064 #ifdef SIGINT
00065 fprintf (out, "(cl:defconstant SIGINT %d \"interrupt program.\")\n", SIGINT);
00066 #else
00067 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGINT (unknown to the C compiler).\")\n");
00068 #endif
00069 fprintf (out, "(cl:export 'SIGINT)\n");
00070 #ifdef SIGQUIT
00071 fprintf (out, "(cl:defconstant SIGQUIT %d \"quit program.\")\n", SIGQUIT);
00072 #else
00073 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGQUIT (unknown to the C compiler).\")\n");
00074 #endif
00075 fprintf (out, "(cl:export 'SIGQUIT)\n");
00076 #ifdef SIGILL
00077 fprintf (out, "(cl:defconstant SIGILL %d \"illegal instruction.\")\n", SIGILL);
00078 #else
00079 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGILL (unknown to the C compiler).\")\n");
00080 #endif
00081 fprintf (out, "(cl:export 'SIGILL)\n");
00082 #ifdef SIGTRAP
00083 fprintf (out, "(cl:defconstant SIGTRAP %d \"trace trap.\")\n", SIGTRAP);
00084 #else
00085 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGTRAP (unknown to the C compiler).\")\n");
00086 #endif
00087 fprintf (out, "(cl:export 'SIGTRAP)\n");
00088 #ifdef SIGABRT
00089 fprintf (out, "(cl:defconstant SIGABRT %d \"abort program (formerly SIGIOT).\")\n", SIGABRT);
00090 #else
00091 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGABRT (unknown to the C compiler).\")\n");
00092 #endif
00093 fprintf (out, "(cl:export 'SIGABRT)\n");
00094 #ifdef SIGEMT
00095 fprintf (out, "(cl:defconstant SIGEMT %d \"emulate instruction executed.\")\n", SIGEMT);
00096 #else
00097 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGEMT (unknown to the C compiler).\")\n");
00098 #endif
00099 fprintf (out, "(cl:export 'SIGEMT)\n");
00100 #ifdef SIGFPE
00101 fprintf (out, "(cl:defconstant SIGFPE %d \"floating-point exception.\")\n", SIGFPE);
00102 #else
00103 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGFPE (unknown to the C compiler).\")\n");
00104 #endif
00105 fprintf (out, "(cl:export 'SIGFPE)\n");
00106 #ifdef SIGKILL
00107 fprintf (out, "(cl:defconstant SIGKILL %d \"kill program.\")\n", SIGKILL);
00108 #else
00109 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGKILL (unknown to the C compiler).\")\n");
00110 #endif
00111 fprintf (out, "(cl:export 'SIGKILL)\n");
00112 #ifdef SIGBUS
00113 fprintf (out, "(cl:defconstant SIGBUS %d \"bus error.\")\n", SIGBUS);
00114 #else
00115 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGBUS (unknown to the C compiler).\")\n");
00116 #endif
00117 fprintf (out, "(cl:export 'SIGBUS)\n");
00118 #ifdef SIGSEGV
00119 fprintf (out, "(cl:defconstant SIGSEGV %d \"segmentation violation.\")\n", SIGSEGV);
00120 #else
00121 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGSEGV (unknown to the C compiler).\")\n");
00122 #endif
00123 fprintf (out, "(cl:export 'SIGSEGV)\n");
00124 #ifdef SIGSYS
00125 fprintf (out, "(cl:defconstant SIGSYS %d \"non-existent system call invoked.\")\n", SIGSYS);
00126 #else
00127 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGSYS (unknown to the C compiler).\")\n");
00128 #endif
00129 fprintf (out, "(cl:export 'SIGSYS)\n");
00130 #ifdef SIGPIPE
00131 fprintf (out, "(cl:defconstant SIGPIPE %d \"write on a pipe with no reader.\")\n", SIGPIPE);
00132 #else
00133 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGPIPE (unknown to the C compiler).\")\n");
00134 #endif
00135 fprintf (out, "(cl:export 'SIGPIPE)\n");
00136 #ifdef SIGALRM
00137 fprintf (out, "(cl:defconstant SIGALRM %d \"real-time timer expired.\")\n", SIGALRM);
00138 #else
00139 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGALRM (unknown to the C compiler).\")\n");
00140 #endif
00141 fprintf (out, "(cl:export 'SIGALRM)\n");
00142 #ifdef SIGTERM
00143 fprintf (out, "(cl:defconstant SIGTERM %d \"software termination signal.\")\n", SIGTERM);
00144 #else
00145 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGTERM (unknown to the C compiler).\")\n");
00146 #endif
00147 fprintf (out, "(cl:export 'SIGTERM)\n");
00148 #ifdef SIGURG
00149 fprintf (out, "(cl:defconstant SIGURG %d \"urgent condition present on socket.\")\n", SIGURG);
00150 #else
00151 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGURG (unknown to the C compiler).\")\n");
00152 #endif
00153 fprintf (out, "(cl:export 'SIGURG)\n");
00154 #ifdef SIGSTOP
00155 fprintf (out, "(cl:defconstant SIGSTOP %d \"stop (cannot be caught or ignored).\")\n", SIGSTOP);
00156 #else
00157 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGSTOP (unknown to the C compiler).\")\n");
00158 #endif
00159 fprintf (out, "(cl:export 'SIGSTOP)\n");
00160 #ifdef SIGTSTP
00161 fprintf (out, "(cl:defconstant SIGTSTP %d \"stop signal generated from keyboard.\")\n", SIGTSTP);
00162 #else
00163 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGTSTP (unknown to the C compiler).\")\n");
00164 #endif
00165 fprintf (out, "(cl:export 'SIGTSTP)\n");
00166 #ifdef SIGCONT
00167 fprintf (out, "(cl:defconstant SIGCONT %d \"continue after stop.\")\n", SIGCONT);
00168 #else
00169 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGCONT (unknown to the C compiler).\")\n");
00170 #endif
00171 fprintf (out, "(cl:export 'SIGCONT)\n");
00172 #ifdef SIGCHLD
00173 fprintf (out, "(cl:defconstant SIGCHLD %d \"child status has changed.\")\n", SIGCHLD);
00174 #else
00175 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGCHLD (unknown to the C compiler).\")\n");
00176 #endif
00177 fprintf (out, "(cl:export 'SIGCHLD)\n");
00178 #ifdef SIGTTIN
00179 fprintf (out, "(cl:defconstant SIGTTIN %d \"background read attempted from control terminal.\")\n", SIGTTIN);
00180 #else
00181 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGTTIN (unknown to the C compiler).\")\n");
00182 #endif
00183 fprintf (out, "(cl:export 'SIGTTIN)\n");
00184 #ifdef SIGTTOU
00185 fprintf (out, "(cl:defconstant SIGTTOU %d \"background write attempted to control terminal.\")\n", SIGTTOU);
00186 #else
00187 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGTTOU (unknown to the C compiler).\")\n");
00188 #endif
00189 fprintf (out, "(cl:export 'SIGTTOU)\n");
00190 #ifdef SIGIO
00191 fprintf (out, "(cl:defconstant SIGIO %d \"I/O is possible on a descriptor (see fcntl(2)).\")\n", SIGIO);
00192 #else
00193 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGIO (unknown to the C compiler).\")\n");
00194 #endif
00195 fprintf (out, "(cl:export 'SIGIO)\n");
00196 #ifdef SIGXCPU
00197 fprintf (out, "(cl:defconstant SIGXCPU %d \"cpu time limit exceeded (see setrlimit(2)).\")\n", SIGXCPU);
00198 #else
00199 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGXCPU (unknown to the C compiler).\")\n");
00200 #endif
00201 fprintf (out, "(cl:export 'SIGXCPU)\n");
00202 #ifdef SIGXFSZ
00203 fprintf (out, "(cl:defconstant SIGXFSZ %d \"file size limit exceeded (see setrlimit(2)).\")\n", SIGXFSZ);
00204 #else
00205 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGXFSZ (unknown to the C compiler).\")\n");
00206 #endif
00207 fprintf (out, "(cl:export 'SIGXFSZ)\n");
00208 #ifdef SIGVTALRM
00209 fprintf (out, "(cl:defconstant SIGVTALRM %d \"virtual time alarm (see setitimer(2)).\")\n", SIGVTALRM);
00210 #else
00211 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGVTALRM (unknown to the C compiler).\")\n");
00212 #endif
00213 fprintf (out, "(cl:export 'SIGVTALRM)\n");
00214 #ifdef SIGPROF
00215 fprintf (out, "(cl:defconstant SIGPROF %d \"profiling timer alarm (see setitimer(2)).\")\n", SIGPROF);
00216 #else
00217 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGPROF (unknown to the C compiler).\")\n");
00218 #endif
00219 fprintf (out, "(cl:export 'SIGPROF)\n");
00220 #ifdef SIGWINCH
00221 fprintf (out, "(cl:defconstant SIGWINCH %d \"Window size change.\")\n", SIGWINCH);
00222 #else
00223 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGWINCH (unknown to the C compiler).\")\n");
00224 #endif
00225 fprintf (out, "(cl:export 'SIGWINCH)\n");
00226 #ifdef SIGPWR
00227 fprintf (out, "(cl:defconstant SIGPWR %d \"Power failure.\")\n", SIGPWR);
00228 #else
00229 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGPWR (unknown to the C compiler).\")\n");
00230 #endif
00231 fprintf (out, "(cl:export 'SIGPWR)\n");
00232 #ifdef SIGUSR1
00233 fprintf (out, "(cl:defconstant SIGUSR1 %d \"User defined signal 1.\")\n", SIGUSR1);
00234 #else
00235 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGUSR1 (unknown to the C compiler).\")\n");
00236 #endif
00237 fprintf (out, "(cl:export 'SIGUSR1)\n");
00238 #ifdef SIGUSR2
00239 fprintf (out, "(cl:defconstant SIGUSR2 %d \"User defined signal 2.\")\n", SIGUSR2);
00240 #else
00241 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGUSR2 (unknown to the C compiler).\")\n");
00242 #endif
00243 fprintf (out, "(cl:export 'SIGUSR2)\n");
00244 #ifdef SIGRTMIN
00245 fprintf (out, "(cl:defconstant SIGRTMIN %d \"Smallest real-time signal number.\")\n", SIGRTMIN);
00246 #else
00247 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGRTMIN (unknown to the C compiler).\")\n");
00248 #endif
00249 fprintf (out, "(cl:export 'SIGRTMIN)\n");
00250 #ifdef SIGRTMAX
00251 fprintf (out, "(cl:defconstant SIGRTMAX %d \"Largest real-time signal number.\")\n", SIGRTMAX);
00252 #else
00253 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SIGRTMAX (unknown to the C compiler).\")\n");
00254 #endif
00255 fprintf (out, "(cl:export 'SIGRTMAX)\n");
00256 #ifdef EPERM
00257 fprintf (out, "(cl:defconstant EPERM %d \"NIL\")\n", EPERM);
00258 fprintf (out, "(cl:setf (get 'EPERM 'errno) t)\n");
00259 #else
00260 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EPERM (unknown to the C compiler).\")\n");
00261 #endif
00262 fprintf (out, "(cl:export 'EPERM)\n");
00263 #ifdef ENOENT
00264 fprintf (out, "(cl:defconstant ENOENT %d \"NIL\")\n", ENOENT);
00265 fprintf (out, "(cl:setf (get 'ENOENT 'errno) t)\n");
00266 #else
00267 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOENT (unknown to the C compiler).\")\n");
00268 #endif
00269 fprintf (out, "(cl:export 'ENOENT)\n");
00270 #ifdef ESRCH
00271 fprintf (out, "(cl:defconstant ESRCH %d \"NIL\")\n", ESRCH);
00272 fprintf (out, "(cl:setf (get 'ESRCH 'errno) t)\n");
00273 #else
00274 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESRCH (unknown to the C compiler).\")\n");
00275 #endif
00276 fprintf (out, "(cl:export 'ESRCH)\n");
00277 #ifdef EINTR
00278 fprintf (out, "(cl:defconstant EINTR %d \"NIL\")\n", EINTR);
00279 fprintf (out, "(cl:setf (get 'EINTR 'errno) t)\n");
00280 #else
00281 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EINTR (unknown to the C compiler).\")\n");
00282 #endif
00283 fprintf (out, "(cl:export 'EINTR)\n");
00284 #ifdef EIO
00285 fprintf (out, "(cl:defconstant EIO %d \"NIL\")\n", EIO);
00286 fprintf (out, "(cl:setf (get 'EIO 'errno) t)\n");
00287 #else
00288 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EIO (unknown to the C compiler).\")\n");
00289 #endif
00290 fprintf (out, "(cl:export 'EIO)\n");
00291 #ifdef ENXIO
00292 fprintf (out, "(cl:defconstant ENXIO %d \"NIL\")\n", ENXIO);
00293 fprintf (out, "(cl:setf (get 'ENXIO 'errno) t)\n");
00294 #else
00295 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENXIO (unknown to the C compiler).\")\n");
00296 #endif
00297 fprintf (out, "(cl:export 'ENXIO)\n");
00298 #ifdef E2BIG
00299 fprintf (out, "(cl:defconstant E2BIG %d \"NIL\")\n", E2BIG);
00300 fprintf (out, "(cl:setf (get 'E2BIG 'errno) t)\n");
00301 #else
00302 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for E2BIG (unknown to the C compiler).\")\n");
00303 #endif
00304 fprintf (out, "(cl:export 'E2BIG)\n");
00305 #ifdef ENOEXEC
00306 fprintf (out, "(cl:defconstant ENOEXEC %d \"NIL\")\n", ENOEXEC);
00307 fprintf (out, "(cl:setf (get 'ENOEXEC 'errno) t)\n");
00308 #else
00309 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOEXEC (unknown to the C compiler).\")\n");
00310 #endif
00311 fprintf (out, "(cl:export 'ENOEXEC)\n");
00312 #ifdef EBADF
00313 fprintf (out, "(cl:defconstant EBADF %d \"NIL\")\n", EBADF);
00314 fprintf (out, "(cl:setf (get 'EBADF 'errno) t)\n");
00315 #else
00316 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADF (unknown to the C compiler).\")\n");
00317 #endif
00318 fprintf (out, "(cl:export 'EBADF)\n");
00319 #ifdef ECHILD
00320 fprintf (out, "(cl:defconstant ECHILD %d \"NIL\")\n", ECHILD);
00321 fprintf (out, "(cl:setf (get 'ECHILD 'errno) t)\n");
00322 #else
00323 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECHILD (unknown to the C compiler).\")\n");
00324 #endif
00325 fprintf (out, "(cl:export 'ECHILD)\n");
00326 #ifdef EAGAIN
00327 fprintf (out, "(cl:defconstant EAGAIN %d \"NIL\")\n", EAGAIN);
00328 fprintf (out, "(cl:setf (get 'EAGAIN 'errno) t)\n");
00329 #else
00330 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EAGAIN (unknown to the C compiler).\")\n");
00331 #endif
00332 fprintf (out, "(cl:export 'EAGAIN)\n");
00333 #ifdef ENOMEM
00334 fprintf (out, "(cl:defconstant ENOMEM %d \"NIL\")\n", ENOMEM);
00335 fprintf (out, "(cl:setf (get 'ENOMEM 'errno) t)\n");
00336 #else
00337 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOMEM (unknown to the C compiler).\")\n");
00338 #endif
00339 fprintf (out, "(cl:export 'ENOMEM)\n");
00340 #ifdef EACCES
00341 fprintf (out, "(cl:defconstant EACCES %d \"NIL\")\n", EACCES);
00342 fprintf (out, "(cl:setf (get 'EACCES 'errno) t)\n");
00343 #else
00344 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EACCES (unknown to the C compiler).\")\n");
00345 #endif
00346 fprintf (out, "(cl:export 'EACCES)\n");
00347 #ifdef EFAULT
00348 fprintf (out, "(cl:defconstant EFAULT %d \"NIL\")\n", EFAULT);
00349 fprintf (out, "(cl:setf (get 'EFAULT 'errno) t)\n");
00350 #else
00351 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EFAULT (unknown to the C compiler).\")\n");
00352 #endif
00353 fprintf (out, "(cl:export 'EFAULT)\n");
00354 #ifdef ENOTBLK
00355 fprintf (out, "(cl:defconstant ENOTBLK %d \"NIL\")\n", ENOTBLK);
00356 fprintf (out, "(cl:setf (get 'ENOTBLK 'errno) t)\n");
00357 #else
00358 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTBLK (unknown to the C compiler).\")\n");
00359 #endif
00360 fprintf (out, "(cl:export 'ENOTBLK)\n");
00361 #ifdef EBUSY
00362 fprintf (out, "(cl:defconstant EBUSY %d \"NIL\")\n", EBUSY);
00363 fprintf (out, "(cl:setf (get 'EBUSY 'errno) t)\n");
00364 #else
00365 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBUSY (unknown to the C compiler).\")\n");
00366 #endif
00367 fprintf (out, "(cl:export 'EBUSY)\n");
00368 #ifdef EEXIST
00369 fprintf (out, "(cl:defconstant EEXIST %d \"NIL\")\n", EEXIST);
00370 fprintf (out, "(cl:setf (get 'EEXIST 'errno) t)\n");
00371 #else
00372 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EEXIST (unknown to the C compiler).\")\n");
00373 #endif
00374 fprintf (out, "(cl:export 'EEXIST)\n");
00375 #ifdef EXDEV
00376 fprintf (out, "(cl:defconstant EXDEV %d \"NIL\")\n", EXDEV);
00377 fprintf (out, "(cl:setf (get 'EXDEV 'errno) t)\n");
00378 #else
00379 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EXDEV (unknown to the C compiler).\")\n");
00380 #endif
00381 fprintf (out, "(cl:export 'EXDEV)\n");
00382 #ifdef ENODEV
00383 fprintf (out, "(cl:defconstant ENODEV %d \"NIL\")\n", ENODEV);
00384 fprintf (out, "(cl:setf (get 'ENODEV 'errno) t)\n");
00385 #else
00386 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENODEV (unknown to the C compiler).\")\n");
00387 #endif
00388 fprintf (out, "(cl:export 'ENODEV)\n");
00389 #ifdef ENOTDIR
00390 fprintf (out, "(cl:defconstant ENOTDIR %d \"NIL\")\n", ENOTDIR);
00391 fprintf (out, "(cl:setf (get 'ENOTDIR 'errno) t)\n");
00392 #else
00393 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTDIR (unknown to the C compiler).\")\n");
00394 #endif
00395 fprintf (out, "(cl:export 'ENOTDIR)\n");
00396 #ifdef EISDIR
00397 fprintf (out, "(cl:defconstant EISDIR %d \"NIL\")\n", EISDIR);
00398 fprintf (out, "(cl:setf (get 'EISDIR 'errno) t)\n");
00399 #else
00400 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EISDIR (unknown to the C compiler).\")\n");
00401 #endif
00402 fprintf (out, "(cl:export 'EISDIR)\n");
00403 #ifdef EINVAL
00404 fprintf (out, "(cl:defconstant EINVAL %d \"NIL\")\n", EINVAL);
00405 fprintf (out, "(cl:setf (get 'EINVAL 'errno) t)\n");
00406 #else
00407 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EINVAL (unknown to the C compiler).\")\n");
00408 #endif
00409 fprintf (out, "(cl:export 'EINVAL)\n");
00410 #ifdef ENFILE
00411 fprintf (out, "(cl:defconstant ENFILE %d \"NIL\")\n", ENFILE);
00412 fprintf (out, "(cl:setf (get 'ENFILE 'errno) t)\n");
00413 #else
00414 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENFILE (unknown to the C compiler).\")\n");
00415 #endif
00416 fprintf (out, "(cl:export 'ENFILE)\n");
00417 #ifdef EMFILE
00418 fprintf (out, "(cl:defconstant EMFILE %d \"NIL\")\n", EMFILE);
00419 fprintf (out, "(cl:setf (get 'EMFILE 'errno) t)\n");
00420 #else
00421 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EMFILE (unknown to the C compiler).\")\n");
00422 #endif
00423 fprintf (out, "(cl:export 'EMFILE)\n");
00424 #ifdef ENOTTY
00425 fprintf (out, "(cl:defconstant ENOTTY %d \"NIL\")\n", ENOTTY);
00426 fprintf (out, "(cl:setf (get 'ENOTTY 'errno) t)\n");
00427 #else
00428 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTTY (unknown to the C compiler).\")\n");
00429 #endif
00430 fprintf (out, "(cl:export 'ENOTTY)\n");
00431 #ifdef ETXTBSY
00432 fprintf (out, "(cl:defconstant ETXTBSY %d \"NIL\")\n", ETXTBSY);
00433 fprintf (out, "(cl:setf (get 'ETXTBSY 'errno) t)\n");
00434 #else
00435 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ETXTBSY (unknown to the C compiler).\")\n");
00436 #endif
00437 fprintf (out, "(cl:export 'ETXTBSY)\n");
00438 #ifdef EFBIG
00439 fprintf (out, "(cl:defconstant EFBIG %d \"NIL\")\n", EFBIG);
00440 fprintf (out, "(cl:setf (get 'EFBIG 'errno) t)\n");
00441 #else
00442 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EFBIG (unknown to the C compiler).\")\n");
00443 #endif
00444 fprintf (out, "(cl:export 'EFBIG)\n");
00445 #ifdef ENOSPC
00446 fprintf (out, "(cl:defconstant ENOSPC %d \"NIL\")\n", ENOSPC);
00447 fprintf (out, "(cl:setf (get 'ENOSPC 'errno) t)\n");
00448 #else
00449 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOSPC (unknown to the C compiler).\")\n");
00450 #endif
00451 fprintf (out, "(cl:export 'ENOSPC)\n");
00452 #ifdef ESPIPE
00453 fprintf (out, "(cl:defconstant ESPIPE %d \"NIL\")\n", ESPIPE);
00454 fprintf (out, "(cl:setf (get 'ESPIPE 'errno) t)\n");
00455 #else
00456 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESPIPE (unknown to the C compiler).\")\n");
00457 #endif
00458 fprintf (out, "(cl:export 'ESPIPE)\n");
00459 #ifdef EROFS
00460 fprintf (out, "(cl:defconstant EROFS %d \"NIL\")\n", EROFS);
00461 fprintf (out, "(cl:setf (get 'EROFS 'errno) t)\n");
00462 #else
00463 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EROFS (unknown to the C compiler).\")\n");
00464 #endif
00465 fprintf (out, "(cl:export 'EROFS)\n");
00466 #ifdef EMLINK
00467 fprintf (out, "(cl:defconstant EMLINK %d \"NIL\")\n", EMLINK);
00468 fprintf (out, "(cl:setf (get 'EMLINK 'errno) t)\n");
00469 #else
00470 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EMLINK (unknown to the C compiler).\")\n");
00471 #endif
00472 fprintf (out, "(cl:export 'EMLINK)\n");
00473 #ifdef EPIPE
00474 fprintf (out, "(cl:defconstant EPIPE %d \"NIL\")\n", EPIPE);
00475 fprintf (out, "(cl:setf (get 'EPIPE 'errno) t)\n");
00476 #else
00477 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EPIPE (unknown to the C compiler).\")\n");
00478 #endif
00479 fprintf (out, "(cl:export 'EPIPE)\n");
00480 #ifdef EDOM
00481 fprintf (out, "(cl:defconstant EDOM %d \"NIL\")\n", EDOM);
00482 fprintf (out, "(cl:setf (get 'EDOM 'errno) t)\n");
00483 #else
00484 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EDOM (unknown to the C compiler).\")\n");
00485 #endif
00486 fprintf (out, "(cl:export 'EDOM)\n");
00487 #ifdef ERANGE
00488 fprintf (out, "(cl:defconstant ERANGE %d \"NIL\")\n", ERANGE);
00489 fprintf (out, "(cl:setf (get 'ERANGE 'errno) t)\n");
00490 #else
00491 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ERANGE (unknown to the C compiler).\")\n");
00492 #endif
00493 fprintf (out, "(cl:export 'ERANGE)\n");
00494 #ifdef EDEADLK
00495 fprintf (out, "(cl:defconstant EDEADLK %d \"NIL\")\n", EDEADLK);
00496 fprintf (out, "(cl:setf (get 'EDEADLK 'errno) t)\n");
00497 #else
00498 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EDEADLK (unknown to the C compiler).\")\n");
00499 #endif
00500 fprintf (out, "(cl:export 'EDEADLK)\n");
00501 #ifdef ENAMETOOLONG
00502 fprintf (out, "(cl:defconstant ENAMETOOLONG %d \"NIL\")\n", ENAMETOOLONG);
00503 fprintf (out, "(cl:setf (get 'ENAMETOOLONG 'errno) t)\n");
00504 #else
00505 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENAMETOOLONG (unknown to the C compiler).\")\n");
00506 #endif
00507 fprintf (out, "(cl:export 'ENAMETOOLONG)\n");
00508 #ifdef ENOLCK
00509 fprintf (out, "(cl:defconstant ENOLCK %d \"NIL\")\n", ENOLCK);
00510 fprintf (out, "(cl:setf (get 'ENOLCK 'errno) t)\n");
00511 #else
00512 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOLCK (unknown to the C compiler).\")\n");
00513 #endif
00514 fprintf (out, "(cl:export 'ENOLCK)\n");
00515 #ifdef ENOSYS
00516 fprintf (out, "(cl:defconstant ENOSYS %d \"NIL\")\n", ENOSYS);
00517 fprintf (out, "(cl:setf (get 'ENOSYS 'errno) t)\n");
00518 #else
00519 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOSYS (unknown to the C compiler).\")\n");
00520 #endif
00521 fprintf (out, "(cl:export 'ENOSYS)\n");
00522 #ifdef ENOTEMPTY
00523 fprintf (out, "(cl:defconstant ENOTEMPTY %d \"NIL\")\n", ENOTEMPTY);
00524 fprintf (out, "(cl:setf (get 'ENOTEMPTY 'errno) t)\n");
00525 #else
00526 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTEMPTY (unknown to the C compiler).\")\n");
00527 #endif
00528 fprintf (out, "(cl:export 'ENOTEMPTY)\n");
00529 #ifdef ELOOP
00530 fprintf (out, "(cl:defconstant ELOOP %d \"NIL\")\n", ELOOP);
00531 fprintf (out, "(cl:setf (get 'ELOOP 'errno) t)\n");
00532 #else
00533 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELOOP (unknown to the C compiler).\")\n");
00534 #endif
00535 fprintf (out, "(cl:export 'ELOOP)\n");
00536 #ifdef EWOULDBLOCK
00537 fprintf (out, "(cl:defconstant EWOULDBLOCK %d \"NIL\")\n", EWOULDBLOCK);
00538 fprintf (out, "(cl:setf (get 'EWOULDBLOCK 'errno) t)\n");
00539 #else
00540 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EWOULDBLOCK (unknown to the C compiler).\")\n");
00541 #endif
00542 fprintf (out, "(cl:export 'EWOULDBLOCK)\n");
00543 #ifdef ENOMSG
00544 fprintf (out, "(cl:defconstant ENOMSG %d \"NIL\")\n", ENOMSG);
00545 fprintf (out, "(cl:setf (get 'ENOMSG 'errno) t)\n");
00546 #else
00547 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOMSG (unknown to the C compiler).\")\n");
00548 #endif
00549 fprintf (out, "(cl:export 'ENOMSG)\n");
00550 #ifdef EIDRM
00551 fprintf (out, "(cl:defconstant EIDRM %d \"NIL\")\n", EIDRM);
00552 fprintf (out, "(cl:setf (get 'EIDRM 'errno) t)\n");
00553 #else
00554 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EIDRM (unknown to the C compiler).\")\n");
00555 #endif
00556 fprintf (out, "(cl:export 'EIDRM)\n");
00557 #ifdef ECHRNG
00558 fprintf (out, "(cl:defconstant ECHRNG %d \"NIL\")\n", ECHRNG);
00559 fprintf (out, "(cl:setf (get 'ECHRNG 'errno) t)\n");
00560 #else
00561 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECHRNG (unknown to the C compiler).\")\n");
00562 #endif
00563 fprintf (out, "(cl:export 'ECHRNG)\n");
00564 #ifdef EL2NSYNC
00565 fprintf (out, "(cl:defconstant EL2NSYNC %d \"NIL\")\n", EL2NSYNC);
00566 fprintf (out, "(cl:setf (get 'EL2NSYNC 'errno) t)\n");
00567 #else
00568 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EL2NSYNC (unknown to the C compiler).\")\n");
00569 #endif
00570 fprintf (out, "(cl:export 'EL2NSYNC)\n");
00571 #ifdef EL3HLT
00572 fprintf (out, "(cl:defconstant EL3HLT %d \"NIL\")\n", EL3HLT);
00573 fprintf (out, "(cl:setf (get 'EL3HLT 'errno) t)\n");
00574 #else
00575 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EL3HLT (unknown to the C compiler).\")\n");
00576 #endif
00577 fprintf (out, "(cl:export 'EL3HLT)\n");
00578 #ifdef EL3RST
00579 fprintf (out, "(cl:defconstant EL3RST %d \"NIL\")\n", EL3RST);
00580 fprintf (out, "(cl:setf (get 'EL3RST 'errno) t)\n");
00581 #else
00582 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EL3RST (unknown to the C compiler).\")\n");
00583 #endif
00584 fprintf (out, "(cl:export 'EL3RST)\n");
00585 #ifdef ELNRNG
00586 fprintf (out, "(cl:defconstant ELNRNG %d \"NIL\")\n", ELNRNG);
00587 fprintf (out, "(cl:setf (get 'ELNRNG 'errno) t)\n");
00588 #else
00589 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELNRNG (unknown to the C compiler).\")\n");
00590 #endif
00591 fprintf (out, "(cl:export 'ELNRNG)\n");
00592 #ifdef EUNATCH
00593 fprintf (out, "(cl:defconstant EUNATCH %d \"NIL\")\n", EUNATCH);
00594 fprintf (out, "(cl:setf (get 'EUNATCH 'errno) t)\n");
00595 #else
00596 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EUNATCH (unknown to the C compiler).\")\n");
00597 #endif
00598 fprintf (out, "(cl:export 'EUNATCH)\n");
00599 #ifdef ENOCSI
00600 fprintf (out, "(cl:defconstant ENOCSI %d \"NIL\")\n", ENOCSI);
00601 fprintf (out, "(cl:setf (get 'ENOCSI 'errno) t)\n");
00602 #else
00603 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOCSI (unknown to the C compiler).\")\n");
00604 #endif
00605 fprintf (out, "(cl:export 'ENOCSI)\n");
00606 #ifdef EL2HLT
00607 fprintf (out, "(cl:defconstant EL2HLT %d \"NIL\")\n", EL2HLT);
00608 fprintf (out, "(cl:setf (get 'EL2HLT 'errno) t)\n");
00609 #else
00610 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EL2HLT (unknown to the C compiler).\")\n");
00611 #endif
00612 fprintf (out, "(cl:export 'EL2HLT)\n");
00613 #ifdef EBADE
00614 fprintf (out, "(cl:defconstant EBADE %d \"NIL\")\n", EBADE);
00615 fprintf (out, "(cl:setf (get 'EBADE 'errno) t)\n");
00616 #else
00617 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADE (unknown to the C compiler).\")\n");
00618 #endif
00619 fprintf (out, "(cl:export 'EBADE)\n");
00620 #ifdef EBADR
00621 fprintf (out, "(cl:defconstant EBADR %d \"NIL\")\n", EBADR);
00622 fprintf (out, "(cl:setf (get 'EBADR 'errno) t)\n");
00623 #else
00624 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADR (unknown to the C compiler).\")\n");
00625 #endif
00626 fprintf (out, "(cl:export 'EBADR)\n");
00627 #ifdef EXFULL
00628 fprintf (out, "(cl:defconstant EXFULL %d \"NIL\")\n", EXFULL);
00629 fprintf (out, "(cl:setf (get 'EXFULL 'errno) t)\n");
00630 #else
00631 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EXFULL (unknown to the C compiler).\")\n");
00632 #endif
00633 fprintf (out, "(cl:export 'EXFULL)\n");
00634 #ifdef ENOANO
00635 fprintf (out, "(cl:defconstant ENOANO %d \"NIL\")\n", ENOANO);
00636 fprintf (out, "(cl:setf (get 'ENOANO 'errno) t)\n");
00637 #else
00638 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOANO (unknown to the C compiler).\")\n");
00639 #endif
00640 fprintf (out, "(cl:export 'ENOANO)\n");
00641 #ifdef EBADRQC
00642 fprintf (out, "(cl:defconstant EBADRQC %d \"NIL\")\n", EBADRQC);
00643 fprintf (out, "(cl:setf (get 'EBADRQC 'errno) t)\n");
00644 #else
00645 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADRQC (unknown to the C compiler).\")\n");
00646 #endif
00647 fprintf (out, "(cl:export 'EBADRQC)\n");
00648 #ifdef EBADSLT
00649 fprintf (out, "(cl:defconstant EBADSLT %d \"NIL\")\n", EBADSLT);
00650 fprintf (out, "(cl:setf (get 'EBADSLT 'errno) t)\n");
00651 #else
00652 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADSLT (unknown to the C compiler).\")\n");
00653 #endif
00654 fprintf (out, "(cl:export 'EBADSLT)\n");
00655 #ifdef EDEADLOCK
00656 fprintf (out, "(cl:defconstant EDEADLOCK %d \"NIL\")\n", EDEADLOCK);
00657 fprintf (out, "(cl:setf (get 'EDEADLOCK 'errno) t)\n");
00658 #else
00659 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EDEADLOCK (unknown to the C compiler).\")\n");
00660 #endif
00661 fprintf (out, "(cl:export 'EDEADLOCK)\n");
00662 #ifdef EBFONT
00663 fprintf (out, "(cl:defconstant EBFONT %d \"NIL\")\n", EBFONT);
00664 fprintf (out, "(cl:setf (get 'EBFONT 'errno) t)\n");
00665 #else
00666 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBFONT (unknown to the C compiler).\")\n");
00667 #endif
00668 fprintf (out, "(cl:export 'EBFONT)\n");
00669 #ifdef ENOSTR
00670 fprintf (out, "(cl:defconstant ENOSTR %d \"NIL\")\n", ENOSTR);
00671 fprintf (out, "(cl:setf (get 'ENOSTR 'errno) t)\n");
00672 #else
00673 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOSTR (unknown to the C compiler).\")\n");
00674 #endif
00675 fprintf (out, "(cl:export 'ENOSTR)\n");
00676 #ifdef ENODATA
00677 fprintf (out, "(cl:defconstant ENODATA %d \"NIL\")\n", ENODATA);
00678 fprintf (out, "(cl:setf (get 'ENODATA 'errno) t)\n");
00679 #else
00680 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENODATA (unknown to the C compiler).\")\n");
00681 #endif
00682 fprintf (out, "(cl:export 'ENODATA)\n");
00683 #ifdef ETIME
00684 fprintf (out, "(cl:defconstant ETIME %d \"NIL\")\n", ETIME);
00685 fprintf (out, "(cl:setf (get 'ETIME 'errno) t)\n");
00686 #else
00687 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ETIME (unknown to the C compiler).\")\n");
00688 #endif
00689 fprintf (out, "(cl:export 'ETIME)\n");
00690 #ifdef ENOSR
00691 fprintf (out, "(cl:defconstant ENOSR %d \"NIL\")\n", ENOSR);
00692 fprintf (out, "(cl:setf (get 'ENOSR 'errno) t)\n");
00693 #else
00694 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOSR (unknown to the C compiler).\")\n");
00695 #endif
00696 fprintf (out, "(cl:export 'ENOSR)\n");
00697 #ifdef ENONET
00698 fprintf (out, "(cl:defconstant ENONET %d \"NIL\")\n", ENONET);
00699 fprintf (out, "(cl:setf (get 'ENONET 'errno) t)\n");
00700 #else
00701 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENONET (unknown to the C compiler).\")\n");
00702 #endif
00703 fprintf (out, "(cl:export 'ENONET)\n");
00704 #ifdef ENOPKG
00705 fprintf (out, "(cl:defconstant ENOPKG %d \"NIL\")\n", ENOPKG);
00706 fprintf (out, "(cl:setf (get 'ENOPKG 'errno) t)\n");
00707 #else
00708 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOPKG (unknown to the C compiler).\")\n");
00709 #endif
00710 fprintf (out, "(cl:export 'ENOPKG)\n");
00711 #ifdef EREMOTE
00712 fprintf (out, "(cl:defconstant EREMOTE %d \"NIL\")\n", EREMOTE);
00713 fprintf (out, "(cl:setf (get 'EREMOTE 'errno) t)\n");
00714 #else
00715 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EREMOTE (unknown to the C compiler).\")\n");
00716 #endif
00717 fprintf (out, "(cl:export 'EREMOTE)\n");
00718 #ifdef ENOLINK
00719 fprintf (out, "(cl:defconstant ENOLINK %d \"NIL\")\n", ENOLINK);
00720 fprintf (out, "(cl:setf (get 'ENOLINK 'errno) t)\n");
00721 #else
00722 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOLINK (unknown to the C compiler).\")\n");
00723 #endif
00724 fprintf (out, "(cl:export 'ENOLINK)\n");
00725 #ifdef EADV
00726 fprintf (out, "(cl:defconstant EADV %d \"NIL\")\n", EADV);
00727 fprintf (out, "(cl:setf (get 'EADV 'errno) t)\n");
00728 #else
00729 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EADV (unknown to the C compiler).\")\n");
00730 #endif
00731 fprintf (out, "(cl:export 'EADV)\n");
00732 #ifdef ESRMNT
00733 fprintf (out, "(cl:defconstant ESRMNT %d \"NIL\")\n", ESRMNT);
00734 fprintf (out, "(cl:setf (get 'ESRMNT 'errno) t)\n");
00735 #else
00736 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESRMNT (unknown to the C compiler).\")\n");
00737 #endif
00738 fprintf (out, "(cl:export 'ESRMNT)\n");
00739 #ifdef ECOMM
00740 fprintf (out, "(cl:defconstant ECOMM %d \"NIL\")\n", ECOMM);
00741 fprintf (out, "(cl:setf (get 'ECOMM 'errno) t)\n");
00742 #else
00743 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECOMM (unknown to the C compiler).\")\n");
00744 #endif
00745 fprintf (out, "(cl:export 'ECOMM)\n");
00746 #ifdef EPROTO
00747 fprintf (out, "(cl:defconstant EPROTO %d \"NIL\")\n", EPROTO);
00748 fprintf (out, "(cl:setf (get 'EPROTO 'errno) t)\n");
00749 #else
00750 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EPROTO (unknown to the C compiler).\")\n");
00751 #endif
00752 fprintf (out, "(cl:export 'EPROTO)\n");
00753 #ifdef EMULTIHOP
00754 fprintf (out, "(cl:defconstant EMULTIHOP %d \"NIL\")\n", EMULTIHOP);
00755 fprintf (out, "(cl:setf (get 'EMULTIHOP 'errno) t)\n");
00756 #else
00757 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EMULTIHOP (unknown to the C compiler).\")\n");
00758 #endif
00759 fprintf (out, "(cl:export 'EMULTIHOP)\n");
00760 #ifdef EDOTDOT
00761 fprintf (out, "(cl:defconstant EDOTDOT %d \"NIL\")\n", EDOTDOT);
00762 fprintf (out, "(cl:setf (get 'EDOTDOT 'errno) t)\n");
00763 #else
00764 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EDOTDOT (unknown to the C compiler).\")\n");
00765 #endif
00766 fprintf (out, "(cl:export 'EDOTDOT)\n");
00767 #ifdef EBADMSG
00768 fprintf (out, "(cl:defconstant EBADMSG %d \"NIL\")\n", EBADMSG);
00769 fprintf (out, "(cl:setf (get 'EBADMSG 'errno) t)\n");
00770 #else
00771 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADMSG (unknown to the C compiler).\")\n");
00772 #endif
00773 fprintf (out, "(cl:export 'EBADMSG)\n");
00774 #ifdef EOVERFLOW
00775 fprintf (out, "(cl:defconstant EOVERFLOW %d \"NIL\")\n", EOVERFLOW);
00776 fprintf (out, "(cl:setf (get 'EOVERFLOW 'errno) t)\n");
00777 #else
00778 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EOVERFLOW (unknown to the C compiler).\")\n");
00779 #endif
00780 fprintf (out, "(cl:export 'EOVERFLOW)\n");
00781 #ifdef ENOTUNIQ
00782 fprintf (out, "(cl:defconstant ENOTUNIQ %d \"NIL\")\n", ENOTUNIQ);
00783 fprintf (out, "(cl:setf (get 'ENOTUNIQ 'errno) t)\n");
00784 #else
00785 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTUNIQ (unknown to the C compiler).\")\n");
00786 #endif
00787 fprintf (out, "(cl:export 'ENOTUNIQ)\n");
00788 #ifdef EBADFD
00789 fprintf (out, "(cl:defconstant EBADFD %d \"NIL\")\n", EBADFD);
00790 fprintf (out, "(cl:setf (get 'EBADFD 'errno) t)\n");
00791 #else
00792 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EBADFD (unknown to the C compiler).\")\n");
00793 #endif
00794 fprintf (out, "(cl:export 'EBADFD)\n");
00795 #ifdef EREMCHG
00796 fprintf (out, "(cl:defconstant EREMCHG %d \"NIL\")\n", EREMCHG);
00797 fprintf (out, "(cl:setf (get 'EREMCHG 'errno) t)\n");
00798 #else
00799 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EREMCHG (unknown to the C compiler).\")\n");
00800 #endif
00801 fprintf (out, "(cl:export 'EREMCHG)\n");
00802 #ifdef ELIBACC
00803 fprintf (out, "(cl:defconstant ELIBACC %d \"NIL\")\n", ELIBACC);
00804 fprintf (out, "(cl:setf (get 'ELIBACC 'errno) t)\n");
00805 #else
00806 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELIBACC (unknown to the C compiler).\")\n");
00807 #endif
00808 fprintf (out, "(cl:export 'ELIBACC)\n");
00809 #ifdef ELIBBAD
00810 fprintf (out, "(cl:defconstant ELIBBAD %d \"NIL\")\n", ELIBBAD);
00811 fprintf (out, "(cl:setf (get 'ELIBBAD 'errno) t)\n");
00812 #else
00813 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELIBBAD (unknown to the C compiler).\")\n");
00814 #endif
00815 fprintf (out, "(cl:export 'ELIBBAD)\n");
00816 #ifdef ELIBSCN
00817 fprintf (out, "(cl:defconstant ELIBSCN %d \"NIL\")\n", ELIBSCN);
00818 fprintf (out, "(cl:setf (get 'ELIBSCN 'errno) t)\n");
00819 #else
00820 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELIBSCN (unknown to the C compiler).\")\n");
00821 #endif
00822 fprintf (out, "(cl:export 'ELIBSCN)\n");
00823 #ifdef ELIBMAX
00824 fprintf (out, "(cl:defconstant ELIBMAX %d \"NIL\")\n", ELIBMAX);
00825 fprintf (out, "(cl:setf (get 'ELIBMAX 'errno) t)\n");
00826 #else
00827 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELIBMAX (unknown to the C compiler).\")\n");
00828 #endif
00829 fprintf (out, "(cl:export 'ELIBMAX)\n");
00830 #ifdef ELIBEXEC
00831 fprintf (out, "(cl:defconstant ELIBEXEC %d \"NIL\")\n", ELIBEXEC);
00832 fprintf (out, "(cl:setf (get 'ELIBEXEC 'errno) t)\n");
00833 #else
00834 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ELIBEXEC (unknown to the C compiler).\")\n");
00835 #endif
00836 fprintf (out, "(cl:export 'ELIBEXEC)\n");
00837 #ifdef EILSEQ
00838 fprintf (out, "(cl:defconstant EILSEQ %d \"NIL\")\n", EILSEQ);
00839 fprintf (out, "(cl:setf (get 'EILSEQ 'errno) t)\n");
00840 #else
00841 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EILSEQ (unknown to the C compiler).\")\n");
00842 #endif
00843 fprintf (out, "(cl:export 'EILSEQ)\n");
00844 #ifdef ERESTART
00845 fprintf (out, "(cl:defconstant ERESTART %d \"NIL\")\n", ERESTART);
00846 fprintf (out, "(cl:setf (get 'ERESTART 'errno) t)\n");
00847 #else
00848 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ERESTART (unknown to the C compiler).\")\n");
00849 #endif
00850 fprintf (out, "(cl:export 'ERESTART)\n");
00851 #ifdef ESTRPIPE
00852 fprintf (out, "(cl:defconstant ESTRPIPE %d \"NIL\")\n", ESTRPIPE);
00853 fprintf (out, "(cl:setf (get 'ESTRPIPE 'errno) t)\n");
00854 #else
00855 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESTRPIPE (unknown to the C compiler).\")\n");
00856 #endif
00857 fprintf (out, "(cl:export 'ESTRPIPE)\n");
00858 #ifdef EUSERS
00859 fprintf (out, "(cl:defconstant EUSERS %d \"NIL\")\n", EUSERS);
00860 fprintf (out, "(cl:setf (get 'EUSERS 'errno) t)\n");
00861 #else
00862 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EUSERS (unknown to the C compiler).\")\n");
00863 #endif
00864 fprintf (out, "(cl:export 'EUSERS)\n");
00865 #ifdef ENOTSOCK
00866 fprintf (out, "(cl:defconstant ENOTSOCK %d \"NIL\")\n", ENOTSOCK);
00867 fprintf (out, "(cl:setf (get 'ENOTSOCK 'errno) t)\n");
00868 #else
00869 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTSOCK (unknown to the C compiler).\")\n");
00870 #endif
00871 fprintf (out, "(cl:export 'ENOTSOCK)\n");
00872 #ifdef EDESTADDRREQ
00873 fprintf (out, "(cl:defconstant EDESTADDRREQ %d \"NIL\")\n", EDESTADDRREQ);
00874 fprintf (out, "(cl:setf (get 'EDESTADDRREQ 'errno) t)\n");
00875 #else
00876 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EDESTADDRREQ (unknown to the C compiler).\")\n");
00877 #endif
00878 fprintf (out, "(cl:export 'EDESTADDRREQ)\n");
00879 #ifdef EMSGSIZE
00880 fprintf (out, "(cl:defconstant EMSGSIZE %d \"NIL\")\n", EMSGSIZE);
00881 fprintf (out, "(cl:setf (get 'EMSGSIZE 'errno) t)\n");
00882 #else
00883 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EMSGSIZE (unknown to the C compiler).\")\n");
00884 #endif
00885 fprintf (out, "(cl:export 'EMSGSIZE)\n");
00886 #ifdef EPROTOTYPE
00887 fprintf (out, "(cl:defconstant EPROTOTYPE %d \"NIL\")\n", EPROTOTYPE);
00888 fprintf (out, "(cl:setf (get 'EPROTOTYPE 'errno) t)\n");
00889 #else
00890 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EPROTOTYPE (unknown to the C compiler).\")\n");
00891 #endif
00892 fprintf (out, "(cl:export 'EPROTOTYPE)\n");
00893 #ifdef ENOPROTOOPT
00894 fprintf (out, "(cl:defconstant ENOPROTOOPT %d \"NIL\")\n", ENOPROTOOPT);
00895 fprintf (out, "(cl:setf (get 'ENOPROTOOPT 'errno) t)\n");
00896 #else
00897 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOPROTOOPT (unknown to the C compiler).\")\n");
00898 #endif
00899 fprintf (out, "(cl:export 'ENOPROTOOPT)\n");
00900 #ifdef EPROTONOSUPPORT
00901 fprintf (out, "(cl:defconstant EPROTONOSUPPORT %d \"NIL\")\n", EPROTONOSUPPORT);
00902 fprintf (out, "(cl:setf (get 'EPROTONOSUPPORT 'errno) t)\n");
00903 #else
00904 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EPROTONOSUPPORT (unknown to the C compiler).\")\n");
00905 #endif
00906 fprintf (out, "(cl:export 'EPROTONOSUPPORT)\n");
00907 #ifdef ESOCKTNOSUPPORT
00908 fprintf (out, "(cl:defconstant ESOCKTNOSUPPORT %d \"NIL\")\n", ESOCKTNOSUPPORT);
00909 fprintf (out, "(cl:setf (get 'ESOCKTNOSUPPORT 'errno) t)\n");
00910 #else
00911 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESOCKTNOSUPPORT (unknown to the C compiler).\")\n");
00912 #endif
00913 fprintf (out, "(cl:export 'ESOCKTNOSUPPORT)\n");
00914 #ifdef EOPNOTSUPP
00915 fprintf (out, "(cl:defconstant EOPNOTSUPP %d \"NIL\")\n", EOPNOTSUPP);
00916 fprintf (out, "(cl:setf (get 'EOPNOTSUPP 'errno) t)\n");
00917 #else
00918 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EOPNOTSUPP (unknown to the C compiler).\")\n");
00919 #endif
00920 fprintf (out, "(cl:export 'EOPNOTSUPP)\n");
00921 #ifdef EPFNOSUPPORT
00922 fprintf (out, "(cl:defconstant EPFNOSUPPORT %d \"NIL\")\n", EPFNOSUPPORT);
00923 fprintf (out, "(cl:setf (get 'EPFNOSUPPORT 'errno) t)\n");
00924 #else
00925 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EPFNOSUPPORT (unknown to the C compiler).\")\n");
00926 #endif
00927 fprintf (out, "(cl:export 'EPFNOSUPPORT)\n");
00928 #ifdef EAFNOSUPPORT
00929 fprintf (out, "(cl:defconstant EAFNOSUPPORT %d \"NIL\")\n", EAFNOSUPPORT);
00930 fprintf (out, "(cl:setf (get 'EAFNOSUPPORT 'errno) t)\n");
00931 #else
00932 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EAFNOSUPPORT (unknown to the C compiler).\")\n");
00933 #endif
00934 fprintf (out, "(cl:export 'EAFNOSUPPORT)\n");
00935 #ifdef EADDRINUSE
00936 fprintf (out, "(cl:defconstant EADDRINUSE %d \"NIL\")\n", EADDRINUSE);
00937 fprintf (out, "(cl:setf (get 'EADDRINUSE 'errno) t)\n");
00938 #else
00939 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EADDRINUSE (unknown to the C compiler).\")\n");
00940 #endif
00941 fprintf (out, "(cl:export 'EADDRINUSE)\n");
00942 #ifdef EADDRNOTAVAIL
00943 fprintf (out, "(cl:defconstant EADDRNOTAVAIL %d \"NIL\")\n", EADDRNOTAVAIL);
00944 fprintf (out, "(cl:setf (get 'EADDRNOTAVAIL 'errno) t)\n");
00945 #else
00946 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EADDRNOTAVAIL (unknown to the C compiler).\")\n");
00947 #endif
00948 fprintf (out, "(cl:export 'EADDRNOTAVAIL)\n");
00949 #ifdef ENETDOWN
00950 fprintf (out, "(cl:defconstant ENETDOWN %d \"NIL\")\n", ENETDOWN);
00951 fprintf (out, "(cl:setf (get 'ENETDOWN 'errno) t)\n");
00952 #else
00953 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENETDOWN (unknown to the C compiler).\")\n");
00954 #endif
00955 fprintf (out, "(cl:export 'ENETDOWN)\n");
00956 #ifdef ENETUNREACH
00957 fprintf (out, "(cl:defconstant ENETUNREACH %d \"NIL\")\n", ENETUNREACH);
00958 fprintf (out, "(cl:setf (get 'ENETUNREACH 'errno) t)\n");
00959 #else
00960 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENETUNREACH (unknown to the C compiler).\")\n");
00961 #endif
00962 fprintf (out, "(cl:export 'ENETUNREACH)\n");
00963 #ifdef ENETRESET
00964 fprintf (out, "(cl:defconstant ENETRESET %d \"NIL\")\n", ENETRESET);
00965 fprintf (out, "(cl:setf (get 'ENETRESET 'errno) t)\n");
00966 #else
00967 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENETRESET (unknown to the C compiler).\")\n");
00968 #endif
00969 fprintf (out, "(cl:export 'ENETRESET)\n");
00970 #ifdef ECONNABORTED
00971 fprintf (out, "(cl:defconstant ECONNABORTED %d \"NIL\")\n", ECONNABORTED);
00972 fprintf (out, "(cl:setf (get 'ECONNABORTED 'errno) t)\n");
00973 #else
00974 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECONNABORTED (unknown to the C compiler).\")\n");
00975 #endif
00976 fprintf (out, "(cl:export 'ECONNABORTED)\n");
00977 #ifdef ECONNRESET
00978 fprintf (out, "(cl:defconstant ECONNRESET %d \"NIL\")\n", ECONNRESET);
00979 fprintf (out, "(cl:setf (get 'ECONNRESET 'errno) t)\n");
00980 #else
00981 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECONNRESET (unknown to the C compiler).\")\n");
00982 #endif
00983 fprintf (out, "(cl:export 'ECONNRESET)\n");
00984 #ifdef ENOBUFS
00985 fprintf (out, "(cl:defconstant ENOBUFS %d \"NIL\")\n", ENOBUFS);
00986 fprintf (out, "(cl:setf (get 'ENOBUFS 'errno) t)\n");
00987 #else
00988 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOBUFS (unknown to the C compiler).\")\n");
00989 #endif
00990 fprintf (out, "(cl:export 'ENOBUFS)\n");
00991 #ifdef EISCONN
00992 fprintf (out, "(cl:defconstant EISCONN %d \"NIL\")\n", EISCONN);
00993 fprintf (out, "(cl:setf (get 'EISCONN 'errno) t)\n");
00994 #else
00995 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EISCONN (unknown to the C compiler).\")\n");
00996 #endif
00997 fprintf (out, "(cl:export 'EISCONN)\n");
00998 #ifdef ENOTCONN
00999 fprintf (out, "(cl:defconstant ENOTCONN %d \"NIL\")\n", ENOTCONN);
01000 fprintf (out, "(cl:setf (get 'ENOTCONN 'errno) t)\n");
01001 #else
01002 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTCONN (unknown to the C compiler).\")\n");
01003 #endif
01004 fprintf (out, "(cl:export 'ENOTCONN)\n");
01005 #ifdef ESHUTDOWN
01006 fprintf (out, "(cl:defconstant ESHUTDOWN %d \"NIL\")\n", ESHUTDOWN);
01007 fprintf (out, "(cl:setf (get 'ESHUTDOWN 'errno) t)\n");
01008 #else
01009 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESHUTDOWN (unknown to the C compiler).\")\n");
01010 #endif
01011 fprintf (out, "(cl:export 'ESHUTDOWN)\n");
01012 #ifdef ETOOMANYREFS
01013 fprintf (out, "(cl:defconstant ETOOMANYREFS %d \"NIL\")\n", ETOOMANYREFS);
01014 fprintf (out, "(cl:setf (get 'ETOOMANYREFS 'errno) t)\n");
01015 #else
01016 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ETOOMANYREFS (unknown to the C compiler).\")\n");
01017 #endif
01018 fprintf (out, "(cl:export 'ETOOMANYREFS)\n");
01019 #ifdef ETIMEDOUT
01020 fprintf (out, "(cl:defconstant ETIMEDOUT %d \"NIL\")\n", ETIMEDOUT);
01021 fprintf (out, "(cl:setf (get 'ETIMEDOUT 'errno) t)\n");
01022 #else
01023 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ETIMEDOUT (unknown to the C compiler).\")\n");
01024 #endif
01025 fprintf (out, "(cl:export 'ETIMEDOUT)\n");
01026 #ifdef ECONNREFUSED
01027 fprintf (out, "(cl:defconstant ECONNREFUSED %d \"NIL\")\n", ECONNREFUSED);
01028 fprintf (out, "(cl:setf (get 'ECONNREFUSED 'errno) t)\n");
01029 #else
01030 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECONNREFUSED (unknown to the C compiler).\")\n");
01031 #endif
01032 fprintf (out, "(cl:export 'ECONNREFUSED)\n");
01033 #ifdef EHOSTDOWN
01034 fprintf (out, "(cl:defconstant EHOSTDOWN %d \"NIL\")\n", EHOSTDOWN);
01035 fprintf (out, "(cl:setf (get 'EHOSTDOWN 'errno) t)\n");
01036 #else
01037 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EHOSTDOWN (unknown to the C compiler).\")\n");
01038 #endif
01039 fprintf (out, "(cl:export 'EHOSTDOWN)\n");
01040 #ifdef EHOSTUNREACH
01041 fprintf (out, "(cl:defconstant EHOSTUNREACH %d \"NIL\")\n", EHOSTUNREACH);
01042 fprintf (out, "(cl:setf (get 'EHOSTUNREACH 'errno) t)\n");
01043 #else
01044 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EHOSTUNREACH (unknown to the C compiler).\")\n");
01045 #endif
01046 fprintf (out, "(cl:export 'EHOSTUNREACH)\n");
01047 #ifdef EALREADY
01048 fprintf (out, "(cl:defconstant EALREADY %d \"NIL\")\n", EALREADY);
01049 fprintf (out, "(cl:setf (get 'EALREADY 'errno) t)\n");
01050 #else
01051 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EALREADY (unknown to the C compiler).\")\n");
01052 #endif
01053 fprintf (out, "(cl:export 'EALREADY)\n");
01054 #ifdef EINPROGRESS
01055 fprintf (out, "(cl:defconstant EINPROGRESS %d \"NIL\")\n", EINPROGRESS);
01056 fprintf (out, "(cl:setf (get 'EINPROGRESS 'errno) t)\n");
01057 #else
01058 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EINPROGRESS (unknown to the C compiler).\")\n");
01059 #endif
01060 fprintf (out, "(cl:export 'EINPROGRESS)\n");
01061 #ifdef ESTALE
01062 fprintf (out, "(cl:defconstant ESTALE %d \"NIL\")\n", ESTALE);
01063 fprintf (out, "(cl:setf (get 'ESTALE 'errno) t)\n");
01064 #else
01065 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ESTALE (unknown to the C compiler).\")\n");
01066 #endif
01067 fprintf (out, "(cl:export 'ESTALE)\n");
01068 #ifdef EUCLEAN
01069 fprintf (out, "(cl:defconstant EUCLEAN %d \"NIL\")\n", EUCLEAN);
01070 fprintf (out, "(cl:setf (get 'EUCLEAN 'errno) t)\n");
01071 #else
01072 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EUCLEAN (unknown to the C compiler).\")\n");
01073 #endif
01074 fprintf (out, "(cl:export 'EUCLEAN)\n");
01075 #ifdef ENOTNAM
01076 fprintf (out, "(cl:defconstant ENOTNAM %d \"NIL\")\n", ENOTNAM);
01077 fprintf (out, "(cl:setf (get 'ENOTNAM 'errno) t)\n");
01078 #else
01079 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOTNAM (unknown to the C compiler).\")\n");
01080 #endif
01081 fprintf (out, "(cl:export 'ENOTNAM)\n");
01082 #ifdef ENAVAIL
01083 fprintf (out, "(cl:defconstant ENAVAIL %d \"NIL\")\n", ENAVAIL);
01084 fprintf (out, "(cl:setf (get 'ENAVAIL 'errno) t)\n");
01085 #else
01086 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENAVAIL (unknown to the C compiler).\")\n");
01087 #endif
01088 fprintf (out, "(cl:export 'ENAVAIL)\n");
01089 #ifdef EREMOTEIO
01090 fprintf (out, "(cl:defconstant EREMOTEIO %d \"NIL\")\n", EREMOTEIO);
01091 fprintf (out, "(cl:setf (get 'EREMOTEIO 'errno) t)\n");
01092 #else
01093 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EREMOTEIO (unknown to the C compiler).\")\n");
01094 #endif
01095 fprintf (out, "(cl:export 'EREMOTEIO)\n");
01096 #ifdef EDQUOT
01097 fprintf (out, "(cl:defconstant EDQUOT %d \"NIL\")\n", EDQUOT);
01098 fprintf (out, "(cl:setf (get 'EDQUOT 'errno) t)\n");
01099 #else
01100 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EDQUOT (unknown to the C compiler).\")\n");
01101 #endif
01102 fprintf (out, "(cl:export 'EDQUOT)\n");
01103 #ifdef ENOMEDIUM
01104 fprintf (out, "(cl:defconstant ENOMEDIUM %d \"NIL\")\n", ENOMEDIUM);
01105 fprintf (out, "(cl:setf (get 'ENOMEDIUM 'errno) t)\n");
01106 #else
01107 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ENOMEDIUM (unknown to the C compiler).\")\n");
01108 #endif
01109 fprintf (out, "(cl:export 'ENOMEDIUM)\n");
01110 #ifdef EMEDIUMTYPE
01111 fprintf (out, "(cl:defconstant EMEDIUMTYPE %d \"NIL\")\n", EMEDIUMTYPE);
01112 fprintf (out, "(cl:setf (get 'EMEDIUMTYPE 'errno) t)\n");
01113 #else
01114 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).\")\n");
01115 #endif
01116 fprintf (out, "(cl:export 'EMEDIUMTYPE)\n");
01117 #ifdef WNOHANG
01118 fprintf (out, "(cl:defconstant WNOHANG %d \"NIL\")\n", WNOHANG);
01119 #else
01120 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for WNOHANG (unknown to the C compiler).\")\n");
01121 #endif
01122 #ifdef WUNTRACED
01123 fprintf (out, "(cl:defconstant WUNTRACED %d \"NIL\")\n", WUNTRACED);
01124 #else
01125 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for WUNTRACED (unknown to the C compiler).\")\n");
01126 #endif
01127 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type MODE-T (sb-alien:%ssigned %d)))\n", SIGNED_(mode_t), (8*sizeof(mode_t)));
01128 #ifdef S_IFMT
01129 fprintf (out, "(cl:defconstant S-IFMT %d \"NIL\")\n", S_IFMT);
01130 #else
01131 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFMT (unknown to the C compiler).\")\n");
01132 #endif
01133 fprintf (out, "(cl:export 'S-IFMT)\n");
01134 #ifdef S_IFIFO
01135 fprintf (out, "(cl:defconstant S-IFIFO %d \"NIL\")\n", S_IFIFO);
01136 #else
01137 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFIFO (unknown to the C compiler).\")\n");
01138 #endif
01139 fprintf (out, "(cl:export 'S-IFIFO)\n");
01140 #ifdef S_IFCHR
01141 fprintf (out, "(cl:defconstant S-IFCHR %d \"NIL\")\n", S_IFCHR);
01142 #else
01143 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFCHR (unknown to the C compiler).\")\n");
01144 #endif
01145 fprintf (out, "(cl:export 'S-IFCHR)\n");
01146 #ifdef S_IFDIR
01147 fprintf (out, "(cl:defconstant S-IFDIR %d \"NIL\")\n", S_IFDIR);
01148 #else
01149 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFDIR (unknown to the C compiler).\")\n");
01150 #endif
01151 fprintf (out, "(cl:export 'S-IFDIR)\n");
01152 #ifdef S_IFBLK
01153 fprintf (out, "(cl:defconstant S-IFBLK %d \"NIL\")\n", S_IFBLK);
01154 #else
01155 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFBLK (unknown to the C compiler).\")\n");
01156 #endif
01157 fprintf (out, "(cl:export 'S-IFBLK)\n");
01158 #ifdef S_IFREG
01159 fprintf (out, "(cl:defconstant S-IFREG %d \"NIL\")\n", S_IFREG);
01160 #else
01161 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFREG (unknown to the C compiler).\")\n");
01162 #endif
01163 fprintf (out, "(cl:export 'S-IFREG)\n");
01164 #ifdef S_IFLNK
01165 fprintf (out, "(cl:defconstant S-IFLNK %d \"NIL\")\n", S_IFLNK);
01166 #else
01167 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFLNK (unknown to the C compiler).\")\n");
01168 #endif
01169 fprintf (out, "(cl:export 'S-IFLNK)\n");
01170 #ifdef S_IFSOCK
01171 fprintf (out, "(cl:defconstant S-IFSOCK %d \"NIL\")\n", S_IFSOCK);
01172 #else
01173 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFSOCK (unknown to the C compiler).\")\n");
01174 #endif
01175 fprintf (out, "(cl:export 'S-IFSOCK)\n");
01176 #ifdef S_IFWHT
01177 fprintf (out, "(cl:defconstant S-IFWHT %d \"NIL\")\n", S_IFWHT);
01178 #else
01179 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IFWHT (unknown to the C compiler).\")\n");
01180 #endif
01181 fprintf (out, "(cl:export 'S-IFWHT)\n");
01182 #ifdef S_ISUID
01183 fprintf (out, "(cl:defconstant S-ISUID %d \"NIL\")\n", S_ISUID);
01184 #else
01185 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_ISUID (unknown to the C compiler).\")\n");
01186 #endif
01187 fprintf (out, "(cl:export 'S-ISUID)\n");
01188 #ifdef S_ISGID
01189 fprintf (out, "(cl:defconstant S-ISGID %d \"NIL\")\n", S_ISGID);
01190 #else
01191 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_ISGID (unknown to the C compiler).\")\n");
01192 #endif
01193 fprintf (out, "(cl:export 'S-ISGID)\n");
01194 #ifdef S_ISVTX
01195 fprintf (out, "(cl:defconstant S-ISVTX %d \"NIL\")\n", S_ISVTX);
01196 #else
01197 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_ISVTX (unknown to the C compiler).\")\n");
01198 #endif
01199 fprintf (out, "(cl:export 'S-ISVTX)\n");
01200 #ifdef S_IRUSR
01201 fprintf (out, "(cl:defconstant S-IRUSR %d \"NIL\")\n", S_IRUSR);
01202 #else
01203 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IRUSR (unknown to the C compiler).\")\n");
01204 #endif
01205 fprintf (out, "(cl:export 'S-IRUSR)\n");
01206 #ifdef S_IWUSR
01207 fprintf (out, "(cl:defconstant S-IWUSR %d \"NIL\")\n", S_IWUSR);
01208 #else
01209 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IWUSR (unknown to the C compiler).\")\n");
01210 #endif
01211 fprintf (out, "(cl:export 'S-IWUSR)\n");
01212 #ifdef S_IXUSR
01213 fprintf (out, "(cl:defconstant S-IXUSR %d \"NIL\")\n", S_IXUSR);
01214 #else
01215 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IXUSR (unknown to the C compiler).\")\n");
01216 #endif
01217 fprintf (out, "(cl:export 'S-IXUSR)\n");
01218 #ifdef S_IRUSR
01219 fprintf (out, "(cl:defconstant S-IREAD %d \"NIL\")\n", S_IRUSR);
01220 #else
01221 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IRUSR (unknown to the C compiler).\")\n");
01222 #endif
01223 fprintf (out, "(cl:export 'S-IREAD)\n");
01224 #ifdef S_IWUSR
01225 fprintf (out, "(cl:defconstant S-IWRITE %d \"NIL\")\n", S_IWUSR);
01226 #else
01227 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IWUSR (unknown to the C compiler).\")\n");
01228 #endif
01229 fprintf (out, "(cl:export 'S-IWRITE)\n");
01230 #ifdef S_IXUSR
01231 fprintf (out, "(cl:defconstant S-IEXEC %d \"NIL\")\n", S_IXUSR);
01232 #else
01233 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IXUSR (unknown to the C compiler).\")\n");
01234 #endif
01235 fprintf (out, "(cl:export 'S-IEXEC)\n");
01236 #ifdef S_IRGRP
01237 fprintf (out, "(cl:defconstant S-IRGRP %d \"NIL\")\n", S_IRGRP);
01238 #else
01239 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IRGRP (unknown to the C compiler).\")\n");
01240 #endif
01241 fprintf (out, "(cl:export 'S-IRGRP)\n");
01242 #ifdef S_IWGRP
01243 fprintf (out, "(cl:defconstant S-IWGRP %d \"NIL\")\n", S_IWGRP);
01244 #else
01245 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IWGRP (unknown to the C compiler).\")\n");
01246 #endif
01247 fprintf (out, "(cl:export 'S-IWGRP)\n");
01248 #ifdef S_IXGRP
01249 fprintf (out, "(cl:defconstant S-IXGRP %d \"NIL\")\n", S_IXGRP);
01250 #else
01251 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IXGRP (unknown to the C compiler).\")\n");
01252 #endif
01253 fprintf (out, "(cl:export 'S-IXGRP)\n");
01254 #ifdef S_IROTH
01255 fprintf (out, "(cl:defconstant S-IROTH %d \"NIL\")\n", S_IROTH);
01256 #else
01257 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IROTH (unknown to the C compiler).\")\n");
01258 #endif
01259 fprintf (out, "(cl:export 'S-IROTH)\n");
01260 #ifdef S_IWOTH
01261 fprintf (out, "(cl:defconstant S-IWOTH %d \"NIL\")\n", S_IWOTH);
01262 #else
01263 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IWOTH (unknown to the C compiler).\")\n");
01264 #endif
01265 fprintf (out, "(cl:export 'S-IWOTH)\n");
01266 #ifdef S_IXOTH
01267 fprintf (out, "(cl:defconstant S-IXOTH %d \"NIL\")\n", S_IXOTH);
01268 #else
01269 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for S_IXOTH (unknown to the C compiler).\")\n");
01270 #endif
01271 fprintf (out, "(cl:export 'S-IXOTH)\n");
01272 #ifdef R_OK
01273 fprintf (out, "(cl:defconstant R-OK %d \"NIL\")\n", R_OK);
01274 #else
01275 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for R_OK (unknown to the C compiler).\")\n");
01276 #endif
01277 fprintf (out, "(cl:export 'R-OK)\n");
01278 #ifdef W_OK
01279 fprintf (out, "(cl:defconstant W-OK %d \"NIL\")\n", W_OK);
01280 #else
01281 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for W_OK (unknown to the C compiler).\")\n");
01282 #endif
01283 fprintf (out, "(cl:export 'W-OK)\n");
01284 #ifdef X_OK
01285 fprintf (out, "(cl:defconstant X-OK %d \"NIL\")\n", X_OK);
01286 #else
01287 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for X_OK (unknown to the C compiler).\")\n");
01288 #endif
01289 fprintf (out, "(cl:export 'X-OK)\n");
01290 #ifdef F_OK
01291 fprintf (out, "(cl:defconstant F-OK %d \"NIL\")\n", F_OK);
01292 #else
01293 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_OK (unknown to the C compiler).\")\n");
01294 #endif
01295 fprintf (out, "(cl:export 'F-OK)\n");
01296 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type OFF-T (sb-alien:%ssigned %d)))\n", SIGNED_(off_t), (8*sizeof(off_t)));
01297 #ifdef PROT_NONE
01298 fprintf (out, "(cl:defconstant PROT-NONE %d \"mmap: no protection\")\n", PROT_NONE);
01299 #else
01300 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PROT_NONE (unknown to the C compiler).\")\n");
01301 #endif
01302 fprintf (out, "(cl:export 'PROT-NONE)\n");
01303 #ifdef PROT_READ
01304 fprintf (out, "(cl:defconstant PROT-READ %d \"mmap: read protection\")\n", PROT_READ);
01305 #else
01306 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PROT_READ (unknown to the C compiler).\")\n");
01307 #endif
01308 fprintf (out, "(cl:export 'PROT-READ)\n");
01309 #ifdef PROT_WRITE
01310 fprintf (out, "(cl:defconstant PROT-WRITE %d \"mmap: write protection\")\n", PROT_WRITE);
01311 #else
01312 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PROT_WRITE (unknown to the C compiler).\")\n");
01313 #endif
01314 fprintf (out, "(cl:export 'PROT-WRITE)\n");
01315 #ifdef PROT_EXEC
01316 fprintf (out, "(cl:defconstant PROT-EXEC %d \"mmap: execute protection\")\n", PROT_EXEC);
01317 #else
01318 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PROT_EXEC (unknown to the C compiler).\")\n");
01319 #endif
01320 fprintf (out, "(cl:export 'PROT-EXEC)\n");
01321 #ifdef MAP_SHARED
01322 fprintf (out, "(cl:defconstant MAP-SHARED %d \"mmap: shared memory\")\n", MAP_SHARED);
01323 #else
01324 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MAP_SHARED (unknown to the C compiler).\")\n");
01325 #endif
01326 fprintf (out, "(cl:export 'MAP-SHARED)\n");
01327 #ifdef MAP_PRIVATE
01328 fprintf (out, "(cl:defconstant MAP-PRIVATE %d \"mmap: private mapping\")\n", MAP_PRIVATE);
01329 #else
01330 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MAP_PRIVATE (unknown to the C compiler).\")\n");
01331 #endif
01332 fprintf (out, "(cl:export 'MAP-PRIVATE)\n");
01333 #ifdef MAP_FIXED
01334 fprintf (out, "(cl:defconstant MAP-FIXED %d \"mmap: map at given location\")\n", MAP_FIXED);
01335 #else
01336 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MAP_FIXED (unknown to the C compiler).\")\n");
01337 #endif
01338 fprintf (out, "(cl:export 'MAP-FIXED)\n");
01339 #ifdef MS_ASYNC
01340 fprintf (out, "(cl:defconstant MS-ASYNC %d \"msync: return immediately\")\n", MS_ASYNC);
01341 #else
01342 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MS_ASYNC (unknown to the C compiler).\")\n");
01343 #endif
01344 fprintf (out, "(cl:export 'MS-ASYNC)\n");
01345 #ifdef MS_SYNC
01346 fprintf (out, "(cl:defconstant MS-SYNC %d \"msync: perform synchronous writes\")\n", MS_SYNC);
01347 #else
01348 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MS_SYNC (unknown to the C compiler).\")\n");
01349 #endif
01350 fprintf (out, "(cl:export 'MS-SYNC)\n");
01351 #ifdef MS_INVALIDATE
01352 fprintf (out, "(cl:defconstant MS-INVALIDATE %d \"msync: invalidate all cached data\")\n", MS_INVALIDATE);
01353 #else
01354 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MS_INVALIDATE (unknown to the C compiler).\")\n");
01355 #endif
01356 fprintf (out, "(cl:export 'MS-INVALIDATE)\n");
01357 #ifdef MCL_CURRENT
01358 fprintf (out, "(cl:defconstant MCL-CURRENT %d \"mlockall: lock all pages which are currently mapped into the address space of the process.\")\n", MCL_CURRENT);
01359 #else
01360 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MCL_CURRENT (unknown to the C compiler).\")\n");
01361 #endif
01362 fprintf (out, "(cl:export 'MCL-CURRENT)\n");
01363 #ifdef MCL_FUTURE
01364 fprintf (out, "(cl:defconstant MCL-FUTURE %d \"mlockall: lock all pages which will become mapped into the address space of the process in the future.\")\n", MCL_FUTURE);
01365 #else
01366 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for MCL_FUTURE (unknown to the C compiler).\")\n");
01367 #endif
01368 fprintf (out, "(cl:export 'MCL-FUTURE)\n");
01369 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct DIRENT %d\n", sizeof(struct dirent64));
01370 fprintf (out, " (INO INO-T \"ino_t\"\n");
01371 { struct dirent64 t;
01372 fprintf (out, " %d\n", ((unsigned long)&(t.d_ino)) - ((unsigned long)&(t)));
01373 }
01374 { struct dirent64 t;
01375 fprintf (out, " %d)\n", sizeof(t.d_ino));
01376 }
01377 fprintf (out, " (NAME C-STRING \"char *\"\n");
01378 { struct dirent64 t;
01379 fprintf (out, " %d\n", ((unsigned long)&(t.d_name)) - ((unsigned long)&(t)));
01380 }
01381 { struct dirent64 t;
01382 fprintf (out, " %d)\n", sizeof(t.d_name));
01383 }
01384 fprintf (out, "))\n");
01385 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-PASSWD %d\n", sizeof(struct passwd));
01386 fprintf (out, " (NAME C-STRING-POINTER \"char *\"\n");
01387 { struct passwd t;
01388 fprintf (out, " %d\n", ((unsigned long)&(t.pw_name)) - ((unsigned long)&(t)));
01389 }
01390 { struct passwd t;
01391 fprintf (out, " %d)\n", sizeof(t.pw_name));
01392 }
01393 fprintf (out, " (PASSWD C-STRING-POINTER \"char *\"\n");
01394 { struct passwd t;
01395 fprintf (out, " %d\n", ((unsigned long)&(t.pw_passwd)) - ((unsigned long)&(t)));
01396 }
01397 { struct passwd t;
01398 fprintf (out, " %d)\n", sizeof(t.pw_passwd));
01399 }
01400 fprintf (out, " (UID UID-T \"uid_t\"\n");
01401 { struct passwd t;
01402 fprintf (out, " %d\n", ((unsigned long)&(t.pw_uid)) - ((unsigned long)&(t)));
01403 }
01404 { struct passwd t;
01405 fprintf (out, " %d)\n", sizeof(t.pw_uid));
01406 }
01407 fprintf (out, " (GID GID-T \"gid_t\"\n");
01408 { struct passwd t;
01409 fprintf (out, " %d\n", ((unsigned long)&(t.pw_gid)) - ((unsigned long)&(t)));
01410 }
01411 { struct passwd t;
01412 fprintf (out, " %d)\n", sizeof(t.pw_gid));
01413 }
01414 fprintf (out, " (GECOS C-STRING-POINTER \"char *\"\n");
01415 { struct passwd t;
01416 fprintf (out, " %d\n", ((unsigned long)&(t.pw_gecos)) - ((unsigned long)&(t)));
01417 }
01418 { struct passwd t;
01419 fprintf (out, " %d)\n", sizeof(t.pw_gecos));
01420 }
01421 fprintf (out, " (DIR C-STRING-POINTER \"char *\"\n");
01422 { struct passwd t;
01423 fprintf (out, " %d\n", ((unsigned long)&(t.pw_dir)) - ((unsigned long)&(t)));
01424 }
01425 { struct passwd t;
01426 fprintf (out, " %d)\n", sizeof(t.pw_dir));
01427 }
01428 fprintf (out, " (SHELL C-STRING-POINTER \"char *\"\n");
01429 { struct passwd t;
01430 fprintf (out, " %d\n", ((unsigned long)&(t.pw_shell)) - ((unsigned long)&(t)));
01431 }
01432 { struct passwd t;
01433 fprintf (out, " %d)\n", sizeof(t.pw_shell));
01434 }
01435 fprintf (out, "))\n");
01436 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-GROUP %d\n", sizeof(struct group));
01437 fprintf (out, " (NAME C-STRING-POINTER \"char *\"\n");
01438 { struct group t;
01439 fprintf (out, " %d\n", ((unsigned long)&(t.gr_name)) - ((unsigned long)&(t)));
01440 }
01441 { struct group t;
01442 fprintf (out, " %d)\n", sizeof(t.gr_name));
01443 }
01444 fprintf (out, " (PASSWD C-STRING-POINTER \"char *\"\n");
01445 { struct group t;
01446 fprintf (out, " %d\n", ((unsigned long)&(t.gr_passwd)) - ((unsigned long)&(t)));
01447 }
01448 { struct group t;
01449 fprintf (out, " %d)\n", sizeof(t.gr_passwd));
01450 }
01451 fprintf (out, " (GID GID-T \"gid_t\"\n");
01452 { struct group t;
01453 fprintf (out, " %d\n", ((unsigned long)&(t.gr_gid)) - ((unsigned long)&(t)));
01454 }
01455 { struct group t;
01456 fprintf (out, " %d)\n", sizeof(t.gr_gid));
01457 }
01458 fprintf (out, "))\n");
01459 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-STAT %d\n", sizeof(struct stat));
01460 fprintf (out, " (MODE MODE-T \"mode_t\"\n");
01461 { struct stat t;
01462 fprintf (out, " %d\n", ((unsigned long)&(t.st_mode)) - ((unsigned long)&(t)));
01463 }
01464 { struct stat t;
01465 fprintf (out, " %d)\n", sizeof(t.st_mode));
01466 }
01467 fprintf (out, " (INO INO-T \"ino_t\"\n");
01468 { struct stat t;
01469 fprintf (out, " %d\n", ((unsigned long)&(t.st_ino)) - ((unsigned long)&(t)));
01470 }
01471 { struct stat t;
01472 fprintf (out, " %d)\n", sizeof(t.st_ino));
01473 }
01474 fprintf (out, " (DEV DEV-T \"dev_t\"\n");
01475 { struct stat t;
01476 fprintf (out, " %d\n", ((unsigned long)&(t.st_dev)) - ((unsigned long)&(t)));
01477 }
01478 { struct stat t;
01479 fprintf (out, " %d)\n", sizeof(t.st_dev));
01480 }
01481 fprintf (out, " (NLINK NLINK-T \"nlink_t\"\n");
01482 { struct stat t;
01483 fprintf (out, " %d\n", ((unsigned long)&(t.st_nlink)) - ((unsigned long)&(t)));
01484 }
01485 { struct stat t;
01486 fprintf (out, " %d)\n", sizeof(t.st_nlink));
01487 }
01488 fprintf (out, " (UID UID-T \"uid_t\"\n");
01489 { struct stat t;
01490 fprintf (out, " %d\n", ((unsigned long)&(t.st_uid)) - ((unsigned long)&(t)));
01491 }
01492 { struct stat t;
01493 fprintf (out, " %d)\n", sizeof(t.st_uid));
01494 }
01495 fprintf (out, " (GID GID-T \"gid_t\"\n");
01496 { struct stat t;
01497 fprintf (out, " %d\n", ((unsigned long)&(t.st_gid)) - ((unsigned long)&(t)));
01498 }
01499 { struct stat t;
01500 fprintf (out, " %d)\n", sizeof(t.st_gid));
01501 }
01502 fprintf (out, " (SIZE OFF-T \"off_t\"\n");
01503 { struct stat t;
01504 fprintf (out, " %d\n", ((unsigned long)&(t.st_size)) - ((unsigned long)&(t)));
01505 }
01506 { struct stat t;
01507 fprintf (out, " %d)\n", sizeof(t.st_size));
01508 }
01509 fprintf (out, " (ATIME TIME-T \"time_t\"\n");
01510 { struct stat t;
01511 fprintf (out, " %d\n", ((unsigned long)&(t.st_atime)) - ((unsigned long)&(t)));
01512 }
01513 { struct stat t;
01514 fprintf (out, " %d)\n", sizeof(t.st_atime));
01515 }
01516 fprintf (out, " (MTIME TIME-T \"time_t\"\n");
01517 { struct stat t;
01518 fprintf (out, " %d\n", ((unsigned long)&(t.st_mtime)) - ((unsigned long)&(t)));
01519 }
01520 { struct stat t;
01521 fprintf (out, " %d)\n", sizeof(t.st_mtime));
01522 }
01523 fprintf (out, " (CTIME TIME-T \"time_t\"\n");
01524 { struct stat t;
01525 fprintf (out, " %d\n", ((unsigned long)&(t.st_ctime)) - ((unsigned long)&(t)));
01526 }
01527 { struct stat t;
01528 fprintf (out, " %d)\n", sizeof(t.st_ctime));
01529 }
01530 fprintf (out, "))\n");
01531 #ifdef O_RDONLY
01532 fprintf (out, "(cl:defconstant O-RDONLY %d \"NIL\")\n", O_RDONLY);
01533 #else
01534 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_RDONLY (unknown to the C compiler).\")\n");
01535 #endif
01536 fprintf (out, "(cl:export 'O-RDONLY)\n");
01537 #ifdef O_WRONLY
01538 fprintf (out, "(cl:defconstant O-WRONLY %d \"NIL\")\n", O_WRONLY);
01539 #else
01540 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_WRONLY (unknown to the C compiler).\")\n");
01541 #endif
01542 fprintf (out, "(cl:export 'O-WRONLY)\n");
01543 #ifdef O_RDWR
01544 fprintf (out, "(cl:defconstant O-RDWR %d \"NIL\")\n", O_RDWR);
01545 #else
01546 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_RDWR (unknown to the C compiler).\")\n");
01547 #endif
01548 fprintf (out, "(cl:export 'O-RDWR)\n");
01549 #ifdef O_CREAT
01550 fprintf (out, "(cl:defconstant O-CREAT %d \"NIL\")\n", O_CREAT);
01551 #else
01552 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_CREAT (unknown to the C compiler).\")\n");
01553 #endif
01554 fprintf (out, "(cl:export 'O-CREAT)\n");
01555 #ifdef O_EXCL
01556 fprintf (out, "(cl:defconstant O-EXCL %d \"NIL\")\n", O_EXCL);
01557 #else
01558 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_EXCL (unknown to the C compiler).\")\n");
01559 #endif
01560 fprintf (out, "(cl:export 'O-EXCL)\n");
01561 #ifdef O_NOCTTY
01562 fprintf (out, "(cl:defconstant O-NOCTTY %d \"NIL\")\n", O_NOCTTY);
01563 #else
01564 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_NOCTTY (unknown to the C compiler).\")\n");
01565 #endif
01566 fprintf (out, "(cl:export 'O-NOCTTY)\n");
01567 #ifdef O_TRUNC
01568 fprintf (out, "(cl:defconstant O-TRUNC %d \"NIL\")\n", O_TRUNC);
01569 #else
01570 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_TRUNC (unknown to the C compiler).\")\n");
01571 #endif
01572 fprintf (out, "(cl:export 'O-TRUNC)\n");
01573 #ifdef O_APPEND
01574 fprintf (out, "(cl:defconstant O-APPEND %d \"NIL\")\n", O_APPEND);
01575 #else
01576 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_APPEND (unknown to the C compiler).\")\n");
01577 #endif
01578 fprintf (out, "(cl:export 'O-APPEND)\n");
01579 #ifdef O_NONBLOCK
01580 fprintf (out, "(cl:defconstant O-NONBLOCK %d \"NIL\")\n", O_NONBLOCK);
01581 #else
01582 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_NONBLOCK (unknown to the C compiler).\")\n");
01583 #endif
01584 fprintf (out, "(cl:export 'O-NONBLOCK)\n");
01585 #ifdef O_NDELAY
01586 fprintf (out, "(cl:defconstant O-NDELAY %d \"NIL\")\n", O_NDELAY);
01587 #else
01588 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_NDELAY (unknown to the C compiler).\")\n");
01589 #endif
01590 fprintf (out, "(cl:export 'O-NDELAY)\n");
01591 #ifdef O_SYNC
01592 fprintf (out, "(cl:defconstant O-SYNC %d \"NIL\")\n", O_SYNC);
01593 #else
01594 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_SYNC (unknown to the C compiler).\")\n");
01595 #endif
01596 fprintf (out, "(cl:export 'O-SYNC)\n");
01597 #ifdef O_NOFOLLOW
01598 fprintf (out, "(cl:defconstant O-NOFOLLOW %d \"NIL\")\n", O_NOFOLLOW);
01599 #else
01600 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_NOFOLLOW (unknown to the C compiler).\")\n");
01601 #endif
01602 fprintf (out, "(cl:export 'O-NOFOLLOW)\n");
01603 #ifdef O_DIRECTORY
01604 fprintf (out, "(cl:defconstant O-DIRECTORY %d \"NIL\")\n", O_DIRECTORY);
01605 #else
01606 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_DIRECTORY (unknown to the C compiler).\")\n");
01607 #endif
01608 fprintf (out, "(cl:export 'O-DIRECTORY)\n");
01609 #ifdef O_DIRECT
01610 fprintf (out, "(cl:defconstant O-DIRECT %d \"NIL\")\n", O_DIRECT);
01611 #else
01612 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_DIRECT (unknown to the C compiler).\")\n");
01613 #endif
01614 fprintf (out, "(cl:export 'O-DIRECT)\n");
01615 #ifdef O_ASYNC
01616 fprintf (out, "(cl:defconstant O-ASYNC %d \"NIL\")\n", O_ASYNC);
01617 #else
01618 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_ASYNC (unknown to the C compiler).\")\n");
01619 #endif
01620 fprintf (out, "(cl:export 'O-ASYNC)\n");
01621 #ifdef O_LARGEFILE
01622 fprintf (out, "(cl:defconstant O-LARGEFILE %d \"NIL\")\n", O_LARGEFILE);
01623 #else
01624 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_LARGEFILE (unknown to the C compiler).\")\n");
01625 #endif
01626 fprintf (out, "(cl:export 'O-LARGEFILE)\n");
01627 #ifdef O_DSYNC
01628 fprintf (out, "(cl:defconstant O-DSYNC %d \"NIL\")\n", O_DSYNC);
01629 #else
01630 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_DSYNC (unknown to the C compiler).\")\n");
01631 #endif
01632 fprintf (out, "(cl:export 'O-DSYNC)\n");
01633 #ifdef O_RSYNC
01634 fprintf (out, "(cl:defconstant O-RSYNC %d \"NIL\")\n", O_RSYNC);
01635 #else
01636 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for O_RSYNC (unknown to the C compiler).\")\n");
01637 #endif
01638 fprintf (out, "(cl:export 'O-RSYNC)\n");
01639 #ifdef SEEK_SET
01640 fprintf (out, "(cl:defconstant SEEK-SET %d \"NIL\")\n", SEEK_SET);
01641 #else
01642 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SEEK_SET (unknown to the C compiler).\")\n");
01643 #endif
01644 fprintf (out, "(cl:export 'SEEK-SET)\n");
01645 #ifdef SEEK_CUR
01646 fprintf (out, "(cl:defconstant SEEK-CUR %d \"NIL\")\n", SEEK_CUR);
01647 #else
01648 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SEEK_CUR (unknown to the C compiler).\")\n");
01649 #endif
01650 fprintf (out, "(cl:export 'SEEK-CUR)\n");
01651 #ifdef SEEK_END
01652 fprintf (out, "(cl:defconstant SEEK-END %d \"NIL\")\n", SEEK_END);
01653 #else
01654 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for SEEK_END (unknown to the C compiler).\")\n");
01655 #endif
01656 fprintf (out, "(cl:export 'SEEK-END)\n");
01657 #ifdef F_DUPFD
01658 fprintf (out, "(cl:defconstant F-DUPFD %d \"NIL\")\n", F_DUPFD);
01659 #else
01660 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_DUPFD (unknown to the C compiler).\")\n");
01661 #endif
01662 fprintf (out, "(cl:export 'F-DUPFD)\n");
01663 #ifdef F_GETFD
01664 fprintf (out, "(cl:defconstant F-GETFD %d \"NIL\")\n", F_GETFD);
01665 #else
01666 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_GETFD (unknown to the C compiler).\")\n");
01667 #endif
01668 fprintf (out, "(cl:export 'F-GETFD)\n");
01669 #ifdef F_SETFD
01670 fprintf (out, "(cl:defconstant F-SETFD %d \"NIL\")\n", F_SETFD);
01671 #else
01672 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_SETFD (unknown to the C compiler).\")\n");
01673 #endif
01674 fprintf (out, "(cl:export 'F-SETFD)\n");
01675 #ifdef F_GETFL
01676 fprintf (out, "(cl:defconstant F-GETFL %d \"NIL\")\n", F_GETFL);
01677 #else
01678 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_GETFL (unknown to the C compiler).\")\n");
01679 #endif
01680 fprintf (out, "(cl:export 'F-GETFL)\n");
01681 #ifdef F_SETFL
01682 fprintf (out, "(cl:defconstant F-SETFL %d \"NIL\")\n", F_SETFL);
01683 #else
01684 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_SETFL (unknown to the C compiler).\")\n");
01685 #endif
01686 fprintf (out, "(cl:export 'F-SETFL)\n");
01687 #ifdef F_GETLK
01688 fprintf (out, "(cl:defconstant F-GETLK %d \"NIL\")\n", F_GETLK);
01689 #else
01690 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_GETLK (unknown to the C compiler).\")\n");
01691 #endif
01692 fprintf (out, "(cl:export 'F-GETLK)\n");
01693 #ifdef F_SETLK
01694 fprintf (out, "(cl:defconstant F-SETLK %d \"NIL\")\n", F_SETLK);
01695 #else
01696 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_SETLK (unknown to the C compiler).\")\n");
01697 #endif
01698 fprintf (out, "(cl:export 'F-SETLK)\n");
01699 #ifdef F_SETLKW
01700 fprintf (out, "(cl:defconstant F-SETLKW %d \"NIL\")\n", F_SETLKW);
01701 #else
01702 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_SETLKW (unknown to the C compiler).\")\n");
01703 #endif
01704 fprintf (out, "(cl:export 'F-SETLKW)\n");
01705 #ifdef F_GETOWN
01706 fprintf (out, "(cl:defconstant F-GETOWN %d \"NIL\")\n", F_GETOWN);
01707 #else
01708 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_GETOWN (unknown to the C compiler).\")\n");
01709 #endif
01710 fprintf (out, "(cl:export 'F-GETOWN)\n");
01711 #ifdef F_SETOWN
01712 fprintf (out, "(cl:defconstant F-SETOWN %d \"NIL\")\n", F_SETOWN);
01713 #else
01714 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_SETOWN (unknown to the C compiler).\")\n");
01715 #endif
01716 fprintf (out, "(cl:export 'F-SETOWN)\n");
01717 #ifdef F_RDLCK
01718 fprintf (out, "(cl:defconstant F-RDLCK %d \"NIL\")\n", F_RDLCK);
01719 #else
01720 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_RDLCK (unknown to the C compiler).\")\n");
01721 #endif
01722 fprintf (out, "(cl:export 'F-RDLCK)\n");
01723 #ifdef F_WRLCK
01724 fprintf (out, "(cl:defconstant F-WRLCK %d \"NIL\")\n", F_WRLCK);
01725 #else
01726 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_WRLCK (unknown to the C compiler).\")\n");
01727 #endif
01728 fprintf (out, "(cl:export 'F-WRLCK)\n");
01729 #ifdef F_UNLCK
01730 fprintf (out, "(cl:defconstant F-UNLCK %d \"NIL\")\n", F_UNLCK);
01731 #else
01732 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_UNLCK (unknown to the C compiler).\")\n");
01733 #endif
01734 fprintf (out, "(cl:export 'F-UNLCK)\n");
01735 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-FLOCK %d\n", sizeof(struct flock));
01736 fprintf (out, " (TYPE SHORT \"short\"\n");
01737 { struct flock t;
01738 fprintf (out, " %d\n", ((unsigned long)&(t.l_type)) - ((unsigned long)&(t)));
01739 }
01740 { struct flock t;
01741 fprintf (out, " %d)\n", sizeof(t.l_type));
01742 }
01743 fprintf (out, " (WHENCE SHORT \"short\"\n");
01744 { struct flock t;
01745 fprintf (out, " %d\n", ((unsigned long)&(t.l_whence)) - ((unsigned long)&(t)));
01746 }
01747 { struct flock t;
01748 fprintf (out, " %d)\n", sizeof(t.l_whence));
01749 }
01750 fprintf (out, " (START OFF-T \"off_t\"\n");
01751 { struct flock t;
01752 fprintf (out, " %d\n", ((unsigned long)&(t.l_start)) - ((unsigned long)&(t)));
01753 }
01754 { struct flock t;
01755 fprintf (out, " %d)\n", sizeof(t.l_start));
01756 }
01757 fprintf (out, " (LEN OFF-T \"off_t\"\n");
01758 { struct flock t;
01759 fprintf (out, " %d\n", ((unsigned long)&(t.l_len)) - ((unsigned long)&(t)));
01760 }
01761 { struct flock t;
01762 fprintf (out, " %d)\n", sizeof(t.l_len));
01763 }
01764 fprintf (out, " (PID PID-T \"pid_t\"\n");
01765 { struct flock t;
01766 fprintf (out, " %d\n", ((unsigned long)&(t.l_pid)) - ((unsigned long)&(t)));
01767 }
01768 { struct flock t;
01769 fprintf (out, " %d)\n", sizeof(t.l_pid));
01770 }
01771 fprintf (out, "))\n");
01772 #ifdef F_LOCK
01773 fprintf (out, "(cl:defconstant F-LOCK %d \"NIL\")\n", F_LOCK);
01774 #else
01775 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_LOCK (unknown to the C compiler).\")\n");
01776 #endif
01777 fprintf (out, "(cl:export 'F-LOCK)\n");
01778 #ifdef F_TLOCK
01779 fprintf (out, "(cl:defconstant F-TLOCK %d \"NIL\")\n", F_TLOCK);
01780 #else
01781 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_TLOCK (unknown to the C compiler).\")\n");
01782 #endif
01783 fprintf (out, "(cl:export 'F-TLOCK)\n");
01784 #ifdef F_ULOCK
01785 fprintf (out, "(cl:defconstant F-ULOCK %d \"NIL\")\n", F_ULOCK);
01786 #else
01787 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_ULOCK (unknown to the C compiler).\")\n");
01788 #endif
01789 fprintf (out, "(cl:export 'F-ULOCK)\n");
01790 #ifdef F_TEST
01791 fprintf (out, "(cl:defconstant F-TEST %d \"NIL\")\n", F_TEST);
01792 #else
01793 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for F_TEST (unknown to the C compiler).\")\n");
01794 #endif
01795 fprintf (out, "(cl:export 'F-TEST)\n");
01796 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type CC-T (sb-alien:%ssigned %d)))\n", SIGNED_(cc_t), (8*sizeof(cc_t)));
01797 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SPEED-T (sb-alien:%ssigned %d)))\n", SIGNED_(speed_t), (8*sizeof(speed_t)));
01798 fprintf (out, "(cl:export 'SPEED-T)\n");
01799 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type TCFLAG-T (sb-alien:%ssigned %d)))\n", SIGNED_(tcflag_t), (8*sizeof(tcflag_t)));
01800 fprintf (out, "(cl:export 'TCFLAG-T)\n");
01801 #ifdef NCCS
01802 fprintf (out, "(cl:defconstant NCCS %d \"NIL\")\n", NCCS);
01803 #else
01804 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for NCCS (unknown to the C compiler).\")\n");
01805 #endif
01806 fprintf (out, "(cl:export 'NCCS)\n");
01807 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TERMIOS %d\n", sizeof(struct termios));
01808 fprintf (out, " (IFLAG TCFLAG-T \"tcflag_t\"\n");
01809 { struct termios t;
01810 fprintf (out, " %d\n", ((unsigned long)&(t.c_iflag)) - ((unsigned long)&(t)));
01811 }
01812 { struct termios t;
01813 fprintf (out, " %d)\n", sizeof(t.c_iflag));
01814 }
01815 fprintf (out, " (OFLAG TCFLAG-T \"tcflag_t\"\n");
01816 { struct termios t;
01817 fprintf (out, " %d\n", ((unsigned long)&(t.c_oflag)) - ((unsigned long)&(t)));
01818 }
01819 { struct termios t;
01820 fprintf (out, " %d)\n", sizeof(t.c_oflag));
01821 }
01822 fprintf (out, " (CFLAG TCFLAG-T \"tcflag_t\"\n");
01823 { struct termios t;
01824 fprintf (out, " %d\n", ((unsigned long)&(t.c_cflag)) - ((unsigned long)&(t)));
01825 }
01826 { struct termios t;
01827 fprintf (out, " %d)\n", sizeof(t.c_cflag));
01828 }
01829 fprintf (out, " (LFLAG TCFLAG-T \"tcflag_t\"\n");
01830 { struct termios t;
01831 fprintf (out, " %d\n", ((unsigned long)&(t.c_lflag)) - ((unsigned long)&(t)));
01832 }
01833 { struct termios t;
01834 fprintf (out, " %d)\n", sizeof(t.c_lflag));
01835 }
01836 fprintf (out, " (CC (ARRAY CC-T) \"cc_t\"\n");
01837 { struct termios t;
01838 fprintf (out, " %d\n", ((unsigned long)&(t.c_cc)) - ((unsigned long)&(t)));
01839 }
01840 { struct termios t;
01841 fprintf (out, " %d)\n", sizeof(t.c_cc));
01842 }
01843 fprintf (out, "))\n");
01844 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SUSECONDS-T (sb-alien:%ssigned %d)))\n", SIGNED_(suseconds_t), (8*sizeof(suseconds_t)));
01845 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-UTIMBUF %d\n", sizeof(struct utimbuf));
01846 fprintf (out, " (ACTIME TIME-T \"time_t\"\n");
01847 { struct utimbuf t;
01848 fprintf (out, " %d\n", ((unsigned long)&(t.actime)) - ((unsigned long)&(t)));
01849 }
01850 { struct utimbuf t;
01851 fprintf (out, " %d)\n", sizeof(t.actime));
01852 }
01853 fprintf (out, " (MODTIME TIME-T \"time_t\"\n");
01854 { struct utimbuf t;
01855 fprintf (out, " %d\n", ((unsigned long)&(t.modtime)) - ((unsigned long)&(t)));
01856 }
01857 { struct utimbuf t;
01858 fprintf (out, " %d)\n", sizeof(t.modtime));
01859 }
01860 fprintf (out, "))\n");
01861 fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TIMEVAL %d\n", sizeof(struct timeval));
01862 fprintf (out, " (SEC TIME-T \"time_t\"\n");
01863 { struct timeval t;
01864 fprintf (out, " %d\n", ((unsigned long)&(t.tv_sec)) - ((unsigned long)&(t)));
01865 }
01866 { struct timeval t;
01867 fprintf (out, " %d)\n", sizeof(t.tv_sec));
01868 }
01869 fprintf (out, " (USEC SUSECONDS-T \"suseconds_t\"\n");
01870 { struct timeval t;
01871 fprintf (out, " %d\n", ((unsigned long)&(t.tv_usec)) - ((unsigned long)&(t)));
01872 }
01873 { struct timeval t;
01874 fprintf (out, " %d)\n", sizeof(t.tv_usec));
01875 }
01876 fprintf (out, "))\n");
01877 #ifdef VEOF
01878 fprintf (out, "(cl:defconstant VEOF %d \"NIL\")\n", VEOF);
01879 #else
01880 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VEOF (unknown to the C compiler).\")\n");
01881 #endif
01882 fprintf (out, "(cl:export 'VEOF)\n");
01883 #ifdef VEOL
01884 fprintf (out, "(cl:defconstant VEOL %d \"NIL\")\n", VEOL);
01885 #else
01886 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VEOL (unknown to the C compiler).\")\n");
01887 #endif
01888 fprintf (out, "(cl:export 'VEOL)\n");
01889 #ifdef VERASE
01890 fprintf (out, "(cl:defconstant VERASE %d \"NIL\")\n", VERASE);
01891 #else
01892 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VERASE (unknown to the C compiler).\")\n");
01893 #endif
01894 fprintf (out, "(cl:export 'VERASE)\n");
01895 #ifdef VINTR
01896 fprintf (out, "(cl:defconstant VINTR %d \"NIL\")\n", VINTR);
01897 #else
01898 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VINTR (unknown to the C compiler).\")\n");
01899 #endif
01900 fprintf (out, "(cl:export 'VINTR)\n");
01901 #ifdef VKILL
01902 fprintf (out, "(cl:defconstant VKILL %d \"NIL\")\n", VKILL);
01903 #else
01904 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VKILL (unknown to the C compiler).\")\n");
01905 #endif
01906 fprintf (out, "(cl:export 'VKILL)\n");
01907 #ifdef VMIN
01908 fprintf (out, "(cl:defconstant VMIN %d \"NIL\")\n", VMIN);
01909 #else
01910 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VMIN (unknown to the C compiler).\")\n");
01911 #endif
01912 fprintf (out, "(cl:export 'VMIN)\n");
01913 #ifdef VQUIT
01914 fprintf (out, "(cl:defconstant VQUIT %d \"NIL\")\n", VQUIT);
01915 #else
01916 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VQUIT (unknown to the C compiler).\")\n");
01917 #endif
01918 fprintf (out, "(cl:export 'VQUIT)\n");
01919 #ifdef VSTART
01920 fprintf (out, "(cl:defconstant VSTART %d \"NIL\")\n", VSTART);
01921 #else
01922 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VSTART (unknown to the C compiler).\")\n");
01923 #endif
01924 fprintf (out, "(cl:export 'VSTART)\n");
01925 #ifdef VSTOP
01926 fprintf (out, "(cl:defconstant VSTOP %d \"NIL\")\n", VSTOP);
01927 #else
01928 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VSTOP (unknown to the C compiler).\")\n");
01929 #endif
01930 fprintf (out, "(cl:export 'VSTOP)\n");
01931 #ifdef VSUSP
01932 fprintf (out, "(cl:defconstant VSUSP %d \"NIL\")\n", VSUSP);
01933 #else
01934 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VSUSP (unknown to the C compiler).\")\n");
01935 #endif
01936 fprintf (out, "(cl:export 'VSUSP)\n");
01937 #ifdef VTIME
01938 fprintf (out, "(cl:defconstant VTIME %d \"NIL\")\n", VTIME);
01939 #else
01940 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VTIME (unknown to the C compiler).\")\n");
01941 #endif
01942 fprintf (out, "(cl:export 'VTIME)\n");
01943 #ifdef _POSIX_VDISABLE
01944 fprintf (out, "(cl:defconstant VDISABLE %d \"NIL\")\n", _POSIX_VDISABLE);
01945 #else
01946 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for _POSIX_VDISABLE (unknown to the C compiler).\")\n");
01947 #endif
01948 fprintf (out, "(cl:export 'VDISABLE)\n");
01949 #ifdef BRKINT
01950 fprintf (out, "(cl:defconstant BRKINT %d \"NIL\")\n", BRKINT);
01951 #else
01952 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for BRKINT (unknown to the C compiler).\")\n");
01953 #endif
01954 fprintf (out, "(cl:export 'BRKINT)\n");
01955 #ifdef ICRNL
01956 fprintf (out, "(cl:defconstant ICRNL %d \"NIL\")\n", ICRNL);
01957 #else
01958 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ICRNL (unknown to the C compiler).\")\n");
01959 #endif
01960 fprintf (out, "(cl:export 'ICRNL)\n");
01961 #ifdef IGNBRK
01962 fprintf (out, "(cl:defconstant IGNBRK %d \"NIL\")\n", IGNBRK);
01963 #else
01964 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for IGNBRK (unknown to the C compiler).\")\n");
01965 #endif
01966 fprintf (out, "(cl:export 'IGNBRK)\n");
01967 #ifdef IGNCR
01968 fprintf (out, "(cl:defconstant IGNCR %d \"NIL\")\n", IGNCR);
01969 #else
01970 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for IGNCR (unknown to the C compiler).\")\n");
01971 #endif
01972 fprintf (out, "(cl:export 'IGNCR)\n");
01973 #ifdef IGNPAR
01974 fprintf (out, "(cl:defconstant IGNPAR %d \"NIL\")\n", IGNPAR);
01975 #else
01976 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for IGNPAR (unknown to the C compiler).\")\n");
01977 #endif
01978 fprintf (out, "(cl:export 'IGNPAR)\n");
01979 #ifdef INLCR
01980 fprintf (out, "(cl:defconstant INLCR %d \"NIL\")\n", INLCR);
01981 #else
01982 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for INLCR (unknown to the C compiler).\")\n");
01983 #endif
01984 fprintf (out, "(cl:export 'INLCR)\n");
01985 #ifdef INPCK
01986 fprintf (out, "(cl:defconstant INPCK %d \"NIL\")\n", INPCK);
01987 #else
01988 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for INPCK (unknown to the C compiler).\")\n");
01989 #endif
01990 fprintf (out, "(cl:export 'INPCK)\n");
01991 #ifdef ISTRIP
01992 fprintf (out, "(cl:defconstant ISTRIP %d \"NIL\")\n", ISTRIP);
01993 #else
01994 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ISTRIP (unknown to the C compiler).\")\n");
01995 #endif
01996 fprintf (out, "(cl:export 'ISTRIP)\n");
01997 #ifdef IXOFF
01998 fprintf (out, "(cl:defconstant IXOFF %d \"NIL\")\n", IXOFF);
01999 #else
02000 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for IXOFF (unknown to the C compiler).\")\n");
02001 #endif
02002 fprintf (out, "(cl:export 'IXOFF)\n");
02003 #ifdef IXON
02004 fprintf (out, "(cl:defconstant IXON %d \"NIL\")\n", IXON);
02005 #else
02006 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for IXON (unknown to the C compiler).\")\n");
02007 #endif
02008 fprintf (out, "(cl:export 'IXON)\n");
02009 #ifdef PARMRK
02010 fprintf (out, "(cl:defconstant PARMRK %d \"NIL\")\n", PARMRK);
02011 #else
02012 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PARMRK (unknown to the C compiler).\")\n");
02013 #endif
02014 fprintf (out, "(cl:export 'PARMRK)\n");
02015 #ifdef OPOST
02016 fprintf (out, "(cl:defconstant OPOST %d \"NIL\")\n", OPOST);
02017 #else
02018 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for OPOST (unknown to the C compiler).\")\n");
02019 #endif
02020 fprintf (out, "(cl:export 'OPOST)\n");
02021 #ifdef OCRNL
02022 fprintf (out, "(cl:defconstant OCRNL %d \"NIL\")\n", OCRNL);
02023 #else
02024 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for OCRNL (unknown to the C compiler).\")\n");
02025 #endif
02026 fprintf (out, "(cl:export 'OCRNL)\n");
02027 #ifdef ONOCR
02028 fprintf (out, "(cl:defconstant ONOCR %d \"NIL\")\n", ONOCR);
02029 #else
02030 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ONOCR (unknown to the C compiler).\")\n");
02031 #endif
02032 fprintf (out, "(cl:export 'ONOCR)\n");
02033 #ifdef ONLRET
02034 fprintf (out, "(cl:defconstant ONLRET %d \"NIL\")\n", ONLRET);
02035 #else
02036 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ONLRET (unknown to the C compiler).\")\n");
02037 #endif
02038 fprintf (out, "(cl:export 'ONLRET)\n");
02039 #ifdef OFDEL
02040 fprintf (out, "(cl:defconstant OFDEL %d \"NIL\")\n", OFDEL);
02041 #else
02042 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for OFDEL (unknown to the C compiler).\")\n");
02043 #endif
02044 fprintf (out, "(cl:export 'OFDEL)\n");
02045 #ifdef OFILL
02046 fprintf (out, "(cl:defconstant OFILL %d \"NIL\")\n", OFILL);
02047 #else
02048 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for OFILL (unknown to the C compiler).\")\n");
02049 #endif
02050 fprintf (out, "(cl:export 'OFILL)\n");
02051 #ifdef NLDLY
02052 fprintf (out, "(cl:defconstant NLDLY %d \"NIL\")\n", NLDLY);
02053 #else
02054 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for NLDLY (unknown to the C compiler).\")\n");
02055 #endif
02056 fprintf (out, "(cl:export 'NLDLY)\n");
02057 #ifdef NL0
02058 fprintf (out, "(cl:defconstant NL0 %d \"NIL\")\n", NL0);
02059 #else
02060 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for NL0 (unknown to the C compiler).\")\n");
02061 #endif
02062 fprintf (out, "(cl:export 'NL0)\n");
02063 #ifdef NL1
02064 fprintf (out, "(cl:defconstant NL1 %d \"NIL\")\n", NL1);
02065 #else
02066 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for NL1 (unknown to the C compiler).\")\n");
02067 #endif
02068 fprintf (out, "(cl:export 'NL1)\n");
02069 #ifdef CRDLY
02070 fprintf (out, "(cl:defconstant CRDLY %d \"NIL\")\n", CRDLY);
02071 #else
02072 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CRDLY (unknown to the C compiler).\")\n");
02073 #endif
02074 fprintf (out, "(cl:export 'CRDLY)\n");
02075 #ifdef CR0
02076 fprintf (out, "(cl:defconstant CR0 %d \"NIL\")\n", CR0);
02077 #else
02078 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CR0 (unknown to the C compiler).\")\n");
02079 #endif
02080 fprintf (out, "(cl:export 'CR0)\n");
02081 #ifdef CR1
02082 fprintf (out, "(cl:defconstant CR1 %d \"NIL\")\n", CR1);
02083 #else
02084 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CR1 (unknown to the C compiler).\")\n");
02085 #endif
02086 fprintf (out, "(cl:export 'CR1)\n");
02087 #ifdef CR2
02088 fprintf (out, "(cl:defconstant CR2 %d \"NIL\")\n", CR2);
02089 #else
02090 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CR2 (unknown to the C compiler).\")\n");
02091 #endif
02092 fprintf (out, "(cl:export 'CR2)\n");
02093 #ifdef CR3
02094 fprintf (out, "(cl:defconstant CR3 %d \"NIL\")\n", CR3);
02095 #else
02096 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CR3 (unknown to the C compiler).\")\n");
02097 #endif
02098 fprintf (out, "(cl:export 'CR3)\n");
02099 #ifdef TABDLY
02100 fprintf (out, "(cl:defconstant TABDLY %d \"NIL\")\n", TABDLY);
02101 #else
02102 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TABDLY (unknown to the C compiler).\")\n");
02103 #endif
02104 fprintf (out, "(cl:export 'TABDLY)\n");
02105 #ifdef TAB0
02106 fprintf (out, "(cl:defconstant TAB0 %d \"NIL\")\n", TAB0);
02107 #else
02108 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TAB0 (unknown to the C compiler).\")\n");
02109 #endif
02110 fprintf (out, "(cl:export 'TAB0)\n");
02111 #ifdef TAB1
02112 fprintf (out, "(cl:defconstant TAB1 %d \"NIL\")\n", TAB1);
02113 #else
02114 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TAB1 (unknown to the C compiler).\")\n");
02115 #endif
02116 fprintf (out, "(cl:export 'TAB1)\n");
02117 #ifdef TAB2
02118 fprintf (out, "(cl:defconstant TAB2 %d \"NIL\")\n", TAB2);
02119 #else
02120 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TAB2 (unknown to the C compiler).\")\n");
02121 #endif
02122 fprintf (out, "(cl:export 'TAB2)\n");
02123 #ifdef TAB3
02124 fprintf (out, "(cl:defconstant TAB3 %d \"NIL\")\n", TAB3);
02125 #else
02126 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TAB3 (unknown to the C compiler).\")\n");
02127 #endif
02128 fprintf (out, "(cl:export 'TAB3)\n");
02129 #ifdef BSDLY
02130 fprintf (out, "(cl:defconstant BSDLY %d \"NIL\")\n", BSDLY);
02131 #else
02132 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for BSDLY (unknown to the C compiler).\")\n");
02133 #endif
02134 fprintf (out, "(cl:export 'BSDLY)\n");
02135 #ifdef BS0
02136 fprintf (out, "(cl:defconstant BS0 %d \"NIL\")\n", BS0);
02137 #else
02138 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for BS0 (unknown to the C compiler).\")\n");
02139 #endif
02140 fprintf (out, "(cl:export 'BS0)\n");
02141 #ifdef BS1
02142 fprintf (out, "(cl:defconstant BS1 %d \"NIL\")\n", BS1);
02143 #else
02144 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for BS1 (unknown to the C compiler).\")\n");
02145 #endif
02146 fprintf (out, "(cl:export 'BS1)\n");
02147 #ifdef VTDLY
02148 fprintf (out, "(cl:defconstant VTDLY %d \"NIL\")\n", VTDLY);
02149 #else
02150 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VTDLY (unknown to the C compiler).\")\n");
02151 #endif
02152 fprintf (out, "(cl:export 'VTDLY)\n");
02153 #ifdef VT0
02154 fprintf (out, "(cl:defconstant VT0 %d \"NIL\")\n", VT0);
02155 #else
02156 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VT0 (unknown to the C compiler).\")\n");
02157 #endif
02158 fprintf (out, "(cl:export 'VT0)\n");
02159 #ifdef VT1
02160 fprintf (out, "(cl:defconstant VT1 %d \"NIL\")\n", VT1);
02161 #else
02162 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for VT1 (unknown to the C compiler).\")\n");
02163 #endif
02164 fprintf (out, "(cl:export 'VT1)\n");
02165 #ifdef FFDLY
02166 fprintf (out, "(cl:defconstant FFDLY %d \"NIL\")\n", FFDLY);
02167 #else
02168 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for FFDLY (unknown to the C compiler).\")\n");
02169 #endif
02170 fprintf (out, "(cl:export 'FFDLY)\n");
02171 #ifdef FF0
02172 fprintf (out, "(cl:defconstant FF0 %d \"NIL\")\n", FF0);
02173 #else
02174 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for FF0 (unknown to the C compiler).\")\n");
02175 #endif
02176 fprintf (out, "(cl:export 'FF0)\n");
02177 #ifdef FF1
02178 fprintf (out, "(cl:defconstant FF1 %d \"NIL\")\n", FF1);
02179 #else
02180 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for FF1 (unknown to the C compiler).\")\n");
02181 #endif
02182 fprintf (out, "(cl:export 'FF1)\n");
02183 #ifdef B0
02184 fprintf (out, "(cl:defconstant B0 %d \"NIL\")\n", B0);
02185 #else
02186 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B0 (unknown to the C compiler).\")\n");
02187 #endif
02188 fprintf (out, "(cl:export 'B0)\n");
02189 #ifdef B50
02190 fprintf (out, "(cl:defconstant B50 %d \"NIL\")\n", B50);
02191 #else
02192 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B50 (unknown to the C compiler).\")\n");
02193 #endif
02194 fprintf (out, "(cl:export 'B50)\n");
02195 #ifdef B75
02196 fprintf (out, "(cl:defconstant B75 %d \"NIL\")\n", B75);
02197 #else
02198 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B75 (unknown to the C compiler).\")\n");
02199 #endif
02200 fprintf (out, "(cl:export 'B75)\n");
02201 #ifdef B110
02202 fprintf (out, "(cl:defconstant B110 %d \"NIL\")\n", B110);
02203 #else
02204 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B110 (unknown to the C compiler).\")\n");
02205 #endif
02206 fprintf (out, "(cl:export 'B110)\n");
02207 #ifdef B134
02208 fprintf (out, "(cl:defconstant B134 %d \"NIL\")\n", B134);
02209 #else
02210 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B134 (unknown to the C compiler).\")\n");
02211 #endif
02212 fprintf (out, "(cl:export 'B134)\n");
02213 #ifdef B150
02214 fprintf (out, "(cl:defconstant B150 %d \"NIL\")\n", B150);
02215 #else
02216 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B150 (unknown to the C compiler).\")\n");
02217 #endif
02218 fprintf (out, "(cl:export 'B150)\n");
02219 #ifdef B200
02220 fprintf (out, "(cl:defconstant B200 %d \"NIL\")\n", B200);
02221 #else
02222 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B200 (unknown to the C compiler).\")\n");
02223 #endif
02224 fprintf (out, "(cl:export 'B200)\n");
02225 #ifdef B300
02226 fprintf (out, "(cl:defconstant B300 %d \"NIL\")\n", B300);
02227 #else
02228 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B300 (unknown to the C compiler).\")\n");
02229 #endif
02230 fprintf (out, "(cl:export 'B300)\n");
02231 #ifdef B600
02232 fprintf (out, "(cl:defconstant B600 %d \"NIL\")\n", B600);
02233 #else
02234 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B600 (unknown to the C compiler).\")\n");
02235 #endif
02236 fprintf (out, "(cl:export 'B600)\n");
02237 #ifdef B1200
02238 fprintf (out, "(cl:defconstant B1200 %d \"NIL\")\n", B1200);
02239 #else
02240 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B1200 (unknown to the C compiler).\")\n");
02241 #endif
02242 fprintf (out, "(cl:export 'B1200)\n");
02243 #ifdef B1800
02244 fprintf (out, "(cl:defconstant B1800 %d \"NIL\")\n", B1800);
02245 #else
02246 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B1800 (unknown to the C compiler).\")\n");
02247 #endif
02248 fprintf (out, "(cl:export 'B1800)\n");
02249 #ifdef B2400
02250 fprintf (out, "(cl:defconstant B2400 %d \"NIL\")\n", B2400);
02251 #else
02252 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B2400 (unknown to the C compiler).\")\n");
02253 #endif
02254 fprintf (out, "(cl:export 'B2400)\n");
02255 #ifdef B4800
02256 fprintf (out, "(cl:defconstant B4800 %d \"NIL\")\n", B4800);
02257 #else
02258 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B4800 (unknown to the C compiler).\")\n");
02259 #endif
02260 fprintf (out, "(cl:export 'B4800)\n");
02261 #ifdef B9600
02262 fprintf (out, "(cl:defconstant B9600 %d \"NIL\")\n", B9600);
02263 #else
02264 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B9600 (unknown to the C compiler).\")\n");
02265 #endif
02266 fprintf (out, "(cl:export 'B9600)\n");
02267 #ifdef B19200
02268 fprintf (out, "(cl:defconstant B19200 %d \"NIL\")\n", B19200);
02269 #else
02270 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B19200 (unknown to the C compiler).\")\n");
02271 #endif
02272 fprintf (out, "(cl:export 'B19200)\n");
02273 #ifdef B38400
02274 fprintf (out, "(cl:defconstant B38400 %d \"NIL\")\n", B38400);
02275 #else
02276 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B38400 (unknown to the C compiler).\")\n");
02277 #endif
02278 fprintf (out, "(cl:export 'B38400)\n");
02279 #ifdef B57600
02280 fprintf (out, "(cl:defconstant B57600 %d \"NIL\")\n", B57600);
02281 #else
02282 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B57600 (unknown to the C compiler).\")\n");
02283 #endif
02284 fprintf (out, "(cl:export 'B57600)\n");
02285 #ifdef B115200
02286 fprintf (out, "(cl:defconstant B115200 %d \"NIL\")\n", B115200);
02287 #else
02288 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B115200 (unknown to the C compiler).\")\n");
02289 #endif
02290 fprintf (out, "(cl:export 'B115200)\n");
02291 #ifdef B230400
02292 fprintf (out, "(cl:defconstant B230400 %d \"NIL\")\n", B230400);
02293 #else
02294 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for B230400 (unknown to the C compiler).\")\n");
02295 #endif
02296 fprintf (out, "(cl:export 'B230400)\n");
02297 #ifdef CSIZE
02298 fprintf (out, "(cl:defconstant CSIZE %d \"NIL\")\n", CSIZE);
02299 #else
02300 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CSIZE (unknown to the C compiler).\")\n");
02301 #endif
02302 fprintf (out, "(cl:export 'CSIZE)\n");
02303 #ifdef CS5
02304 fprintf (out, "(cl:defconstant CS5 %d \"NIL\")\n", CS5);
02305 #else
02306 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CS5 (unknown to the C compiler).\")\n");
02307 #endif
02308 fprintf (out, "(cl:export 'CS5)\n");
02309 #ifdef CS6
02310 fprintf (out, "(cl:defconstant CS6 %d \"NIL\")\n", CS6);
02311 #else
02312 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CS6 (unknown to the C compiler).\")\n");
02313 #endif
02314 fprintf (out, "(cl:export 'CS6)\n");
02315 #ifdef CS7
02316 fprintf (out, "(cl:defconstant CS7 %d \"NIL\")\n", CS7);
02317 #else
02318 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CS7 (unknown to the C compiler).\")\n");
02319 #endif
02320 fprintf (out, "(cl:export 'CS7)\n");
02321 #ifdef CS8
02322 fprintf (out, "(cl:defconstant CS8 %d \"NIL\")\n", CS8);
02323 #else
02324 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CS8 (unknown to the C compiler).\")\n");
02325 #endif
02326 fprintf (out, "(cl:export 'CS8)\n");
02327 #ifdef CSTOPB
02328 fprintf (out, "(cl:defconstant CSTOPB %d \"NIL\")\n", CSTOPB);
02329 #else
02330 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CSTOPB (unknown to the C compiler).\")\n");
02331 #endif
02332 fprintf (out, "(cl:export 'CSTOPB)\n");
02333 #ifdef CREAD
02334 fprintf (out, "(cl:defconstant CREAD %d \"NIL\")\n", CREAD);
02335 #else
02336 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CREAD (unknown to the C compiler).\")\n");
02337 #endif
02338 fprintf (out, "(cl:export 'CREAD)\n");
02339 #ifdef PARENB
02340 fprintf (out, "(cl:defconstant PARENB %d \"NIL\")\n", PARENB);
02341 #else
02342 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PARENB (unknown to the C compiler).\")\n");
02343 #endif
02344 fprintf (out, "(cl:export 'PARENB)\n");
02345 #ifdef PARODD
02346 fprintf (out, "(cl:defconstant PARODD %d \"NIL\")\n", PARODD);
02347 #else
02348 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for PARODD (unknown to the C compiler).\")\n");
02349 #endif
02350 fprintf (out, "(cl:export 'PARODD)\n");
02351 #ifdef HUPCL
02352 fprintf (out, "(cl:defconstant HUPCL %d \"NIL\")\n", HUPCL);
02353 #else
02354 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for HUPCL (unknown to the C compiler).\")\n");
02355 #endif
02356 fprintf (out, "(cl:export 'HUPCL)\n");
02357 #ifdef CLOCAL
02358 fprintf (out, "(cl:defconstant CLOCAL %d \"NIL\")\n", CLOCAL);
02359 #else
02360 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for CLOCAL (unknown to the C compiler).\")\n");
02361 #endif
02362 fprintf (out, "(cl:export 'CLOCAL)\n");
02363 #ifdef ECHO
02364 fprintf (out, "(cl:defconstant ECHO %d \"NIL\")\n", ECHO);
02365 #else
02366 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECHO (unknown to the C compiler).\")\n");
02367 #endif
02368 fprintf (out, "(cl:export 'ECHO)\n");
02369 #ifdef ECHOE
02370 fprintf (out, "(cl:defconstant ECHOE %d \"NIL\")\n", ECHOE);
02371 #else
02372 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECHOE (unknown to the C compiler).\")\n");
02373 #endif
02374 fprintf (out, "(cl:export 'ECHOE)\n");
02375 #ifdef ECHOK
02376 fprintf (out, "(cl:defconstant ECHOK %d \"NIL\")\n", ECHOK);
02377 #else
02378 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECHOK (unknown to the C compiler).\")\n");
02379 #endif
02380 fprintf (out, "(cl:export 'ECHOK)\n");
02381 #ifdef ECHONL
02382 fprintf (out, "(cl:defconstant ECHONL %d \"NIL\")\n", ECHONL);
02383 #else
02384 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ECHONL (unknown to the C compiler).\")\n");
02385 #endif
02386 fprintf (out, "(cl:export 'ECHONL)\n");
02387 #ifdef ICANON
02388 fprintf (out, "(cl:defconstant ICANON %d \"NIL\")\n", ICANON);
02389 #else
02390 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ICANON (unknown to the C compiler).\")\n");
02391 #endif
02392 fprintf (out, "(cl:export 'ICANON)\n");
02393 #ifdef IEXTEN
02394 fprintf (out, "(cl:defconstant IEXTEN %d \"NIL\")\n", IEXTEN);
02395 #else
02396 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for IEXTEN (unknown to the C compiler).\")\n");
02397 #endif
02398 fprintf (out, "(cl:export 'IEXTEN)\n");
02399 #ifdef ISIG
02400 fprintf (out, "(cl:defconstant ISIG %d \"NIL\")\n", ISIG);
02401 #else
02402 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for ISIG (unknown to the C compiler).\")\n");
02403 #endif
02404 fprintf (out, "(cl:export 'ISIG)\n");
02405 #ifdef NOFLSH
02406 fprintf (out, "(cl:defconstant NOFLSH %d \"NIL\")\n", NOFLSH);
02407 #else
02408 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for NOFLSH (unknown to the C compiler).\")\n");
02409 #endif
02410 fprintf (out, "(cl:export 'NOFLSH)\n");
02411 #ifdef TOSTOP
02412 fprintf (out, "(cl:defconstant TOSTOP %d \"NIL\")\n", TOSTOP);
02413 #else
02414 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TOSTOP (unknown to the C compiler).\")\n");
02415 #endif
02416 fprintf (out, "(cl:export 'TOSTOP)\n");
02417 #ifdef TCSANOW
02418 fprintf (out, "(cl:defconstant TCSANOW %d \"NIL\")\n", TCSANOW);
02419 #else
02420 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCSANOW (unknown to the C compiler).\")\n");
02421 #endif
02422 fprintf (out, "(cl:export 'TCSANOW)\n");
02423 #ifdef TCSADRAIN
02424 fprintf (out, "(cl:defconstant TCSADRAIN %d \"NIL\")\n", TCSADRAIN);
02425 #else
02426 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCSADRAIN (unknown to the C compiler).\")\n");
02427 #endif
02428 fprintf (out, "(cl:export 'TCSADRAIN)\n");
02429 #ifdef TCSAFLUSH
02430 fprintf (out, "(cl:defconstant TCSAFLUSH %d \"NIL\")\n", TCSAFLUSH);
02431 #else
02432 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCSAFLUSH (unknown to the C compiler).\")\n");
02433 #endif
02434 fprintf (out, "(cl:export 'TCSAFLUSH)\n");
02435 #ifdef TCIFLUSH
02436 fprintf (out, "(cl:defconstant TCIFLUSH %d \"NIL\")\n", TCIFLUSH);
02437 #else
02438 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCIFLUSH (unknown to the C compiler).\")\n");
02439 #endif
02440 fprintf (out, "(cl:export 'TCIFLUSH)\n");
02441 #ifdef TCIOFLUSH
02442 fprintf (out, "(cl:defconstant TCIOFLUSH %d \"NIL\")\n", TCIOFLUSH);
02443 #else
02444 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCIOFLUSH (unknown to the C compiler).\")\n");
02445 #endif
02446 fprintf (out, "(cl:export 'TCIOFLUSH)\n");
02447 #ifdef TCOFLUSH
02448 fprintf (out, "(cl:defconstant TCOFLUSH %d \"NIL\")\n", TCOFLUSH);
02449 #else
02450 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCOFLUSH (unknown to the C compiler).\")\n");
02451 #endif
02452 fprintf (out, "(cl:export 'TCOFLUSH)\n");
02453 #ifdef TCIOFF
02454 fprintf (out, "(cl:defconstant TCIOFF %d \"NIL\")\n", TCIOFF);
02455 #else
02456 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCIOFF (unknown to the C compiler).\")\n");
02457 #endif
02458 fprintf (out, "(cl:export 'TCIOFF)\n");
02459 #ifdef TCION
02460 fprintf (out, "(cl:defconstant TCION %d \"NIL\")\n", TCION);
02461 #else
02462 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCION (unknown to the C compiler).\")\n");
02463 #endif
02464 fprintf (out, "(cl:export 'TCION)\n");
02465 #ifdef TCOOFF
02466 fprintf (out, "(cl:defconstant TCOOFF %d \"NIL\")\n", TCOOFF);
02467 #else
02468 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCOOFF (unknown to the C compiler).\")\n");
02469 #endif
02470 fprintf (out, "(cl:export 'TCOOFF)\n");
02471 #ifdef TCOON
02472 fprintf (out, "(cl:defconstant TCOON %d \"NIL\")\n", TCOON);
02473 #else
02474 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for TCOON (unknown to the C compiler).\")\n");
02475 #endif
02476 fprintf (out, "(cl:export 'TCOON)\n");
02477 #ifdef LOG_USER
02478 fprintf (out, "(cl:defconstant LOG-USER %d \"Default openlog() faclity.\")\n", LOG_USER);
02479 #else
02480 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_USER (unknown to the C compiler).\")\n");
02481 #endif
02482 fprintf (out, "(cl:export 'LOG-USER)\n");
02483 #ifdef LOG_LOCAL0
02484 fprintf (out, "(cl:defconstant LOG-LOCAL0 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL0);
02485 #else
02486 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL0 (unknown to the C compiler).\")\n");
02487 #endif
02488 fprintf (out, "(cl:export 'LOG-LOCAL0)\n");
02489 #ifdef LOG_LOCAL1
02490 fprintf (out, "(cl:defconstant LOG-LOCAL1 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL1);
02491 #else
02492 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL1 (unknown to the C compiler).\")\n");
02493 #endif
02494 fprintf (out, "(cl:export 'LOG-LOCAL1)\n");
02495 #ifdef LOG_LOCAL2
02496 fprintf (out, "(cl:defconstant LOG-LOCAL2 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL2);
02497 #else
02498 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL2 (unknown to the C compiler).\")\n");
02499 #endif
02500 fprintf (out, "(cl:export 'LOG-LOCAL2)\n");
02501 #ifdef LOG_LOCAL3
02502 fprintf (out, "(cl:defconstant LOG-LOCAL3 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL3);
02503 #else
02504 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL3 (unknown to the C compiler).\")\n");
02505 #endif
02506 fprintf (out, "(cl:export 'LOG-LOCAL3)\n");
02507 #ifdef LOG_LOCAL4
02508 fprintf (out, "(cl:defconstant LOG-LOCAL4 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL4);
02509 #else
02510 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL4 (unknown to the C compiler).\")\n");
02511 #endif
02512 fprintf (out, "(cl:export 'LOG-LOCAL4)\n");
02513 #ifdef LOG_LOCAL5
02514 fprintf (out, "(cl:defconstant LOG-LOCAL5 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL5);
02515 #else
02516 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL5 (unknown to the C compiler).\")\n");
02517 #endif
02518 fprintf (out, "(cl:export 'LOG-LOCAL5)\n");
02519 #ifdef LOG_LOCAL6
02520 fprintf (out, "(cl:defconstant LOG-LOCAL6 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL6);
02521 #else
02522 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL6 (unknown to the C compiler).\")\n");
02523 #endif
02524 fprintf (out, "(cl:export 'LOG-LOCAL6)\n");
02525 #ifdef LOG_LOCAL7
02526 fprintf (out, "(cl:defconstant LOG-LOCAL7 %d \"Locally-defined openlog() facility\")\n", LOG_LOCAL7);
02527 #else
02528 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LOCAL7 (unknown to the C compiler).\")\n");
02529 #endif
02530 fprintf (out, "(cl:export 'LOG-LOCAL7)\n");
02531 #ifdef LOG_AUTHPRIV
02532 fprintf (out, "(cl:defconstant LOG-AUTHPRIV %d \"openlog() facility for authorization messages\")\n", LOG_AUTHPRIV);
02533 #else
02534 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_AUTHPRIV (unknown to the C compiler).\")\n");
02535 #endif
02536 fprintf (out, "(cl:export 'LOG-AUTHPRIV)\n");
02537 #ifdef LOG_CRON
02538 fprintf (out, "(cl:defconstant LOG-CRON %d \"openlog() facility for cron and at daemons\")\n", LOG_CRON);
02539 #else
02540 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_CRON (unknown to the C compiler).\")\n");
02541 #endif
02542 fprintf (out, "(cl:export 'LOG-CRON)\n");
02543 #ifdef LOG_DAEMON
02544 fprintf (out, "(cl:defconstant LOG-DAEMON %d \"openlog() facility for arbitrary daemons\")\n", LOG_DAEMON);
02545 #else
02546 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_DAEMON (unknown to the C compiler).\")\n");
02547 #endif
02548 fprintf (out, "(cl:export 'LOG-DAEMON)\n");
02549 #ifdef LOG_FTP
02550 fprintf (out, "(cl:defconstant LOG-FTP %d \"openlog() facility for FTP daemons\")\n", LOG_FTP);
02551 #else
02552 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_FTP (unknown to the C compiler).\")\n");
02553 #endif
02554 fprintf (out, "(cl:export 'LOG-FTP)\n");
02555 #ifdef LOG_KERN
02556 fprintf (out, "(cl:defconstant LOG-KERN %d \"openlog() facility for kernel messages\")\n", LOG_KERN);
02557 #else
02558 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_KERN (unknown to the C compiler).\")\n");
02559 #endif
02560 fprintf (out, "(cl:export 'LOG-KERN)\n");
02561 #ifdef LOG_LPR
02562 fprintf (out, "(cl:defconstant LOG-LPR %d \"openlog() facility for the printer subsystem\")\n", LOG_LPR);
02563 #else
02564 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_LPR (unknown to the C compiler).\")\n");
02565 #endif
02566 fprintf (out, "(cl:export 'LOG-LPR)\n");
02567 #ifdef LOG_MAIL
02568 fprintf (out, "(cl:defconstant LOG-MAIL %d \"openlog() facility for the mail subsystem\")\n", LOG_MAIL);
02569 #else
02570 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_MAIL (unknown to the C compiler).\")\n");
02571 #endif
02572 fprintf (out, "(cl:export 'LOG-MAIL)\n");
02573 #ifdef LOG_NEWS
02574 fprintf (out, "(cl:defconstant LOG-NEWS %d \"openlog() facility for the usenet subsystem\")\n", LOG_NEWS);
02575 #else
02576 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_NEWS (unknown to the C compiler).\")\n");
02577 #endif
02578 fprintf (out, "(cl:export 'LOG-NEWS)\n");
02579 #ifdef LOG_SYSLOG
02580 fprintf (out, "(cl:defconstant LOG-SYSLOG %d \"openlog() facility for the syslog subsystem\")\n", LOG_SYSLOG);
02581 #else
02582 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_SYSLOG (unknown to the C compiler).\")\n");
02583 #endif
02584 fprintf (out, "(cl:export 'LOG-SYSLOG)\n");
02585 #ifdef LOG_UUCP
02586 fprintf (out, "(cl:defconstant LOG-UUCP %d \"openlog() facility for the UUCP subsystem\")\n", LOG_UUCP);
02587 #else
02588 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_UUCP (unknown to the C compiler).\")\n");
02589 #endif
02590 fprintf (out, "(cl:export 'LOG-UUCP)\n");
02591 #ifdef LOG_PID
02592 fprintf (out, "(cl:defconstant LOG-PID %d \"If supplied to openlog(), log the process ID with each message\")\n", LOG_PID);
02593 #else
02594 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_PID (unknown to the C compiler).\")\n");
02595 #endif
02596 fprintf (out, "(cl:export 'LOG-PID)\n");
02597 #ifdef LOG_CONS
02598 fprintf (out, "(cl:defconstant LOG-CONS %d \"If supplied to openlog(), log to the system console as well as logfiles\")\n", LOG_CONS);
02599 #else
02600 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_CONS (unknown to the C compiler).\")\n");
02601 #endif
02602 fprintf (out, "(cl:export 'LOG-CONS)\n");
02603 #ifdef LOG_NDELAY
02604 fprintf (out, "(cl:defconstant LOG-NDELAY %d \"If supplied to openlog(), immediately open the syslog connection.\")\n", LOG_NDELAY);
02605 #else
02606 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_NDELAY (unknown to the C compiler).\")\n");
02607 #endif
02608 fprintf (out, "(cl:export 'LOG-NDELAY)\n");
02609 #ifdef LOG_ODELAY
02610 fprintf (out, "(cl:defconstant LOG-ODELAY %d \"If supplied to openlog(), delay opening the syslog connection to the first syslog() call.\")\n", LOG_ODELAY);
02611 #else
02612 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_ODELAY (unknown to the C compiler).\")\n");
02613 #endif
02614 fprintf (out, "(cl:export 'LOG-ODELAY)\n");
02615 #ifdef LOG_NOWAIT
02616 fprintf (out, "(cl:defconstant LOG-NOWAIT %d \"If supplied to openlog(), do not wait for child processes created by calls to syslog().\")\n", LOG_NOWAIT);
02617 #else
02618 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_NOWAIT (unknown to the C compiler).\")\n");
02619 #endif
02620 fprintf (out, "(cl:export 'LOG-NOWAIT)\n");
02621 #ifdef LOG_PERROR
02622 fprintf (out, "(cl:defconstant LOG-PERROR %d \"If supplied to openlog(), write log messages to the process's standard error descriptor in addition to the logging facility.\")\n", LOG_PERROR);
02623 #else
02624 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_PERROR (unknown to the C compiler).\")\n");
02625 #endif
02626 fprintf (out, "(cl:export 'LOG-PERROR)\n");
02627 #ifdef LOG_EMERG
02628 fprintf (out, "(cl:defconstant LOG-EMERG %d \"Log severity level denoting a panic.\")\n", LOG_EMERG);
02629 #else
02630 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_EMERG (unknown to the C compiler).\")\n");
02631 #endif
02632 fprintf (out, "(cl:export 'LOG-EMERG)\n");
02633 #ifdef LOG_ALERT
02634 fprintf (out, "(cl:defconstant LOG-ALERT %d \"Log severity level denoting a condition that should be corrected immediately.\")\n", LOG_ALERT);
02635 #else
02636 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_ALERT (unknown to the C compiler).\")\n");
02637 #endif
02638 fprintf (out, "(cl:export 'LOG-ALERT)\n");
02639 #ifdef LOG_CRIT
02640 fprintf (out, "(cl:defconstant LOG-CRIT %d \"Log severity level denoting critical conditions.\")\n", LOG_CRIT);
02641 #else
02642 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_CRIT (unknown to the C compiler).\")\n");
02643 #endif
02644 fprintf (out, "(cl:export 'LOG-CRIT)\n");
02645 #ifdef LOG_ERR
02646 fprintf (out, "(cl:defconstant LOG-ERR %d \"Log severity level denoting an error.\")\n", LOG_ERR);
02647 #else
02648 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_ERR (unknown to the C compiler).\")\n");
02649 #endif
02650 fprintf (out, "(cl:export 'LOG-ERR)\n");
02651 #ifdef LOG_WARNING
02652 fprintf (out, "(cl:defconstant LOG-WARNING %d \"Log severity level denoting a warning.\")\n", LOG_WARNING);
02653 #else
02654 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_WARNING (unknown to the C compiler).\")\n");
02655 #endif
02656 fprintf (out, "(cl:export 'LOG-WARNING)\n");
02657 #ifdef LOG_NOTICE
02658 fprintf (out, "(cl:defconstant LOG-NOTICE %d \"Log severity level denoting non-errors that may require special handling.\")\n", LOG_NOTICE);
02659 #else
02660 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_NOTICE (unknown to the C compiler).\")\n");
02661 #endif
02662 fprintf (out, "(cl:export 'LOG-NOTICE)\n");
02663 #ifdef LOG_INFO
02664 fprintf (out, "(cl:defconstant LOG-INFO %d \"Log severity level denoting informational messages.\")\n", LOG_INFO);
02665 #else
02666 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_INFO (unknown to the C compiler).\")\n");
02667 #endif
02668 fprintf (out, "(cl:export 'LOG-INFO)\n");
02669 #ifdef LOG_DEBUG
02670 fprintf (out, "(cl:defconstant LOG-DEBUG %d \"Log severity level denoting debugging information .\")\n", LOG_DEBUG);
02671 #else
02672 fprintf (out, "(sb-int:style-warn \"Couldn't grovel for LOG_DEBUG (unknown to the C compiler).\")\n");
02673 #endif
02674 fprintf (out, "(cl:export 'LOG-DEBUG)\n");
02675 return 0;
02676 }
