Specification of package Timebase

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
with Corba_Ios ;
with Corba ;
with Ada.Calendar ;
pragma Elaborate_All (Corba) ;
package TimeBase is

   type TimeT is new Corba.Unsigned_Long_Long;
   Null_TimeT : constant TimeT := TimeT (Corba.U_Zero) ;

   function To_Ada_Time (Date : in TimeT) return Ada.Calendar.Time ;

   function To_TimeT (Date : in Ada.Calendar.Time) return TimeT ;

   function To_TimeT (Timeout : in Duration) return TimeT ;

   type InaccuracyT is new TimeT;

   type TdfT is new Corba.Short;

   type UtcT is
   record
      time : TimeT;
      inacclo : Corba.Unsigned_Long := 0;
      inacchi : Corba.Unsigned_Short := 0;
      tdf : TdfT := 0;
   end record;

   for UtcT use
   record
      time at 0 range 0 .. 63 ;
      inacclo at 0 range 64 .. 95 ;
      inacchi at 0 range 96 .. 111 ;
      tdf at 0 range 112 .. 127 ;
   end record ;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : out UtcT) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : in UtcT) ;

   type IntervalT is
   record
      lower_bound : TimeT;
      upper_bound : TimeT;
   end record;

   for IntervalT use
   record
      lower_bound at 0 range 0 .. 63 ;
      upper_bound at 0 range 64 .. 127 ;
   end record ;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : out IntervalT) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : in IntervalT) ;

end TimeBase;

List of definition uses