syscalls/ffi-wrappers-unix.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- FFI wrappers.
   4 ;;;
   5
   6 (in-package :iolib.syscalls)
   7
   8 (c "#if defined(__linux__)")
   9 (c "#undef _GNU_SOURCE")
  10 (define "_XOPEN_SOURCE" 600)
  11 (define "_LARGEFILE_SOURCE")
  12 (define "_LARGEFILE64_SOURCE")
  13 (define "_FILE_OFFSET_BITS" 64)
  14 (c "#endif")
  15 \f
  16
  17 ;;;-------------------------------------------------------------------------
  18 ;;; ERRNO-related functions
  19 ;;;-------------------------------------------------------------------------
  20
  21 (include "errno.h")
  22
  23 (declaim (inline %sys-errno))
  24 (defwrapper* ("iolib_get_errno" %sys-errno) :int
  25   ()
  26   "return errno;")
  27
  28 (declaim (inline %%sys-set-errno))
  29 (defwrapper* ("iolib_set_errno" %%sys-set-errno) :int
  30   ((value :int))
  31   "errno = value;"
  32   "return errno;")
  33 \f
  34
  35 ;;;-------------------------------------------------------------------------
  36 ;;; Socket message readers
  37 ;;;-------------------------------------------------------------------------
  38
  39 (include "stdlib.h") ; needed on FreeBSD to define NULL
  40 (include "sys/socket.h")
  41
  42 (declaim (inline %sys-cmsg-space))
  43 (defwrapper* ("cmsg_space" %sys-cmsg-space) :unsigned-int
  44   ((data-size :unsigned-int))
  45   "return CMSG_SPACE(data_size);")
  46
  47 (declaim (inline %sys-cmsg-len))
  48 (defwrapper* ("cmsg_len" %sys-cmsg-len) :unsigned-int
  49   ((data-size :unsigned-int))
  50   "return CMSG_LEN(data_size);")
  51
  52 (declaim (inline %sys-cmsg-firsthdr))
  53 (defwrapper* ("cmsg_firsthdr" %sys-cmsg-firsthdr) :pointer
  54   ((msg ("struct msghdr*" :pointer)))
  55   "return CMSG_FIRSTHDR(msg);")
  56
  57 (declaim (inline %sys-cmsg-data))
  58 (defwrapper* ("cmsg_data" %sys-cmsg-data) :pointer
  59   ((cmsg ("struct cmsghdr*" :pointer)))
  60   "return CMSG_DATA(cmsg);")