Version française
Home     About     Download     Resources     Contact us    

This site is updated infrequently. For up-to-date information, please visit the new OCaml website at

Browse thread
[Caml-list] Timeout function
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: -- (:)
From: Eugene Kotlyarov <ekot@n...>
Subject: [Caml-list] Timeout function

  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 =
      (f x)
    | e ->
        ignore (Unix.setitimer Unix.ITIMER_REAL notimer);
        raise e
  ignore (Unix.setitimer Unix.ITIMER_REAL notimer);


Best regards,

To unsubscribe, mail Archives:
Bug reports: FAQ:
Beginner's list: