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"
15 ;;; then the stuff we're looking for
16 ((:integer af-inet "AF_INET" "IP Protocol family")
24 (:type mode-t "mode_t")
25 (:integer s-isuid "S_ISUID")
26 (:integer s-isgid "S_ISGID")
27 (:integer s-isvtx "S_ISVTX")
28 (:integer s-irusr "S_IRUSR")
29 (:integer s-iwusr "S_IWUSR")
30 (:integer s-ixusr "S_IXUSR")
31 (:integer s-iread "S_IRUSR")
32 (:integer s-iwrite "S_IWUSR")
33 (:integer s-iexec "S_IXUSR")
34 (:integer s-irgrp "S_IRGRP")
35 (:integer s-iwgrp "S_IWGRP")
36 (:integer s-ixgrp "S_IXGRP")
37 (:integer s-iroth "S_IROTH")
38 (:integer s-iwoth "S_IWOTH")
39 (:integer s-ixoth "S_IXOTH")
42 (:integer r-ok "R_OK")
43 (:integer w-ok "W_OK")
44 (:integer x-ok "X_OK")
45 (:integer f-ok "F_OK")