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