Re: simple time display

[Jerome Desquilbet <jDesquilbet@Rational.COM>]

> package durationIO is new ada.text_io.decimal_io(DURATION);
> use durationIO;
> 
> [...] cannot instantiate durationIO because it wants a
> decimal type for its parameter Num.
> 
> What whould be the simplest way to just pprint the current time in 
> ada?

with Ada.Text_Io;

procedure Test is

    package Duration_Io is new Ada.Text_Io.Fixed_Io (Duration);
    D : Duration := Duration'Small;

begin
    Ada.Text_Io.Put_Line (Duration'Image (D));
    Duration_Io.Put (D);
    Ada.Text_Io.New_Line;
end Test;

______________________________________________________________________
Jerome Desquilbet                             jDesquilbet@Rational.COM
 ' ^