Re: [Caml-list] Simple clock

[romildo@uber.com.br]

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

On Tue, Dec 14, 2004 at 05:38:50PM +0000, Keith Wansbrough wrote:
> > 
> > $ simpleclock
> > 15:15:58
> > 15:15:59
> > 15:16:00
> > 15:16:01
> > 
> > I want to receive sugestions on how to implement
> > this.
> 
> Thread.delay
> Unix.time
> Unix.localtime

I have tried the following program, but its
compilation fails with the message:

$ ocamlopt -thread threads.cmxa unix.cmxa simple-clock.ml -o simple-clock
No implementations provided for the following modules:
  Unix referenced from /usr/lib/ocaml/threads/threads.cmxa(Thread)

What does that mean?

Romildo

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

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

   How to compile:

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

open Unix
open Thread

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 ();
    Thread.delay 1.0
  done

let _ = simple_clock ()