0.8.13.60:
[sbcl.git] / contrib / sb-grovel / example-constants.lisp
1 ;;; -*- Lisp -*- - well, that's stretching a point.  code=data != data=code
2
3 ;;; first, the headers necessary to find definitions of everything
4 ("sys/types.h" "sys/socket.h" "sys/stat.h" "unistd.h" "sys/un.h"
5  "netinet/in.h" "netinet/in_systm.h" "netinet/ip.h" "net/if.h"
6  "netdb.h" "errno.h" "netinet/tcp.h" "fcntl.h" "signal.h" )
7
8 ;;; then the stuff we're looking for
9 ((:integer af-inet "AF_INET" "IP Protocol family")
10  (:integer af-unspec "AF_UNSPEC" "Unspecified.")
11  (:integer af-local
12            #+(or sunos solaris) "AF_UNIX"
13            #-(or sunos solaris) "AF_LOCAL"
14            "Local to host (pipes and file-domain).")
15  (:integer sigterm "SIGTERM")
16  (:structure stat ("struct stat"
17                    (integer dev "dev_t" "st_dev")
18                    (integer atime "time_t" "st_atime")))
19  
20  
21  (:function accept ("accept" int
22                              (socket int)
23                              (my-addr (* t))
24                              (addrlen int :in-out)))
25  (:function bind ("bind" int
26                          (sockfd int)
27                          (my-addr (* t))
28                          (addrlen int)))
29  (:function getpid ("getpid" int ))
30  (:function getppid ("getppid" int))
31  (:function kill ("kill" int
32                          (pid int) (signal int)))
33  (:function mkdir ("mkdir" int
34                            (name c-string))))
35