Specification of package Corba.Repository_Root.Uniondef

 ==================================================== --
 ===  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.Idltype ;
with Corba.Repository_Root.Typedefdef ;
with Corba.Repository_Root.Container ;
with Corba.Repository_Root.Contained ;
with Corba.Sequences ;
with Moduledef_Forward ;
with Corba.Repository_Root.Constantdef ;
with Structdef_Forward ;
with Uniondef_Forward ;
with Corba.Repository_Root.Enumdef ;
with Corba.Repository_Root.Aliasdef ;
with Interfacedef_Forward ;
with Valuedef_Forward ;
with Corba.Repository_Root.Valueboxdef ;
with Exceptiondef_Forward ;
with Corba.Repository_Root.Nativedef ;
with Abstractinterfacedef_Forward ;
with Localinterfacedef_Forward ;
with Extvaluedef_Forward ;
with Corba.Repository_Root.Irobject ;
pragma Elaborate_All (Corba.Object) ;
package CORBA.Repository_Root.UnionDef is

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


   --------------------------------------------------------------------
    Methods inherited from interface CORBA.Repository_Root.Container --
   --------------------------------------------------------------------

   function lookup
      (Self : in Ref;
       search_name : in CORBA.ScopedName)
      return Repository_Root.Contained.Ref ;

   function contents
      (Self : in Ref;
       limit_type : in CORBA.DefinitionKind;
       exclude_inherited : in Corba.Boolean)
      return Repository_Root.ContainedSeq ;

   function lookup_name
      (Self : in Ref;
       search_name : in CORBA.Identifier;
       levels_to_search : in Corba.Long;
       limit_type : in CORBA.DefinitionKind;
       exclude_inherited : in Corba.Boolean)
      return Repository_Root.ContainedSeq ;

   function describe_contents
      (Self : in Ref;
       limit_type : in CORBA.DefinitionKind;
       exclude_inherited : in Corba.Boolean;
       max_returned_objs : in Corba.Long)
      return Repository_Root.Container.DescriptionSeq ;

   function create_module
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec)
      return ModuleDef_Forward.Ref ;

   function create_constant
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       IDL_type : in Repository_Root.IDLType.Ref;
       value : in Corba.Any)
      return Repository_Root.ConstantDef.Ref ;

   function create_struct
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       members : in Repository_Root.StructMemberSeq)
      return StructDef_Forward.Ref ;

   function create_union
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       discriminator_type : in Repository_Root.IDLType.Ref;
       members : in Repository_Root.UnionMemberSeq)
      return UnionDef_Forward.Ref ;

   function create_enum
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       members : in Repository_Root.EnumMemberSeq)
      return Repository_Root.EnumDef.Ref ;

   function create_alias
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       original_type : in Repository_Root.IDLType.Ref)
      return Repository_Root.AliasDef.Ref ;

   function create_interface
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       base_interfaces : in Repository_Root.InterfaceDefSeq;
       is_abstract : in Corba.Boolean)
      return InterfaceDef_Forward.Ref ;

   function create_value
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       is_custom : in Corba.Boolean;
       is_abstract : in Corba.Boolean;
       base_value : in ValueDef_Forward.Ref;
       is_truncatable : in Corba.Boolean;
       abstract_base_values : in Repository_Root.ValueDefSeq;
       supported_interfaces : in Repository_Root.InterfaceDefSeq;
       initializers : in Repository_Root.InitializerSeq)
      return ValueDef_Forward.Ref ;

   function create_value_box
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       original_type_def : in Repository_Root.IDLType.Ref)
      return Repository_Root.ValueBoxDef.Ref ;

   function create_exception
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       members : in Repository_Root.StructMemberSeq)
      return ExceptionDef_Forward.Ref ;

   function create_native
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec)
      return Repository_Root.NativeDef.Ref ;

   function create_abstract_interface
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       base_interfaces : in Repository_Root.AbstractInterfaceDefSeq)
      return AbstractInterfaceDef_Forward.Ref ;

   function create_local_interface
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       base_interfaces : in Repository_Root.InterfaceDefSeq)
      return LocalInterfaceDef_Forward.Ref ;

   function create_ext_value
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       is_custom : in Corba.Boolean;
       is_abstract : in Corba.Boolean;
       base_value : in ValueDef_Forward.Ref;
       is_truncatable : in Corba.Boolean;
       abstract_base_values : in Repository_Root.ValueDefSeq;
       supported_interfaces : in Repository_Root.InterfaceDefSeq;
       initializers : in Repository_Root.ExtInitializerSeq)
      return ExtValueDef_Forward.Ref ;

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

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

   function Get_discriminator_type_def
      (Self : in Ref)
      return Repository_Root.IDLType.Ref ;

   procedure Set_discriminator_type_def
      (Self : in Ref;
       To : in Repository_Root.IDLType.Ref) ;

   function Get_members
      (Self : in Ref)
      return Repository_Root.UnionMemberSeq ;

   procedure Set_members
      (Self : in Ref;
       To : in Repository_Root.UnionMemberSeq) ;

   package Convert is new UnionDef_Forward.Convert (Ref);

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

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

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

   type Tgx_lookup_Ptr is access function
      (Self : in Ref;
       search_name : in CORBA.ScopedName)
      return Repository_Root.Contained.Ref;

   Tgx_lookup_Caller : Tgx_lookup_Ptr ;

   type Tgx_contents_Ptr is access function
      (Self : in Ref;
       limit_type : in CORBA.DefinitionKind;
       exclude_inherited : in Corba.Boolean)
      return Repository_Root.ContainedSeq;

   Tgx_contents_Caller : Tgx_contents_Ptr ;

   type Tgx_lookup_name_Ptr is access function
      (Self : in Ref;
       search_name : in CORBA.Identifier;
       levels_to_search : in Corba.Long;
       limit_type : in CORBA.DefinitionKind;
       exclude_inherited : in Corba.Boolean)
      return Repository_Root.ContainedSeq;

   Tgx_lookup_name_Caller : Tgx_lookup_name_Ptr ;

   type Tgx_describe_contents_Ptr is access function
      (Self : in Ref;
       limit_type : in CORBA.DefinitionKind;
       exclude_inherited : in Corba.Boolean;
       max_returned_objs : in Corba.Long)
      return Repository_Root.Container.DescriptionSeq;

   Tgx_describe_contents_Caller : Tgx_describe_contents_Ptr ;

   type Tgx_create_module_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec)
      return ModuleDef_Forward.Ref;

   Tgx_create_module_Caller : Tgx_create_module_Ptr ;

   type Tgx_create_constant_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       IDL_type : in Repository_Root.IDLType.Ref;
       value : in Corba.Any)
      return Repository_Root.ConstantDef.Ref;

   Tgx_create_constant_Caller : Tgx_create_constant_Ptr ;

   type Tgx_create_struct_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       members : in Repository_Root.StructMemberSeq)
      return StructDef_Forward.Ref;

   Tgx_create_struct_Caller : Tgx_create_struct_Ptr ;

   type Tgx_create_union_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       discriminator_type : in Repository_Root.IDLType.Ref;
       members : in Repository_Root.UnionMemberSeq)
      return UnionDef_Forward.Ref;

   Tgx_create_union_Caller : Tgx_create_union_Ptr ;

   type Tgx_create_enum_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       members : in Repository_Root.EnumMemberSeq)
      return Repository_Root.EnumDef.Ref;

   Tgx_create_enum_Caller : Tgx_create_enum_Ptr ;

   type Tgx_create_alias_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       original_type : in Repository_Root.IDLType.Ref)
      return Repository_Root.AliasDef.Ref;

   Tgx_create_alias_Caller : Tgx_create_alias_Ptr ;

   type Tgx_create_interface_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       base_interfaces : in Repository_Root.InterfaceDefSeq;
       is_abstract : in Corba.Boolean)
      return InterfaceDef_Forward.Ref;

   Tgx_create_interface_Caller : Tgx_create_interface_Ptr ;

   type Tgx_create_value_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       is_custom : in Corba.Boolean;
       is_abstract : in Corba.Boolean;
       base_value : in ValueDef_Forward.Ref;
       is_truncatable : in Corba.Boolean;
       abstract_base_values : in Repository_Root.ValueDefSeq;
       supported_interfaces : in Repository_Root.InterfaceDefSeq;
       initializers : in Repository_Root.InitializerSeq)
      return ValueDef_Forward.Ref;

   Tgx_create_value_Caller : Tgx_create_value_Ptr ;

   type Tgx_create_value_box_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       original_type_def : in Repository_Root.IDLType.Ref)
      return Repository_Root.ValueBoxDef.Ref;

   Tgx_create_value_box_Caller : Tgx_create_value_box_Ptr ;

   type Tgx_create_exception_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       members : in Repository_Root.StructMemberSeq)
      return ExceptionDef_Forward.Ref;

   Tgx_create_exception_Caller : Tgx_create_exception_Ptr ;

   type Tgx_create_native_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec)
      return Repository_Root.NativeDef.Ref;

   Tgx_create_native_Caller : Tgx_create_native_Ptr ;

   type Tgx_create_abstract_interface_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       base_interfaces : in Repository_Root.AbstractInterfaceDefSeq)
      return AbstractInterfaceDef_Forward.Ref;

   Tgx_create_abstract_interface_Caller : Tgx_create_abstract_interface_Ptr ;

   type Tgx_create_local_interface_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       base_interfaces : in Repository_Root.InterfaceDefSeq)
      return LocalInterfaceDef_Forward.Ref;

   Tgx_create_local_interface_Caller : Tgx_create_local_interface_Ptr ;

   type Tgx_create_ext_value_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       is_custom : in Corba.Boolean;
       is_abstract : in Corba.Boolean;
       base_value : in ValueDef_Forward.Ref;
       is_truncatable : in Corba.Boolean;
       abstract_base_values : in Repository_Root.ValueDefSeq;
       supported_interfaces : in Repository_Root.InterfaceDefSeq;
       initializers : in Repository_Root.ExtInitializerSeq)
      return ExtValueDef_Forward.Ref;

   Tgx_create_ext_value_Caller : Tgx_create_ext_value_Ptr ;

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

   Tgx_Get_discriminator_type_Caller : Tgx_Get_discriminator_type_Ptr ;

   type Tgx_Get_discriminator_type_def_Ptr is access function
      (Self : in Ref)
      return Repository_Root.IDLType.Ref;

   Tgx_Get_discriminator_type_def_Caller : Tgx_Get_discriminator_type_def_Ptr ;

   type Tgx_Set_discriminator_type_def_Ptr is access procedure
      (Self : in Ref;
       To : in Repository_Root.IDLType.Ref);

   Tgx_Set_discriminator_type_def_Caller : Tgx_Set_discriminator_type_def_Ptr ;

   type Tgx_Get_members_Ptr is access function
      (Self : in Ref)
      return Repository_Root.UnionMemberSeq;

   Tgx_Get_members_Caller : Tgx_Get_members_Ptr ;

   type Tgx_Set_members_Ptr is access procedure
      (Self : in Ref;
       To : in Repository_Root.UnionMemberSeq);

   Tgx_Set_members_Caller : Tgx_Set_members_Ptr ;
end CORBA.Repository_Root.UnionDef;