cffi-posix/cffi-dirent/cffi-fcntl.lisp

• Show log

  Commit

• Hash : 73fd4a69
  Author : Thomas de Grivel
  Date : 2017-05-13T12:51:38
  

  openat

Download

• cffi-fcntl.lisp

• 
  (in-package :cffi-fcntl)
  
  (defcfun ("fcntl" c-fcntl) :int
    (fd :int)
    (cmd :int))
  
  (defcfun ("fcntl" c-fcntl/int) :int
    (fd :int)
    (cmd :int)
    (arg :int))
  
  (defcfun ("fcntl" c-fcntl/pointer) :int
    (fd :int)
    (cmd :int)
    (arg :pointer))
  
  (defun fcntl-getfl (fd)
    (c-fcntl fd +f-getfl+))
  
  (defun fcntl-setfl (fd flags)
    (c-fcntl/int fd +f-setfl+ flags))
  
  (defcfun ("open" c-open/2) :int
    (pathname :string)
    (flags :int))
  
  (defcfun ("open" c-open/3) :int
    (pathname :string)
    (flags :int)
    (mode mode-t))
  
  (defun open (pathname flags &optional mode)
    (if (= 0 (logand flags +o-creat+))
        (c-open/2 pathname flags)
        (c-open/3 pathname flags mode)))
  
  (defcfun ("openat" c-openat/3) :int
    (dirfd :int)
    (pathname :string)
    (flags :int))
  
  (defcfun ("openat" c-openat/4) :int
    (dirfd :int)
    (pathname :string)
    (flags :int)
    (mode mode-t))
  
  (defun openat (dirfd pathname flags &optional mode)
    (if (= 0 (logand flags +o-creat+))
        (c-openat/3 dirfd pathname flags)
        (c-openat/4 dirfd pathname flags mode)))
  

Download