[Caml-list] How to make a delay ?

[Caml-list] How to make a delay ?

[José Romildo Malaquias]

Hello.

I am need to control the time under a program I am writing,
in order to simulate a real-time situation. I just need
a function that suspends the program execution for a
given time, in miliseconds precision.

Any help?

Romildo
-- 
Prof. José Romildo Malaquias <romildo@uber.com.br> <romildo@iceb.ufop.br>
Departamento de Computação - Universidade Federal de Ouro Preto
Brasil
-------------------
Bug reports: http://caml.inria.fr/bin/caml-bugs  FAQ: http://caml.inria.fr/FAQ/
To unsubscribe, mail caml-list-request@inria.fr  Archives: http://caml.inria.fr

Re: [Caml-list] How to make a delay ?

[Daniel de Rauglaudre]

Hi,

On Fri, Aug 17, 2001 at 06:15:34AM -0300, José Romildo Malaquias wrote:

> I am need to control the time under a program I am writing,
> in order to simulate a real-time situation. I just need
> a function that suspends the program execution for a
> given time, in miliseconds precision.

Unix.select [] [] [] your_timeout

-- 
Daniel de RAUGLAUDRE
daniel.de_rauglaudre@inria.fr
http://cristal.inria.fr/~ddr/
-------------------
Bug reports: http://caml.inria.fr/bin/caml-bugs  FAQ: http://caml.inria.fr/FAQ/
To unsubscribe, mail caml-list-request@inria.fr  Archives: http://caml.inria.fr

Re: [Caml-list] How to make a delay ?

[Markus Mottl]

On Fri, 17 Aug 2001, Jos? Romildo Malaquias wrote:
> I am need to control the time under a program I am writing, in order
> to simulate a real-time situation. I just need a function that suspends
> the program execution for a given time, in miliseconds precision.

You can use timers and signals to do this, e.g.:

---------------------------------------------------------------------------
open Sys
open Unix
open Printf

let _ =
  set_signal sigalrm (Signal_handle (fun _ -> ()));
  let timer = 3.14159 in
  let expected_time = gettimeofday () +. timer in
  ignore (setitimer ITIMER_REAL { it_interval = 0.0; it_value = timer });
  pause ();
  printf "Precision: %f\n" (abs_float (gettimeofday () -. expected_time))
---------------------------------------------------------------------------

Depending on the type and load of your system, you can achieve precision
in the range of milliseconds.

Regards,
Markus Mottl

-- 
Markus Mottl                                             markus@oefai.at
Austrian Research Institute
for Artificial Intelligence                  http://www.oefai.at/~markus
-------------------
Bug reports: http://caml.inria.fr/bin/caml-bugs  FAQ: http://caml.inria.fr/FAQ/
To unsubscribe, mail caml-list-request@inria.fr  Archives: http://caml.inria.fr