mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
152 lines
4.5 KiB
Common Lisp
152 lines
4.5 KiB
Common Lisp
;;;; This is an automatically generated file, please do not hand-edit it.
|
|
;;;; See the program "grovel-headers.c".
|
|
|
|
(in-package "SB!ALIEN")
|
|
|
|
;;;flags for dlopen()
|
|
(defconstant rtld-lazy 1) ; #x1
|
|
(defconstant rtld-now 2) ; #x2
|
|
(defconstant rtld-global 4) ; #x4
|
|
(in-package "SB!UNIX")
|
|
|
|
;;; select()
|
|
(defconstant fd-setsize 1024) ; #x400
|
|
;;; poll()
|
|
(defconstant pollin 1) ; #x1
|
|
(defconstant pollout 4) ; #x4
|
|
(defconstant pollpri 2) ; #x2
|
|
(defconstant pollhup 16) ; #x10
|
|
(defconstant pollnval 32) ; #x20
|
|
(defconstant pollerr 8) ; #x8
|
|
(define-alien-type nfds-t (unsigned 32))
|
|
;;; langinfo
|
|
(defconstant codeset 14) ; #xe
|
|
;;; types, types, types
|
|
(define-alien-type clock-t (signed 32))
|
|
(define-alien-type dev-t (unsigned 64))
|
|
(define-alien-type gid-t (unsigned 32))
|
|
(define-alien-type ino-t (unsigned 64))
|
|
(define-alien-type mode-t (unsigned 32))
|
|
(define-alien-type nlink-t (unsigned 32))
|
|
(define-alien-type off-t (signed 64))
|
|
(define-alien-type size-t (unsigned 32))
|
|
(define-alien-type time-t (signed 32))
|
|
(define-alien-type suseconds-t (signed 32))
|
|
(define-alien-type uid-t (unsigned 32))
|
|
;; Types in src/runtime/wrap.h. See that file for explantion.
|
|
;; Don't use these types for anything other than the stat wrapper.
|
|
(define-alien-type wst-ino-t (unsigned 64))
|
|
(define-alien-type wst-dev-t (unsigned 32))
|
|
(define-alien-type wst-off-t (signed 64))
|
|
(define-alien-type wst-blksize-t (signed 32))
|
|
(define-alien-type wst-blkcnt-t (signed 64))
|
|
(define-alien-type wst-nlink-t (unsigned 32))
|
|
(define-alien-type wst-uid-t (unsigned 32))
|
|
(define-alien-type wst-gid-t (unsigned 32))
|
|
|
|
;;; fcntl.h (or unistd.h on OpenBSD and NetBSD)
|
|
(defconstant r_ok 4) ; #x4
|
|
(defconstant w_ok 2) ; #x2
|
|
(defconstant x_ok 1) ; #x1
|
|
(defconstant f_ok 0) ; #x0
|
|
|
|
;;; fcntlbits.h
|
|
(defconstant o_rdonly 0) ; #x0
|
|
(defconstant o_wronly 1) ; #x1
|
|
(defconstant o_rdwr 2) ; #x2
|
|
(defconstant o_accmode 3) ; #x3
|
|
(defconstant o_creat 256) ; #x100
|
|
(defconstant o_excl 1024) ; #x400
|
|
(defconstant o_noctty 2048) ; #x800
|
|
(defconstant o_trunc 512) ; #x200
|
|
(defconstant o_append 8) ; #x8
|
|
(defconstant o_largefile 8192) ; #x2000
|
|
;;;
|
|
(defconstant s-ifmt 61440) ; #xf000
|
|
(defconstant s-ififo 4096) ; #x1000
|
|
(defconstant s-ifchr 8192) ; #x2000
|
|
(defconstant s-ifdir 16384) ; #x4000
|
|
(defconstant s-ifblk 24576) ; #x6000
|
|
(defconstant s-ifreg 32768) ; #x8000
|
|
|
|
(defconstant s-iflnk 40960) ; #xa000
|
|
(defconstant s-ifsock 49152) ; #xc000
|
|
|
|
;;; error numbers
|
|
(defconstant ebadf 9) ; #x9
|
|
(defconstant enoent 2) ; #x2
|
|
(defconstant eintr 4) ; #x4
|
|
(defconstant eagain 11) ; #xb
|
|
(defconstant eio 5) ; #x5
|
|
(defconstant eexist 17) ; #x11
|
|
(defconstant eloop 90) ; #x5a
|
|
(defconstant espipe 29) ; #x1d
|
|
(defconstant ewouldblock 11) ; #xb
|
|
|
|
;;; for wait3(2) in run-program.lisp
|
|
(defconstant wnohang 1) ; #x1
|
|
(defconstant wuntraced 2) ; #x2
|
|
|
|
;;; various ioctl(2) flags
|
|
(defconstant tiocgpgrp 1074033783) ; #x40047477
|
|
(defconstant tiocspgrp 2147775606) ; #x80047476
|
|
(defconstant tiocgwinsz 1074295912) ; #x40087468
|
|
(defconstant tiocswinsz 2148037735) ; #x80087467
|
|
|
|
;;; signals
|
|
(defconstant sig-dfl 0) ; #x0
|
|
(defconstant sig-ign 1) ; #x1
|
|
(defconstant sigalrm 14) ; #xe
|
|
(defconstant sigbus 10) ; #xa
|
|
(defconstant sigchld 18) ; #x12
|
|
(defconstant sigcont 25) ; #x19
|
|
(defconstant sigemt 7) ; #x7
|
|
(defconstant sigfpe 8) ; #x8
|
|
(defconstant sighup 1) ; #x1
|
|
(defconstant sigill 4) ; #x4
|
|
(defconstant sigint 2) ; #x2
|
|
(defconstant sigio 22) ; #x16
|
|
(defconstant sigiot 6) ; #x6
|
|
(defconstant sigkill 9) ; #x9
|
|
(defconstant sigpipe 13) ; #xd
|
|
(defconstant sigprof 29) ; #x1d
|
|
(defconstant sigquit 3) ; #x3
|
|
(defconstant sigsegv 11) ; #xb
|
|
(defconstant sigstop 23) ; #x17
|
|
(defconstant sigsys 12) ; #xc
|
|
(defconstant sigterm 15) ; #xf
|
|
(defconstant sigtrap 5) ; #x5
|
|
(defconstant sigtstp 24) ; #x18
|
|
(defconstant sigttin 26) ; #x1a
|
|
(defconstant sigttou 27) ; #x1b
|
|
(defconstant sigurg 21) ; #x15
|
|
(defconstant sigusr1 16) ; #x10
|
|
(defconstant sigusr2 17) ; #x11
|
|
(defconstant sigvtalrm 28) ; #x1c
|
|
(defconstant sigwinch 20) ; #x14
|
|
(defconstant sigxcpu 30) ; #x1e
|
|
(defconstant sigxfsz 31) ; #x1f
|
|
(defconstant fpe-intovf 2) ; #x2
|
|
(defconstant fpe-intdiv 1) ; #x1
|
|
(defconstant fpe-fltdiv 3) ; #x3
|
|
(defconstant fpe-fltovf 4) ; #x4
|
|
(defconstant fpe-fltund 5) ; #x5
|
|
(defconstant fpe-fltres 6) ; #x6
|
|
(defconstant fpe-fltinv 7) ; #x7
|
|
(defconstant fpe-fltsub 8) ; #x8
|
|
|
|
;;; structures
|
|
(define-alien-type nil
|
|
(struct timeval
|
|
(tv-sec (signed 32))
|
|
(tv-usec (signed 32))))
|
|
(define-alien-type nil
|
|
(struct timespec
|
|
(tv-sec (signed 32))
|
|
(tv-nsec (signed 32))))
|
|
|
|
(in-package "SB-KERNEL")
|
|
|
|
;;; Our runtime types
|
|
(define-alien-type os-vm-size-t (unsigned 32))
|