+ Hashtbl.add wdmap wd (dir,Activehandler(handler))
+
+let mask_events wd =
+ let (dirname,handler) = try Hashtbl.find wdmap wd with Not_found->("",Nohandler)
+ in
+ match handler with
+ | Activehandler(func)->
+ Hashtbl.replace wdmap wd (dirname,Maskedhandler(func))
+ | _ ->
+ ()
+
+let unmask_events wd =
+ let (dirname,handler) = try Hashtbl.find wdmap wd with Not_found->("",Nohandler)
+ in
+ match handler with
+ | Maskedhandler(func)->
+ Hashtbl.replace wdmap wd (dirname,Activehandler(func))
+ | _ ->
+ ()
+