let (fname,fd) = evpair in
fdset := (fd::!fdset);
Hashtbl.replace cbtable fd (callback,(evpair,fd_other))
let del_fd fd =
fdset:=List.filter (fun l->l<>fd) !fdset;
let (fname,fd) = evpair in
fdset := (fd::!fdset);
Hashtbl.replace cbtable fd (callback,(evpair,fd_other))
let del_fd fd =
fdset:=List.filter (fun l->l<>fd) !fdset;