Skip to content

Instantly share code, notes, and snippets.

@mfp
Created September 15, 2013 22:17
Show Gist options
  • Save mfp/6574792 to your computer and use it in GitHub Desktop.
Save mfp/6574792 to your computer and use it in GitHub Desktop.
exception Error of string * int
type select_event =
Inotify.select_event =
S_Access
| S_Attrib
| S_Close_write
| S_Close_nowrite
| S_Create
| S_Delete
| S_Delete_self
| S_Modify
| S_Move_self
| S_Moved_from
| S_Moved_to
| S_Open
| S_Dont_follow
| S_Mask_add
| S_Oneshot
| S_Onlydir
| S_Move
| S_Close
| S_All
type type_event =
Inotify.type_event =
Access
| Attrib
| Close_write
| Close_nowrite
| Create
| Delete
| Delete_self
| Modify
| Move_self
| Moved_from
| Moved_to
| Open
| Ignored
| Isdir
| Q_overflow
| Unmount
type t
type wd = Inotify.wd
type event = wd * type_event list * int32 * string option
val int_of_wd : wd -> int
val string_of_event : type_event -> string
val init : unit -> t
val add_watch : t -> string -> select_event list -> wd
val rm_watch : t -> wd -> unit
val read : t -> (wd * type_event list * int32 * string option) list Lwt.t
val fd : t -> Unix.file_descr
val close : t -> unit
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment