---------------------------------------------------------------------------
--
-- Filename:
--
--    pr1.adb
--
-- Description:
--
--    Program to print real-time characteristics of an Ada 95 compilation 
--    system.
--
-- Revision:
--
--    $Id:$
--
---------------------------------------------------------------------------
 
with System;
with Text_IO;
with Ada.Real_Time;

procedure PR1 is
   use System;
   use Text_IO;
   use Ada.Real_Time;

   package IO1 is new Integer_IO (Integer);
   use IO1;
   package IO2 is new Integer_IO (Long_Long_Integer);
   use IO2;

   SC : Seconds_Count; 
   TS : Time_Span;

begin
   Put ("Priority'First ............................. ");
   Put (Integer (Priority'First));
   New_Line;

   Put ("Priority'Last .............................. ");
   Put (Integer (Priority'Last));
   New_Line;

   Put ("System.Default_Priority .................... ");
   Put (Integer (System.Default_Priority));
   New_Line;

   Put ("Interrupt_Priority'First ................... ");
   Put (Integer (Interrupt_Priority'First));
   New_Line;

   Put ("Interrupt_Priority'Last .................... ");
   Put (Integer (Interrupt_Priority'Last));
   New_Line;

   Put ("Duration'Size .............................. ");
   Put (Integer (Duration'Size));
   New_Line;

   Put ("Duration'First ............................. ");
   Put (Long_Long_Integer (Duration'First));
   Put (" Sec (approx)");
   New_Line;

   Put ("Duration'Last .............................. ");
   Put (Long_Long_Integer (Duration'Last));
   Put (" Sec (approx)");
   New_Line;

   Put ("Duration'Small ............................. ");
   Put (Long_Long_Integer (Duration'Small * 1000000000.0));
   Put (" nSec");
   New_Line;

   Split (Ada.Real_Time.Time_First, SC, TS);

   Put ("Ada.Real_Time.Time_First ................... ");
   Put (Long_Long_Integer (SC));
   Put (" Sec ");
   Put (Long_Long_Integer (To_Duration (TS) * 1000000000.0));
   Put (" nSec");
   New_Line;

   Split (Ada.Real_Time.Time_Last, SC, TS);

   Put ("Ada.Real_Time.Time_Last .................... ");
   Put (Long_Long_Integer (SC));
   Put (" Sec ");
   Put (Long_Long_Integer (To_Duration (TS) * 1000000000.0));
   Put (" nSec");
   New_Line;

   Put ("Ada.Real_Time.Time_Unit .................... ");
   Put (Long_Long_Integer (Ada.Real_Time.Time_Unit * 1000000000.0));
   Put (" nSec");
   New_Line;

end PR1;