Specification of package Corba.Repository_Root.Valuedef

 ==================================================== --
 ===  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.Valuememberdef ;
with Corba.Repository_Root.Attributedef ;
with Corba.Repository_Root.Operationdef ;
with Corba.Repository_Root.Container ;
with Corba.Repository_Root.Contained ;
with Container_Forward ;
with Repository_Forward ;
with Corba.Repository_Root.Irobject ;
with Valuedef_Forward ;
pragma Elaborate_All (Corba.Object) ;
package CORBA.Repository_Root.ValueDef is

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


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

   function Get_id
      (Self : in Ref)
      return CORBA.RepositoryId ;

   procedure Set_id
      (Self : in Ref;
       To : in CORBA.RepositoryId) ;

   function Get_name
      (Self : in Ref)
      return CORBA.Identifier ;

   procedure Set_name
      (Self : in Ref;
       To : in CORBA.Identifier) ;

   function Get_version
      (Self : in Ref)
      return CORBA.VersionSpec ;

   procedure Set_version
      (Self : in Ref;
       To : in CORBA.VersionSpec) ;

   function Get_defined_in
      (Self : in Ref)
      return Container_Forward.Ref ;

   function Get_absolute_name
      (Self : in Ref)
      return CORBA.ScopedName ;

   function Get_containing_repository
      (Self : in Ref)
      return Repository_Forward.Ref ;

   function describe
      (Self : in Ref)
      return Repository_Root.Contained.Description ;

   procedure move
      (Self : in Ref;
       new_container : in Container_Forward.Ref;
       new_name : in CORBA.Identifier;
       new_version : in CORBA.VersionSpec) ;

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

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

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

   function Get_supported_interfaces
      (Self : in Ref)
      return Repository_Root.InterfaceDefSeq ;

   procedure Set_supported_interfaces
      (Self : in Ref;
       To : in Repository_Root.InterfaceDefSeq) ;

   function Get_initializers
      (Self : in Ref)
      return Repository_Root.InitializerSeq ;

   procedure Set_initializers
      (Self : in Ref;
       To : in Repository_Root.InitializerSeq) ;

   function Get_base_value
      (Self : in Ref)
      return Ref'class ;

   procedure Set_base_value
      (Self : in Ref;
       To : in Ref'class) ;

   function Get_abstract_base_values
      (Self : in Ref)
      return Repository_Root.ValueDefSeq ;

   procedure Set_abstract_base_values
      (Self : in Ref;
       To : in Repository_Root.ValueDefSeq) ;

   function Get_is_abstract
      (Self : in Ref)
      return Corba.Boolean ;

   procedure Set_is_abstract
      (Self : in Ref;
       To : in Corba.Boolean) ;

   function Get_is_custom
      (Self : in Ref)
      return Corba.Boolean ;

   procedure Set_is_custom
      (Self : in Ref;
       To : in Corba.Boolean) ;

   function Get_is_truncatable
      (Self : in Ref)
      return Corba.Boolean ;

   procedure Set_is_truncatable
      (Self : in Ref;
       To : in Corba.Boolean) ;

   function is_a
      (Self : in Ref;
       id : in CORBA.RepositoryId)
      return Corba.Boolean ;

   type FullValueDescription is
   record
      name : CORBA.Identifier;
      id : CORBA.RepositoryId;
      is_abstract : Corba.Boolean;
      is_custom : Corba.Boolean;
      defined_in : CORBA.RepositoryId;
      version : CORBA.VersionSpec;
      operations : Repository_Root.OpDescriptionSeq;
      attributes : Repository_Root.AttrDescriptionSeq;
      members : Repository_Root.ValueMemberSeq;
      initializers : Repository_Root.InitializerSeq;
      supported_interfaces : Repository_Root.RepositoryIdSeq;
      abstract_base_values : Repository_Root.RepositoryIdSeq;
      is_truncatable : Corba.Boolean;
      base_value : CORBA.RepositoryId;
      IDL_type : Corba.TypeCode.Object;
   end record;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : out FullValueDescription) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : in FullValueDescription) ;

   function describe_value
      (Self : in Ref)
      return FullValueDescription ;

   function create_value_member
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       IDL_type : in Repository_Root.IDLType.Ref;
       IDL_access : in CORBA.Visibility)
      return Repository_Root.ValueMemberDef.Ref ;

   function create_attribute
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       IDL_type : in Repository_Root.IDLType.Ref;
       mode : in CORBA.AttributeMode)
      return Repository_Root.AttributeDef.Ref ;

   function create_operation
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       result : in Repository_Root.IDLType.Ref;
       mode : in CORBA.OperationMode;
       params : in Repository_Root.ParDescriptionSeq;
       exceptions : in Repository_Root.ExceptionDefSeq;
       contexts : in Repository_Root.ContextIdSeq)
      return Repository_Root.OperationDef.Ref ;

   package Convert is new ValueDef_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") ;

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

   type Tgx_Get_id_Ptr is access function
      (Self : in Ref)
      return CORBA.RepositoryId;

   Tgx_Get_id_Caller : Tgx_Get_id_Ptr ;

   type Tgx_Set_id_Ptr is access procedure
      (Self : in Ref;
       To : in CORBA.RepositoryId);

   Tgx_Set_id_Caller : Tgx_Set_id_Ptr ;

   type Tgx_Get_name_Ptr is access function
      (Self : in Ref)
      return CORBA.Identifier;

   Tgx_Get_name_Caller : Tgx_Get_name_Ptr ;

   type Tgx_Set_name_Ptr is access procedure
      (Self : in Ref;
       To : in CORBA.Identifier);

   Tgx_Set_name_Caller : Tgx_Set_name_Ptr ;

   type Tgx_Get_version_Ptr is access function
      (Self : in Ref)
      return CORBA.VersionSpec;

   Tgx_Get_version_Caller : Tgx_Get_version_Ptr ;

   type Tgx_Set_version_Ptr is access procedure
      (Self : in Ref;
       To : in CORBA.VersionSpec);

   Tgx_Set_version_Caller : Tgx_Set_version_Ptr ;

   type Tgx_Get_defined_in_Ptr is access function
      (Self : in Ref)
      return Container_Forward.Ref;

   Tgx_Get_defined_in_Caller : Tgx_Get_defined_in_Ptr ;

   type Tgx_Get_absolute_name_Ptr is access function
      (Self : in Ref)
      return CORBA.ScopedName;

   Tgx_Get_absolute_name_Caller : Tgx_Get_absolute_name_Ptr ;

   type Tgx_Get_containing_repository_Ptr is access function
      (Self : in Ref)
      return Repository_Forward.Ref;

   Tgx_Get_containing_repository_Caller : Tgx_Get_containing_repository_Ptr ;

   type Tgx_describe_Ptr is access function
      (Self : in Ref)
      return Repository_Root.Contained.Description;

   Tgx_describe_Caller : Tgx_describe_Ptr ;

   type Tgx_move_Ptr is access procedure
      (Self : in Ref;
       new_container : in Container_Forward.Ref;
       new_name : in CORBA.Identifier;
       new_version : in CORBA.VersionSpec);

   Tgx_move_Caller : Tgx_move_Ptr ;

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

   Tgx_Get_type_Caller : Tgx_Get_type_Ptr ;

   type Tgx_Get_supported_interfaces_Ptr is access function
      (Self : in Ref)
      return Repository_Root.InterfaceDefSeq;

   Tgx_Get_supported_interfaces_Caller : Tgx_Get_supported_interfaces_Ptr ;

   type Tgx_Set_supported_interfaces_Ptr is access procedure
      (Self : in Ref;
       To : in Repository_Root.InterfaceDefSeq);

   Tgx_Set_supported_interfaces_Caller : Tgx_Set_supported_interfaces_Ptr ;

   type Tgx_Get_initializers_Ptr is access function
      (Self : in Ref)
      return Repository_Root.InitializerSeq;

   Tgx_Get_initializers_Caller : Tgx_Get_initializers_Ptr ;

   type Tgx_Set_initializers_Ptr is access procedure
      (Self : in Ref;
       To : in Repository_Root.InitializerSeq);

   Tgx_Set_initializers_Caller : Tgx_Set_initializers_Ptr ;

   type Tgx_Get_base_value_Ptr is access function
      (Self : in Ref)
      return Ref'class;

   Tgx_Get_base_value_Caller : Tgx_Get_base_value_Ptr ;

   type Tgx_Set_base_value_Ptr is access procedure
      (Self : in Ref;
       To : in Ref'class);

   Tgx_Set_base_value_Caller : Tgx_Set_base_value_Ptr ;

   type Tgx_Get_abstract_base_values_Ptr is access function
      (Self : in Ref)
      return Repository_Root.ValueDefSeq;

   Tgx_Get_abstract_base_values_Caller : Tgx_Get_abstract_base_values_Ptr ;

   type Tgx_Set_abstract_base_values_Ptr is access procedure
      (Self : in Ref;
       To : in Repository_Root.ValueDefSeq);

   Tgx_Set_abstract_base_values_Caller : Tgx_Set_abstract_base_values_Ptr ;

   type Tgx_Get_is_abstract_Ptr is access function
      (Self : in Ref)
      return Corba.Boolean;

   Tgx_Get_is_abstract_Caller : Tgx_Get_is_abstract_Ptr ;

   type Tgx_Set_is_abstract_Ptr is access procedure
      (Self : in Ref;
       To : in Corba.Boolean);

   Tgx_Set_is_abstract_Caller : Tgx_Set_is_abstract_Ptr ;

   type Tgx_Get_is_custom_Ptr is access function
      (Self : in Ref)
      return Corba.Boolean;

   Tgx_Get_is_custom_Caller : Tgx_Get_is_custom_Ptr ;

   type Tgx_Set_is_custom_Ptr is access procedure
      (Self : in Ref;
       To : in Corba.Boolean);

   Tgx_Set_is_custom_Caller : Tgx_Set_is_custom_Ptr ;

   type Tgx_Get_is_truncatable_Ptr is access function
      (Self : in Ref)
      return Corba.Boolean;

   Tgx_Get_is_truncatable_Caller : Tgx_Get_is_truncatable_Ptr ;

   type Tgx_Set_is_truncatable_Ptr is access procedure
      (Self : in Ref;
       To : in Corba.Boolean);

   Tgx_Set_is_truncatable_Caller : Tgx_Set_is_truncatable_Ptr ;

   type Tgx_is_a_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId)
      return Corba.Boolean;

   Tgx_is_a_Caller : Tgx_is_a_Ptr ;

   type Tgx_describe_value_Ptr is access function
      (Self : in Ref)
      return FullValueDescription;

   Tgx_describe_value_Caller : Tgx_describe_value_Ptr ;

   type Tgx_create_value_member_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;
       IDL_access : in CORBA.Visibility)
      return Repository_Root.ValueMemberDef.Ref;

   Tgx_create_value_member_Caller : Tgx_create_value_member_Ptr ;

   type Tgx_create_attribute_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;
       mode : in CORBA.AttributeMode)
      return Repository_Root.AttributeDef.Ref;

   Tgx_create_attribute_Caller : Tgx_create_attribute_Ptr ;

   type Tgx_create_operation_Ptr is access function
      (Self : in Ref;
       id : in CORBA.RepositoryId;
       name : in CORBA.Identifier;
       version : in CORBA.VersionSpec;
       result : in Repository_Root.IDLType.Ref;
       mode : in CORBA.OperationMode;
       params : in Repository_Root.ParDescriptionSeq;
       exceptions : in Repository_Root.ExceptionDefSeq;
       contexts : in Repository_Root.ContextIdSeq)
      return Repository_Root.OperationDef.Ref;

   Tgx_create_operation_Caller : Tgx_create_operation_Ptr ;
end CORBA.Repository_Root.ValueDef;