src/syscalls/ffi-wrappers-unix.lisp

   1 ;;;; -*- Mode: 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 errno %set-errno))
  24
  25 (defwrapper* ("iolib_get_errno" errno) :int
  26   ()
  27   "return errno;")
  28
  29 (defwrapper* ("iolib_set_errno" %set-errno) :int
  30   ((value :int))
  31   "errno = value; return errno;")
  32 \f
  33
  34 ;;;-------------------------------------------------------------------------
  35 ;;; waitpid status readers
  36 ;;;-------------------------------------------------------------------------
  37 (include "sys/types.h" "sys/wait.h")
  38
  39 (declaim (inline wifexited wexitstatus wtermsig wcoredump wifstopped
  40                  wstopsig wifcontinued))
  41
  42 (defwrapper ("WIFEXITED" wifexited) :int ;; boolean
  43   (status :int))
  44
  45 (defwrapper ("WEXITSTATUS" wexitstatus) :int ;; unsigned-char
  46   (status :int))
  47
  48 (defwrapper ("WIFSIGNALED" wifsignaled) :int
  49   (status :int))
  50
  51 (defwrapper ("WTERMSIG" wtermsig) :int
  52   (status :int))
  53
  54 (defwrapper* ("iolib_wcoredump" wcoredump) :int ;; boolean
  55   ((status :int))
  56 "
  57   #ifdef WCOREDUMP
  58   return WCOREDUMP(status);
  59   #else
  60   return 0;
  61   #endif
  62 ")
  63
  64 (defwrapper ("WIFSTOPPED" wifstopped) :int ;; boolean
  65   (status :int))
  66
  67 (defwrapper ("WSTOPSIG" wstopsig) :int
  68   (status :int))
  69
  70 (defwrapper ("WIFCONTINUED" wifcontinued) :int ;; boolean
  71   (status :int))
  72
  73 \f
  74
  75 ;;;-------------------------------------------------------------------------
  76 ;;; Socket message readers
  77 ;;;-------------------------------------------------------------------------
  78
  79 (include "stdlib.h") ; needed on FreeBSD to define NULL
  80 (include "sys/socket.h")
  81
  82 (declaim (inline cmsg.space cmsg.len cmsg.firsthdr cmsg.data))
  83
  84 (defwrapper ("CMSG_SPACE" cmsg.space) :unsigned-int
  85   (data-size :unsigned-int))
  86
  87 (defwrapper ("CMSG_LEN" cmsg.len) :unsigned-int
  88   (data-size :unsigned-int))
  89
  90 (defwrapper ("CMSG_FIRSTHDR" cmsg.firsthdr) :pointer
  91   (msg ("struct msghdr*" :pointer)))
  92
  93 (defwrapper ("CMSG_DATA" cmsg.data) :pointer
  94   (cmsg ("struct cmsghdr*" :pointer)))
  95 \f
  96
  97 ;;;-------------------------------------------------------------------------
  98 ;;; Directory listing
  99 ;;;-------------------------------------------------------------------------
 100
 101 (include "sys/types.h" "dirent.h")
 102
 103 (declaim (inline dirfd))
 104
 105 (defwrapper (dirfd "dirfd") :int
 106   (dirp ("DIR*" :pointer)))