3 ;;; This isn't really lisp, but it's definitely a source file.
5 ;;; first, the headers necessary to find definitions of everything
11 "sys/socket.h" "sys/un.h" "netinet/in.h" "netinet/in_systm.h"
12 "netinet/ip.h" "net/if.h" "netdb.h" "errno.h" "netinet/tcp.h"
13 "fcntl.h" "sys/mman.h"
14 "dirent.h" "signal.h")
16 ;;; then the stuff we're looking for
17 ((:integer af-inet
"AF_INET" "IP Protocol family")
25 (:type nlink-t
"nlink_t")
26 (:type time-t
"time_t")
30 (:integer SIGHUP
"SIGHUP" #+sb-doc
"terminal line hangup.")
31 (:integer SIGINT
"SIGINT" #+sb-doc
"interrupt program.")
32 (:integer SIGQUIT
"SIGQUIT" #+sb-doc
"quit program.")
33 (:integer SIGILL
"SIGILL" #+sb-doc
"illegal instruction.")
34 (:integer SIGTRAP
"SIGTRAP" #+sb-doc
"trace trap.")
35 (:integer SIGABRT
"SIGABRT" #+sb-doc
"abort program (formerly SIGIOT).")
36 (:integer SIGEMT
"SIGEMT" #+sb-doc
"emulate instruction executed.")
37 (:integer SIGFPE
"SIGFPE" #+sb-doc
"floating-point exception.")
38 (:integer SIGKILL
"SIGKILL" #+sb-doc
"kill program.")
39 (:integer SIGBUS
"SIGBUS" #+sb-doc
"bus error.")
40 (:integer SIGSEGV
"SIGSEGV" #+sb-doc
"segmentation violation.")
41 (:integer SIGSYS
"SIGSYS" #+sb-doc
"non-existent system call invoked.")
42 (:integer SIGPIPE
"SIGPIPE" #+sb-doc
"write on a pipe with no reader.")
43 (:integer SIGALRM
"SIGALRM" #+sb-doc
"real-time timer expired.")
44 (:integer SIGTERM
"SIGTERM" #+sb-doc
"software termination signal.")
45 (:integer SIGURG
"SIGURG" #+sb-doc
"urgent condition present on socket.")
46 (:integer SIGSTOP
"SIGSTOP" #+sb-doc
"stop (cannot be caught or ignored).")
47 (:integer SIGTSTP
"SIGTSTP" #+sb-doc
"stop signal generated from keyboard.")
48 (:integer SIGCONT
"SIGCONT" #+sb-doc
"continue after stop.")
49 (:integer SIGCHLD
"SIGCHLD" #+sb-doc
"child status has changed.")
50 (:integer SIGTTIN
"SIGTTIN"
51 #+sb-doc
"background read attempted from control terminal.")
52 (:integer SIGTTOU
"SIGTTOU"
53 #+sb-doc
"background write attempted to control terminal.")
54 (:integer SIGIO
"SIGIO"
55 #+sb-doc
"I/O is possible on a descriptor (see fcntl(2)).")
56 (:integer SIGXCPU
"SIGXCPU"
57 #+sb-doc
"cpu time limit exceeded (see setrlimit(2)).")
58 (:integer SIGXFSZ
"SIGXFSZ"
59 #+sb-doc
"file size limit exceeded (see setrlimit(2)).")
60 (:integer SIGVTALRM
"SIGVTALRM"
61 #+sb-doc
"virtual time alarm (see setitimer(2)).")
62 (:integer SIGPROF
"SIGPROF"
63 #+sb-doc
"profiling timer alarm (see setitimer(2)).")
64 (:integer SIGWINCH
"SIGWINCH" #+sb-doc
"Window size change.")
65 (:integer SIGINFO
"SIGINFO" #+sb-doc
"status request from keyboard.")
66 (:integer SIGUSR1
"SIGUSR1" #+sb-doc
"User defined signal 1.")
67 (:integer SIGUSR2
"SIGUSR2" #+sb-doc
"User defined signal 2.")
68 (:integer SIGRTMIN
"SIGRTMIN" #+sb-doc
"Smallest real-time signal number.")
69 (:integer SIGRTMAX
"SIGRTMAX" #+sb-doc
"Largest real-time signal number.")
72 (:integer eperm
"EPERM")
73 (:integer enoent
"ENOENT")
74 (:integer esrch
"ESRCH")
75 (:integer eintr
"EINTR")
77 (:integer enxio
"ENXIO")
78 (:integer e2big
"E2BIG")
79 (:integer enoexec
"ENOEXEC")
80 (:integer ebadf
"EBADF")
81 (:integer echild
"ECHILD")
82 (:integer eagain
"EAGAIN")
83 (:integer enomem
"ENOMEM")
84 (:integer eacces
"EACCES")
85 (:integer efault
"EFAULT")
86 (:integer enotblk
"ENOTBLK")
87 (:integer ebusy
"EBUSY")
88 (:integer eexist
"EEXIST")
89 (:integer exdev
"EXDEV")
90 (:integer enodev
"ENODEV")
91 (:integer enotdir
"ENOTDIR")
92 (:integer eisdir
"EISDIR")
93 (:integer einval
"EINVAL")
94 (:integer enfile
"ENFILE")
95 (:integer emfile
"EMFILE")
96 (:integer enotty
"ENOTTY")
97 (:integer etxtbsy
"ETXTBSY")
98 (:integer efbig
"EFBIG")
99 (:integer enospc
"ENOSPC")
100 (:integer espipe
"ESPIPE")
101 (:integer erofs
"EROFS")
102 (:integer emlink
"EMLINK")
103 (:integer epipe
"EPIPE")
104 (:integer edom
"EDOM")
105 (:integer erange
"ERANGE")
106 (:integer edeadlk
"EDEADLK")
107 (:integer enametoolong
"ENAMETOOLONG")
108 (:integer enolck
"ENOLCK")
109 (:integer enosys
"ENOSYS")
110 (:integer enotempty
"ENOTEMPTY")
111 (:integer eloop
"ELOOP")
112 (:integer ewouldblock
"EWOULDBLOCK")
113 (:integer enomsg
"ENOMSG")
114 (:integer eidrm
"EIDRM")
115 (:integer echrng
"ECHRNG")
116 (:integer el2nsync
"EL2NSYNC")
117 (:integer el3hlt
"EL3HLT")
118 (:integer el3rst
"EL3RST")
119 (:integer elnrng
"ELNRNG")
120 (:integer eunatch
"EUNATCH")
121 (:integer enocsi
"ENOCSI")
122 (:integer el2hlt
"EL2HLT")
123 (:integer ebade
"EBADE")
124 (:integer ebadr
"EBADR")
125 (:integer exfull
"EXFULL")
126 (:integer enoano
"ENOANO")
127 (:integer ebadrqc
"EBADRQC")
128 (:integer ebadslt
"EBADSLT")
129 (:integer edeadlock
"EDEADLOCK")
130 (:integer ebfont
"EBFONT")
131 (:integer enostr
"ENOSTR")
132 (:integer enodata
"ENODATA")
133 (:integer etime
"ETIME")
134 (:integer enosr
"ENOSR")
135 (:integer enonet
"ENONET")
136 (:integer enopkg
"ENOPKG")
137 (:integer eremote
"EREMOTE")
138 (:integer enolink
"ENOLINK")
139 (:integer eadv
"EADV")
140 (:integer esrmnt
"ESRMNT")
141 (:integer ecomm
"ECOMM")
142 (:integer eproto
"EPROTO")
143 (:integer emultihop
"EMULTIHOP")
144 (:integer edotdot
"EDOTDOT")
145 (:integer ebadmsg
"EBADMSG")
146 (:integer eoverflow
"EOVERFLOW")
147 (:integer enotuniq
"ENOTUNIQ")
148 (:integer ebadfd
"EBADFD")
149 (:integer eremchg
"EREMCHG")
150 (:integer elibacc
"ELIBACC")
151 (:integer elibbad
"ELIBBAD")
152 (:integer elibscn
"ELIBSCN")
153 (:integer elibmax
"ELIBMAX")
154 (:integer elibexec
"ELIBEXEC")
155 (:integer eilseq
"EILSEQ")
156 (:integer erestart
"ERESTART")
157 (:integer estrpipe
"ESTRPIPE")
158 (:integer eusers
"EUSERS")
159 (:integer enotsock
"ENOTSOCK")
160 (:integer edestaddrreq
"EDESTADDRREQ")
161 (:integer emsgsize
"EMSGSIZE")
162 (:integer eprototype
"EPROTOTYPE")
163 (:integer enoprotoopt
"ENOPROTOOPT")
164 (:integer eprotonosupport
"EPROTONOSUPPORT")
165 (:integer esocktnosupport
"ESOCKTNOSUPPORT")
166 (:integer eopnotsupp
"EOPNOTSUPP")
167 (:integer epfnosupport
"EPFNOSUPPORT")
168 (:integer eafnosupport
"EAFNOSUPPORT")
169 (:integer eaddrinuse
"EADDRINUSE")
170 (:integer eaddrnotavail
"EADDRNOTAVAIL")
171 (:integer enetdown
"ENETDOWN")
172 (:integer enetunreach
"ENETUNREACH")
173 (:integer enetreset
"ENETRESET")
174 (:integer econnaborted
"ECONNABORTED")
175 (:integer econnreset
"ECONNRESET")
176 (:integer enobufs
"ENOBUFS")
177 (:integer eisconn
"EISCONN")
178 (:integer enotconn
"ENOTCONN")
179 (:integer eshutdown
"ESHUTDOWN")
180 (:integer etoomanyrefs
"ETOOMANYREFS")
181 (:integer etimedout
"ETIMEDOUT")
182 (:integer econnrefused
"ECONNREFUSED")
183 (:integer ehostdown
"EHOSTDOWN")
184 (:integer ehostunreach
"EHOSTUNREACH")
185 (:integer ealready
"EALREADY")
186 (:integer einprogress
"EINPROGRESS")
187 (:integer estale
"ESTALE")
188 (:integer euclean
"EUCLEAN")
189 (:integer enotnam
"ENOTNAM")
190 (:integer enavail
"ENAVAIL")
191 (:integer eremoteio
"EREMOTEIO")
192 (:integer edquot
"EDQUOT")
193 (:integer enomedium
"ENOMEDIUM")
194 (:integer emediumtype
"EMEDIUMTYPE")
197 (:type mode-t
"mode_t")
198 (:integer s-isuid
"S_ISUID")
199 (:integer s-isgid
"S_ISGID")
200 (:integer s-isvtx
"S_ISVTX")
201 (:integer s-irusr
"S_IRUSR")
202 (:integer s-iwusr
"S_IWUSR")
203 (:integer s-ixusr
"S_IXUSR")
204 (:integer s-iread
"S_IRUSR")
205 (:integer s-iwrite
"S_IWUSR")
206 (:integer s-iexec
"S_IXUSR")
207 (:integer s-irgrp
"S_IRGRP")
208 (:integer s-iwgrp
"S_IWGRP")
209 (:integer s-ixgrp
"S_IXGRP")
210 (:integer s-iroth
"S_IROTH")
211 (:integer s-iwoth
"S_IWOTH")
212 (:integer s-ixoth
"S_IXOTH")
215 (:integer r-ok
"R_OK")
216 (:integer w-ok
"W_OK")
217 (:integer x-ok
"X_OK")
218 (:integer f-ok
"F_OK")
221 (:type off-t
"off_t")
222 (:integer prot-none
"PROT_NONE" #+sb-doc
"mmap: no protection")
223 (:integer prot-read
"PROT_READ" #+sb-doc
"mmap: read protection")
224 (:integer prot-write
"PROT_WRITE" #+sb-doc
"mmap: write protection")
225 (:integer prot-exec
"PROT_EXEC" #+sb-doc
"mmap: execute protection")
226 (:integer map-shared
"MAP_SHARED" #+sb-doc
"mmap: shared memory")
227 (:integer map-private
"MAP_PRIVATE" #+sb-doc
"mmap: private mapping")
228 (:integer map-fixed
"MAP_FIXED" #+sb-doc
"mmap: map at given location")
231 (:integer ms-async
"MS_ASYNC" #+sb-doc
"msync: return immediately")
232 (:integer ms-sync
"MS_SYNC" #+sb-doc
"msync: perform synchronous writes")
233 (:integer ms-invalidate
"MS_INVALIDATE"
234 #+sb-doc
"msync: invalidate all cached data")
239 (:c-string name
"char *" "d_name"
240 :distrust-length
#+sunos t
#-sunos nil
)))
244 (mode-t mode
"mode_t" "st_mode")
245 (ino-t ino
"ino_t" "st_ino")
246 (dev-t dev
"dev_t" "st_dev")
247 (nlink-t nlink
"nlink_t" "st_nlink")
248 (uid-t uid
"uid_t" "st_uid")
249 (gid-t gid
"gid_t" "st_gid")
250 (off-t size
"off_t" "st_size")
251 (time-t atime
"time_t" "st_atime")
252 (time-t mtime
"time_t" "st_mtime")
253 (time-t ctime
"time_t" "st_ctime")))
256 (:integer o-creat
"O_CREAT")
257 (:integer o-excl
"O_EXCL")
258 (:integer o-noctty
"O_NOCTTY")
259 (:integer o-trunc
"O_TRUNC")
260 (:integer o-append
"O_APPEND")
261 (:integer o-nonblock
"O_NONBLOCK")
262 (:integer o-ndelay
"O_NDELAY")
263 (:integer o-sync
"O_SYNC")
264 (:integer o-nofollow
"O_NOFOLLOW")
265 (:integer o-directory
"O_DIRECTORY")
266 (:integer o-direct
"O_DIRECT")
267 (:integer o-async
"O_ASYNC")
268 (:integer o-largefile
"O_LARGEFILE") ; hmm...
271 (:integer seek-set
"SEEK_SET")
272 (:integer seek-cur
"SEEK_CUR")
273 (:integer seek-end
"SEEK_END")