-let pidmap: (int,in_pathname * Unix.file_descr) Hashtbl.t = Hashtbl.create 1024
-
-let move_gate fname =
- let tmpfname=String.concat "." [fname;"tmp"] in
- Unix.rename fname tmpfname;
- tmpfname
-
-let move_ungate fname restore =
- Unix.rename restore fname
-