From 2a1a0dca724e7008a6c4ec696c1de505168c7561 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 9 Feb 2013 15:33:01 +0100 Subject: [PATCH] Add inotify_init1 variant. --- grovel.lisp | 2 ++ inotify.lisp | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/grovel.lisp b/grovel.lisp index 1e207f1..0faef4c 100644 --- a/grovel.lisp +++ b/grovel.lisp @@ -30,6 +30,8 @@ (include "sys/inotify.h") +(constant (in-cloexec "IN_CLOEXEC")) +(constant (in-nonblock "IN_NONBLOCK")) (constant (in-access "IN_ACCESS")) (constant (in-modify "IN_MODIFY")) (constant (in-attrib "IN_ATTRIB")) diff --git a/inotify.lisp b/inotify.lisp index c9616f2..d768cb5 100644 --- a/inotify.lisp +++ b/inotify.lisp @@ -28,6 +28,10 @@ (in-package #:cl-inotify) +(defbitfield (inotify1-flag :int) + (:cloexec #.in-cloexec) + (:nonblock #.in-nonblock)) + (defbitfield (inotify-flag :uint32) (:access #.in-access) (:modify #.in-modify) -- 1.7.10.4