Specification of package Corba.Repository_Root.Repository

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2005            === --
 ==================================================== --
 From IDL file ../omg/CORBA_InterfaceRepository.idl
with Corba_Ios ;
with Corba.Object ;
with Corba.Repository_Root.Contained ;
with Corba.Repository_Root.Primitivedef ;
with Corba.Repository_Root.Stringdef ;
with Corba.Repository_Root.Wstringdef ;
with Corba.Repository_Root.Idltype ;
with Corba.Repository_Root.Sequencedef ;
with Corba.Repository_Root.Arraydef ;
with Corba.Repository_Root.Fixeddef ;
with Corba.Repository_Root.Container ;
with Repository_Forward ;
pragma Elaborate_All (Corba.Object) ;
package CORBA.Repository_Root.Repository is

   type Ref is new Repository_Root.Container.Ref with null record;


   ------------------------------
    Methods of this interface  --
   ------------------------------

   function lookup_id
      (Self : in Ref;
       search_id : in CORBA.RepositoryId)
      return Repository_Root.Contained.Ref ;

   function get_canonical_typecode
      (Self : in Ref;
       tc : in Corba.TypeCode.Object)
      return Corba.TypeCode.Object ;

   function get_primitive
      (Self : in Ref;
       kind : in Repository_Root.PrimitiveKind)
      return Repository_Root.PrimitiveDef.Ref ;

   function create_string
      (Self : in Ref;
       bound : in Corba.Unsigned_Long)
      return Repository_Root.StringDef.Ref ;

   function create_wstring
      (Self : in Ref;
       bound : in Corba.Unsigned_Long)
      return Repository_Root.WstringDef.Ref ;

   function create_sequence
      (Self : in Ref;
       bound : in Corba.Unsigned_Long;
       element_type : in Repository_Root.IDLType.Ref)
      return Repository_Root.SequenceDef.Ref ;

   function create_array
      (Self : in Ref;
       length : in Corba.Unsigned_Long;
       element_type : in Repository_Root.IDLType.Ref)
      return Repository_Root.ArrayDef.Ref ;

   function create_fixed
      (Self : in Ref;
       IDL_digits : in Corba.Unsigned_Short;
       scale : in Corba.Short)
      return Repository_Root.FixedDef.Ref ;

   package Convert is new Repository_Forward.Convert (Ref);

   Null_Ref : constant Ref := (Repository_Root.Container
      .Null_Ref with null record);

   Tgx_Service_Name : Corba.ObjectId := Corba.To_Corba_String
      ("InterfaceRepository") ;

   Repository_R_Id : constant Corba.RepositoryId :=
      Corba.To_Corba_String ("IDL:omg.org/CORBA/Repository:1.0") ;
private
    Collocated calls profiles and callers

   type Tgx_lookup_id_Ptr is access function
      (Self : in Ref;
       search_id : in CORBA.RepositoryId)
      return Repository_Root.Contained.Ref;

   Tgx_lookup_id_Caller : Tgx_lookup_id_Ptr ;

   type Tgx_get_canonical_typecode_Ptr is access function
      (Self : in Ref;
       tc : in Corba.TypeCode.Object)
      return Corba.TypeCode.Object;

   Tgx_get_canonical_typecode_Caller : Tgx_get_canonical_typecode_Ptr ;

   type Tgx_get_primitive_Ptr is access function
      (Self : in Ref;
       kind : in Repository_Root.PrimitiveKind)
      return Repository_Root.PrimitiveDef.Ref;

   Tgx_get_primitive_Caller : Tgx_get_primitive_Ptr ;

   type Tgx_create_string_Ptr is access function
      (Self : in Ref;
       bound : in Corba.Unsigned_Long)
      return Repository_Root.StringDef.Ref;

   Tgx_create_string_Caller : Tgx_create_string_Ptr ;

   type Tgx_create_wstring_Ptr is access function
      (Self : in Ref;
       bound : in Corba.Unsigned_Long)
      return Repository_Root.WstringDef.Ref;

   Tgx_create_wstring_Caller : Tgx_create_wstring_Ptr ;

   type Tgx_create_sequence_Ptr is access function
      (Self : in Ref;
       bound : in Corba.Unsigned_Long;
       element_type : in Repository_Root.IDLType.Ref)
      return Repository_Root.SequenceDef.Ref;

   Tgx_create_sequence_Caller : Tgx_create_sequence_Ptr ;

   type Tgx_create_array_Ptr is access function
      (Self : in Ref;
       length : in Corba.Unsigned_Long;
       element_type : in Repository_Root.IDLType.Ref)
      return Repository_Root.ArrayDef.Ref;

   Tgx_create_array_Caller : Tgx_create_array_Ptr ;

   type Tgx_create_fixed_Ptr is access function
      (Self : in Ref;
       IDL_digits : in Corba.Unsigned_Short;
       scale : in Corba.Short)
      return Repository_Root.FixedDef.Ref;

   Tgx_create_fixed_Caller : Tgx_create_fixed_Ptr ;
end CORBA.Repository_Root.Repository;