-let mask_watch dir file =
- try
- Hashtbl.replace masks (dir,file) true
- with _ ->
- ()
-
-let unmask_watch dir file =
- if (Hashtbl.mem masks (dir,file)) then
- begin
- Hashtbl.remove masks (dir,file)
- end
- else
- fprintf logfd "WARNING: %s,%s -- Unpaired unmask\n" dir file;flush logfd
-