[Caml-list] Timeout function

[Eugene Kotlyarov <ekot@narod.ru>]

Hello.

  I am trying to compile ftp client from cdk under Windows and there is a
  problem in the following function:

(*d [timeout time fun arg] applies [fun] to [arg], and returns the
   result. [raise Timeout] if there is no result after [time] seconds.
*)

  What is the best way of implementing such function under Windows?
  
(* functions to deal with timouts *)
exception Timeout

let notimer ={ Unix.it_interval=0.0 ; Unix.it_value = 0.0 }

let handler = Sys.Signal_handle
    (fun _ ->
      Sys.set_signal Sys.sigalrm Sys.Signal_default ;
      ignore (Unix.setitimer Unix.ITIMER_REAL notimer);
      raise Timeout)

let timeout time f x =
  Sys.set_signal Sys.sigalrm handler;
  let timer = { Unix.it_interval= 0. ; Unix.it_value = time } in
  ignore (Unix.setitimer Unix.ITIMER_REAL timer);
  let res =
    try
      (f x)
    with
    | e ->
        ignore (Unix.setitimer Unix.ITIMER_REAL notimer);
        raise e
  in
  ignore (Unix.setitimer Unix.ITIMER_REAL notimer);
  res

  

-- 
Best regards,
 Eugene                          mailto:ekot@narod.ru

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners