grovel.lisp

   1 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-inotify; -*-
   2
   3 ;; Copyright (c) 2011, Olof-Joachim Frahm
   4 ;; All rights reserved.
   5
   6 ;; Redistribution and use in source and binary forms, with or without
   7 ;; modification, are permitted provided that the following conditions
   8 ;; are met:
   9
  10 ;; 1. Redistributions of source code must retain the above copyright
  11 ;; notice, this list of conditions and the following disclaimer.
  12
  13 ;; 2. Redistributions in binary form must reproduce the above copyright
  14 ;; notice, this list of conditions and the following disclaimer in the
  15 ;; documentation and/or other materials provided with the distribution.
  16
  17 ;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  18 ;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  19 ;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  20 ;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  21 ;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  22 ;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  23 ;; LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  24 ;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  25 ;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26 ;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  27 ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 (in-package #:cl-inotify)
  30
  31 (include "sys/inotify.h")
  32
  33 ;; since 2.6.27 according to inotify_init(2)
  34 (constant (in-cloexec       "IN_CLOEXEC"))
  35 (constant (in-nonblock      "IN_NONBLOCK"))
  36 (constant (in-access        "IN_ACCESS"))
  37 (constant (in-modify        "IN_MODIFY"))
  38 (constant (in-attrib        "IN_ATTRIB"))
  39 (constant (in-close-write   "IN_CLOSE_WRITE"))
  40 (constant (in-close-nowrite "IN_CLOSE_NOWRITE"))
  41 (constant (in-close         "IN_CLOSE"))
  42 (constant (in-open          "IN_OPEN"))
  43 (constant (in-moved-from    "IN_MOVED_FROM"))
  44 (constant (in-moved-to      "IN_MOVED_TO"))
  45 (constant (in-move          "IN_MOVE"))
  46 (constant (in-create        "IN_CREATE"))
  47 (constant (in-delete        "IN_DELETE"))
  48 (constant (in-delete-self   "IN_DELETE_SELF"))
  49 (constant (in-move-self     "IN_MOVE_SELF"))
  50 (constant (in-unmount       "IN_UNMOUNT"))
  51 (constant (in-q-overflow    "IN_Q_OVERFLOW"))
  52 (constant (in-ignored       "IN_IGNORED"))
  53 (constant (in-onlydir       "IN_ONLYDIR"))
  54 (constant (in-dont-follow   "IN_DONT_FOLLOW"))
  55 (constant (in-mask-add      "IN_MASK_ADD"))
  56 (constant (in-isdir         "IN_ISDIR"))
  57 (constant (in-oneshot       "IN_ONESHOT"))
  58 (constant (in-all-events    "IN_ALL_EVENTS"))