Re: [Caml-list] Simple clock

[romildo@uber.com.br]

[-- Attachment #1: Type: text/plain, Size: 613 bytes --]

On Tue, Dec 14, 2004 at 01:17:01PM -0500, Lars Nilsson wrote:
> On Tue, 14 Dec 2004 17:38:50 +0000, Keith Wansbrough
> <Keith.Wansbrough@cl.cam.ac.uk> wrote:
> > Thread.delay
> > Unix.time
> > Unix.localtime
> 
> Or Unix.select instead of Thread.delay, for that tried-and-true
> solution that will give you sub-second sleep capability.
> 
>   ignore(Unix.select [] [] [] 0.5)

Here is my simple clock in Ocaml. Have I done it right?
Any comments?

Particularly, the while, print_tm and print_newline execution
time is not counted. Would that introduce an accurace in
my clock? If so, is that inevitable?

Romildo

[-- Attachment #2: simple-clock.ml --]
[-- Type: text/plain, Size: 496 bytes --]

(* simple-clock.ml
   Repeatedly prints the current time at the standard output,
   at intervals of 1 sec

   How to compile:

   ocamlopt unix.cmxa simple-clock.ml -o simple-clock
*)

open Unix

let print_tm tm =
  print_int tm.tm_hour;
  print_char ':';
  print_int tm.tm_min;
  print_char ':';
  print_int tm.tm_sec

let simple_clock () =
  while true do
    print_tm (Unix.localtime (Unix.time ()));
    print_newline ();
    ignore (Unix.select [] [] [] 1.0)
  done

let _ = simple_clock ()