Ticket #17566: foo.c

File foo.c, 117.2 KB (added by hoanga, 3 years ago)

Example C file that cannot compile on more recent nightlies

Line 
1#include <stdio.h>
2#include <sys/types.h>
3#include <sys/stat.h>
4#include <sys/time.h>
5#include <utime.h>
6#include <sys/socket.h>
7#include <sys/un.h>
8#include <netinet/in.h>
9#include <netinet/in_systm.h>
10#include <netinet/ip.h>
11#include <net/if.h>
12#include <netinet/tcp.h>
13#include <sys/mman.h>
14#include <sys/wait.h>
15#include <fcntl.h>
16#include <netdb.h>
17#include <errno.h>
18#include <dirent.h>
19#include <signal.h>
20#include <pwd.h>
21#include <grp.h>
22#include <unistd.h>
23#include <termios.h>
24#include <syslog.h>
25#define SIGNEDP(x) (((x)-1)<0)
26#define SIGNED_(x) (SIGNEDP(x)?"":"un")
27#define CAST_SIGNED(x) ((sizeof(x) == 4)? (long) (int) (x): (x))
28int main(int argc, char *argv[]) {
29 FILE *out;
30 if (argc != 2) {
31 printf("Invalid argcount!");
32 return 1;
33 } else
34 out = fopen(argv[1], "w");
35 if (!out) {
36 printf("Error opening output file!");
37 return 1;
38 }
39 fprintf(out, "(cl:in-package #:SB-POSIX)\n");
40 fprintf(out, "(cl:eval-when (:compile-toplevel :execute)\n");
41 fprintf(out, " (cl:defparameter *integer-sizes* (cl:make-hash-table))\n");
42 fprintf(out, " (cl:setf (cl:gethash %ld *integer-sizes*) 'sb-alien:char)\n", CAST_SIGNED(sizeof(char)));
43 fprintf(out, " (cl:setf (cl:gethash %ld *integer-sizes*) 'sb-alien:short)\n", CAST_SIGNED(sizeof(short)));
44 fprintf(out, " (cl:setf (cl:gethash %ld *integer-sizes*) 'sb-alien:long-long)\n", CAST_SIGNED(sizeof(long long)));
45 fprintf(out, " (cl:setf (cl:gethash %ld *integer-sizes*) 'sb-alien:long)\n", CAST_SIGNED(sizeof(long)));
46 fprintf(out, " (cl:setf (cl:gethash %ld *integer-sizes*) 'sb-alien:int)\n", CAST_SIGNED(sizeof(int)));
47 fprintf(out, ")\n");
48#ifdef AF_INET
49 fprintf(out, "(cl:defconstant AF-INET %ld \"IP Protocol family\")\n", CAST_SIGNED(AF_INET));
50#else
51 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"AF_INET\")\n");
52#endif
53 fprintf(out, "(cl:export 'AF-INET)\n");
54 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type UID-T (sb-alien:%ssigned %ld)))\n", SIGNED_(uid_t), CAST_SIGNED((8*sizeof(uid_t))));
55 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type GID-T (sb-alien:%ssigned %ld)))\n", SIGNED_(gid_t), CAST_SIGNED((8*sizeof(gid_t))));
56 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type NLINK-T (sb-alien:%ssigned %ld)))\n", SIGNED_(nlink_t), CAST_SIGNED((8*sizeof(nlink_t))));
57 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type PID-T (sb-alien:%ssigned %ld)))\n", SIGNED_(pid_t), CAST_SIGNED((8*sizeof(pid_t))));
58 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type INO-T (sb-alien:%ssigned %ld)))\n", SIGNED_(ino_t), CAST_SIGNED((8*sizeof(ino_t))));
59 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type TIME-T (sb-alien:%ssigned %ld)))\n", SIGNED_(time_t), CAST_SIGNED((8*sizeof(time_t))));
60 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type DEV-T (sb-alien:%ssigned %ld)))\n", SIGNED_(dev_t), CAST_SIGNED((8*sizeof(dev_t))));
61#ifdef SIGHUP
62 fprintf(out, "(cl:defconstant SIGHUP %ld \"terminal line hangup.\")\n", CAST_SIGNED(SIGHUP));
63#else
64 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGHUP\")\n");
65#endif
66 fprintf(out, "(cl:export 'SIGHUP)\n");
67#ifdef SIGINT
68 fprintf(out, "(cl:defconstant SIGINT %ld \"interrupt program.\")\n", CAST_SIGNED(SIGINT));
69#else
70 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGINT\")\n");
71#endif
72 fprintf(out, "(cl:export 'SIGINT)\n");
73#ifdef SIGQUIT
74 fprintf(out, "(cl:defconstant SIGQUIT %ld \"quit program.\")\n", CAST_SIGNED(SIGQUIT));
75#else
76 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGQUIT\")\n");
77#endif
78 fprintf(out, "(cl:export 'SIGQUIT)\n");
79#ifdef SIGILL
80 fprintf(out, "(cl:defconstant SIGILL %ld \"illegal instruction.\")\n", CAST_SIGNED(SIGILL));
81#else
82 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGILL\")\n");
83#endif
84 fprintf(out, "(cl:export 'SIGILL)\n");
85#ifdef SIGTRAP
86 fprintf(out, "(cl:defconstant SIGTRAP %ld \"trace trap.\")\n", CAST_SIGNED(SIGTRAP));
87#else
88 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGTRAP\")\n");
89#endif
90 fprintf(out, "(cl:export 'SIGTRAP)\n");
91#ifdef SIGABRT
92 fprintf(out, "(cl:defconstant SIGABRT %ld \"abort program (formerly SIGIOT).\")\n", CAST_SIGNED(SIGABRT));
93#else
94 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGABRT\")\n");
95#endif
96 fprintf(out, "(cl:export 'SIGABRT)\n");
97#ifdef SIGEMT
98 fprintf(out, "(cl:defconstant SIGEMT %ld \"emulate instruction executed.\")\n", CAST_SIGNED(SIGEMT));
99#else
100 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGEMT\")\n");
101#endif
102 fprintf(out, "(cl:export 'SIGEMT)\n");
103#ifdef SIGFPE
104 fprintf(out, "(cl:defconstant SIGFPE %ld \"floating-point exception.\")\n", CAST_SIGNED(SIGFPE));
105#else
106 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGFPE\")\n");
107#endif
108 fprintf(out, "(cl:export 'SIGFPE)\n");
109#ifdef SIGKILL
110 fprintf(out, "(cl:defconstant SIGKILL %ld \"kill program.\")\n", CAST_SIGNED(SIGKILL));
111#else
112 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGKILL\")\n");
113#endif
114 fprintf(out, "(cl:export 'SIGKILL)\n");
115#ifdef SIGBUS
116 fprintf(out, "(cl:defconstant SIGBUS %ld \"bus error.\")\n", CAST_SIGNED(SIGBUS));
117#else
118 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGBUS\")\n");
119#endif
120 fprintf(out, "(cl:export 'SIGBUS)\n");
121#ifdef SIGSEGV
122 fprintf(out, "(cl:defconstant SIGSEGV %ld \"segmentation violation.\")\n", CAST_SIGNED(SIGSEGV));
123#else
124 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGSEGV\")\n");
125#endif
126 fprintf(out, "(cl:export 'SIGSEGV)\n");
127#ifdef SIGSYS
128 fprintf(out, "(cl:defconstant SIGSYS %ld \"non-existent system call invoked.\")\n", CAST_SIGNED(SIGSYS));
129#else
130 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGSYS\")\n");
131#endif
132 fprintf(out, "(cl:export 'SIGSYS)\n");
133#ifdef SIGPIPE
134 fprintf(out, "(cl:defconstant SIGPIPE %ld \"write on a pipe with no reader.\")\n", CAST_SIGNED(SIGPIPE));
135#else
136 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGPIPE\")\n");
137#endif
138 fprintf(out, "(cl:export 'SIGPIPE)\n");
139#ifdef SIGALRM
140 fprintf(out, "(cl:defconstant SIGALRM %ld \"real-time timer expired.\")\n", CAST_SIGNED(SIGALRM));
141#else
142 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGALRM\")\n");
143#endif
144 fprintf(out, "(cl:export 'SIGALRM)\n");
145#ifdef SIGTERM
146 fprintf(out, "(cl:defconstant SIGTERM %ld \"software termination signal.\")\n", CAST_SIGNED(SIGTERM));
147#else
148 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGTERM\")\n");
149#endif
150 fprintf(out, "(cl:export 'SIGTERM)\n");
151#ifdef SIGURG
152 fprintf(out, "(cl:defconstant SIGURG %ld \"urgent condition present on socket.\")\n", CAST_SIGNED(SIGURG));
153#else
154 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGURG\")\n");
155#endif
156 fprintf(out, "(cl:export 'SIGURG)\n");
157#ifdef SIGSTOP
158 fprintf(out, "(cl:defconstant SIGSTOP %ld \"stop (cannot be caught or ignored).\")\n", CAST_SIGNED(SIGSTOP));
159#else
160 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGSTOP\")\n");
161#endif
162 fprintf(out, "(cl:export 'SIGSTOP)\n");
163#ifdef SIGTSTP
164 fprintf(out, "(cl:defconstant SIGTSTP %ld \"stop signal generated from keyboard.\")\n", CAST_SIGNED(SIGTSTP));
165#else
166 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGTSTP\")\n");
167#endif
168 fprintf(out, "(cl:export 'SIGTSTP)\n");
169#ifdef SIGCONT
170 fprintf(out, "(cl:defconstant SIGCONT %ld \"continue after stop.\")\n", CAST_SIGNED(SIGCONT));
171#else
172 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGCONT\")\n");
173#endif
174 fprintf(out, "(cl:export 'SIGCONT)\n");
175#ifdef SIGCHLD
176 fprintf(out, "(cl:defconstant SIGCHLD %ld \"child status has changed.\")\n", CAST_SIGNED(SIGCHLD));
177#else
178 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGCHLD\")\n");
179#endif
180 fprintf(out, "(cl:export 'SIGCHLD)\n");
181#ifdef SIGTTIN
182 fprintf(out, "(cl:defconstant SIGTTIN %ld \"background read attempted from control terminal.\")\n", CAST_SIGNED(SIGTTIN));
183#else
184 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGTTIN\")\n");
185#endif
186 fprintf(out, "(cl:export 'SIGTTIN)\n");
187#ifdef SIGTTOU
188 fprintf(out, "(cl:defconstant SIGTTOU %ld \"background write attempted to control terminal.\")\n", CAST_SIGNED(SIGTTOU));
189#else
190 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGTTOU\")\n");
191#endif
192 fprintf(out, "(cl:export 'SIGTTOU)\n");
193#ifdef SIGXCPU
194 fprintf(out, "(cl:defconstant SIGXCPU %ld \"cpu time limit exceeded (see setrlimit(2)).\")\n", CAST_SIGNED(SIGXCPU));
195#else
196 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGXCPU\")\n");
197#endif
198 fprintf(out, "(cl:export 'SIGXCPU)\n");
199#ifdef SIGXFSZ
200 fprintf(out, "(cl:defconstant SIGXFSZ %ld \"file size limit exceeded (see setrlimit(2)).\")\n", CAST_SIGNED(SIGXFSZ));
201#else
202 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGXFSZ\")\n");
203#endif
204 fprintf(out, "(cl:export 'SIGXFSZ)\n");
205#ifdef SIGVTALRM
206 fprintf(out, "(cl:defconstant SIGVTALRM %ld \"virtual time alarm (see setitimer(2)).\")\n", CAST_SIGNED(SIGVTALRM));
207#else
208 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGVTALRM\")\n");
209#endif
210 fprintf(out, "(cl:export 'SIGVTALRM)\n");
211#ifdef SIGPROF
212 fprintf(out, "(cl:defconstant SIGPROF %ld \"profiling timer alarm (see setitimer(2)).\")\n", CAST_SIGNED(SIGPROF));
213#else
214 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGPROF\")\n");
215#endif
216 fprintf(out, "(cl:export 'SIGPROF)\n");
217#ifdef SIGWINCH
218 fprintf(out, "(cl:defconstant SIGWINCH %ld \"Window size change.\")\n", CAST_SIGNED(SIGWINCH));
219#else
220 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGWINCH\")\n");
221#endif
222 fprintf(out, "(cl:export 'SIGWINCH)\n");
223#ifdef SIGPWR
224 fprintf(out, "(cl:defconstant SIGPWR %ld \"Power failure.\")\n", CAST_SIGNED(SIGPWR));
225#else
226 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGPWR\")\n");
227#endif
228 fprintf(out, "(cl:export 'SIGPWR)\n");
229#ifdef SIGUSR1
230 fprintf(out, "(cl:defconstant SIGUSR1 %ld \"User defined signal 1.\")\n", CAST_SIGNED(SIGUSR1));
231#else
232 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGUSR1\")\n");
233#endif
234 fprintf(out, "(cl:export 'SIGUSR1)\n");
235#ifdef SIGUSR2
236 fprintf(out, "(cl:defconstant SIGUSR2 %ld \"User defined signal 2.\")\n", CAST_SIGNED(SIGUSR2));
237#else
238 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGUSR2\")\n");
239#endif
240 fprintf(out, "(cl:export 'SIGUSR2)\n");
241#ifdef SIGRTMIN
242 fprintf(out, "(cl:defconstant SIGRTMIN %ld \"Smallest real-time signal number.\")\n", CAST_SIGNED(SIGRTMIN));
243#else
244 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGRTMIN\")\n");
245#endif
246 fprintf(out, "(cl:export 'SIGRTMIN)\n");
247#ifdef SIGRTMAX
248 fprintf(out, "(cl:defconstant SIGRTMAX %ld \"Largest real-time signal number.\")\n", CAST_SIGNED(SIGRTMAX));
249#else
250 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SIGRTMAX\")\n");
251#endif
252 fprintf(out, "(cl:export 'SIGRTMAX)\n");
253#ifdef EPERM
254 fprintf(out, "(cl:defconstant EPERM %ld)\n", CAST_SIGNED(EPERM));
255 fprintf(out, "(cl:setf (get 'EPERM 'errno) t)\n");
256#else
257 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EPERM\")\n");
258#endif
259 fprintf(out, "(cl:export 'EPERM)\n");
260#ifdef ENOENT
261 fprintf(out, "(cl:defconstant ENOENT %ld)\n", CAST_SIGNED(ENOENT));
262 fprintf(out, "(cl:setf (get 'ENOENT 'errno) t)\n");
263#else
264 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOENT\")\n");
265#endif
266 fprintf(out, "(cl:export 'ENOENT)\n");
267#ifdef ESRCH
268 fprintf(out, "(cl:defconstant ESRCH %ld)\n", CAST_SIGNED(ESRCH));
269 fprintf(out, "(cl:setf (get 'ESRCH 'errno) t)\n");
270#else
271 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESRCH\")\n");
272#endif
273 fprintf(out, "(cl:export 'ESRCH)\n");
274#ifdef EINTR
275 fprintf(out, "(cl:defconstant EINTR %ld)\n", CAST_SIGNED(EINTR));
276 fprintf(out, "(cl:setf (get 'EINTR 'errno) t)\n");
277#else
278 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EINTR\")\n");
279#endif
280 fprintf(out, "(cl:export 'EINTR)\n");
281#ifdef EIO
282 fprintf(out, "(cl:defconstant EIO %ld)\n", CAST_SIGNED(EIO));
283 fprintf(out, "(cl:setf (get 'EIO 'errno) t)\n");
284#else
285 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EIO\")\n");
286#endif
287 fprintf(out, "(cl:export 'EIO)\n");
288#ifdef ENXIO
289 fprintf(out, "(cl:defconstant ENXIO %ld)\n", CAST_SIGNED(ENXIO));
290 fprintf(out, "(cl:setf (get 'ENXIO 'errno) t)\n");
291#else
292 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENXIO\")\n");
293#endif
294 fprintf(out, "(cl:export 'ENXIO)\n");
295#ifdef E2BIG
296 fprintf(out, "(cl:defconstant E2BIG %ld)\n", CAST_SIGNED(E2BIG));
297 fprintf(out, "(cl:setf (get 'E2BIG 'errno) t)\n");
298#else
299 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"E2BIG\")\n");
300#endif
301 fprintf(out, "(cl:export 'E2BIG)\n");
302#ifdef ENOEXEC
303 fprintf(out, "(cl:defconstant ENOEXEC %ld)\n", CAST_SIGNED(ENOEXEC));
304 fprintf(out, "(cl:setf (get 'ENOEXEC 'errno) t)\n");
305#else
306 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOEXEC\")\n");
307#endif
308 fprintf(out, "(cl:export 'ENOEXEC)\n");
309#ifdef EBADF
310 fprintf(out, "(cl:defconstant EBADF %ld)\n", CAST_SIGNED(EBADF));
311 fprintf(out, "(cl:setf (get 'EBADF 'errno) t)\n");
312#else
313 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADF\")\n");
314#endif
315 fprintf(out, "(cl:export 'EBADF)\n");
316#ifdef ECHILD
317 fprintf(out, "(cl:defconstant ECHILD %ld)\n", CAST_SIGNED(ECHILD));
318 fprintf(out, "(cl:setf (get 'ECHILD 'errno) t)\n");
319#else
320 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECHILD\")\n");
321#endif
322 fprintf(out, "(cl:export 'ECHILD)\n");
323#ifdef EAGAIN
324 fprintf(out, "(cl:defconstant EAGAIN %ld)\n", CAST_SIGNED(EAGAIN));
325 fprintf(out, "(cl:setf (get 'EAGAIN 'errno) t)\n");
326#else
327 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EAGAIN\")\n");
328#endif
329 fprintf(out, "(cl:export 'EAGAIN)\n");
330#ifdef ENOMEM
331 fprintf(out, "(cl:defconstant ENOMEM %ld)\n", CAST_SIGNED(ENOMEM));
332 fprintf(out, "(cl:setf (get 'ENOMEM 'errno) t)\n");
333#else
334 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOMEM\")\n");
335#endif
336 fprintf(out, "(cl:export 'ENOMEM)\n");
337#ifdef EACCES
338 fprintf(out, "(cl:defconstant EACCES %ld)\n", CAST_SIGNED(EACCES));
339 fprintf(out, "(cl:setf (get 'EACCES 'errno) t)\n");
340#else
341 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EACCES\")\n");
342#endif
343 fprintf(out, "(cl:export 'EACCES)\n");
344#ifdef EFAULT
345 fprintf(out, "(cl:defconstant EFAULT %ld)\n", CAST_SIGNED(EFAULT));
346 fprintf(out, "(cl:setf (get 'EFAULT 'errno) t)\n");
347#else
348 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EFAULT\")\n");
349#endif
350 fprintf(out, "(cl:export 'EFAULT)\n");
351#ifdef ENOTBLK
352 fprintf(out, "(cl:defconstant ENOTBLK %ld)\n", CAST_SIGNED(ENOTBLK));
353 fprintf(out, "(cl:setf (get 'ENOTBLK 'errno) t)\n");
354#else
355 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTBLK\")\n");
356#endif
357 fprintf(out, "(cl:export 'ENOTBLK)\n");
358#ifdef EBUSY
359 fprintf(out, "(cl:defconstant EBUSY %ld)\n", CAST_SIGNED(EBUSY));
360 fprintf(out, "(cl:setf (get 'EBUSY 'errno) t)\n");
361#else
362 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBUSY\")\n");
363#endif
364 fprintf(out, "(cl:export 'EBUSY)\n");
365#ifdef EEXIST
366 fprintf(out, "(cl:defconstant EEXIST %ld)\n", CAST_SIGNED(EEXIST));
367 fprintf(out, "(cl:setf (get 'EEXIST 'errno) t)\n");
368#else
369 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EEXIST\")\n");
370#endif
371 fprintf(out, "(cl:export 'EEXIST)\n");
372#ifdef EXDEV
373 fprintf(out, "(cl:defconstant EXDEV %ld)\n", CAST_SIGNED(EXDEV));
374 fprintf(out, "(cl:setf (get 'EXDEV 'errno) t)\n");
375#else
376 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EXDEV\")\n");
377#endif
378 fprintf(out, "(cl:export 'EXDEV)\n");
379#ifdef ENODEV
380 fprintf(out, "(cl:defconstant ENODEV %ld)\n", CAST_SIGNED(ENODEV));
381 fprintf(out, "(cl:setf (get 'ENODEV 'errno) t)\n");
382#else
383 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENODEV\")\n");
384#endif
385 fprintf(out, "(cl:export 'ENODEV)\n");
386#ifdef ENOTDIR
387 fprintf(out, "(cl:defconstant ENOTDIR %ld)\n", CAST_SIGNED(ENOTDIR));
388 fprintf(out, "(cl:setf (get 'ENOTDIR 'errno) t)\n");
389#else
390 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTDIR\")\n");
391#endif
392 fprintf(out, "(cl:export 'ENOTDIR)\n");
393#ifdef EISDIR
394 fprintf(out, "(cl:defconstant EISDIR %ld)\n", CAST_SIGNED(EISDIR));
395 fprintf(out, "(cl:setf (get 'EISDIR 'errno) t)\n");
396#else
397 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EISDIR\")\n");
398#endif
399 fprintf(out, "(cl:export 'EISDIR)\n");
400#ifdef EINVAL
401 fprintf(out, "(cl:defconstant EINVAL %ld)\n", CAST_SIGNED(EINVAL));
402 fprintf(out, "(cl:setf (get 'EINVAL 'errno) t)\n");
403#else
404 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EINVAL\")\n");
405#endif
406 fprintf(out, "(cl:export 'EINVAL)\n");
407#ifdef ENFILE
408 fprintf(out, "(cl:defconstant ENFILE %ld)\n", CAST_SIGNED(ENFILE));
409 fprintf(out, "(cl:setf (get 'ENFILE 'errno) t)\n");
410#else
411 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENFILE\")\n");
412#endif
413 fprintf(out, "(cl:export 'ENFILE)\n");
414#ifdef EMFILE
415 fprintf(out, "(cl:defconstant EMFILE %ld)\n", CAST_SIGNED(EMFILE));
416 fprintf(out, "(cl:setf (get 'EMFILE 'errno) t)\n");
417#else
418 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EMFILE\")\n");
419#endif
420 fprintf(out, "(cl:export 'EMFILE)\n");
421#ifdef ENOTTY
422 fprintf(out, "(cl:defconstant ENOTTY %ld)\n", CAST_SIGNED(ENOTTY));
423 fprintf(out, "(cl:setf (get 'ENOTTY 'errno) t)\n");
424#else
425 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTTY\")\n");
426#endif
427 fprintf(out, "(cl:export 'ENOTTY)\n");
428#ifdef ETXTBSY
429 fprintf(out, "(cl:defconstant ETXTBSY %ld)\n", CAST_SIGNED(ETXTBSY));
430 fprintf(out, "(cl:setf (get 'ETXTBSY 'errno) t)\n");
431#else
432 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ETXTBSY\")\n");
433#endif
434 fprintf(out, "(cl:export 'ETXTBSY)\n");
435#ifdef EFBIG
436 fprintf(out, "(cl:defconstant EFBIG %ld)\n", CAST_SIGNED(EFBIG));
437 fprintf(out, "(cl:setf (get 'EFBIG 'errno) t)\n");
438#else
439 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EFBIG\")\n");
440#endif
441 fprintf(out, "(cl:export 'EFBIG)\n");
442#ifdef ENOSPC
443 fprintf(out, "(cl:defconstant ENOSPC %ld)\n", CAST_SIGNED(ENOSPC));
444 fprintf(out, "(cl:setf (get 'ENOSPC 'errno) t)\n");
445#else
446 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOSPC\")\n");
447#endif
448 fprintf(out, "(cl:export 'ENOSPC)\n");
449#ifdef ESPIPE
450 fprintf(out, "(cl:defconstant ESPIPE %ld)\n", CAST_SIGNED(ESPIPE));
451 fprintf(out, "(cl:setf (get 'ESPIPE 'errno) t)\n");
452#else
453 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESPIPE\")\n");
454#endif
455 fprintf(out, "(cl:export 'ESPIPE)\n");
456#ifdef EROFS
457 fprintf(out, "(cl:defconstant EROFS %ld)\n", CAST_SIGNED(EROFS));
458 fprintf(out, "(cl:setf (get 'EROFS 'errno) t)\n");
459#else
460 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EROFS\")\n");
461#endif
462 fprintf(out, "(cl:export 'EROFS)\n");
463#ifdef EMLINK
464 fprintf(out, "(cl:defconstant EMLINK %ld)\n", CAST_SIGNED(EMLINK));
465 fprintf(out, "(cl:setf (get 'EMLINK 'errno) t)\n");
466#else
467 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EMLINK\")\n");
468#endif
469 fprintf(out, "(cl:export 'EMLINK)\n");
470#ifdef EPIPE
471 fprintf(out, "(cl:defconstant EPIPE %ld)\n", CAST_SIGNED(EPIPE));
472 fprintf(out, "(cl:setf (get 'EPIPE 'errno) t)\n");
473#else
474 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EPIPE\")\n");
475#endif
476 fprintf(out, "(cl:export 'EPIPE)\n");
477#ifdef EDOM
478 fprintf(out, "(cl:defconstant EDOM %ld)\n", CAST_SIGNED(EDOM));
479 fprintf(out, "(cl:setf (get 'EDOM 'errno) t)\n");
480#else
481 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EDOM\")\n");
482#endif
483 fprintf(out, "(cl:export 'EDOM)\n");
484#ifdef ERANGE
485 fprintf(out, "(cl:defconstant ERANGE %ld)\n", CAST_SIGNED(ERANGE));
486 fprintf(out, "(cl:setf (get 'ERANGE 'errno) t)\n");
487#else
488 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ERANGE\")\n");
489#endif
490 fprintf(out, "(cl:export 'ERANGE)\n");
491#ifdef EDEADLK
492 fprintf(out, "(cl:defconstant EDEADLK %ld)\n", CAST_SIGNED(EDEADLK));
493 fprintf(out, "(cl:setf (get 'EDEADLK 'errno) t)\n");
494#else
495 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EDEADLK\")\n");
496#endif
497 fprintf(out, "(cl:export 'EDEADLK)\n");
498#ifdef ENAMETOOLONG
499 fprintf(out, "(cl:defconstant ENAMETOOLONG %ld)\n", CAST_SIGNED(ENAMETOOLONG));
500 fprintf(out, "(cl:setf (get 'ENAMETOOLONG 'errno) t)\n");
501#else
502 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENAMETOOLONG\")\n");
503#endif
504 fprintf(out, "(cl:export 'ENAMETOOLONG)\n");
505#ifdef ENOLCK
506 fprintf(out, "(cl:defconstant ENOLCK %ld)\n", CAST_SIGNED(ENOLCK));
507 fprintf(out, "(cl:setf (get 'ENOLCK 'errno) t)\n");
508#else
509 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOLCK\")\n");
510#endif
511 fprintf(out, "(cl:export 'ENOLCK)\n");
512#ifdef ENOSYS
513 fprintf(out, "(cl:defconstant ENOSYS %ld)\n", CAST_SIGNED(ENOSYS));
514 fprintf(out, "(cl:setf (get 'ENOSYS 'errno) t)\n");
515#else
516 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOSYS\")\n");
517#endif
518 fprintf(out, "(cl:export 'ENOSYS)\n");
519#ifdef ENOTEMPTY
520 fprintf(out, "(cl:defconstant ENOTEMPTY %ld)\n", CAST_SIGNED(ENOTEMPTY));
521 fprintf(out, "(cl:setf (get 'ENOTEMPTY 'errno) t)\n");
522#else
523 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTEMPTY\")\n");
524#endif
525 fprintf(out, "(cl:export 'ENOTEMPTY)\n");
526#ifdef ELOOP
527 fprintf(out, "(cl:defconstant ELOOP %ld)\n", CAST_SIGNED(ELOOP));
528 fprintf(out, "(cl:setf (get 'ELOOP 'errno) t)\n");
529#else
530 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELOOP\")\n");
531#endif
532 fprintf(out, "(cl:export 'ELOOP)\n");
533#ifdef EWOULDBLOCK
534 fprintf(out, "(cl:defconstant EWOULDBLOCK %ld)\n", CAST_SIGNED(EWOULDBLOCK));
535 fprintf(out, "(cl:setf (get 'EWOULDBLOCK 'errno) t)\n");
536#else
537 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EWOULDBLOCK\")\n");
538#endif
539 fprintf(out, "(cl:export 'EWOULDBLOCK)\n");
540#ifdef ENOMSG
541 fprintf(out, "(cl:defconstant ENOMSG %ld)\n", CAST_SIGNED(ENOMSG));
542 fprintf(out, "(cl:setf (get 'ENOMSG 'errno) t)\n");
543#else
544 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOMSG\")\n");
545#endif
546 fprintf(out, "(cl:export 'ENOMSG)\n");
547#ifdef EIDRM
548 fprintf(out, "(cl:defconstant EIDRM %ld)\n", CAST_SIGNED(EIDRM));
549 fprintf(out, "(cl:setf (get 'EIDRM 'errno) t)\n");
550#else
551 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EIDRM\")\n");
552#endif
553 fprintf(out, "(cl:export 'EIDRM)\n");
554#ifdef ECHRNG
555 fprintf(out, "(cl:defconstant ECHRNG %ld)\n", CAST_SIGNED(ECHRNG));
556 fprintf(out, "(cl:setf (get 'ECHRNG 'errno) t)\n");
557#else
558 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECHRNG\")\n");
559#endif
560 fprintf(out, "(cl:export 'ECHRNG)\n");
561#ifdef EL2NSYNC
562 fprintf(out, "(cl:defconstant EL2NSYNC %ld)\n", CAST_SIGNED(EL2NSYNC));
563 fprintf(out, "(cl:setf (get 'EL2NSYNC 'errno) t)\n");
564#else
565 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EL2NSYNC\")\n");
566#endif
567 fprintf(out, "(cl:export 'EL2NSYNC)\n");
568#ifdef EL3HLT
569 fprintf(out, "(cl:defconstant EL3HLT %ld)\n", CAST_SIGNED(EL3HLT));
570 fprintf(out, "(cl:setf (get 'EL3HLT 'errno) t)\n");
571#else
572 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EL3HLT\")\n");
573#endif
574 fprintf(out, "(cl:export 'EL3HLT)\n");
575#ifdef EL3RST
576 fprintf(out, "(cl:defconstant EL3RST %ld)\n", CAST_SIGNED(EL3RST));
577 fprintf(out, "(cl:setf (get 'EL3RST 'errno) t)\n");
578#else
579 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EL3RST\")\n");
580#endif
581 fprintf(out, "(cl:export 'EL3RST)\n");
582#ifdef ELNRNG
583 fprintf(out, "(cl:defconstant ELNRNG %ld)\n", CAST_SIGNED(ELNRNG));
584 fprintf(out, "(cl:setf (get 'ELNRNG 'errno) t)\n");
585#else
586 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELNRNG\")\n");
587#endif
588 fprintf(out, "(cl:export 'ELNRNG)\n");
589#ifdef EUNATCH
590 fprintf(out, "(cl:defconstant EUNATCH %ld)\n", CAST_SIGNED(EUNATCH));
591 fprintf(out, "(cl:setf (get 'EUNATCH 'errno) t)\n");
592#else
593 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EUNATCH\")\n");
594#endif
595 fprintf(out, "(cl:export 'EUNATCH)\n");
596#ifdef ENOCSI
597 fprintf(out, "(cl:defconstant ENOCSI %ld)\n", CAST_SIGNED(ENOCSI));
598 fprintf(out, "(cl:setf (get 'ENOCSI 'errno) t)\n");
599#else
600 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOCSI\")\n");
601#endif
602 fprintf(out, "(cl:export 'ENOCSI)\n");
603#ifdef EL2HLT
604 fprintf(out, "(cl:defconstant EL2HLT %ld)\n", CAST_SIGNED(EL2HLT));
605 fprintf(out, "(cl:setf (get 'EL2HLT 'errno) t)\n");
606#else
607 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EL2HLT\")\n");
608#endif
609 fprintf(out, "(cl:export 'EL2HLT)\n");
610#ifdef EBADE
611 fprintf(out, "(cl:defconstant EBADE %ld)\n", CAST_SIGNED(EBADE));
612 fprintf(out, "(cl:setf (get 'EBADE 'errno) t)\n");
613#else
614 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADE\")\n");
615#endif
616 fprintf(out, "(cl:export 'EBADE)\n");
617#ifdef EBADR
618 fprintf(out, "(cl:defconstant EBADR %ld)\n", CAST_SIGNED(EBADR));
619 fprintf(out, "(cl:setf (get 'EBADR 'errno) t)\n");
620#else
621 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADR\")\n");
622#endif
623 fprintf(out, "(cl:export 'EBADR)\n");
624#ifdef EXFULL
625 fprintf(out, "(cl:defconstant EXFULL %ld)\n", CAST_SIGNED(EXFULL));
626 fprintf(out, "(cl:setf (get 'EXFULL 'errno) t)\n");
627#else
628 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EXFULL\")\n");
629#endif
630 fprintf(out, "(cl:export 'EXFULL)\n");
631#ifdef ENOANO
632 fprintf(out, "(cl:defconstant ENOANO %ld)\n", CAST_SIGNED(ENOANO));
633 fprintf(out, "(cl:setf (get 'ENOANO 'errno) t)\n");
634#else
635 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOANO\")\n");
636#endif
637 fprintf(out, "(cl:export 'ENOANO)\n");
638#ifdef EBADRQC
639 fprintf(out, "(cl:defconstant EBADRQC %ld)\n", CAST_SIGNED(EBADRQC));
640 fprintf(out, "(cl:setf (get 'EBADRQC 'errno) t)\n");
641#else
642 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADRQC\")\n");
643#endif
644 fprintf(out, "(cl:export 'EBADRQC)\n");
645#ifdef EBADSLT
646 fprintf(out, "(cl:defconstant EBADSLT %ld)\n", CAST_SIGNED(EBADSLT));
647 fprintf(out, "(cl:setf (get 'EBADSLT 'errno) t)\n");
648#else
649 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADSLT\")\n");
650#endif
651 fprintf(out, "(cl:export 'EBADSLT)\n");
652#ifdef EDEADLOCK
653 fprintf(out, "(cl:defconstant EDEADLOCK %ld)\n", CAST_SIGNED(EDEADLOCK));
654 fprintf(out, "(cl:setf (get 'EDEADLOCK 'errno) t)\n");
655#else
656 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EDEADLOCK\")\n");
657#endif
658 fprintf(out, "(cl:export 'EDEADLOCK)\n");
659#ifdef EBFONT
660 fprintf(out, "(cl:defconstant EBFONT %ld)\n", CAST_SIGNED(EBFONT));
661 fprintf(out, "(cl:setf (get 'EBFONT 'errno) t)\n");
662#else
663 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBFONT\")\n");
664#endif
665 fprintf(out, "(cl:export 'EBFONT)\n");
666#ifdef ENOSTR
667 fprintf(out, "(cl:defconstant ENOSTR %ld)\n", CAST_SIGNED(ENOSTR));
668 fprintf(out, "(cl:setf (get 'ENOSTR 'errno) t)\n");
669#else
670 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOSTR\")\n");
671#endif
672 fprintf(out, "(cl:export 'ENOSTR)\n");
673#ifdef ENODATA
674 fprintf(out, "(cl:defconstant ENODATA %ld)\n", CAST_SIGNED(ENODATA));
675 fprintf(out, "(cl:setf (get 'ENODATA 'errno) t)\n");
676#else
677 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENODATA\")\n");
678#endif
679 fprintf(out, "(cl:export 'ENODATA)\n");
680#ifdef ETIME
681 fprintf(out, "(cl:defconstant ETIME %ld)\n", CAST_SIGNED(ETIME));
682 fprintf(out, "(cl:setf (get 'ETIME 'errno) t)\n");
683#else
684 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ETIME\")\n");
685#endif
686 fprintf(out, "(cl:export 'ETIME)\n");
687#ifdef ENOSR
688 fprintf(out, "(cl:defconstant ENOSR %ld)\n", CAST_SIGNED(ENOSR));
689 fprintf(out, "(cl:setf (get 'ENOSR 'errno) t)\n");
690#else
691 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOSR\")\n");
692#endif
693 fprintf(out, "(cl:export 'ENOSR)\n");
694#ifdef ENONET
695 fprintf(out, "(cl:defconstant ENONET %ld)\n", CAST_SIGNED(ENONET));
696 fprintf(out, "(cl:setf (get 'ENONET 'errno) t)\n");
697#else
698 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENONET\")\n");
699#endif
700 fprintf(out, "(cl:export 'ENONET)\n");
701#ifdef ENOPKG
702 fprintf(out, "(cl:defconstant ENOPKG %ld)\n", CAST_SIGNED(ENOPKG));
703 fprintf(out, "(cl:setf (get 'ENOPKG 'errno) t)\n");
704#else
705 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOPKG\")\n");
706#endif
707 fprintf(out, "(cl:export 'ENOPKG)\n");
708#ifdef EREMOTE
709 fprintf(out, "(cl:defconstant EREMOTE %ld)\n", CAST_SIGNED(EREMOTE));
710 fprintf(out, "(cl:setf (get 'EREMOTE 'errno) t)\n");
711#else
712 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EREMOTE\")\n");
713#endif
714 fprintf(out, "(cl:export 'EREMOTE)\n");
715#ifdef ENOLINK
716 fprintf(out, "(cl:defconstant ENOLINK %ld)\n", CAST_SIGNED(ENOLINK));
717 fprintf(out, "(cl:setf (get 'ENOLINK 'errno) t)\n");
718#else
719 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOLINK\")\n");
720#endif
721 fprintf(out, "(cl:export 'ENOLINK)\n");
722#ifdef EADV
723 fprintf(out, "(cl:defconstant EADV %ld)\n", CAST_SIGNED(EADV));
724 fprintf(out, "(cl:setf (get 'EADV 'errno) t)\n");
725#else
726 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EADV\")\n");
727#endif
728 fprintf(out, "(cl:export 'EADV)\n");
729#ifdef ESRMNT
730 fprintf(out, "(cl:defconstant ESRMNT %ld)\n", CAST_SIGNED(ESRMNT));
731 fprintf(out, "(cl:setf (get 'ESRMNT 'errno) t)\n");
732#else
733 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESRMNT\")\n");
734#endif
735 fprintf(out, "(cl:export 'ESRMNT)\n");
736#ifdef ECOMM
737 fprintf(out, "(cl:defconstant ECOMM %ld)\n", CAST_SIGNED(ECOMM));
738 fprintf(out, "(cl:setf (get 'ECOMM 'errno) t)\n");
739#else
740 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECOMM\")\n");
741#endif
742 fprintf(out, "(cl:export 'ECOMM)\n");
743#ifdef EPROTO
744 fprintf(out, "(cl:defconstant EPROTO %ld)\n", CAST_SIGNED(EPROTO));
745 fprintf(out, "(cl:setf (get 'EPROTO 'errno) t)\n");
746#else
747 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EPROTO\")\n");
748#endif
749 fprintf(out, "(cl:export 'EPROTO)\n");
750#ifdef EMULTIHOP
751 fprintf(out, "(cl:defconstant EMULTIHOP %ld)\n", CAST_SIGNED(EMULTIHOP));
752 fprintf(out, "(cl:setf (get 'EMULTIHOP 'errno) t)\n");
753#else
754 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EMULTIHOP\")\n");
755#endif
756 fprintf(out, "(cl:export 'EMULTIHOP)\n");
757#ifdef EDOTDOT
758 fprintf(out, "(cl:defconstant EDOTDOT %ld)\n", CAST_SIGNED(EDOTDOT));
759 fprintf(out, "(cl:setf (get 'EDOTDOT 'errno) t)\n");
760#else
761 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EDOTDOT\")\n");
762#endif
763 fprintf(out, "(cl:export 'EDOTDOT)\n");
764#ifdef EBADMSG
765 fprintf(out, "(cl:defconstant EBADMSG %ld)\n", CAST_SIGNED(EBADMSG));
766 fprintf(out, "(cl:setf (get 'EBADMSG 'errno) t)\n");
767#else
768 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADMSG\")\n");
769#endif
770 fprintf(out, "(cl:export 'EBADMSG)\n");
771#ifdef EOVERFLOW
772 fprintf(out, "(cl:defconstant EOVERFLOW %ld)\n", CAST_SIGNED(EOVERFLOW));
773 fprintf(out, "(cl:setf (get 'EOVERFLOW 'errno) t)\n");
774#else
775 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EOVERFLOW\")\n");
776#endif
777 fprintf(out, "(cl:export 'EOVERFLOW)\n");
778#ifdef ENOTUNIQ
779 fprintf(out, "(cl:defconstant ENOTUNIQ %ld)\n", CAST_SIGNED(ENOTUNIQ));
780 fprintf(out, "(cl:setf (get 'ENOTUNIQ 'errno) t)\n");
781#else
782 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTUNIQ\")\n");
783#endif
784 fprintf(out, "(cl:export 'ENOTUNIQ)\n");
785#ifdef EBADFD
786 fprintf(out, "(cl:defconstant EBADFD %ld)\n", CAST_SIGNED(EBADFD));
787 fprintf(out, "(cl:setf (get 'EBADFD 'errno) t)\n");
788#else
789 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EBADFD\")\n");
790#endif
791 fprintf(out, "(cl:export 'EBADFD)\n");
792#ifdef EREMCHG
793 fprintf(out, "(cl:defconstant EREMCHG %ld)\n", CAST_SIGNED(EREMCHG));
794 fprintf(out, "(cl:setf (get 'EREMCHG 'errno) t)\n");
795#else
796 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EREMCHG\")\n");
797#endif
798 fprintf(out, "(cl:export 'EREMCHG)\n");
799#ifdef ELIBACC
800 fprintf(out, "(cl:defconstant ELIBACC %ld)\n", CAST_SIGNED(ELIBACC));
801 fprintf(out, "(cl:setf (get 'ELIBACC 'errno) t)\n");
802#else
803 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELIBACC\")\n");
804#endif
805 fprintf(out, "(cl:export 'ELIBACC)\n");
806#ifdef ELIBBAD
807 fprintf(out, "(cl:defconstant ELIBBAD %ld)\n", CAST_SIGNED(ELIBBAD));
808 fprintf(out, "(cl:setf (get 'ELIBBAD 'errno) t)\n");
809#else
810 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELIBBAD\")\n");
811#endif
812 fprintf(out, "(cl:export 'ELIBBAD)\n");
813#ifdef ELIBSCN
814 fprintf(out, "(cl:defconstant ELIBSCN %ld)\n", CAST_SIGNED(ELIBSCN));
815 fprintf(out, "(cl:setf (get 'ELIBSCN 'errno) t)\n");
816#else
817 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELIBSCN\")\n");
818#endif
819 fprintf(out, "(cl:export 'ELIBSCN)\n");
820#ifdef ELIBMAX
821 fprintf(out, "(cl:defconstant ELIBMAX %ld)\n", CAST_SIGNED(ELIBMAX));
822 fprintf(out, "(cl:setf (get 'ELIBMAX 'errno) t)\n");
823#else
824 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELIBMAX\")\n");
825#endif
826 fprintf(out, "(cl:export 'ELIBMAX)\n");
827#ifdef ELIBEXEC
828 fprintf(out, "(cl:defconstant ELIBEXEC %ld)\n", CAST_SIGNED(ELIBEXEC));
829 fprintf(out, "(cl:setf (get 'ELIBEXEC 'errno) t)\n");
830#else
831 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ELIBEXEC\")\n");
832#endif
833 fprintf(out, "(cl:export 'ELIBEXEC)\n");
834#ifdef EILSEQ
835 fprintf(out, "(cl:defconstant EILSEQ %ld)\n", CAST_SIGNED(EILSEQ));
836 fprintf(out, "(cl:setf (get 'EILSEQ 'errno) t)\n");
837#else
838 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EILSEQ\")\n");
839#endif
840 fprintf(out, "(cl:export 'EILSEQ)\n");
841#ifdef ERESTART
842 fprintf(out, "(cl:defconstant ERESTART %ld)\n", CAST_SIGNED(ERESTART));
843 fprintf(out, "(cl:setf (get 'ERESTART 'errno) t)\n");
844#else
845 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ERESTART\")\n");
846#endif
847 fprintf(out, "(cl:export 'ERESTART)\n");
848#ifdef ESTRPIPE
849 fprintf(out, "(cl:defconstant ESTRPIPE %ld)\n", CAST_SIGNED(ESTRPIPE));
850 fprintf(out, "(cl:setf (get 'ESTRPIPE 'errno) t)\n");
851#else
852 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESTRPIPE\")\n");
853#endif
854 fprintf(out, "(cl:export 'ESTRPIPE)\n");
855#ifdef EUSERS
856 fprintf(out, "(cl:defconstant EUSERS %ld)\n", CAST_SIGNED(EUSERS));
857 fprintf(out, "(cl:setf (get 'EUSERS 'errno) t)\n");
858#else
859 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EUSERS\")\n");
860#endif
861 fprintf(out, "(cl:export 'EUSERS)\n");
862#ifdef ENOTSOCK
863 fprintf(out, "(cl:defconstant ENOTSOCK %ld)\n", CAST_SIGNED(ENOTSOCK));
864 fprintf(out, "(cl:setf (get 'ENOTSOCK 'errno) t)\n");
865#else
866 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTSOCK\")\n");
867#endif
868 fprintf(out, "(cl:export 'ENOTSOCK)\n");
869#ifdef EDESTADDRREQ
870 fprintf(out, "(cl:defconstant EDESTADDRREQ %ld)\n", CAST_SIGNED(EDESTADDRREQ));
871 fprintf(out, "(cl:setf (get 'EDESTADDRREQ 'errno) t)\n");
872#else
873 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EDESTADDRREQ\")\n");
874#endif
875 fprintf(out, "(cl:export 'EDESTADDRREQ)\n");
876#ifdef EMSGSIZE
877 fprintf(out, "(cl:defconstant EMSGSIZE %ld)\n", CAST_SIGNED(EMSGSIZE));
878 fprintf(out, "(cl:setf (get 'EMSGSIZE 'errno) t)\n");
879#else
880 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EMSGSIZE\")\n");
881#endif
882 fprintf(out, "(cl:export 'EMSGSIZE)\n");
883#ifdef EPROTOTYPE
884 fprintf(out, "(cl:defconstant EPROTOTYPE %ld)\n", CAST_SIGNED(EPROTOTYPE));
885 fprintf(out, "(cl:setf (get 'EPROTOTYPE 'errno) t)\n");
886#else
887 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EPROTOTYPE\")\n");
888#endif
889 fprintf(out, "(cl:export 'EPROTOTYPE)\n");
890#ifdef ENOPROTOOPT
891 fprintf(out, "(cl:defconstant ENOPROTOOPT %ld)\n", CAST_SIGNED(ENOPROTOOPT));
892 fprintf(out, "(cl:setf (get 'ENOPROTOOPT 'errno) t)\n");
893#else
894 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOPROTOOPT\")\n");
895#endif
896 fprintf(out, "(cl:export 'ENOPROTOOPT)\n");
897#ifdef EPROTONOSUPPORT
898 fprintf(out, "(cl:defconstant EPROTONOSUPPORT %ld)\n", CAST_SIGNED(EPROTONOSUPPORT));
899 fprintf(out, "(cl:setf (get 'EPROTONOSUPPORT 'errno) t)\n");
900#else
901 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EPROTONOSUPPORT\")\n");
902#endif
903 fprintf(out, "(cl:export 'EPROTONOSUPPORT)\n");
904#ifdef ESOCKTNOSUPPORT
905 fprintf(out, "(cl:defconstant ESOCKTNOSUPPORT %ld)\n", CAST_SIGNED(ESOCKTNOSUPPORT));
906 fprintf(out, "(cl:setf (get 'ESOCKTNOSUPPORT 'errno) t)\n");
907#else
908 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESOCKTNOSUPPORT\")\n");
909#endif
910 fprintf(out, "(cl:export 'ESOCKTNOSUPPORT)\n");
911#ifdef EOPNOTSUPP
912 fprintf(out, "(cl:defconstant EOPNOTSUPP %ld)\n", CAST_SIGNED(EOPNOTSUPP));
913 fprintf(out, "(cl:setf (get 'EOPNOTSUPP 'errno) t)\n");
914#else
915 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EOPNOTSUPP\")\n");
916#endif
917 fprintf(out, "(cl:export 'EOPNOTSUPP)\n");
918#ifdef EPFNOSUPPORT
919 fprintf(out, "(cl:defconstant EPFNOSUPPORT %ld)\n", CAST_SIGNED(EPFNOSUPPORT));
920 fprintf(out, "(cl:setf (get 'EPFNOSUPPORT 'errno) t)\n");
921#else
922 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EPFNOSUPPORT\")\n");
923#endif
924 fprintf(out, "(cl:export 'EPFNOSUPPORT)\n");
925#ifdef EAFNOSUPPORT
926 fprintf(out, "(cl:defconstant EAFNOSUPPORT %ld)\n", CAST_SIGNED(EAFNOSUPPORT));
927 fprintf(out, "(cl:setf (get 'EAFNOSUPPORT 'errno) t)\n");
928#else
929 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EAFNOSUPPORT\")\n");
930#endif
931 fprintf(out, "(cl:export 'EAFNOSUPPORT)\n");
932#ifdef EADDRINUSE
933 fprintf(out, "(cl:defconstant EADDRINUSE %ld)\n", CAST_SIGNED(EADDRINUSE));
934 fprintf(out, "(cl:setf (get 'EADDRINUSE 'errno) t)\n");
935#else
936 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EADDRINUSE\")\n");
937#endif
938 fprintf(out, "(cl:export 'EADDRINUSE)\n");
939#ifdef EADDRNOTAVAIL
940 fprintf(out, "(cl:defconstant EADDRNOTAVAIL %ld)\n", CAST_SIGNED(EADDRNOTAVAIL));
941 fprintf(out, "(cl:setf (get 'EADDRNOTAVAIL 'errno) t)\n");
942#else
943 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EADDRNOTAVAIL\")\n");
944#endif
945 fprintf(out, "(cl:export 'EADDRNOTAVAIL)\n");
946#ifdef ENETDOWN
947 fprintf(out, "(cl:defconstant ENETDOWN %ld)\n", CAST_SIGNED(ENETDOWN));
948 fprintf(out, "(cl:setf (get 'ENETDOWN 'errno) t)\n");
949#else
950 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENETDOWN\")\n");
951#endif
952 fprintf(out, "(cl:export 'ENETDOWN)\n");
953#ifdef ENETUNREACH
954 fprintf(out, "(cl:defconstant ENETUNREACH %ld)\n", CAST_SIGNED(ENETUNREACH));
955 fprintf(out, "(cl:setf (get 'ENETUNREACH 'errno) t)\n");
956#else
957 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENETUNREACH\")\n");
958#endif
959 fprintf(out, "(cl:export 'ENETUNREACH)\n");
960#ifdef ENETRESET
961 fprintf(out, "(cl:defconstant ENETRESET %ld)\n", CAST_SIGNED(ENETRESET));
962 fprintf(out, "(cl:setf (get 'ENETRESET 'errno) t)\n");
963#else
964 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENETRESET\")\n");
965#endif
966 fprintf(out, "(cl:export 'ENETRESET)\n");
967#ifdef ECONNABORTED
968 fprintf(out, "(cl:defconstant ECONNABORTED %ld)\n", CAST_SIGNED(ECONNABORTED));
969 fprintf(out, "(cl:setf (get 'ECONNABORTED 'errno) t)\n");
970#else
971 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECONNABORTED\")\n");
972#endif
973 fprintf(out, "(cl:export 'ECONNABORTED)\n");
974#ifdef ECONNRESET
975 fprintf(out, "(cl:defconstant ECONNRESET %ld)\n", CAST_SIGNED(ECONNRESET));
976 fprintf(out, "(cl:setf (get 'ECONNRESET 'errno) t)\n");
977#else
978 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECONNRESET\")\n");
979#endif
980 fprintf(out, "(cl:export 'ECONNRESET)\n");
981#ifdef ENOBUFS
982 fprintf(out, "(cl:defconstant ENOBUFS %ld)\n", CAST_SIGNED(ENOBUFS));
983 fprintf(out, "(cl:setf (get 'ENOBUFS 'errno) t)\n");
984#else
985 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOBUFS\")\n");
986#endif
987 fprintf(out, "(cl:export 'ENOBUFS)\n");
988#ifdef EISCONN
989 fprintf(out, "(cl:defconstant EISCONN %ld)\n", CAST_SIGNED(EISCONN));
990 fprintf(out, "(cl:setf (get 'EISCONN 'errno) t)\n");
991#else
992 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EISCONN\")\n");
993#endif
994 fprintf(out, "(cl:export 'EISCONN)\n");
995#ifdef ENOTCONN
996 fprintf(out, "(cl:defconstant ENOTCONN %ld)\n", CAST_SIGNED(ENOTCONN));
997 fprintf(out, "(cl:setf (get 'ENOTCONN 'errno) t)\n");
998#else
999 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTCONN\")\n");
1000#endif
1001 fprintf(out, "(cl:export 'ENOTCONN)\n");
1002#ifdef ESHUTDOWN
1003 fprintf(out, "(cl:defconstant ESHUTDOWN %ld)\n", CAST_SIGNED(ESHUTDOWN));
1004 fprintf(out, "(cl:setf (get 'ESHUTDOWN 'errno) t)\n");
1005#else
1006 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESHUTDOWN\")\n");
1007#endif
1008 fprintf(out, "(cl:export 'ESHUTDOWN)\n");
1009#ifdef ETOOMANYREFS
1010 fprintf(out, "(cl:defconstant ETOOMANYREFS %ld)\n", CAST_SIGNED(ETOOMANYREFS));
1011 fprintf(out, "(cl:setf (get 'ETOOMANYREFS 'errno) t)\n");
1012#else
1013 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ETOOMANYREFS\")\n");
1014#endif
1015 fprintf(out, "(cl:export 'ETOOMANYREFS)\n");
1016#ifdef ETIMEDOUT
1017 fprintf(out, "(cl:defconstant ETIMEDOUT %ld)\n", CAST_SIGNED(ETIMEDOUT));
1018 fprintf(out, "(cl:setf (get 'ETIMEDOUT 'errno) t)\n");
1019#else
1020 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ETIMEDOUT\")\n");
1021#endif
1022 fprintf(out, "(cl:export 'ETIMEDOUT)\n");
1023#ifdef ECONNREFUSED
1024 fprintf(out, "(cl:defconstant ECONNREFUSED %ld)\n", CAST_SIGNED(ECONNREFUSED));
1025 fprintf(out, "(cl:setf (get 'ECONNREFUSED 'errno) t)\n");
1026#else
1027 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECONNREFUSED\")\n");
1028#endif
1029 fprintf(out, "(cl:export 'ECONNREFUSED)\n");
1030#ifdef EHOSTDOWN
1031 fprintf(out, "(cl:defconstant EHOSTDOWN %ld)\n", CAST_SIGNED(EHOSTDOWN));
1032 fprintf(out, "(cl:setf (get 'EHOSTDOWN 'errno) t)\n");
1033#else
1034 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EHOSTDOWN\")\n");
1035#endif
1036 fprintf(out, "(cl:export 'EHOSTDOWN)\n");
1037#ifdef EHOSTUNREACH
1038 fprintf(out, "(cl:defconstant EHOSTUNREACH %ld)\n", CAST_SIGNED(EHOSTUNREACH));
1039 fprintf(out, "(cl:setf (get 'EHOSTUNREACH 'errno) t)\n");
1040#else
1041 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EHOSTUNREACH\")\n");
1042#endif
1043 fprintf(out, "(cl:export 'EHOSTUNREACH)\n");
1044#ifdef EALREADY
1045 fprintf(out, "(cl:defconstant EALREADY %ld)\n", CAST_SIGNED(EALREADY));
1046 fprintf(out, "(cl:setf (get 'EALREADY 'errno) t)\n");
1047#else
1048 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EALREADY\")\n");
1049#endif
1050 fprintf(out, "(cl:export 'EALREADY)\n");
1051#ifdef EINPROGRESS
1052 fprintf(out, "(cl:defconstant EINPROGRESS %ld)\n", CAST_SIGNED(EINPROGRESS));
1053 fprintf(out, "(cl:setf (get 'EINPROGRESS 'errno) t)\n");
1054#else
1055 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EINPROGRESS\")\n");
1056#endif
1057 fprintf(out, "(cl:export 'EINPROGRESS)\n");
1058#ifdef ESTALE
1059 fprintf(out, "(cl:defconstant ESTALE %ld)\n", CAST_SIGNED(ESTALE));
1060 fprintf(out, "(cl:setf (get 'ESTALE 'errno) t)\n");
1061#else
1062 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ESTALE\")\n");
1063#endif
1064 fprintf(out, "(cl:export 'ESTALE)\n");
1065#ifdef EUCLEAN
1066 fprintf(out, "(cl:defconstant EUCLEAN %ld)\n", CAST_SIGNED(EUCLEAN));
1067 fprintf(out, "(cl:setf (get 'EUCLEAN 'errno) t)\n");
1068#else
1069 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EUCLEAN\")\n");
1070#endif
1071 fprintf(out, "(cl:export 'EUCLEAN)\n");
1072#ifdef ENOTNAM
1073 fprintf(out, "(cl:defconstant ENOTNAM %ld)\n", CAST_SIGNED(ENOTNAM));
1074 fprintf(out, "(cl:setf (get 'ENOTNAM 'errno) t)\n");
1075#else
1076 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOTNAM\")\n");
1077#endif
1078 fprintf(out, "(cl:export 'ENOTNAM)\n");
1079#ifdef ENAVAIL
1080 fprintf(out, "(cl:defconstant ENAVAIL %ld)\n", CAST_SIGNED(ENAVAIL));
1081 fprintf(out, "(cl:setf (get 'ENAVAIL 'errno) t)\n");
1082#else
1083 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENAVAIL\")\n");
1084#endif
1085 fprintf(out, "(cl:export 'ENAVAIL)\n");
1086#ifdef EREMOTEIO
1087 fprintf(out, "(cl:defconstant EREMOTEIO %ld)\n", CAST_SIGNED(EREMOTEIO));
1088 fprintf(out, "(cl:setf (get 'EREMOTEIO 'errno) t)\n");
1089#else
1090 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EREMOTEIO\")\n");
1091#endif
1092 fprintf(out, "(cl:export 'EREMOTEIO)\n");
1093#ifdef EDQUOT
1094 fprintf(out, "(cl:defconstant EDQUOT %ld)\n", CAST_SIGNED(EDQUOT));
1095 fprintf(out, "(cl:setf (get 'EDQUOT 'errno) t)\n");
1096#else
1097 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EDQUOT\")\n");
1098#endif
1099 fprintf(out, "(cl:export 'EDQUOT)\n");
1100#ifdef ENOMEDIUM
1101 fprintf(out, "(cl:defconstant ENOMEDIUM %ld)\n", CAST_SIGNED(ENOMEDIUM));
1102 fprintf(out, "(cl:setf (get 'ENOMEDIUM 'errno) t)\n");
1103#else
1104 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ENOMEDIUM\")\n");
1105#endif
1106 fprintf(out, "(cl:export 'ENOMEDIUM)\n");
1107#ifdef EMEDIUMTYPE
1108 fprintf(out, "(cl:defconstant EMEDIUMTYPE %ld)\n", CAST_SIGNED(EMEDIUMTYPE));
1109 fprintf(out, "(cl:setf (get 'EMEDIUMTYPE 'errno) t)\n");
1110#else
1111 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"EMEDIUMTYPE\")\n");
1112#endif
1113 fprintf(out, "(cl:export 'EMEDIUMTYPE)\n");
1114#ifdef WNOHANG
1115 fprintf(out, "(cl:defconstant WNOHANG %ld)\n", CAST_SIGNED(WNOHANG));
1116#else
1117 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"WNOHANG\")\n");
1118#endif
1119 fprintf(out, "(cl:export 'WNOHANG)\n");
1120#ifdef WUNTRACED
1121 fprintf(out, "(cl:defconstant WUNTRACED %ld)\n", CAST_SIGNED(WUNTRACED));
1122#else
1123 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"WUNTRACED\")\n");
1124#endif
1125 fprintf(out, "(cl:export 'WUNTRACED)\n");
1126 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type MODE-T (sb-alien:%ssigned %ld)))\n", SIGNED_(mode_t), CAST_SIGNED((8*sizeof(mode_t))));
1127#ifdef S_IFMT
1128 fprintf(out, "(cl:defconstant S-IFMT %ld)\n", CAST_SIGNED(S_IFMT));
1129#else
1130 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFMT\")\n");
1131#endif
1132 fprintf(out, "(cl:export 'S-IFMT)\n");
1133#ifdef S_IFIFO
1134 fprintf(out, "(cl:defconstant S-IFIFO %ld)\n", CAST_SIGNED(S_IFIFO));
1135#else
1136 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFIFO\")\n");
1137#endif
1138 fprintf(out, "(cl:export 'S-IFIFO)\n");
1139#ifdef S_IFCHR
1140 fprintf(out, "(cl:defconstant S-IFCHR %ld)\n", CAST_SIGNED(S_IFCHR));
1141#else
1142 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFCHR\")\n");
1143#endif
1144 fprintf(out, "(cl:export 'S-IFCHR)\n");
1145#ifdef S_IFDIR
1146 fprintf(out, "(cl:defconstant S-IFDIR %ld)\n", CAST_SIGNED(S_IFDIR));
1147#else
1148 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFDIR\")\n");
1149#endif
1150 fprintf(out, "(cl:export 'S-IFDIR)\n");
1151#ifdef S_IFBLK
1152 fprintf(out, "(cl:defconstant S-IFBLK %ld)\n", CAST_SIGNED(S_IFBLK));
1153#else
1154 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFBLK\")\n");
1155#endif
1156 fprintf(out, "(cl:export 'S-IFBLK)\n");
1157#ifdef S_IFREG
1158 fprintf(out, "(cl:defconstant S-IFREG %ld)\n", CAST_SIGNED(S_IFREG));
1159#else
1160 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFREG\")\n");
1161#endif
1162 fprintf(out, "(cl:export 'S-IFREG)\n");
1163#ifdef S_IFLNK
1164 fprintf(out, "(cl:defconstant S-IFLNK %ld)\n", CAST_SIGNED(S_IFLNK));
1165#else
1166 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFLNK\")\n");
1167#endif
1168 fprintf(out, "(cl:export 'S-IFLNK)\n");
1169#ifdef S_IFSOCK
1170 fprintf(out, "(cl:defconstant S-IFSOCK %ld)\n", CAST_SIGNED(S_IFSOCK));
1171#else
1172 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFSOCK\")\n");
1173#endif
1174 fprintf(out, "(cl:export 'S-IFSOCK)\n");
1175#ifdef S_IFWHT
1176 fprintf(out, "(cl:defconstant S-IFWHT %ld)\n", CAST_SIGNED(S_IFWHT));
1177#else
1178 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IFWHT\")\n");
1179#endif
1180 fprintf(out, "(cl:export 'S-IFWHT)\n");
1181#ifdef S_ISUID
1182 fprintf(out, "(cl:defconstant S-ISUID %ld)\n", CAST_SIGNED(S_ISUID));
1183#else
1184 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_ISUID\")\n");
1185#endif
1186 fprintf(out, "(cl:export 'S-ISUID)\n");
1187#ifdef S_ISGID
1188 fprintf(out, "(cl:defconstant S-ISGID %ld)\n", CAST_SIGNED(S_ISGID));
1189#else
1190 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_ISGID\")\n");
1191#endif
1192 fprintf(out, "(cl:export 'S-ISGID)\n");
1193#ifdef S_ISVTX
1194 fprintf(out, "(cl:defconstant S-ISVTX %ld)\n", CAST_SIGNED(S_ISVTX));
1195#else
1196 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_ISVTX\")\n");
1197#endif
1198 fprintf(out, "(cl:export 'S-ISVTX)\n");
1199#ifdef S_IRUSR
1200 fprintf(out, "(cl:defconstant S-IRUSR %ld)\n", CAST_SIGNED(S_IRUSR));
1201#else
1202 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IRUSR\")\n");
1203#endif
1204 fprintf(out, "(cl:export 'S-IRUSR)\n");
1205#ifdef S_IWUSR
1206 fprintf(out, "(cl:defconstant S-IWUSR %ld)\n", CAST_SIGNED(S_IWUSR));
1207#else
1208 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IWUSR\")\n");
1209#endif
1210 fprintf(out, "(cl:export 'S-IWUSR)\n");
1211#ifdef S_IXUSR
1212 fprintf(out, "(cl:defconstant S-IXUSR %ld)\n", CAST_SIGNED(S_IXUSR));
1213#else
1214 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IXUSR\")\n");
1215#endif
1216 fprintf(out, "(cl:export 'S-IXUSR)\n");
1217#ifdef S_IRUSR
1218 fprintf(out, "(cl:defconstant S-IREAD %ld)\n", CAST_SIGNED(S_IRUSR));
1219#else
1220 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IRUSR\")\n");
1221#endif
1222 fprintf(out, "(cl:export 'S-IREAD)\n");
1223#ifdef S_IWUSR
1224 fprintf(out, "(cl:defconstant S-IWRITE %ld)\n", CAST_SIGNED(S_IWUSR));
1225#else
1226 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IWUSR\")\n");
1227#endif
1228 fprintf(out, "(cl:export 'S-IWRITE)\n");
1229#ifdef S_IXUSR
1230 fprintf(out, "(cl:defconstant S-IEXEC %ld)\n", CAST_SIGNED(S_IXUSR));
1231#else
1232 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IXUSR\")\n");
1233#endif
1234 fprintf(out, "(cl:export 'S-IEXEC)\n");
1235#ifdef S_IRGRP
1236 fprintf(out, "(cl:defconstant S-IRGRP %ld)\n", CAST_SIGNED(S_IRGRP));
1237#else
1238 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IRGRP\")\n");
1239#endif
1240 fprintf(out, "(cl:export 'S-IRGRP)\n");
1241#ifdef S_IWGRP
1242 fprintf(out, "(cl:defconstant S-IWGRP %ld)\n", CAST_SIGNED(S_IWGRP));
1243#else
1244 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IWGRP\")\n");
1245#endif
1246 fprintf(out, "(cl:export 'S-IWGRP)\n");
1247#ifdef S_IXGRP
1248 fprintf(out, "(cl:defconstant S-IXGRP %ld)\n", CAST_SIGNED(S_IXGRP));
1249#else
1250 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IXGRP\")\n");
1251#endif
1252 fprintf(out, "(cl:export 'S-IXGRP)\n");
1253#ifdef S_IROTH
1254 fprintf(out, "(cl:defconstant S-IROTH %ld)\n", CAST_SIGNED(S_IROTH));
1255#else
1256 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IROTH\")\n");
1257#endif
1258 fprintf(out, "(cl:export 'S-IROTH)\n");
1259#ifdef S_IWOTH
1260 fprintf(out, "(cl:defconstant S-IWOTH %ld)\n", CAST_SIGNED(S_IWOTH));
1261#else
1262 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IWOTH\")\n");
1263#endif
1264 fprintf(out, "(cl:export 'S-IWOTH)\n");
1265#ifdef S_IXOTH
1266 fprintf(out, "(cl:defconstant S-IXOTH %ld)\n", CAST_SIGNED(S_IXOTH));
1267#else
1268 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"S_IXOTH\")\n");
1269#endif
1270 fprintf(out, "(cl:export 'S-IXOTH)\n");
1271#ifdef R_OK
1272 fprintf(out, "(cl:defconstant R-OK %ld)\n", CAST_SIGNED(R_OK));
1273#else
1274 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"R_OK\")\n");
1275#endif
1276 fprintf(out, "(cl:export 'R-OK)\n");
1277#ifdef W_OK
1278 fprintf(out, "(cl:defconstant W-OK %ld)\n", CAST_SIGNED(W_OK));
1279#else
1280 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"W_OK\")\n");
1281#endif
1282 fprintf(out, "(cl:export 'W-OK)\n");
1283#ifdef X_OK
1284 fprintf(out, "(cl:defconstant X-OK %ld)\n", CAST_SIGNED(X_OK));
1285#else
1286 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"X_OK\")\n");
1287#endif
1288 fprintf(out, "(cl:export 'X-OK)\n");
1289#ifdef F_OK
1290 fprintf(out, "(cl:defconstant F-OK %ld)\n", CAST_SIGNED(F_OK));
1291#else
1292 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_OK\")\n");
1293#endif
1294 fprintf(out, "(cl:export 'F-OK)\n");
1295 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type OFF-T (sb-alien:%ssigned %ld)))\n", SIGNED_(off_t), CAST_SIGNED((8*sizeof(off_t))));
1296#ifdef PROT_NONE
1297 fprintf(out, "(cl:defconstant PROT-NONE %ld \"mmap: no protection\")\n", CAST_SIGNED(PROT_NONE));
1298#else
1299 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PROT_NONE\")\n");
1300#endif
1301 fprintf(out, "(cl:export 'PROT-NONE)\n");
1302#ifdef PROT_READ
1303 fprintf(out, "(cl:defconstant PROT-READ %ld \"mmap: read protection\")\n", CAST_SIGNED(PROT_READ));
1304#else
1305 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PROT_READ\")\n");
1306#endif
1307 fprintf(out, "(cl:export 'PROT-READ)\n");
1308#ifdef PROT_WRITE
1309 fprintf(out, "(cl:defconstant PROT-WRITE %ld \"mmap: write protection\")\n", CAST_SIGNED(PROT_WRITE));
1310#else
1311 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PROT_WRITE\")\n");
1312#endif
1313 fprintf(out, "(cl:export 'PROT-WRITE)\n");
1314#ifdef PROT_EXEC
1315 fprintf(out, "(cl:defconstant PROT-EXEC %ld \"mmap: execute protection\")\n", CAST_SIGNED(PROT_EXEC));
1316#else
1317 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PROT_EXEC\")\n");
1318#endif
1319 fprintf(out, "(cl:export 'PROT-EXEC)\n");
1320#ifdef MAP_SHARED
1321 fprintf(out, "(cl:defconstant MAP-SHARED %ld \"mmap: shared memory\")\n", CAST_SIGNED(MAP_SHARED));
1322#else
1323 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MAP_SHARED\")\n");
1324#endif
1325 fprintf(out, "(cl:export 'MAP-SHARED)\n");
1326#ifdef MAP_PRIVATE
1327 fprintf(out, "(cl:defconstant MAP-PRIVATE %ld \"mmap: private mapping\")\n", CAST_SIGNED(MAP_PRIVATE));
1328#else
1329 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MAP_PRIVATE\")\n");
1330#endif
1331 fprintf(out, "(cl:export 'MAP-PRIVATE)\n");
1332#ifdef MAP_FIXED
1333 fprintf(out, "(cl:defconstant MAP-FIXED %ld \"mmap: map at given location\")\n", CAST_SIGNED(MAP_FIXED));
1334#else
1335 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MAP_FIXED\")\n");
1336#endif
1337 fprintf(out, "(cl:export 'MAP-FIXED)\n");
1338#ifdef MAP_ANON
1339 fprintf(out, "(cl:defconstant MAP-ANON %ld \"mmap: anonymous mapping not associated with any file\")\n", CAST_SIGNED(MAP_ANON));
1340#else
1341 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MAP_ANON\")\n");
1342#endif
1343 fprintf(out, "(cl:export 'MAP-ANON)\n");
1344#ifdef MS_ASYNC
1345 fprintf(out, "(cl:defconstant MS-ASYNC %ld \"msync: return immediately\")\n", CAST_SIGNED(MS_ASYNC));
1346#else
1347 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MS_ASYNC\")\n");
1348#endif
1349 fprintf(out, "(cl:export 'MS-ASYNC)\n");
1350#ifdef MS_SYNC
1351 fprintf(out, "(cl:defconstant MS-SYNC %ld \"msync: perform synchronous writes\")\n", CAST_SIGNED(MS_SYNC));
1352#else
1353 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MS_SYNC\")\n");
1354#endif
1355 fprintf(out, "(cl:export 'MS-SYNC)\n");
1356#ifdef MS_INVALIDATE
1357 fprintf(out, "(cl:defconstant MS-INVALIDATE %ld \"msync: invalidate all cached data\")\n", CAST_SIGNED(MS_INVALIDATE));
1358#else
1359 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MS_INVALIDATE\")\n");
1360#endif
1361 fprintf(out, "(cl:export 'MS-INVALIDATE)\n");
1362#ifdef MCL_CURRENT
1363 fprintf(out, "(cl:defconstant MCL-CURRENT %ld \"mlockall: lock all pages which are currently mapped into the address space of the process.\")\n", CAST_SIGNED(MCL_CURRENT));
1364#else
1365 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MCL_CURRENT\")\n");
1366#endif
1367 fprintf(out, "(cl:export 'MCL-CURRENT)\n");
1368#ifdef MCL_FUTURE
1369 fprintf(out, "(cl:defconstant MCL-FUTURE %ld \"mlockall: lock all pages which will become mapped into the address space of the process in the future.\")\n", CAST_SIGNED(MCL_FUTURE));
1370#else
1371 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"MCL_FUTURE\")\n");
1372#endif
1373 fprintf(out, "(cl:export 'MCL-FUTURE)\n");
1374 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct DIRENT %ld\n", CAST_SIGNED(sizeof(struct dirent)));
1375 fprintf(out, " (INO INO-T \"ino_t\"\n");
1376{ struct dirent t;
1377 fprintf(out, " %lu\n", ((unsigned long)&(t.d_ino)) - ((unsigned long)&(t)));
1378}
1379{ struct dirent t;
1380 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.d_ino)));
1381}
1382 fprintf(out, " (NAME C-STRING \"char *\"\n");
1383{ struct dirent t;
1384 fprintf(out, " %lu\n", ((unsigned long)&(t.d_name)) - ((unsigned long)&(t)));
1385}
1386{ struct dirent t;
1387 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.d_name)));
1388}
1389 fprintf(out, "))\n");
1390 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-PASSWD %ld\n", CAST_SIGNED(sizeof(struct passwd)));
1391 fprintf(out, " (NAME C-STRING-POINTER \"char *\"\n");
1392{ struct passwd t;
1393 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_name)) - ((unsigned long)&(t)));
1394}
1395{ struct passwd t;
1396 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_name)));
1397}
1398 fprintf(out, " (PASSWD C-STRING-POINTER \"char *\"\n");
1399{ struct passwd t;
1400 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_passwd)) - ((unsigned long)&(t)));
1401}
1402{ struct passwd t;
1403 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_passwd)));
1404}
1405 fprintf(out, " (UID UID-T \"uid_t\"\n");
1406{ struct passwd t;
1407 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_uid)) - ((unsigned long)&(t)));
1408}
1409{ struct passwd t;
1410 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_uid)));
1411}
1412 fprintf(out, " (GID GID-T \"gid_t\"\n");
1413{ struct passwd t;
1414 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_gid)) - ((unsigned long)&(t)));
1415}
1416{ struct passwd t;
1417 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_gid)));
1418}
1419 fprintf(out, " (GECOS C-STRING-POINTER \"char *\"\n");
1420{ struct passwd t;
1421 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_gecos)) - ((unsigned long)&(t)));
1422}
1423{ struct passwd t;
1424 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_gecos)));
1425}
1426 fprintf(out, " (DIR C-STRING-POINTER \"char *\"\n");
1427{ struct passwd t;
1428 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_dir)) - ((unsigned long)&(t)));
1429}
1430{ struct passwd t;
1431 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_dir)));
1432}
1433 fprintf(out, " (SHELL C-STRING-POINTER \"char *\"\n");
1434{ struct passwd t;
1435 fprintf(out, " %lu\n", ((unsigned long)&(t.pw_shell)) - ((unsigned long)&(t)));
1436}
1437{ struct passwd t;
1438 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.pw_shell)));
1439}
1440 fprintf(out, "))\n");
1441 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-GROUP %ld\n", CAST_SIGNED(sizeof(struct group)));
1442 fprintf(out, " (NAME C-STRING-POINTER \"char *\"\n");
1443{ struct group t;
1444 fprintf(out, " %lu\n", ((unsigned long)&(t.gr_name)) - ((unsigned long)&(t)));
1445}
1446{ struct group t;
1447 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.gr_name)));
1448}
1449 fprintf(out, " (PASSWD C-STRING-POINTER \"char *\"\n");
1450{ struct group t;
1451 fprintf(out, " %lu\n", ((unsigned long)&(t.gr_passwd)) - ((unsigned long)&(t)));
1452}
1453{ struct group t;
1454 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.gr_passwd)));
1455}
1456 fprintf(out, " (GID GID-T \"gid_t\"\n");
1457{ struct group t;
1458 fprintf(out, " %lu\n", ((unsigned long)&(t.gr_gid)) - ((unsigned long)&(t)));
1459}
1460{ struct group t;
1461 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.gr_gid)));
1462}
1463 fprintf(out, "))\n");
1464 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-STAT %ld\n", CAST_SIGNED(sizeof(struct stat)));
1465 fprintf(out, " (MODE MODE-T \"mode_t\"\n");
1466{ struct stat t;
1467 fprintf(out, " %lu\n", ((unsigned long)&(t.st_mode)) - ((unsigned long)&(t)));
1468}
1469{ struct stat t;
1470 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_mode)));
1471}
1472 fprintf(out, " (INO INO-T \"ino_t\"\n");
1473{ struct stat t;
1474 fprintf(out, " %lu\n", ((unsigned long)&(t.st_ino)) - ((unsigned long)&(t)));
1475}
1476{ struct stat t;
1477 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_ino)));
1478}
1479 fprintf(out, " (DEV DEV-T \"dev_t\"\n");
1480{ struct stat t;
1481 fprintf(out, " %lu\n", ((unsigned long)&(t.st_dev)) - ((unsigned long)&(t)));
1482}
1483{ struct stat t;
1484 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_dev)));
1485}
1486 fprintf(out, " (NLINK NLINK-T \"nlink_t\"\n");
1487{ struct stat t;
1488 fprintf(out, " %lu\n", ((unsigned long)&(t.st_nlink)) - ((unsigned long)&(t)));
1489}
1490{ struct stat t;
1491 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_nlink)));
1492}
1493 fprintf(out, " (UID UID-T \"uid_t\"\n");
1494{ struct stat t;
1495 fprintf(out, " %lu\n", ((unsigned long)&(t.st_uid)) - ((unsigned long)&(t)));
1496}
1497{ struct stat t;
1498 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_uid)));
1499}
1500 fprintf(out, " (RDEV DEV-T \"dev_t\"\n");
1501{ struct stat t;
1502 fprintf(out, " %lu\n", ((unsigned long)&(t.st_rdev)) - ((unsigned long)&(t)));
1503}
1504{ struct stat t;
1505 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_rdev)));
1506}
1507 fprintf(out, " (GID GID-T \"gid_t\"\n");
1508{ struct stat t;
1509 fprintf(out, " %lu\n", ((unsigned long)&(t.st_gid)) - ((unsigned long)&(t)));
1510}
1511{ struct stat t;
1512 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_gid)));
1513}
1514 fprintf(out, " (SIZE OFF-T \"off_t\"\n");
1515{ struct stat t;
1516 fprintf(out, " %lu\n", ((unsigned long)&(t.st_size)) - ((unsigned long)&(t)));
1517}
1518{ struct stat t;
1519 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_size)));
1520}
1521 fprintf(out, " (ATIME TIME-T \"time_t\"\n");
1522{ struct stat t;
1523 fprintf(out, " %lu\n", ((unsigned long)&(t.st_atime)) - ((unsigned long)&(t)));
1524}
1525{ struct stat t;
1526 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_atime)));
1527}
1528 fprintf(out, " (MTIME TIME-T \"time_t\"\n");
1529{ struct stat t;
1530 fprintf(out, " %lu\n", ((unsigned long)&(t.st_mtime)) - ((unsigned long)&(t)));
1531}
1532{ struct stat t;
1533 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_mtime)));
1534}
1535 fprintf(out, " (CTIME TIME-T \"time_t\"\n");
1536{ struct stat t;
1537 fprintf(out, " %lu\n", ((unsigned long)&(t.st_ctime)) - ((unsigned long)&(t)));
1538}
1539{ struct stat t;
1540 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.st_ctime)));
1541}
1542 fprintf(out, "))\n");
1543#ifdef O_RDONLY
1544 fprintf(out, "(cl:defconstant O-RDONLY %ld)\n", CAST_SIGNED(O_RDONLY));
1545#else
1546 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_RDONLY\")\n");
1547#endif
1548 fprintf(out, "(cl:export 'O-RDONLY)\n");
1549#ifdef O_WRONLY
1550 fprintf(out, "(cl:defconstant O-WRONLY %ld)\n", CAST_SIGNED(O_WRONLY));
1551#else
1552 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_WRONLY\")\n");
1553#endif
1554 fprintf(out, "(cl:export 'O-WRONLY)\n");
1555#ifdef O_RDWR
1556 fprintf(out, "(cl:defconstant O-RDWR %ld)\n", CAST_SIGNED(O_RDWR));
1557#else
1558 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_RDWR\")\n");
1559#endif
1560 fprintf(out, "(cl:export 'O-RDWR)\n");
1561#ifdef O_CREAT
1562 fprintf(out, "(cl:defconstant O-CREAT %ld)\n", CAST_SIGNED(O_CREAT));
1563#else
1564 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_CREAT\")\n");
1565#endif
1566 fprintf(out, "(cl:export 'O-CREAT)\n");
1567#ifdef O_EXCL
1568 fprintf(out, "(cl:defconstant O-EXCL %ld)\n", CAST_SIGNED(O_EXCL));
1569#else
1570 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_EXCL\")\n");
1571#endif
1572 fprintf(out, "(cl:export 'O-EXCL)\n");
1573#ifdef O_NOCTTY
1574 fprintf(out, "(cl:defconstant O-NOCTTY %ld)\n", CAST_SIGNED(O_NOCTTY));
1575#else
1576 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_NOCTTY\")\n");
1577#endif
1578 fprintf(out, "(cl:export 'O-NOCTTY)\n");
1579#ifdef O_TRUNC
1580 fprintf(out, "(cl:defconstant O-TRUNC %ld)\n", CAST_SIGNED(O_TRUNC));
1581#else
1582 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_TRUNC\")\n");
1583#endif
1584 fprintf(out, "(cl:export 'O-TRUNC)\n");
1585#ifdef O_APPEND
1586 fprintf(out, "(cl:defconstant O-APPEND %ld)\n", CAST_SIGNED(O_APPEND));
1587#else
1588 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_APPEND\")\n");
1589#endif
1590 fprintf(out, "(cl:export 'O-APPEND)\n");
1591#ifdef O_NONBLOCK
1592 fprintf(out, "(cl:defconstant O-NONBLOCK %ld)\n", CAST_SIGNED(O_NONBLOCK));
1593#else
1594 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_NONBLOCK\")\n");
1595#endif
1596 fprintf(out, "(cl:export 'O-NONBLOCK)\n");
1597#ifdef O_NDELAY
1598 fprintf(out, "(cl:defconstant O-NDELAY %ld)\n", CAST_SIGNED(O_NDELAY));
1599#else
1600 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_NDELAY\")\n");
1601#endif
1602 fprintf(out, "(cl:export 'O-NDELAY)\n");
1603#ifdef O_SYNC
1604 fprintf(out, "(cl:defconstant O-SYNC %ld)\n", CAST_SIGNED(O_SYNC));
1605#else
1606 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_SYNC\")\n");
1607#endif
1608 fprintf(out, "(cl:export 'O-SYNC)\n");
1609#ifdef O_NOFOLLOW
1610 fprintf(out, "(cl:defconstant O-NOFOLLOW %ld)\n", CAST_SIGNED(O_NOFOLLOW));
1611#else
1612 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_NOFOLLOW\")\n");
1613#endif
1614 fprintf(out, "(cl:export 'O-NOFOLLOW)\n");
1615#ifdef O_DIRECTORY
1616 fprintf(out, "(cl:defconstant O-DIRECTORY %ld)\n", CAST_SIGNED(O_DIRECTORY));
1617#else
1618 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_DIRECTORY\")\n");
1619#endif
1620 fprintf(out, "(cl:export 'O-DIRECTORY)\n");
1621#ifdef O_DIRECT
1622 fprintf(out, "(cl:defconstant O-DIRECT %ld)\n", CAST_SIGNED(O_DIRECT));
1623#else
1624 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_DIRECT\")\n");
1625#endif
1626 fprintf(out, "(cl:export 'O-DIRECT)\n");
1627#ifdef O_ASYNC
1628 fprintf(out, "(cl:defconstant O-ASYNC %ld)\n", CAST_SIGNED(O_ASYNC));
1629#else
1630 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_ASYNC\")\n");
1631#endif
1632 fprintf(out, "(cl:export 'O-ASYNC)\n");
1633#ifdef O_LARGEFILE
1634 fprintf(out, "(cl:defconstant O-LARGEFILE %ld)\n", CAST_SIGNED(O_LARGEFILE));
1635#else
1636 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_LARGEFILE\")\n");
1637#endif
1638 fprintf(out, "(cl:export 'O-LARGEFILE)\n");
1639#ifdef O_DSYNC
1640 fprintf(out, "(cl:defconstant O-DSYNC %ld)\n", CAST_SIGNED(O_DSYNC));
1641#else
1642 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_DSYNC\")\n");
1643#endif
1644 fprintf(out, "(cl:export 'O-DSYNC)\n");
1645#ifdef O_RSYNC
1646 fprintf(out, "(cl:defconstant O-RSYNC %ld)\n", CAST_SIGNED(O_RSYNC));
1647#else
1648 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"O_RSYNC\")\n");
1649#endif
1650 fprintf(out, "(cl:export 'O-RSYNC)\n");
1651#ifdef SEEK_SET
1652 fprintf(out, "(cl:defconstant SEEK-SET %ld)\n", CAST_SIGNED(SEEK_SET));
1653#else
1654 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SEEK_SET\")\n");
1655#endif
1656 fprintf(out, "(cl:export 'SEEK-SET)\n");
1657#ifdef SEEK_CUR
1658 fprintf(out, "(cl:defconstant SEEK-CUR %ld)\n", CAST_SIGNED(SEEK_CUR));
1659#else
1660 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SEEK_CUR\")\n");
1661#endif
1662 fprintf(out, "(cl:export 'SEEK-CUR)\n");
1663#ifdef SEEK_END
1664 fprintf(out, "(cl:defconstant SEEK-END %ld)\n", CAST_SIGNED(SEEK_END));
1665#else
1666 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"SEEK_END\")\n");
1667#endif
1668 fprintf(out, "(cl:export 'SEEK-END)\n");
1669#ifdef F_DUPFD
1670 fprintf(out, "(cl:defconstant F-DUPFD %ld)\n", CAST_SIGNED(F_DUPFD));
1671#else
1672 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_DUPFD\")\n");
1673#endif
1674 fprintf(out, "(cl:export 'F-DUPFD)\n");
1675#ifdef F_GETFD
1676 fprintf(out, "(cl:defconstant F-GETFD %ld)\n", CAST_SIGNED(F_GETFD));
1677#else
1678 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_GETFD\")\n");
1679#endif
1680 fprintf(out, "(cl:export 'F-GETFD)\n");
1681#ifdef F_SETFD
1682 fprintf(out, "(cl:defconstant F-SETFD %ld)\n", CAST_SIGNED(F_SETFD));
1683#else
1684 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_SETFD\")\n");
1685#endif
1686 fprintf(out, "(cl:export 'F-SETFD)\n");
1687#ifdef F_GETFL
1688 fprintf(out, "(cl:defconstant F-GETFL %ld)\n", CAST_SIGNED(F_GETFL));
1689#else
1690 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_GETFL\")\n");
1691#endif
1692 fprintf(out, "(cl:export 'F-GETFL)\n");
1693#ifdef F_SETFL
1694 fprintf(out, "(cl:defconstant F-SETFL %ld)\n", CAST_SIGNED(F_SETFL));
1695#else
1696 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_SETFL\")\n");
1697#endif
1698 fprintf(out, "(cl:export 'F-SETFL)\n");
1699#ifdef F_GETLK
1700 fprintf(out, "(cl:defconstant F-GETLK %ld)\n", CAST_SIGNED(F_GETLK));
1701#else
1702 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_GETLK\")\n");
1703#endif
1704 fprintf(out, "(cl:export 'F-GETLK)\n");
1705#ifdef F_SETLK
1706 fprintf(out, "(cl:defconstant F-SETLK %ld)\n", CAST_SIGNED(F_SETLK));
1707#else
1708 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_SETLK\")\n");
1709#endif
1710 fprintf(out, "(cl:export 'F-SETLK)\n");
1711#ifdef F_SETLKW
1712 fprintf(out, "(cl:defconstant F-SETLKW %ld)\n", CAST_SIGNED(F_SETLKW));
1713#else
1714 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_SETLKW\")\n");
1715#endif
1716 fprintf(out, "(cl:export 'F-SETLKW)\n");
1717#ifdef F_GETOWN
1718 fprintf(out, "(cl:defconstant F-GETOWN %ld)\n", CAST_SIGNED(F_GETOWN));
1719#else
1720 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_GETOWN\")\n");
1721#endif
1722 fprintf(out, "(cl:export 'F-GETOWN)\n");
1723#ifdef F_SETOWN
1724 fprintf(out, "(cl:defconstant F-SETOWN %ld)\n", CAST_SIGNED(F_SETOWN));
1725#else
1726 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_SETOWN\")\n");
1727#endif
1728 fprintf(out, "(cl:export 'F-SETOWN)\n");
1729#ifdef F_RDLCK
1730 fprintf(out, "(cl:defconstant F-RDLCK %ld)\n", CAST_SIGNED(F_RDLCK));
1731#else
1732 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_RDLCK\")\n");
1733#endif
1734 fprintf(out, "(cl:export 'F-RDLCK)\n");
1735#ifdef F_WRLCK
1736 fprintf(out, "(cl:defconstant F-WRLCK %ld)\n", CAST_SIGNED(F_WRLCK));
1737#else
1738 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_WRLCK\")\n");
1739#endif
1740 fprintf(out, "(cl:export 'F-WRLCK)\n");
1741#ifdef F_UNLCK
1742 fprintf(out, "(cl:defconstant F-UNLCK %ld)\n", CAST_SIGNED(F_UNLCK));
1743#else
1744 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_UNLCK\")\n");
1745#endif
1746 fprintf(out, "(cl:export 'F-UNLCK)\n");
1747 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-FLOCK %ld\n", CAST_SIGNED(sizeof(struct flock)));
1748 fprintf(out, " (TYPE SHORT \"short\"\n");
1749{ struct flock t;
1750 fprintf(out, " %lu\n", ((unsigned long)&(t.l_type)) - ((unsigned long)&(t)));
1751}
1752{ struct flock t;
1753 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.l_type)));
1754}
1755 fprintf(out, " (WHENCE SHORT \"short\"\n");
1756{ struct flock t;
1757 fprintf(out, " %lu\n", ((unsigned long)&(t.l_whence)) - ((unsigned long)&(t)));
1758}
1759{ struct flock t;
1760 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.l_whence)));
1761}
1762 fprintf(out, " (START OFF-T \"off_t\"\n");
1763{ struct flock t;
1764 fprintf(out, " %lu\n", ((unsigned long)&(t.l_start)) - ((unsigned long)&(t)));
1765}
1766{ struct flock t;
1767 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.l_start)));
1768}
1769 fprintf(out, " (LEN OFF-T \"off_t\"\n");
1770{ struct flock t;
1771 fprintf(out, " %lu\n", ((unsigned long)&(t.l_len)) - ((unsigned long)&(t)));
1772}
1773{ struct flock t;
1774 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.l_len)));
1775}
1776 fprintf(out, " (PID PID-T \"pid_t\"\n");
1777{ struct flock t;
1778 fprintf(out, " %lu\n", ((unsigned long)&(t.l_pid)) - ((unsigned long)&(t)));
1779}
1780{ struct flock t;
1781 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.l_pid)));
1782}
1783 fprintf(out, "))\n");
1784#ifdef F_LOCK
1785 fprintf(out, "(cl:defconstant F-LOCK %ld)\n", CAST_SIGNED(F_LOCK));
1786#else
1787 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_LOCK\")\n");
1788#endif
1789 fprintf(out, "(cl:export 'F-LOCK)\n");
1790#ifdef F_TLOCK
1791 fprintf(out, "(cl:defconstant F-TLOCK %ld)\n", CAST_SIGNED(F_TLOCK));
1792#else
1793 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_TLOCK\")\n");
1794#endif
1795 fprintf(out, "(cl:export 'F-TLOCK)\n");
1796#ifdef F_ULOCK
1797 fprintf(out, "(cl:defconstant F-ULOCK %ld)\n", CAST_SIGNED(F_ULOCK));
1798#else
1799 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_ULOCK\")\n");
1800#endif
1801 fprintf(out, "(cl:export 'F-ULOCK)\n");
1802#ifdef F_TEST
1803 fprintf(out, "(cl:defconstant F-TEST %ld)\n", CAST_SIGNED(F_TEST));
1804#else
1805 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"F_TEST\")\n");
1806#endif
1807 fprintf(out, "(cl:export 'F-TEST)\n");
1808 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type CC-T (sb-alien:%ssigned %ld)))\n", SIGNED_(cc_t), CAST_SIGNED((8*sizeof(cc_t))));
1809 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SPEED-T (sb-alien:%ssigned %ld)))\n", SIGNED_(speed_t), CAST_SIGNED((8*sizeof(speed_t))));
1810 fprintf(out, "(cl:export 'SPEED-T)\n");
1811 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type TCFLAG-T (sb-alien:%ssigned %ld)))\n", SIGNED_(tcflag_t), CAST_SIGNED((8*sizeof(tcflag_t))));
1812 fprintf(out, "(cl:export 'TCFLAG-T)\n");
1813#ifdef NCCS
1814 fprintf(out, "(cl:defconstant NCCS %ld)\n", CAST_SIGNED(NCCS));
1815#else
1816 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"NCCS\")\n");
1817#endif
1818 fprintf(out, "(cl:export 'NCCS)\n");
1819 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TERMIOS %ld\n", CAST_SIGNED(sizeof(struct termios)));
1820 fprintf(out, " (IFLAG TCFLAG-T \"tcflag_t\"\n");
1821{ struct termios t;
1822 fprintf(out, " %lu\n", ((unsigned long)&(t.c_iflag)) - ((unsigned long)&(t)));
1823}
1824{ struct termios t;
1825 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.c_iflag)));
1826}
1827 fprintf(out, " (OFLAG TCFLAG-T \"tcflag_t\"\n");
1828{ struct termios t;
1829 fprintf(out, " %lu\n", ((unsigned long)&(t.c_oflag)) - ((unsigned long)&(t)));
1830}
1831{ struct termios t;
1832 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.c_oflag)));
1833}
1834 fprintf(out, " (CFLAG TCFLAG-T \"tcflag_t\"\n");
1835{ struct termios t;
1836 fprintf(out, " %lu\n", ((unsigned long)&(t.c_cflag)) - ((unsigned long)&(t)));
1837}
1838{ struct termios t;
1839 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.c_cflag)));
1840}
1841 fprintf(out, " (LFLAG TCFLAG-T \"tcflag_t\"\n");
1842{ struct termios t;
1843 fprintf(out, " %lu\n", ((unsigned long)&(t.c_lflag)) - ((unsigned long)&(t)));
1844}
1845{ struct termios t;
1846 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.c_lflag)));
1847}
1848 fprintf(out, " (CC (ARRAY CC-T) \"cc_t\"\n");
1849{ struct termios t;
1850 fprintf(out, " %lu\n", ((unsigned long)&(t.c_cc)) - ((unsigned long)&(t)));
1851}
1852{ struct termios t;
1853 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.c_cc)));
1854}
1855 fprintf(out, "))\n");
1856 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SUSECONDS-T (sb-alien:%ssigned %ld)))\n", SIGNED_(suseconds_t), CAST_SIGNED((8*sizeof(suseconds_t))));
1857 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-UTIMBUF %ld\n", CAST_SIGNED(sizeof(struct utimbuf)));
1858 fprintf(out, " (ACTIME TIME-T \"time_t\"\n");
1859{ struct utimbuf t;
1860 fprintf(out, " %lu\n", ((unsigned long)&(t.actime)) - ((unsigned long)&(t)));
1861}
1862{ struct utimbuf t;
1863 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.actime)));
1864}
1865 fprintf(out, " (MODTIME TIME-T \"time_t\"\n");
1866{ struct utimbuf t;
1867 fprintf(out, " %lu\n", ((unsigned long)&(t.modtime)) - ((unsigned long)&(t)));
1868}
1869{ struct utimbuf t;
1870 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.modtime)));
1871}
1872 fprintf(out, "))\n");
1873 fprintf(out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TIMEVAL %ld\n", CAST_SIGNED(sizeof(struct timeval)));
1874 fprintf(out, " (SEC TIME-T \"time_t\"\n");
1875{ struct timeval t;
1876 fprintf(out, " %lu\n", ((unsigned long)&(t.tv_sec)) - ((unsigned long)&(t)));
1877}
1878{ struct timeval t;
1879 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.tv_sec)));
1880}
1881 fprintf(out, " (USEC SUSECONDS-T \"suseconds_t\"\n");
1882{ struct timeval t;
1883 fprintf(out, " %lu\n", ((unsigned long)&(t.tv_usec)) - ((unsigned long)&(t)));
1884}
1885{ struct timeval t;
1886 fprintf(out, " %ld)\n", CAST_SIGNED(sizeof(t.tv_usec)));
1887}
1888 fprintf(out, "))\n");
1889#ifdef VEOF
1890 fprintf(out, "(cl:defconstant VEOF %ld)\n", CAST_SIGNED(VEOF));
1891#else
1892 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VEOF\")\n");
1893#endif
1894 fprintf(out, "(cl:export 'VEOF)\n");
1895#ifdef VEOL
1896 fprintf(out, "(cl:defconstant VEOL %ld)\n", CAST_SIGNED(VEOL));
1897#else
1898 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VEOL\")\n");
1899#endif
1900 fprintf(out, "(cl:export 'VEOL)\n");
1901#ifdef VERASE
1902 fprintf(out, "(cl:defconstant VERASE %ld)\n", CAST_SIGNED(VERASE));
1903#else
1904 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VERASE\")\n");
1905#endif
1906 fprintf(out, "(cl:export 'VERASE)\n");
1907#ifdef VINTR
1908 fprintf(out, "(cl:defconstant VINTR %ld)\n", CAST_SIGNED(VINTR));
1909#else
1910 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VINTR\")\n");
1911#endif
1912 fprintf(out, "(cl:export 'VINTR)\n");
1913#ifdef VKILL
1914 fprintf(out, "(cl:defconstant VKILL %ld)\n", CAST_SIGNED(VKILL));
1915#else
1916 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VKILL\")\n");
1917#endif
1918 fprintf(out, "(cl:export 'VKILL)\n");
1919#ifdef VMIN
1920 fprintf(out, "(cl:defconstant VMIN %ld)\n", CAST_SIGNED(VMIN));
1921#else
1922 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VMIN\")\n");
1923#endif
1924 fprintf(out, "(cl:export 'VMIN)\n");
1925#ifdef VQUIT
1926 fprintf(out, "(cl:defconstant VQUIT %ld)\n", CAST_SIGNED(VQUIT));
1927#else
1928 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VQUIT\")\n");
1929#endif
1930 fprintf(out, "(cl:export 'VQUIT)\n");
1931#ifdef VSTART
1932 fprintf(out, "(cl:defconstant VSTART %ld)\n", CAST_SIGNED(VSTART));
1933#else
1934 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VSTART\")\n");
1935#endif
1936 fprintf(out, "(cl:export 'VSTART)\n");
1937#ifdef VSTOP
1938 fprintf(out, "(cl:defconstant VSTOP %ld)\n", CAST_SIGNED(VSTOP));
1939#else
1940 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VSTOP\")\n");
1941#endif
1942 fprintf(out, "(cl:export 'VSTOP)\n");
1943#ifdef VSUSP
1944 fprintf(out, "(cl:defconstant VSUSP %ld)\n", CAST_SIGNED(VSUSP));
1945#else
1946 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VSUSP\")\n");
1947#endif
1948 fprintf(out, "(cl:export 'VSUSP)\n");
1949#ifdef VTIME
1950 fprintf(out, "(cl:defconstant VTIME %ld)\n", CAST_SIGNED(VTIME));
1951#else
1952 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VTIME\")\n");
1953#endif
1954 fprintf(out, "(cl:export 'VTIME)\n");
1955#ifdef _POSIX_VDISABLE
1956 fprintf(out, "(cl:defconstant VDISABLE %ld)\n", CAST_SIGNED(_POSIX_VDISABLE));
1957#else
1958 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"_POSIX_VDISABLE\")\n");
1959#endif
1960 fprintf(out, "(cl:export 'VDISABLE)\n");
1961#ifdef BRKINT
1962 fprintf(out, "(cl:defconstant BRKINT %ld)\n", CAST_SIGNED(BRKINT));
1963#else
1964 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"BRKINT\")\n");
1965#endif
1966 fprintf(out, "(cl:export 'BRKINT)\n");
1967#ifdef ICRNL
1968 fprintf(out, "(cl:defconstant ICRNL %ld)\n", CAST_SIGNED(ICRNL));
1969#else
1970 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ICRNL\")\n");
1971#endif
1972 fprintf(out, "(cl:export 'ICRNL)\n");
1973#ifdef IGNBRK
1974 fprintf(out, "(cl:defconstant IGNBRK %ld)\n", CAST_SIGNED(IGNBRK));
1975#else
1976 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"IGNBRK\")\n");
1977#endif
1978 fprintf(out, "(cl:export 'IGNBRK)\n");
1979#ifdef IGNCR
1980 fprintf(out, "(cl:defconstant IGNCR %ld)\n", CAST_SIGNED(IGNCR));
1981#else
1982 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"IGNCR\")\n");
1983#endif
1984 fprintf(out, "(cl:export 'IGNCR)\n");
1985#ifdef IGNPAR
1986 fprintf(out, "(cl:defconstant IGNPAR %ld)\n", CAST_SIGNED(IGNPAR));
1987#else
1988 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"IGNPAR\")\n");
1989#endif
1990 fprintf(out, "(cl:export 'IGNPAR)\n");
1991#ifdef INLCR
1992 fprintf(out, "(cl:defconstant INLCR %ld)\n", CAST_SIGNED(INLCR));
1993#else
1994 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"INLCR\")\n");
1995#endif
1996 fprintf(out, "(cl:export 'INLCR)\n");
1997#ifdef INPCK
1998 fprintf(out, "(cl:defconstant INPCK %ld)\n", CAST_SIGNED(INPCK));
1999#else
2000 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"INPCK\")\n");
2001#endif
2002 fprintf(out, "(cl:export 'INPCK)\n");
2003#ifdef ISTRIP
2004 fprintf(out, "(cl:defconstant ISTRIP %ld)\n", CAST_SIGNED(ISTRIP));
2005#else
2006 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ISTRIP\")\n");
2007#endif
2008 fprintf(out, "(cl:export 'ISTRIP)\n");
2009#ifdef IXOFF
2010 fprintf(out, "(cl:defconstant IXOFF %ld)\n", CAST_SIGNED(IXOFF));
2011#else
2012 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"IXOFF\")\n");
2013#endif
2014 fprintf(out, "(cl:export 'IXOFF)\n");
2015#ifdef IXON
2016 fprintf(out, "(cl:defconstant IXON %ld)\n", CAST_SIGNED(IXON));
2017#else
2018 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"IXON\")\n");
2019#endif
2020 fprintf(out, "(cl:export 'IXON)\n");
2021#ifdef PARMRK
2022 fprintf(out, "(cl:defconstant PARMRK %ld)\n", CAST_SIGNED(PARMRK));
2023#else
2024 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PARMRK\")\n");
2025#endif
2026 fprintf(out, "(cl:export 'PARMRK)\n");
2027#ifdef OPOST
2028 fprintf(out, "(cl:defconstant OPOST %ld)\n", CAST_SIGNED(OPOST));
2029#else
2030 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"OPOST\")\n");
2031#endif
2032 fprintf(out, "(cl:export 'OPOST)\n");
2033#ifdef OCRNL
2034 fprintf(out, "(cl:defconstant OCRNL %ld)\n", CAST_SIGNED(OCRNL));
2035#else
2036 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"OCRNL\")\n");
2037#endif
2038 fprintf(out, "(cl:export 'OCRNL)\n");
2039#ifdef ONOCR
2040 fprintf(out, "(cl:defconstant ONOCR %ld)\n", CAST_SIGNED(ONOCR));
2041#else
2042 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ONOCR\")\n");
2043#endif
2044 fprintf(out, "(cl:export 'ONOCR)\n");
2045#ifdef ONLRET
2046 fprintf(out, "(cl:defconstant ONLRET %ld)\n", CAST_SIGNED(ONLRET));
2047#else
2048 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ONLRET\")\n");
2049#endif
2050 fprintf(out, "(cl:export 'ONLRET)\n");
2051#ifdef OFDEL
2052 fprintf(out, "(cl:defconstant OFDEL %ld)\n", CAST_SIGNED(OFDEL));
2053#else
2054 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"OFDEL\")\n");
2055#endif
2056 fprintf(out, "(cl:export 'OFDEL)\n");
2057#ifdef OFILL
2058 fprintf(out, "(cl:defconstant OFILL %ld)\n", CAST_SIGNED(OFILL));
2059#else
2060 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"OFILL\")\n");
2061#endif
2062 fprintf(out, "(cl:export 'OFILL)\n");
2063#ifdef NLDLY
2064 fprintf(out, "(cl:defconstant NLDLY %ld)\n", CAST_SIGNED(NLDLY));
2065#else
2066 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"NLDLY\")\n");
2067#endif
2068 fprintf(out, "(cl:export 'NLDLY)\n");
2069#ifdef NL0
2070 fprintf(out, "(cl:defconstant NL0 %ld)\n", CAST_SIGNED(NL0));
2071#else
2072 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"NL0\")\n");
2073#endif
2074 fprintf(out, "(cl:export 'NL0)\n");
2075#ifdef NL1
2076 fprintf(out, "(cl:defconstant NL1 %ld)\n", CAST_SIGNED(NL1));
2077#else
2078 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"NL1\")\n");
2079#endif
2080 fprintf(out, "(cl:export 'NL1)\n");
2081#ifdef CRDLY
2082 fprintf(out, "(cl:defconstant CRDLY %ld)\n", CAST_SIGNED(CRDLY));
2083#else
2084 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CRDLY\")\n");
2085#endif
2086 fprintf(out, "(cl:export 'CRDLY)\n");
2087#ifdef CR0
2088 fprintf(out, "(cl:defconstant CR0 %ld)\n", CAST_SIGNED(CR0));
2089#else
2090 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CR0\")\n");
2091#endif
2092 fprintf(out, "(cl:export 'CR0)\n");
2093#ifdef CR1
2094 fprintf(out, "(cl:defconstant CR1 %ld)\n", CAST_SIGNED(CR1));
2095#else
2096 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CR1\")\n");
2097#endif
2098 fprintf(out, "(cl:export 'CR1)\n");
2099#ifdef CR2
2100 fprintf(out, "(cl:defconstant CR2 %ld)\n", CAST_SIGNED(CR2));
2101#else
2102 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CR2\")\n");
2103#endif
2104 fprintf(out, "(cl:export 'CR2)\n");
2105#ifdef CR3
2106 fprintf(out, "(cl:defconstant CR3 %ld)\n", CAST_SIGNED(CR3));
2107#else
2108 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CR3\")\n");
2109#endif
2110 fprintf(out, "(cl:export 'CR3)\n");
2111#ifdef TABDLY
2112 fprintf(out, "(cl:defconstant TABDLY %ld)\n", CAST_SIGNED(TABDLY));
2113#else
2114 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TABDLY\")\n");
2115#endif
2116 fprintf(out, "(cl:export 'TABDLY)\n");
2117#ifdef TAB0
2118 fprintf(out, "(cl:defconstant TAB0 %ld)\n", CAST_SIGNED(TAB0));
2119#else
2120 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TAB0\")\n");
2121#endif
2122 fprintf(out, "(cl:export 'TAB0)\n");
2123#ifdef TAB1
2124 fprintf(out, "(cl:defconstant TAB1 %ld)\n", CAST_SIGNED(TAB1));
2125#else
2126 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TAB1\")\n");
2127#endif
2128 fprintf(out, "(cl:export 'TAB1)\n");
2129#ifdef TAB2
2130 fprintf(out, "(cl:defconstant TAB2 %ld)\n", CAST_SIGNED(TAB2));
2131#else
2132 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TAB2\")\n");
2133#endif
2134 fprintf(out, "(cl:export 'TAB2)\n");
2135#ifdef TAB3
2136 fprintf(out, "(cl:defconstant TAB3 %ld)\n", CAST_SIGNED(TAB3));
2137#else
2138 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TAB3\")\n");
2139#endif
2140 fprintf(out, "(cl:export 'TAB3)\n");
2141#ifdef BSDLY
2142 fprintf(out, "(cl:defconstant BSDLY %ld)\n", CAST_SIGNED(BSDLY));
2143#else
2144 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"BSDLY\")\n");
2145#endif
2146 fprintf(out, "(cl:export 'BSDLY)\n");
2147#ifdef BS0
2148 fprintf(out, "(cl:defconstant BS0 %ld)\n", CAST_SIGNED(BS0));
2149#else
2150 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"BS0\")\n");
2151#endif
2152 fprintf(out, "(cl:export 'BS0)\n");
2153#ifdef BS1
2154 fprintf(out, "(cl:defconstant BS1 %ld)\n", CAST_SIGNED(BS1));
2155#else
2156 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"BS1\")\n");
2157#endif
2158 fprintf(out, "(cl:export 'BS1)\n");
2159#ifdef VTDLY
2160 fprintf(out, "(cl:defconstant VTDLY %ld)\n", CAST_SIGNED(VTDLY));
2161#else
2162 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VTDLY\")\n");
2163#endif
2164 fprintf(out, "(cl:export 'VTDLY)\n");
2165#ifdef VT0
2166 fprintf(out, "(cl:defconstant VT0 %ld)\n", CAST_SIGNED(VT0));
2167#else
2168 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VT0\")\n");
2169#endif
2170 fprintf(out, "(cl:export 'VT0)\n");
2171#ifdef VT1
2172 fprintf(out, "(cl:defconstant VT1 %ld)\n", CAST_SIGNED(VT1));
2173#else
2174 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"VT1\")\n");
2175#endif
2176 fprintf(out, "(cl:export 'VT1)\n");
2177#ifdef FFDLY
2178 fprintf(out, "(cl:defconstant FFDLY %ld)\n", CAST_SIGNED(FFDLY));
2179#else
2180 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"FFDLY\")\n");
2181#endif
2182 fprintf(out, "(cl:export 'FFDLY)\n");
2183#ifdef FF0
2184 fprintf(out, "(cl:defconstant FF0 %ld)\n", CAST_SIGNED(FF0));
2185#else
2186 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"FF0\")\n");
2187#endif
2188 fprintf(out, "(cl:export 'FF0)\n");
2189#ifdef FF1
2190 fprintf(out, "(cl:defconstant FF1 %ld)\n", CAST_SIGNED(FF1));
2191#else
2192 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"FF1\")\n");
2193#endif
2194 fprintf(out, "(cl:export 'FF1)\n");
2195#ifdef B0
2196 fprintf(out, "(cl:defconstant B0 %ld)\n", CAST_SIGNED(B0));
2197#else
2198 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B0\")\n");
2199#endif
2200 fprintf(out, "(cl:export 'B0)\n");
2201#ifdef B50
2202 fprintf(out, "(cl:defconstant B50 %ld)\n", CAST_SIGNED(B50));
2203#else
2204 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B50\")\n");
2205#endif
2206 fprintf(out, "(cl:export 'B50)\n");
2207#ifdef B75
2208 fprintf(out, "(cl:defconstant B75 %ld)\n", CAST_SIGNED(B75));
2209#else
2210 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B75\")\n");
2211#endif
2212 fprintf(out, "(cl:export 'B75)\n");
2213#ifdef B110
2214 fprintf(out, "(cl:defconstant B110 %ld)\n", CAST_SIGNED(B110));
2215#else
2216 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B110\")\n");
2217#endif
2218 fprintf(out, "(cl:export 'B110)\n");
2219#ifdef B134
2220 fprintf(out, "(cl:defconstant B134 %ld)\n", CAST_SIGNED(B134));
2221#else
2222 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B134\")\n");
2223#endif
2224 fprintf(out, "(cl:export 'B134)\n");
2225#ifdef B150
2226 fprintf(out, "(cl:defconstant B150 %ld)\n", CAST_SIGNED(B150));
2227#else
2228 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B150\")\n");
2229#endif
2230 fprintf(out, "(cl:export 'B150)\n");
2231#ifdef B200
2232 fprintf(out, "(cl:defconstant B200 %ld)\n", CAST_SIGNED(B200));
2233#else
2234 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B200\")\n");
2235#endif
2236 fprintf(out, "(cl:export 'B200)\n");
2237#ifdef B300
2238 fprintf(out, "(cl:defconstant B300 %ld)\n", CAST_SIGNED(B300));
2239#else
2240 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B300\")\n");
2241#endif
2242 fprintf(out, "(cl:export 'B300)\n");
2243#ifdef B600
2244 fprintf(out, "(cl:defconstant B600 %ld)\n", CAST_SIGNED(B600));
2245#else
2246 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B600\")\n");
2247#endif
2248 fprintf(out, "(cl:export 'B600)\n");
2249#ifdef B1200
2250 fprintf(out, "(cl:defconstant B1200 %ld)\n", CAST_SIGNED(B1200));
2251#else
2252 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B1200\")\n");
2253#endif
2254 fprintf(out, "(cl:export 'B1200)\n");
2255#ifdef B1800
2256 fprintf(out, "(cl:defconstant B1800 %ld)\n", CAST_SIGNED(B1800));
2257#else
2258 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B1800\")\n");
2259#endif
2260 fprintf(out, "(cl:export 'B1800)\n");
2261#ifdef B2400
2262 fprintf(out, "(cl:defconstant B2400 %ld)\n", CAST_SIGNED(B2400));
2263#else
2264 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B2400\")\n");
2265#endif
2266 fprintf(out, "(cl:export 'B2400)\n");
2267#ifdef B4800
2268 fprintf(out, "(cl:defconstant B4800 %ld)\n", CAST_SIGNED(B4800));
2269#else
2270 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B4800\")\n");
2271#endif
2272 fprintf(out, "(cl:export 'B4800)\n");
2273#ifdef B9600
2274 fprintf(out, "(cl:defconstant B9600 %ld)\n", CAST_SIGNED(B9600));
2275#else
2276 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B9600\")\n");
2277#endif
2278 fprintf(out, "(cl:export 'B9600)\n");
2279#ifdef B19200
2280 fprintf(out, "(cl:defconstant B19200 %ld)\n", CAST_SIGNED(B19200));
2281#else
2282 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B19200\")\n");
2283#endif
2284 fprintf(out, "(cl:export 'B19200)\n");
2285#ifdef B38400
2286 fprintf(out, "(cl:defconstant B38400 %ld)\n", CAST_SIGNED(B38400));
2287#else
2288 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B38400\")\n");
2289#endif
2290 fprintf(out, "(cl:export 'B38400)\n");
2291#ifdef B57600
2292 fprintf(out, "(cl:defconstant B57600 %ld)\n", CAST_SIGNED(B57600));
2293#else
2294 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B57600\")\n");
2295#endif
2296 fprintf(out, "(cl:export 'B57600)\n");
2297#ifdef B115200
2298 fprintf(out, "(cl:defconstant B115200 %ld)\n", CAST_SIGNED(B115200));
2299#else
2300 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B115200\")\n");
2301#endif
2302 fprintf(out, "(cl:export 'B115200)\n");
2303#ifdef B230400
2304 fprintf(out, "(cl:defconstant B230400 %ld)\n", CAST_SIGNED(B230400));
2305#else
2306 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"B230400\")\n");
2307#endif
2308 fprintf(out, "(cl:export 'B230400)\n");
2309#ifdef CSIZE
2310 fprintf(out, "(cl:defconstant CSIZE %ld)\n", CAST_SIGNED(CSIZE));
2311#else
2312 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CSIZE\")\n");
2313#endif
2314 fprintf(out, "(cl:export 'CSIZE)\n");
2315#ifdef CS5
2316 fprintf(out, "(cl:defconstant CS5 %ld)\n", CAST_SIGNED(CS5));
2317#else
2318 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CS5\")\n");
2319#endif
2320 fprintf(out, "(cl:export 'CS5)\n");
2321#ifdef CS6
2322 fprintf(out, "(cl:defconstant CS6 %ld)\n", CAST_SIGNED(CS6));
2323#else
2324 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CS6\")\n");
2325#endif
2326 fprintf(out, "(cl:export 'CS6)\n");
2327#ifdef CS7
2328 fprintf(out, "(cl:defconstant CS7 %ld)\n", CAST_SIGNED(CS7));
2329#else
2330 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CS7\")\n");
2331#endif
2332 fprintf(out, "(cl:export 'CS7)\n");
2333#ifdef CS8
2334 fprintf(out, "(cl:defconstant CS8 %ld)\n", CAST_SIGNED(CS8));
2335#else
2336 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CS8\")\n");
2337#endif
2338 fprintf(out, "(cl:export 'CS8)\n");
2339#ifdef CSTOPB
2340 fprintf(out, "(cl:defconstant CSTOPB %ld)\n", CAST_SIGNED(CSTOPB));
2341#else
2342 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CSTOPB\")\n");
2343#endif
2344 fprintf(out, "(cl:export 'CSTOPB)\n");
2345#ifdef CREAD
2346 fprintf(out, "(cl:defconstant CREAD %ld)\n", CAST_SIGNED(CREAD));
2347#else
2348 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CREAD\")\n");
2349#endif
2350 fprintf(out, "(cl:export 'CREAD)\n");
2351#ifdef PARENB
2352 fprintf(out, "(cl:defconstant PARENB %ld)\n", CAST_SIGNED(PARENB));
2353#else
2354 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PARENB\")\n");
2355#endif
2356 fprintf(out, "(cl:export 'PARENB)\n");
2357#ifdef PARODD
2358 fprintf(out, "(cl:defconstant PARODD %ld)\n", CAST_SIGNED(PARODD));
2359#else
2360 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"PARODD\")\n");
2361#endif
2362 fprintf(out, "(cl:export 'PARODD)\n");
2363#ifdef HUPCL
2364 fprintf(out, "(cl:defconstant HUPCL %ld)\n", CAST_SIGNED(HUPCL));
2365#else
2366 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"HUPCL\")\n");
2367#endif
2368 fprintf(out, "(cl:export 'HUPCL)\n");
2369#ifdef CLOCAL
2370 fprintf(out, "(cl:defconstant CLOCAL %ld)\n", CAST_SIGNED(CLOCAL));
2371#else
2372 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"CLOCAL\")\n");
2373#endif
2374 fprintf(out, "(cl:export 'CLOCAL)\n");
2375#ifdef ECHO
2376 fprintf(out, "(cl:defconstant ECHO %ld)\n", CAST_SIGNED(ECHO));
2377#else
2378 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECHO\")\n");
2379#endif
2380 fprintf(out, "(cl:export 'ECHO)\n");
2381#ifdef ECHOE
2382 fprintf(out, "(cl:defconstant ECHOE %ld)\n", CAST_SIGNED(ECHOE));
2383#else
2384 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECHOE\")\n");
2385#endif
2386 fprintf(out, "(cl:export 'ECHOE)\n");
2387#ifdef ECHOK
2388 fprintf(out, "(cl:defconstant ECHOK %ld)\n", CAST_SIGNED(ECHOK));
2389#else
2390 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECHOK\")\n");
2391#endif
2392 fprintf(out, "(cl:export 'ECHOK)\n");
2393#ifdef ECHONL
2394 fprintf(out, "(cl:defconstant ECHONL %ld)\n", CAST_SIGNED(ECHONL));
2395#else
2396 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ECHONL\")\n");
2397#endif
2398 fprintf(out, "(cl:export 'ECHONL)\n");
2399#ifdef ICANON
2400 fprintf(out, "(cl:defconstant ICANON %ld)\n", CAST_SIGNED(ICANON));
2401#else
2402 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ICANON\")\n");
2403#endif
2404 fprintf(out, "(cl:export 'ICANON)\n");
2405#ifdef IEXTEN
2406 fprintf(out, "(cl:defconstant IEXTEN %ld)\n", CAST_SIGNED(IEXTEN));
2407#else
2408 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"IEXTEN\")\n");
2409#endif
2410 fprintf(out, "(cl:export 'IEXTEN)\n");
2411#ifdef ISIG
2412 fprintf(out, "(cl:defconstant ISIG %ld)\n", CAST_SIGNED(ISIG));
2413#else
2414 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"ISIG\")\n");
2415#endif
2416 fprintf(out, "(cl:export 'ISIG)\n");
2417#ifdef NOFLSH
2418 fprintf(out, "(cl:defconstant NOFLSH %ld)\n", CAST_SIGNED(NOFLSH));
2419#else
2420 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"NOFLSH\")\n");
2421#endif
2422 fprintf(out, "(cl:export 'NOFLSH)\n");
2423#ifdef TOSTOP
2424 fprintf(out, "(cl:defconstant TOSTOP %ld)\n", CAST_SIGNED(TOSTOP));
2425#else
2426 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TOSTOP\")\n");
2427#endif
2428 fprintf(out, "(cl:export 'TOSTOP)\n");
2429#ifdef TCSANOW
2430 fprintf(out, "(cl:defconstant TCSANOW %ld)\n", CAST_SIGNED(TCSANOW));
2431#else
2432 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCSANOW\")\n");
2433#endif
2434 fprintf(out, "(cl:export 'TCSANOW)\n");
2435#ifdef TCSADRAIN
2436 fprintf(out, "(cl:defconstant TCSADRAIN %ld)\n", CAST_SIGNED(TCSADRAIN));
2437#else
2438 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCSADRAIN\")\n");
2439#endif
2440 fprintf(out, "(cl:export 'TCSADRAIN)\n");
2441#ifdef TCSAFLUSH
2442 fprintf(out, "(cl:defconstant TCSAFLUSH %ld)\n", CAST_SIGNED(TCSAFLUSH));
2443#else
2444 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCSAFLUSH\")\n");
2445#endif
2446 fprintf(out, "(cl:export 'TCSAFLUSH)\n");
2447#ifdef TCIFLUSH
2448 fprintf(out, "(cl:defconstant TCIFLUSH %ld)\n", CAST_SIGNED(TCIFLUSH));
2449#else
2450 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCIFLUSH\")\n");
2451#endif
2452 fprintf(out, "(cl:export 'TCIFLUSH)\n");
2453#ifdef TCIOFLUSH
2454 fprintf(out, "(cl:defconstant TCIOFLUSH %ld)\n", CAST_SIGNED(TCIOFLUSH));
2455#else
2456 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCIOFLUSH\")\n");
2457#endif
2458 fprintf(out, "(cl:export 'TCIOFLUSH)\n");
2459#ifdef TCOFLUSH
2460 fprintf(out, "(cl:defconstant TCOFLUSH %ld)\n", CAST_SIGNED(TCOFLUSH));
2461#else
2462 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCOFLUSH\")\n");
2463#endif
2464 fprintf(out, "(cl:export 'TCOFLUSH)\n");
2465#ifdef TCIOFF
2466 fprintf(out, "(cl:defconstant TCIOFF %ld)\n", CAST_SIGNED(TCIOFF));
2467#else
2468 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCIOFF\")\n");
2469#endif
2470 fprintf(out, "(cl:export 'TCIOFF)\n");
2471#ifdef TCION
2472 fprintf(out, "(cl:defconstant TCION %ld)\n", CAST_SIGNED(TCION));
2473#else
2474 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCION\")\n");
2475#endif
2476 fprintf(out, "(cl:export 'TCION)\n");
2477#ifdef TCOOFF
2478 fprintf(out, "(cl:defconstant TCOOFF %ld)\n", CAST_SIGNED(TCOOFF));
2479#else
2480 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCOOFF\")\n");
2481#endif
2482 fprintf(out, "(cl:export 'TCOOFF)\n");
2483#ifdef TCOON
2484 fprintf(out, "(cl:defconstant TCOON %ld)\n", CAST_SIGNED(TCOON));
2485#else
2486 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"TCOON\")\n");
2487#endif
2488 fprintf(out, "(cl:export 'TCOON)\n");
2489#ifdef LOG_USER
2490 fprintf(out, "(cl:defconstant LOG-USER %ld \"Default openlog() faclity.\")\n", CAST_SIGNED(LOG_USER));
2491#else
2492 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_USER\")\n");
2493#endif
2494 fprintf(out, "(cl:export 'LOG-USER)\n");
2495#ifdef LOG_LOCAL0
2496 fprintf(out, "(cl:defconstant LOG-LOCAL0 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL0));
2497#else
2498 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL0\")\n");
2499#endif
2500 fprintf(out, "(cl:export 'LOG-LOCAL0)\n");
2501#ifdef LOG_LOCAL1
2502 fprintf(out, "(cl:defconstant LOG-LOCAL1 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL1));
2503#else
2504 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL1\")\n");
2505#endif
2506 fprintf(out, "(cl:export 'LOG-LOCAL1)\n");
2507#ifdef LOG_LOCAL2
2508 fprintf(out, "(cl:defconstant LOG-LOCAL2 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL2));
2509#else
2510 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL2\")\n");
2511#endif
2512 fprintf(out, "(cl:export 'LOG-LOCAL2)\n");
2513#ifdef LOG_LOCAL3
2514 fprintf(out, "(cl:defconstant LOG-LOCAL3 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL3));
2515#else
2516 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL3\")\n");
2517#endif
2518 fprintf(out, "(cl:export 'LOG-LOCAL3)\n");
2519#ifdef LOG_LOCAL4
2520 fprintf(out, "(cl:defconstant LOG-LOCAL4 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL4));
2521#else
2522 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL4\")\n");
2523#endif
2524 fprintf(out, "(cl:export 'LOG-LOCAL4)\n");
2525#ifdef LOG_LOCAL5
2526 fprintf(out, "(cl:defconstant LOG-LOCAL5 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL5));
2527#else
2528 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL5\")\n");
2529#endif
2530 fprintf(out, "(cl:export 'LOG-LOCAL5)\n");
2531#ifdef LOG_LOCAL6
2532 fprintf(out, "(cl:defconstant LOG-LOCAL6 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL6));
2533#else
2534 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL6\")\n");
2535#endif
2536 fprintf(out, "(cl:export 'LOG-LOCAL6)\n");
2537#ifdef LOG_LOCAL7
2538 fprintf(out, "(cl:defconstant LOG-LOCAL7 %ld \"Locally-defined openlog() facility\")\n", CAST_SIGNED(LOG_LOCAL7));
2539#else
2540 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LOCAL7\")\n");
2541#endif
2542 fprintf(out, "(cl:export 'LOG-LOCAL7)\n");
2543#ifdef LOG_AUTHPRIV
2544 fprintf(out, "(cl:defconstant LOG-AUTHPRIV %ld \"openlog() facility for authorization messages\")\n", CAST_SIGNED(LOG_AUTHPRIV));
2545#else
2546 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_AUTHPRIV\")\n");
2547#endif
2548 fprintf(out, "(cl:export 'LOG-AUTHPRIV)\n");
2549#ifdef LOG_CRON
2550 fprintf(out, "(cl:defconstant LOG-CRON %ld \"openlog() facility for cron and at daemons\")\n", CAST_SIGNED(LOG_CRON));
2551#else
2552 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_CRON\")\n");
2553#endif
2554 fprintf(out, "(cl:export 'LOG-CRON)\n");
2555#ifdef LOG_DAEMON
2556 fprintf(out, "(cl:defconstant LOG-DAEMON %ld \"openlog() facility for arbitrary daemons\")\n", CAST_SIGNED(LOG_DAEMON));
2557#else
2558 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_DAEMON\")\n");
2559#endif
2560 fprintf(out, "(cl:export 'LOG-DAEMON)\n");
2561#ifdef LOG_FTP
2562 fprintf(out, "(cl:defconstant LOG-FTP %ld \"openlog() facility for FTP daemons\")\n", CAST_SIGNED(LOG_FTP));
2563#else
2564 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_FTP\")\n");
2565#endif
2566 fprintf(out, "(cl:export 'LOG-FTP)\n");
2567#ifdef LOG_KERN
2568 fprintf(out, "(cl:defconstant LOG-KERN %ld \"openlog() facility for kernel messages\")\n", CAST_SIGNED(LOG_KERN));
2569#else
2570 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_KERN\")\n");
2571#endif
2572 fprintf(out, "(cl:export 'LOG-KERN)\n");
2573#ifdef LOG_LPR
2574 fprintf(out, "(cl:defconstant LOG-LPR %ld \"openlog() facility for the printer subsystem\")\n", CAST_SIGNED(LOG_LPR));
2575#else
2576 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_LPR\")\n");
2577#endif
2578 fprintf(out, "(cl:export 'LOG-LPR)\n");
2579#ifdef LOG_MAIL
2580 fprintf(out, "(cl:defconstant LOG-MAIL %ld \"openlog() facility for the mail subsystem\")\n", CAST_SIGNED(LOG_MAIL));
2581#else
2582 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_MAIL\")\n");
2583#endif
2584 fprintf(out, "(cl:export 'LOG-MAIL)\n");
2585#ifdef LOG_NEWS
2586 fprintf(out, "(cl:defconstant LOG-NEWS %ld \"openlog() facility for the usenet subsystem\")\n", CAST_SIGNED(LOG_NEWS));
2587#else
2588 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_NEWS\")\n");
2589#endif
2590 fprintf(out, "(cl:export 'LOG-NEWS)\n");
2591#ifdef LOG_SYSLOG
2592 fprintf(out, "(cl:defconstant LOG-SYSLOG %ld \"openlog() facility for the syslog subsystem\")\n", CAST_SIGNED(LOG_SYSLOG));
2593#else
2594 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_SYSLOG\")\n");
2595#endif
2596 fprintf(out, "(cl:export 'LOG-SYSLOG)\n");
2597#ifdef LOG_UUCP
2598 fprintf(out, "(cl:defconstant LOG-UUCP %ld \"openlog() facility for the UUCP subsystem\")\n", CAST_SIGNED(LOG_UUCP));
2599#else
2600 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_UUCP\")\n");
2601#endif
2602 fprintf(out, "(cl:export 'LOG-UUCP)\n");
2603#ifdef LOG_PID
2604 fprintf(out, "(cl:defconstant LOG-PID %ld \"If supplied to openlog(), log the process ID with each message\")\n", CAST_SIGNED(LOG_PID));
2605#else
2606 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_PID\")\n");
2607#endif
2608 fprintf(out, "(cl:export 'LOG-PID)\n");
2609#ifdef LOG_CONS
2610 fprintf(out, "(cl:defconstant LOG-CONS %ld \"If supplied to openlog(), log to the system console as well as logfiles\")\n", CAST_SIGNED(LOG_CONS));
2611#else
2612 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_CONS\")\n");
2613#endif
2614 fprintf(out, "(cl:export 'LOG-CONS)\n");
2615#ifdef LOG_NDELAY
2616 fprintf(out, "(cl:defconstant LOG-NDELAY %ld \"If supplied to openlog(), immediately open the syslog connection.\")\n", CAST_SIGNED(LOG_NDELAY));
2617#else
2618 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_NDELAY\")\n");
2619#endif
2620 fprintf(out, "(cl:export 'LOG-NDELAY)\n");
2621#ifdef LOG_ODELAY
2622 fprintf(out, "(cl:defconstant LOG-ODELAY %ld \"If supplied to openlog(), delay opening the syslog connection to the first syslog() call.\")\n", CAST_SIGNED(LOG_ODELAY));
2623#else
2624 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_ODELAY\")\n");
2625#endif
2626 fprintf(out, "(cl:export 'LOG-ODELAY)\n");
2627#ifdef LOG_NOWAIT
2628 fprintf(out, "(cl:defconstant LOG-NOWAIT %ld \"If supplied to openlog(), do not wait for child processes created by calls to syslog().\")\n", CAST_SIGNED(LOG_NOWAIT));
2629#else
2630 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_NOWAIT\")\n");
2631#endif
2632 fprintf(out, "(cl:export 'LOG-NOWAIT)\n");
2633#ifdef LOG_PERROR
2634 fprintf(out, "(cl:defconstant LOG-PERROR %ld \"If supplied to openlog(), write log messages to the process's standard error descriptor in addition to the logging facility.\")\n", CAST_SIGNED(LOG_PERROR));
2635#else
2636 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_PERROR\")\n");
2637#endif
2638 fprintf(out, "(cl:export 'LOG-PERROR)\n");
2639#ifdef LOG_EMERG
2640 fprintf(out, "(cl:defconstant LOG-EMERG %ld \"Log severity level denoting a panic.\")\n", CAST_SIGNED(LOG_EMERG));
2641#else
2642 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_EMERG\")\n");
2643#endif
2644 fprintf(out, "(cl:export 'LOG-EMERG)\n");
2645#ifdef LOG_ALERT
2646 fprintf(out, "(cl:defconstant LOG-ALERT %ld \"Log severity level denoting a condition that should be corrected immediately.\")\n", CAST_SIGNED(LOG_ALERT));
2647#else
2648 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_ALERT\")\n");
2649#endif
2650 fprintf(out, "(cl:export 'LOG-ALERT)\n");
2651#ifdef LOG_CRIT
2652 fprintf(out, "(cl:defconstant LOG-CRIT %ld \"Log severity level denoting critical conditions.\")\n", CAST_SIGNED(LOG_CRIT));
2653#else
2654 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_CRIT\")\n");
2655#endif
2656 fprintf(out, "(cl:export 'LOG-CRIT)\n");
2657#ifdef LOG_ERR
2658 fprintf(out, "(cl:defconstant LOG-ERR %ld \"Log severity level denoting an error.\")\n", CAST_SIGNED(LOG_ERR));
2659#else
2660 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_ERR\")\n");
2661#endif
2662 fprintf(out, "(cl:export 'LOG-ERR)\n");
2663#ifdef LOG_WARNING
2664 fprintf(out, "(cl:defconstant LOG-WARNING %ld \"Log severity level denoting a warning.\")\n", CAST_SIGNED(LOG_WARNING));
2665#else
2666 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_WARNING\")\n");
2667#endif
2668 fprintf(out, "(cl:export 'LOG-WARNING)\n");
2669#ifdef LOG_NOTICE
2670 fprintf(out, "(cl:defconstant LOG-NOTICE %ld \"Log severity level denoting non-errors that may require special handling.\")\n", CAST_SIGNED(LOG_NOTICE));
2671#else
2672 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_NOTICE\")\n");
2673#endif
2674 fprintf(out, "(cl:export 'LOG-NOTICE)\n");
2675#ifdef LOG_INFO
2676 fprintf(out, "(cl:defconstant LOG-INFO %ld \"Log severity level denoting informational messages.\")\n", CAST_SIGNED(LOG_INFO));
2677#else
2678 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_INFO\")\n");
2679#endif
2680 fprintf(out, "(cl:export 'LOG-INFO)\n");
2681#ifdef LOG_DEBUG
2682 fprintf(out, "(cl:defconstant LOG-DEBUG %ld \"Log severity level denoting debugging information .\")\n", CAST_SIGNED(LOG_DEBUG));
2683#else
2684 fprintf(out, "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\" \"LOG_DEBUG\")\n");
2685#endif
2686 fprintf(out, "(cl:export 'LOG-DEBUG)\n");
2687return 0;
2688}