English version
Accueil     À propos     Téléchargement     Ressources     Contactez-nous    

Ce site est rarement mis à jour. Pour les informations les plus récentes, rendez-vous sur le nouveau site OCaml à l'adresse ocaml.org.

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: 2002-10-31 (16:59)
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,
 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