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 (define "_XOPEN_SOURCE" 600)
   9 (c "#if defined(__linux__)")
  10 (define "_LARGEFILE_SOURCE")
  11 (define "_LARGEFILE64_SOURCE")
  12 (define "_FILE_OFFSET_BITS" 64)
  13 (c "#endif")
  14
  15 (include "string.h" "errno.h" "sys/types.h" "sys/stat.h"
  16          "unistd.h" "sys/mman.h" "dirent.h")
  17 \f
  18
  19 ;;;-------------------------------------------------------------------------
  20 ;;; Large-file support
  21 ;;;-------------------------------------------------------------------------
  22
  23 ;;; FIXME: this is only necessary on Linux right?
  24
  25 (declaim (inline %sys-lseek))
  26 (defwrapper ("lseek" %sys-lseek)
  27     ("off_t" (return-wrapper off-t :error-generator signal-posix-error))
  28   (fildes :int)
  29   (offset off-t)
  30   (whence :int))
  31
  32 (declaim (inline %sys-truncate))
  33 (defwrapper ("truncate" %sys-truncate)
  34     ("int" (return-wrapper :int :error-generator signal-posix-error/restart))
  35   (path   ("const char*" filename-designator))
  36   (length off-t))
  37
  38 (declaim (inline %sys-ftruncate))
  39 (defwrapper ("ftruncate" %sys-ftruncate)
  40     ("int" (return-wrapper :int :error-generator signal-posix-error/restart))
  41   (fd     :int)
  42   (length off-t))
  43
  44 (declaim (inline %sys-mmap))
  45 (defwrapper ("mmap" %sys-mmap)
  46     ("void*" (return-wrapper :pointer :error-generator signal-posix-error))
  47   (start  :pointer)
  48   (length size-t)
  49   (prot   :int)
  50   (flags  :int)
  51   (fd     :int)
  52   (offset off-t))
  53
  54 (declaim (inline %%sys-stat))
  55 (defwrapper ("stat" %%sys-stat)
  56     ("int" (return-wrapper :int :error-generator signal-posix-error))
  57   (file-name ("const char*" filename-designator))
  58   (buf       ("struct stat*" :pointer)))
  59
  60 (declaim (inline %%sys-fstat))
  61 (defwrapper ("fstat" %%sys-fstat)
  62     ("int" (return-wrapper :int :error-generator signal-posix-error))
  63   (filedes :int)
  64   (buf     ("struct stat*" :pointer)))
  65
  66 (declaim (inline %%sys-lstat))
  67 (defwrapper ("lstat" %%sys-lstat)
  68     ("int" (return-wrapper :int :error-generator signal-posix-error))
  69   (file-name ("const char*" filename-designator))
  70   (buf       ("struct stat*" :pointer)))
  71
  72 (declaim (inline %sys-pread))
  73 (defwrapper ("pread" %sys-pread)
  74     ("ssize_t" (return-wrapper ssize-t :error-generator signal-posix-error/restart))
  75   (fd     :int)
  76   (buf    :pointer)
  77   (count  size-t)
  78   (offset off-t))
  79
  80 (declaim (inline %sys-pwrite))
  81 (defwrapper ("pwrite" %sys-pwrite)
  82     ("ssize_t" (return-wrapper ssize-t :error-generator signal-posix-error/restart))
  83   (fd     :int)
  84   (buf    :pointer)
  85   (count  size-t)
  86   (offset off-t))
  87
  88 (declaim (inline %%sys-readdir-r))
  89 (defwrapper ("readdir_r" %%sys-readdir-r)
  90     ("int" (return-wrapper :int :error-predicate (lambda (r) (not (zerop r)))
  91                            :error-generator signal-posix-error-from-return-value))
  92   (dirp   ("DIR*" :pointer))
  93   (entry  ("struct dirent*" :pointer))
  94   (result ("struct dirent**" :pointer)))
  95 \f
  96
  97 ;;;-------------------------------------------------------------------------
  98 ;;; ERRNO-related functions
  99 ;;;-------------------------------------------------------------------------
 100
 101 (declaim (inline %sys-errno))
 102 (defwrapper* ("iolib_get_errno" %sys-errno) :int
 103   ()
 104   "return errno;")
 105
 106 (declaim (inline %%sys-set-errno))
 107 (defwrapper* ("iolib_set_errno" %%sys-set-errno) :int
 108   ((value :int))
 109   "errno = value;"
 110   "return errno;")
 111
 112 (declaim (inline %sys-strerror-r))
 113 (defwrapper ("strerror_r" %sys-strerror-r)
 114     ("int" (return-wrapper :int :error-generator signal-posix-error))
 115   (errnum :int)
 116   (buf    :string)
 117   (buflen size-t))
 118 \f
 119
 120 ;;;-------------------------------------------------------------------------
 121 ;;; Process functions
 122 ;;;-------------------------------------------------------------------------
 123
 124 (declaim (inline %%sys-getrlimit))
 125 (defwrapper ("getrlimit" %%sys-getrlimit)
 126     ("int" (return-wrapper :int :error-generator signal-posix-error))
 127   (resource :int)
 128   (rlimit   ("struct rlimit*" :pointer)))
 129
 130 (declaim (inline %%sys-setrlimit))
 131 (defwrapper ("setrlimit" %%sys-setrlimit)
 132     ("int" (return-wrapper :int :error-generator signal-posix-error))
 133   (resource :int)
 134   (rlimit   ("const struct rlimit*" :pointer)))