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

• Show log

  Commit

• Hash : 667df535
  Author : Thomas de Grivel
  Date : 2017-05-12T18:44:17
  

  Common Lisp wrapper for fcntl.h

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-getfl+ flags))
  

Download