-;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8; package: cl-inotify; -*-
+;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-inotify; -*-
;; Copyright (c) 2011-12, Olof-Joachim Frahm
;; All rights reserved.
(flags inotify1-flag))
(defsyscall inotify-add-watch :int
- "Watches a path on a event queue."
+ "Watches a path on an event queue."
(fd :int)
(pathname :string)
(mask inotify-flag))
(defsyscall inotify-rm-watch :int
- "Removes a watched path from a event queue."
+ "Removes a watched path from an event queue."
(fd :int)
(wd :int))
,.(mapcar (lambda (specifier)
`(watch-raw ,inotify ,@specifier))
rest)
+ (values)
,@body)
(close-inotify ,inotify))))
,.(mapcar (lambda (specifier)
`(watch ,inotify ,@specifier))
rest)
+ (values)
,@body)
(close-inotify ,inotify))))