Browse files

More exports.

  • Loading branch information...
1 parent 2179a45 commit d7d6ab7bf101ec92223b0e5bda33eb3018441fb7 @stassats committed May 4, 2010
Showing with 31 additions and 6 deletions.
  1. +3 −5 inotify.lisp
  2. +28 −1 packages.lisp
View
8 inotify.lisp
@@ -60,7 +60,7 @@
(defun add-watch (inotify pathname mask)
(let* ((pathname (namestring pathname))
(watch (make-watch :inotify inotify
- :pathname pathname
+ :pathname (parse-namestring pathname)
:id (inotify-add-watch (inotify-fd inotify)
pathname
mask)
@@ -80,14 +80,12 @@
(defun event-full-name (event)
(if (event-name event)
(merge-pathnames (event-name event)
- (make-pathname :directory (watch-pathname (event-watch event))))
+ (watch-pathname (event-watch event)))
(watch-pathname (event-watch event))))
(defun read-event (inotify)
(let ((buffer (inotify-buffer inotify)))
- (c-read (inotify-fd inotify)
- buffer
- event-size)
+ (assert (plusp (c-read (inotify-fd inotify) buffer event-size)))
(with-foreign-slots ((watch mask cookie name-length)
buffer inotify-event)
(let ((event (make-event :watch (find-watch inotify watch)
View
29 packages.lisp
@@ -23,4 +23,31 @@
#:event-name
#:event-mask
#:event-watch
- #:event-cookie))
+ #:event-cookie
+ #:event-full-name
+
+ #:in-access
+ #:in-modify
+ #:in-attrib
+ #:in-close-write
+ #:in-close-nowrite
+ #:in-close
+ #:in-open
+ #:in-moved-from
+ #:in-moved-to
+ #:in-move
+ #:in-create
+ #:in-delete
+ #:in-delete-self
+ #:in-move-self
+ #:in-unmount
+ #:in-q-overflow
+ #:in-ignored
+ #:in-close
+ #:in-move
+ #:in-onlydir
+ #:in-dont-follow
+ #:in-mask-add
+ #:in-isdir
+ #:in-oneshot
+ #:in-all-events))

0 comments on commit d7d6ab7

Please sign in to comment.