-(* Fdwatcher - The main event loop. Agnostic to the type of file descriptors
+(** Fdwatcher - The main event loop. Agnostic to the type of file descriptors
involved.*)
open Printf
let del_fd fd =
fdset:=List.filter (fun l->l<>fd) !fdset;
- flush Pervasives.stdout
+ flush logfd
let start_watch () =
while (true)
let (func,(evd,fd_other)) = Hashtbl.find cbtable elt in
func evd fd_other) fds
done
-