pragma Style_Checks ("NM32766");
pragma Wide_Character_Encoding (Brackets);
pragma Warnings (Off, "use of an anonymous access type allocator");

---------------------------------------------------
--  This file has been generated automatically from
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/time/TimeBase.idl
--  by IAC (IDL to Ada Compiler) 25.0w (rev. unknown).
---------------------------------------------------
--  NOTE: If you modify this file by hand, your
--  changes will be lost when you re-run the
--  IDL to Ada compiler.
---------------------------------------------------

--  Source: 
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/time/TimeBase.idl

--  //File: TimeBase.idl
--  //Part of the Time Service
--  // Note: if your IDL compiler does not yet support the 
--  //   "long long" data type, compile this module with the 
--  //   preprocessor definition "NOLONGLONG". With many 
--  //   compilers this would be done with a qualifier on 
--  //   the command line, something like -DNOLONGLONG
--  //OMG File: 98-10-47

--  #ifndef _TIME_BASE_IDL_
--  #define _TIME_BASE_IDL_

--  #ifdef _PRE_3_0_COMPILER_
--  #pragma prefix "omg.org"
--  #endif // _PRE_3_0_COMPILER_

--  module TimeBase {

--  #ifndef _PRE_3_0_COMPILER_
--  	typeprefix TimeBase "omg.org";
--  #endif // _PRE_3_0_COMPILER_

--  #ifdef NOLONGLONG
--  	struct ulonglong{
--  		unsigned long 		low;
--  		unsigned long		high;
--  	};
--  	typedef ulonglong 		TimeT;
--  #else
--  	typedef unsigned long long	TimeT;
--  #endif
--  	
--  	typedef TimeT 			InaccuracyT;
--  	typedef short 			TdfT;
--  	struct UtcT {
--  		TimeT			time;		// 8 octets
--  		unsigned long	inacclo;	// 4 octets
--  		unsigned short	inacchi;	// 2 octets
--  		TdfT			tdf;		// 2 octets 
--  									// total 16 octets.
--  	};

--  	struct IntervalT {
--  		TimeT			lower_bound;
--  		TimeT			upper_bound;
--  	};
--  };
--  #endif /* ifndef _TIME_BASE_IDL_ */

--  End source: 
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/time/TimeBase.idl 
--  -- 49 lines

---------------------------------------------------

with PolyORB.Std;
with CORBA;
pragma Elaborate_All (CORBA);

package TimeBase is

   Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/TimeBase:1.0";

   type TimeT is
     new CORBA.Unsigned_Long_Long;

   TimeT_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/TimeBase/TimeT:1.0";

   type InaccuracyT is
     new TimeBase.TimeT;

   InaccuracyT_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/TimeBase/InaccuracyT:1.0";

   type TdfT is
     new CORBA.Short;

   TdfT_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/TimeBase/TdfT:1.0";

   type UtcT is
     record
         time : TimeBase.TimeT;
         inacclo : CORBA.Unsigned_Long;
         inacchi : CORBA.Unsigned_Short;
         tdf : TimeBase.TdfT;
      end record;

   UtcT_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/TimeBase/UtcT:1.0";

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

   IntervalT_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/TimeBase/IntervalT:1.0";

end TimeBase;
