#include "genesis/config.h"
+#ifdef LISP_FEATURE_HPUX
+#include <sys/bsdtty.h> /* for TIOCGPGRP */
+#endif
+
+#ifdef LISP_FEATURE_BSD
+ #include <sys/param.h>
+ #include <sys/sysctl.h>
+#endif
+
#include "wrap.h"
#define DEFTYPE(lispname,cname) { cname foo; \
defconstant("enoent", ENOENT);
defconstant("eexist", EEXIST);
+ defconstant("eintr", EINTR);
+ defconstant("eagain", EAGAIN);
defconstant("s-ifmt", S_IFMT);
defconstant("s-ifdir", S_IFDIR);
DEFTYPE("size-t", size_t);
DEFTYPE("mode-t", mode_t);
+ DEFTYPE("wst-dev-t", wst_dev_t);
+ DEFTYPE("wst-off-t", wst_off_t);
+ DEFTYPE("wst-blksize-t", wst_blksize_t);
+ DEFTYPE("wst-blkcnt-t", wst_blkcnt_t);
+ DEFTYPE("wst-nlink-t", wst_nlink_t);
+ DEFTYPE("wst-uid-t", wst_uid_t);
+ DEFTYPE("wst-gid-t", wst_gid_t);
+ printf("\n");
#else
printf("(in-package \"SB!ALIEN\")\n\n");
DEFTYPE("suseconds-t", suseconds_t);
#endif
DEFTYPE("uid-t", uid_t);
-/* Types in src/runtime/wrap.h */
- DEFTYPE("ffi-dev-t", ffi_dev_t);
- DEFTYPE("ffi-off-t", ffi_off_t);
- DEFTYPE("ffi-blksize-t", ffi_blksize_t);
+ printf(";; Types in src/runtime/wrap.h. See that file for explantion.\n");
+ printf(";; Don't use these types for anything other than the stat wrapper.\n");
+ DEFTYPE("wst-dev-t", wst_dev_t);
+ DEFTYPE("wst-off-t", wst_off_t);
+ DEFTYPE("wst-blksize-t", wst_blksize_t);
+ DEFTYPE("wst-blkcnt-t", wst_blkcnt_t);
+ DEFTYPE("wst-nlink-t", wst_nlink_t);
+ DEFTYPE("wst-uid-t", wst_uid_t);
+ DEFTYPE("wst-gid-t", wst_gid_t);
printf("\n");
printf(";;; fcntl.h (or unistd.h on OpenBSD and NetBSD)\n");
printf("\n");
printf(";;; error numbers\n");
+ deferrno("ebadf", EBADF);
deferrno("enoent", ENOENT);
deferrno("eintr", EINTR);
+ deferrno("eagain", EAGAIN);
deferrno("eio", EIO);
deferrno("eexist", EEXIST);
+ deferrno("eloop", ELOOP);
deferrno("espipe", ESPIPE);
deferrno("ewouldblock", EWOULDBLOCK);
printf("\n");
printf("\n");
printf(";;; various ioctl(2) flags\n");
- defconstant("tiocnotty", TIOCNOTTY);
- defconstant("tiocgwinsz", TIOCGWINSZ);
- defconstant("tiocswinsz", TIOCSWINSZ);
defconstant("tiocgpgrp", TIOCGPGRP);
defconstant("tiocspgrp", TIOCSPGRP);
+ defconstant("tiocgwinsz", TIOCGWINSZ);
+ defconstant("tiocswinsz", TIOCSWINSZ);
/* KLUDGE: These are referenced by old CMUCL-derived code, but
* Linux doesn't define them.
*
defsignal("sigwaiting", SIGWAITING);
#endif
defsignal("sigwinch", SIGWINCH);
-#ifndef SIGXCPU
+#ifdef SIGXCPU
defsignal("sigxcpu", SIGXCPU);
#endif
#ifdef SIGXFSZ
#else
defconstant("fpe-fltsub", -1);
#endif
-
-#endif // _WIN32
+#endif // !WIN32
+
+#ifdef LISP_FEATURE_BSD
+ printf(";;; sysctl(3) names\n");
+ printf("(in-package \"SB!IMPL\")\n\n");
+ defconstant("ctl-kern", CTL_KERN);
+ defconstant("ctl-hw", CTL_HW);
+ defconstant("ctl-maxname", CTL_MAXNAME);
+ defconstant("kern-ostype", KERN_OSTYPE);
+ defconstant("kern-osrelease", KERN_OSRELEASE);
+ defconstant("hw-model", HW_MODEL);
+ defconstant("hw-pagesize", HW_PAGESIZE);
+ printf("\n");
+#endif
return 0;
}