Re: Fairly simple question about using time in Ada

["DuckE" <nospam_steved94@home.com>]

Here is what I usually do:

WITH Ada.Text_Io;
WITH Ada.Float_Text_Io;

PROCEDURE Elapsed_Time_Demo IS

  PACKAGE Text_Io RENAMES Ada.Text_Io;
  PACKAGE Float_Text_Io RENAMES Ada.Float_Text_Io;
  PACKAGE Real_Time RENAMES Ada.Real_Time;
  USE TYPE Real_Time.Time;

  start_time   : Real_Time.Time;
  end_Time     : Real_Time.Time;
  elapsed_time : Real_Time.Time_Span;

BEGIN
  start_time := Real_Time.Clock;
  FOR ii IN 1 .. 1_000_000 LOOP  -- Something that needs timing
    NULL;                        --
  END LOOP;                      --
  end_time := Real_Time.Clock;
  elapsed_time := end_time - start_time;
  Text_Io.Put( "Elapsed time is: " );
  Float_Text_Io.Put( Float( Real_Time.To_Duration( elapsed_Time ) ), 3, 2,
0 );
END Elapsed_Time_Demo;


"Chris Vinall" <cjvinall@dingoblue.net.au> wrote in message
news:3bb5234f$0$9274$afc38c87@news.optusnet.com.au...
> I'm writing a program in which I need to be able to timestamp events and
> then later check how much real time has elapsed since that event occurred.
> It is essential that this timing operate to tenths of a second and
> hundredths of a second would be a lot better.
>
> How do I go about doing this in Ada? My textbook mentioned something about
> Duration but was less than helpful.
>
> Thanks for any help
>
> Chris
>
>