+let move_gate fname =
+ let tmpfname=String.concat "." [fname;"tmp"] in
+ (* XXX add a check *)
+ Unix.rename fname tmpfname;
+ tmpfname
+
+let move_ungate fname restore =
+ (* XXX add a check *)
+ Unix.rename restore fname
+
+let list_check lst elt _ =
+ let rec list_check_rec lst =
+ match lst with
+ | [] -> false
+ | car::cdr ->
+ if (car==elt) then
+ true
+ else
+ list_check_rec cdr
+ in
+ list_check_rec lst