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

• Show log

  Commit

• Hash : 41894d88
  Author : Thomas de Grivel
  Date : 2017-05-27T21:35:34
  

  ISC license.

Download

• grovel-fcntl.lisp

• ;;
  ;;  cffi-fcntl  -  Common Lisp wrapper for fcntl.h
  ;;
  ;;  Copyright 2017 Thomas de Grivel <thoxdg@gmail.com>
  ;;
  ;;  Permission to use, copy, modify, and distribute this software for any
  ;;  purpose with or without fee is hereby granted, provided that the above
  ;;  copyright notice and this permission notice appear in all copies.
  ;;
  ;;  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  ;;  WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  ;;  MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  ;;  ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  ;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  ;;  ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  ;;  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  ;;
  
  (in-package :cffi-fcntl)
  
  (include "fcntl.h")
  
  (ctype mode-t "mode_t")
  (ctype off-t "off_t")
  (ctype off64-t "off64_t")
  (ctype pid-t "pid_t")
  
  (constant (+s-ifmt+ "S_IFMT"))
  (constant (+s-ifdir+ "S_IFDIR"))
  (constant (+s-ifchr+ "S_IFCHR"))
  (constant (+s-ifblk+ "S_IFBLK"))
  (constant (+s-ififo+ "S_IFIFO"))
  (constant (+s-iflnk+ "S_IFLNK"))
  (constant (+s-ifsock+ "S_IFSOCK"))
  (constant (+s-isuid+ "S_ISUID"))
  (constant (+s-isgid+ "S_ISGID"))
  (constant (+s-irusr+ "S_IRUSR"))
  (constant (+s-iwusr+ "S_IWUSR"))
  (constant (+s-ixusr+ "S_IXUSR"))
  (constant (+s-irwxu+ "S_IRWXU"))
  (constant (+s-irgrp+ "S_IRGRP"))
  (constant (+s-iwgrp+ "S_IWGRP"))
  (constant (+s-ixgrp+ "S_IXGRP"))
  (constant (+s-irwxg+ "S_IRWXG"))
  (constant (+s-iroth+ "S_IROTH"))
  (constant (+s-iwoth+ "S_IWOTH"))
  (constant (+s-ixoth+ "S_IXOTH"))
  (constant (+s-irwxo+ "S_IRWXO"))
  
  (constant (+r-ok+ "R_OK"))
  (constant (+w-ok+ "W_OK"))
  (constant (+x-ok+ "X_OK"))
  (constant (+f-ok+ "F_OK"))
  
  (constant (+seek-set+ "SEEK_SET"))
  (constant (+seek-cur+ "SEEK_CUR"))
  (constant (+seek-end+ "SEEK_END"))
  
  (constant (+o-rdonly+ "O_RDONLY"))
  (constant (+o-wronly+ "O_WRONLY"))
  (constant (+o-rdwr+ "O_RDWR"))
  (constant (+o-creat+ "O_CREAT"))
  (constant (+o-excl+ "O_EXCL"))
  (constant (+o-noctty+ "O_NOCTTY"))
  (constant (+o-trunc+ "O_TRUNC"))
  (constant (+o-append+ "O_APPEND"))
  (constant (+o-nonblock+ "O_NONBLOCK"))
  (constant (+o-ndelay+ "O_NDELAY"))
  (constant (+o-sync+ "O_SYNC"))
  (constant (+o-sync+ "O_FSYNC"))
  (constant (+o-async+ "O_ASYNC"))
  (constant (+o-largefile+ "O_LARGEFILE"))
  (constant (+o-directory+ "O_DIRECTORY"))
  (constant (+o-nofollow+ "O_NOFOLLOW"))
  (constant (+o-cloexec+ "O_CLOEXEC"))
  ;(constant (+o-direct+ "O_DIRECT"))
  ;(constant (+o-noatime+ "O_NOATIME"))
  ;(constant (+o-path+ "O_PATH"))
  (constant (+o-dsync+ "O_DSYNC"))
  ;(constant (+o-tmpfile+ "O_TMPFILE"))
  
  (constant (+f-getlk+ "F_GETLK"))
  (constant (+f-setlk+ "F_SETLK"))
  (constant (+f-setlkw+ "F_SETLKW"))
  (constant (+f-getlk64+ "F_GETLK64"))
  (constant (+f-setlk64+ "F_SETLK64"))
  (constant (+f-setlkw64+ "F_SETLKW64"))
  
  (constant (+f-dupfd+ "F_DUPFD"))
  (constant (+f-getfd+ "F_GETFD"))
  (constant (+f-setfd+ "F_SETFD"))
  
  (constant (+f-getfl+ "F_GETFL"))
  (constant (+f-setfl+ "F_SETFL"))
  
  (constant (+f-setown+ "F_SETOWN"))
  (constant (+f-getown+ "F_GETOWN"))
  
  ;(constant (+f-setsig+ "F_SETSIG"))
  ;(constant (+f-getsig+ "F_GETSIG"))
  
  ;(constant (+f-setown-ex+ "F_SETOWN_EX"))
  ;(constant (+f-getown-ex+ "F_GETOWN_EX"))
  
  ;(constant (+f-setlease+ "F_SETLEASE"))
  ;(constant (+f-getlease+ "F_GETLEASE"))
  ;(constant (+f-notify+ "F_NOTIFY"))
  ;(constant (+f-setpipe-sz+ "F_SETPIPE_SZ"))
  ;(constant (+f-getpipe-sz+ "F_GETPIPE_SZ"))
  
  (constant (+f-dupfd-cloexec+ "F_DUPFD_CLOEXEC"))
  
  ;(constant (+f-cloexec+ "F_CLOEXEC"))
  
  (constant (+f-rdlck+ "F_RDLCK"))
  (constant (+f-wrlck+ "F_WRLCK"))
  (constant (+f-unlck+ "F_UNLCK"))
  
  (constant (+f-exlck+ "F_EXLCK"))
  (constant (+f-shlck+ "F_SHLCK"))
  
  (constant (+lock-sh+ "LOCK_SH"))
  (constant (+lock-ex+ "LOCK_EX"))
  (constant (+lock-nb+ "LOCK_NB"))
  (constant (+lock-un+ "LOCK_UN"))
  
  ;(constant (+lock-mand+ "LOCK_MAND"))
  ;(constant (+lock-read+ "LOCK_READ"))
  ;(constant (+lock-write+ "LOCK_WRITE"))
  ;(constant (+lock-rw+ "LOCK_RW"))
  
  ;(constant (+dn-access+ "DN_ACCESS"))
  ;(constant (+dn-modify+ "DN_MODIFY"))
  ;(constant (+dn-create+ "DN_CREATE"))
  ;(constant (+dn-delete+ "DN_DELETE"))
  ;(constant (+dn-rename+ "DN_RENAME"))
  ;(constant (+dn-attrib+ "DN_ATTRIB"))
  ;(constant (+dn-multishot+ "DN_MULTISHOT"))
  
  (constant (+posix-fadv-normal+ "POSIX_FADV_NORMAL"))
  (constant (+posix-fadv-random+ "POSIX_FADV_RANDOM"))
  (constant (+posix-fadv-sequential+ "POSIX_FADV_SEQUENTIAL"))
  (constant (+posix-fadv-willneed+ "POSIX_FADV_WILLNEED"))
  (constant (+posix-fadv-dontneed+ "POSIX_FADV_DONTNEED"))
  (constant (+posix-fadv-noreuse+ "POSIX_FADV_NOREUSE"))
  
  ;(constant (+sync-file-range-wait-before+ "SYNC_FILE_RANGE_WAIT_BEFORE"))
  ;(constant (+sync-file-range-write+ "SYNC_FILE_RANGE_WRITE"))
  ;(constant (+sync-file-range-wait-after+ "SYNC_FILE_RANGE_WAIT_AFTER"))
  
  ;(constant (+splice-f-move+ "SPLICE_F_MOVE"))
  ;(constant (+splice-f-nonblock+ "SPLICE_F_NONBLOCK"))
  ;(constant (+splice-f-more+ "SPLICE_F_MORE"))
  ;(constant (+splice-f-gift+ "SPLICE_F_GIFT"))
  
  ;(constant (+falloc-fl-keep-size+ "FALLOC_FL_KEEP_SIZE"))
  ;(constant (+falloc-fl-punch-hole+ "FALLOC_FL_PUNCH_HOLE"))
  ;(constant (+falloc-fl-collapse-range+ "FALLOC_FL_COLLAPSE_RANGE"))
  ;(constant (+falloc-fl-zero-range+ "FALLOC_FL_ZERO_RANGE"))
  
  ;(constant (+max-handle-sz+ "MAX_HANDLE_SZ"))
  

Download