Specification of package Corba.Repository_Root.Extvaluedef

 ==================================================== --
 ===  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.Extattributedef ;
with Corba.Repository_Root.Valuedef ;
with Extvaluedef_Forward ;
pragma Elaborate_All (Corba.Object) ;
package CORBA.Repository_Root.ExtValueDef is

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


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

   function Get_ext_initializers
      (Self : in Ref)
      return Repository_Root.ExtInitializerSeq ;

   procedure Set_ext_initializers
      (Self : in Ref;
       To : in Repository_Root.ExtInitializerSeq) ;

   type ExtFullValueDescription 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.ExtAttrDescriptionSeq;
      members : Repository_Root.ValueMemberSeq;
      initializers : Repository_Root.ExtInitializerSeq;
      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 ExtFullValueDescription) ;

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

   function describe_ext_value
      (Self : in Ref)
      return ExtFullValueDescription ;

   function create_ext_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;
       get_exceptions : in Repository_Root.ExceptionDefSeq;
       set_exceptions : in Repository_Root.ExceptionDefSeq)
      return Repository_Root.ExtAttributeDef.Ref ;

   package Convert is new ExtValueDef_Forward.Convert (Ref);

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

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

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

   type Tgx_Get_ext_initializers_Ptr is access function
      (Self : in Ref)
      return Repository_Root.ExtInitializerSeq;

   Tgx_Get_ext_initializers_Caller : Tgx_Get_ext_initializers_Ptr ;

   type Tgx_Set_ext_initializers_Ptr is access procedure
      (Self : in Ref;
       To : in Repository_Root.ExtInitializerSeq);

   Tgx_Set_ext_initializers_Caller : Tgx_Set_ext_initializers_Ptr ;

   type Tgx_describe_ext_value_Ptr is access function
      (Self : in Ref)
      return ExtFullValueDescription;

   Tgx_describe_ext_value_Caller : Tgx_describe_ext_value_Ptr ;

   type Tgx_create_ext_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;
       get_exceptions : in Repository_Root.ExceptionDefSeq;
       set_exceptions : in Repository_Root.ExceptionDefSeq)
      return Repository_Root.ExtAttributeDef.Ref;

   Tgx_create_ext_attribute_Caller : Tgx_create_ext_attribute_Ptr ;
end CORBA.Repository_Root.ExtValueDef;