simple time display

simple time display

[Noam Kloos]

In a book i read:
package durationIO is new ada.text_io.decimal_io(DURATION);
use durationIO;

gnat on sun and linux 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?

Regards,
Noam.

Re: simple time display

[Jerome Desquilbet]

> 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
 ' ^

Re: simple time display

[Jerome Desquilbet]

> What whould be the simplest way to just pprint the current time in 
> ada?

My previous message just explained how to print a Duration object.
If you want to print the current time, you have to use Ada.Calendar.
For example:

with Ada.Text_Io;
use Ada.Text_Io;
with Ada.Calendar;
use Ada.Calendar;

procedure Print_Current_Date is
    Current_Time : Time := Clock;
    Current_Year : Year_Number := Year (Current_Time);
    Current_Month : Month_Number := Month (Current_Time);
    Current_Day : Day_Number := Day (Current_Time);
begin
    Put_Line (Year_Number'Image (Current_Year) &
	      Month_Number'Image (Current_Month) &
	      Day_Number'Image (Current_Day));
end Print_Current_Date;

Re: simple time display

[Robert Dewar]

Noam said

"In a book i read:
package durationIO is new ada.text_io.decimal_io(DURATION);
use durationIO;


What book? This is clearly nonsense, Duration is an ordinary fixed point
type, not a decimal fixed point type!