git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Introduced direct-connected services, which offer pipe semantics.
[vsys.git]
/
dirwatcher.ml
diff --git
a/dirwatcher.ml
b/dirwatcher.ml
index
fed87d4
..
e43de77
100644
(file)
--- a/
dirwatcher.ml
+++ b/
dirwatcher.ml
@@
-22,10
+22,17
@@
let handle_dir_event dirname evlist str =
flush logfd
let add_watch dir events handler =
flush logfd
let add_watch dir events handler =
-
fprintf logfd "Adding watch for %s\n" dir;flush logfd
;
+
printf "Adding watch for %s\n" dir;flush Pervasives.stdout
;
let wd = Inotify.add_watch fd dir events in
Hashtbl.add wdmap wd (dir,handler)
let wd = Inotify.add_watch fd dir events in
Hashtbl.add wdmap wd (dir,handler)
+ (* XXX
+let del_watch dir =
+ fprintf logfd "Removing watch for %s\n" dir;flush logfd;
+ let wd = Inotify.rm_watch fd dir in
+ Hashtbl.remove wdmap wd
+ *)
+
let asciiz s =
let rec findfirstnul str idx len =
if ((idx==len) ||
let asciiz s =
let rec findfirstnul str idx len =
if ((idx==len) ||