net.sockets/wrappers.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Wrappers for socket-related C macros.
   4 ;;;
   5
   6 (in-package :net.sockets)
   7
   8 (c "#if defined(__linux__)")
   9 (define "_XOPEN_SOURCE" 600)
  10 (define "_LARGEFILE_SOURCE")
  11 (define "_LARGEFILE64_SOURCE")
  12 (define "_FILE_OFFSET_BITS" 64)
  13 (c "#endif")
  14
  15 (include "sys/socket.h")
  16
  17 (defwrapper* ("cmsg_space" %cmsg-space) :unsigned-int
  18   ((data-size :unsigned-int))
  19   "return CMSG_SPACE(data_size);")
  20
  21 (defwrapper* ("cmsg_len" %cmsg-len) :unsigned-int
  22   ((data-size :unsigned-int))
  23   "return CMSG_LEN(data_size);")
  24
  25 (defwrapper* ("cmsg_firsthdr" %cmsg-firsthdr) :pointer
  26   ((msg ("struct msghdr*" :pointer)))
  27   "return CMSG_FIRSTHDR(msg);")
  28
  29 (defwrapper* ("cmsg_data" %cmsg-data) :pointer
  30   ((cmsg ("struct cmsghdr*" :pointer)))
  31   "return CMSG_DATA(cmsg);")