Specification of package Corba.Repository_Root
==================================================== --
=== 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.Sequences ;
with Interfacedef_Forward ;
with Valuedef_Forward ;
with Contained_Forward ;
with Idltype_Forward ;
with Abstractinterfacedef_Forward ;
with Localinterfacedef_Forward ;
with Extinterfacedef_Forward ;
with Extvaluedef_Forward ;
with Extabstractinterfacedef_Forward ;
with Extlocalinterfacedef_Forward ;
with Corba.Idl_Sequence_Identifier ;
with Exceptiondef_Forward ;
with Corba.Idl_Sequence_Repositoryid ;
package CORBA.Repository_Root is
use InterfaceDef_Forward ;
package Idl_Sequence_InterfaceDef is new Corba.Sequences.Unbounded (
InterfaceDef_Forward.Ref);
type InterfaceDefSeq is new Idl_Sequence_InterfaceDef.Sequence ;
Null_InterfaceDefSeq : constant InterfaceDefSeq :=
InterfaceDefSeq (Idl_Sequence_InterfaceDef.Null_Sequence) ;
use ValueDef_Forward ;
package Idl_Sequence_ValueDef is new Corba.Sequences.Unbounded (
ValueDef_Forward.Ref);
type ValueDefSeq is new Idl_Sequence_ValueDef.Sequence ;
Null_ValueDefSeq : constant ValueDefSeq :=
ValueDefSeq (Idl_Sequence_ValueDef.Null_Sequence) ;
use Contained_Forward ;
package Idl_Sequence_Contained is new Corba.Sequences.Unbounded (
Contained_Forward.Ref);
type ContainedSeq is new Idl_Sequence_Contained.Sequence ;
Null_ContainedSeq : constant ContainedSeq :=
ContainedSeq (Idl_Sequence_Contained.Null_Sequence) ;
type StructMember is
record
name : CORBA.Identifier;
IDL_type : Corba.TypeCode.Object;
type_def : IDLType_Forward.Ref;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out StructMember) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in StructMember) ;
package Idl_Sequence_StructMember is new Corba.Sequences.Unbounded (
StructMember);
type StructMemberSeq is new Idl_Sequence_StructMember.Sequence ;
Null_StructMemberSeq : constant StructMemberSeq :=
StructMemberSeq (Idl_Sequence_StructMember.Null_Sequence) ;
type Initializer is
record
members : StructMemberSeq;
name : CORBA.Identifier;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out Initializer) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in Initializer) ;
package Idl_Sequence_Initializer is new Corba.Sequences.Unbounded (
Initializer);
type InitializerSeq is new Idl_Sequence_Initializer.Sequence ;
Null_InitializerSeq : constant InitializerSeq :=
InitializerSeq (Idl_Sequence_Initializer.Null_Sequence) ;
type UnionMember is
record
name : CORBA.Identifier;
label : Corba.Any;
IDL_type : Corba.TypeCode.Object;
type_def : IDLType_Forward.Ref;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out UnionMember) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in UnionMember) ;
type ExceptionDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
IDL_type : Corba.TypeCode.Object;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ExceptionDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ExceptionDescription) ;
package Idl_Sequence_ExceptionDescription is new Corba.Sequences.
Unbounded (ExceptionDescription);
type ExcDescriptionSeq is new Idl_Sequence_ExceptionDescription.Sequence ;
Null_ExcDescriptionSeq : constant ExcDescriptionSeq :=
ExcDescriptionSeq (Idl_Sequence_ExceptionDescription.Null_Sequence) ;
type ExtInitializer is
record
members : StructMemberSeq;
exceptions : ExcDescriptionSeq;
name : CORBA.Identifier;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ExtInitializer) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ExtInitializer) ;
use AbstractInterfaceDef_Forward ;
package Idl_Sequence_AbstractInterfaceDef is new Corba.Sequences.
Unbounded (AbstractInterfaceDef_Forward.Ref);
type AbstractInterfaceDefSeq is new Idl_Sequence_AbstractInterfaceDef
.Sequence ;
Null_AbstractInterfaceDefSeq : constant AbstractInterfaceDefSeq :=
AbstractInterfaceDefSeq (Idl_Sequence_AbstractInterfaceDef
.Null_Sequence) ;
use LocalInterfaceDef_Forward ;
package Idl_Sequence_LocalInterfaceDef is new Corba.Sequences.Unbounded (
LocalInterfaceDef_Forward.Ref);
type LocalInterfaceDefSeq is new Idl_Sequence_LocalInterfaceDef.Sequence ;
Null_LocalInterfaceDefSeq : constant LocalInterfaceDefSeq :=
LocalInterfaceDefSeq (Idl_Sequence_LocalInterfaceDef.Null_Sequence) ;
use ExtInterfaceDef_Forward ;
package Idl_Sequence_ExtInterfaceDef is new Corba.Sequences.Unbounded (
ExtInterfaceDef_Forward.Ref);
type ExtInterfaceDefSeq is new Idl_Sequence_ExtInterfaceDef.Sequence ;
Null_ExtInterfaceDefSeq : constant ExtInterfaceDefSeq :=
ExtInterfaceDefSeq (Idl_Sequence_ExtInterfaceDef.Null_Sequence) ;
use ExtValueDef_Forward ;
package Idl_Sequence_ExtValueDef is new Corba.Sequences.Unbounded (
ExtValueDef_Forward.Ref);
type ExtValueDefSeq is new Idl_Sequence_ExtValueDef.Sequence ;
Null_ExtValueDefSeq : constant ExtValueDefSeq :=
ExtValueDefSeq (Idl_Sequence_ExtValueDef.Null_Sequence) ;
use ExtAbstractInterfaceDef_Forward ;
package Idl_Sequence_ExtAbstractInterfaceDef is new Corba.Sequences.
Unbounded (ExtAbstractInterfaceDef_Forward.Ref);
type ExtAbstractInterfaceDefSeq is new
Idl_Sequence_ExtAbstractInterfaceDef.Sequence ;
Null_ExtAbstractInterfaceDefSeq : constant ExtAbstractInterfaceDefSeq :=
ExtAbstractInterfaceDefSeq (Idl_Sequence_ExtAbstractInterfaceDef
.Null_Sequence) ;
use ExtLocalInterfaceDef_Forward ;
package Idl_Sequence_ExtLocalInterfaceDef is new Corba.Sequences.
Unbounded (ExtLocalInterfaceDef_Forward.Ref);
type ExtLocalInterfaceDefSeq is new Idl_Sequence_ExtLocalInterfaceDef
.Sequence ;
Null_ExtLocalInterfaceDefSeq : constant ExtLocalInterfaceDefSeq :=
ExtLocalInterfaceDefSeq (Idl_Sequence_ExtLocalInterfaceDef
.Null_Sequence) ;
package Idl_Sequence_ExtInitializer is new Corba.Sequences.Unbounded (
ExtInitializer);
type ExtInitializerSeq is new Idl_Sequence_ExtInitializer.Sequence ;
Null_ExtInitializerSeq : constant ExtInitializerSeq :=
ExtInitializerSeq (Idl_Sequence_ExtInitializer.Null_Sequence) ;
package Idl_Sequence_UnionMember is new Corba.Sequences.Unbounded (
UnionMember);
type UnionMemberSeq is new Idl_Sequence_UnionMember.Sequence ;
Null_UnionMemberSeq : constant UnionMemberSeq :=
UnionMemberSeq (Idl_Sequence_UnionMember.Null_Sequence) ;
package Idl_Sequence_Identifier renames Corba.Idl_Sequence_Identifier ;
type EnumMemberSeq is new Idl_Sequence_Identifier.Sequence ;
Null_EnumMemberSeq : constant EnumMemberSeq :=
EnumMemberSeq (Idl_Sequence_Identifier.Null_Sequence) ;
type PrimitiveKind is
( pk_null, pk_void, pk_short, pk_long, pk_ushort, pk_ulong, pk_float,
pk_double, pk_boolean, pk_char, pk_octet, pk_any, pk_TypeCode,
pk_Principal, pk_string, pk_objref, pk_longlong, pk_ulonglong,
pk_longdouble, pk_wchar, pk_wstring, pk_value_base);
for PrimitiveKind'size use 32 ;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type;
Tgx_Item : out PrimitiveKind);
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type;
Tgx_Item : in PrimitiveKind);
type ModuleDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ModuleDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ModuleDescription) ;
type ConstantDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
IDL_type : Corba.TypeCode.Object;
value : Corba.Any;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ConstantDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ConstantDescription) ;
type TypeDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
IDL_type : Corba.TypeCode.Object;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out TypeDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in TypeDescription) ;
type AttributeDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
IDL_type : Corba.TypeCode.Object;
mode : CORBA.AttributeMode;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out AttributeDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in AttributeDescription) ;
type ExtAttributeDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
IDL_type : Corba.TypeCode.Object;
mode : CORBA.AttributeMode;
get_exceptions : ExcDescriptionSeq;
put_exceptions : ExcDescriptionSeq;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ExtAttributeDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ExtAttributeDescription) ;
type ParameterDescription is
record
name : CORBA.Identifier;
IDL_type : Corba.TypeCode.Object;
type_def : IDLType_Forward.Ref;
mode : CORBA.ParameterMode;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ParameterDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ParameterDescription) ;
package Idl_Sequence_ParameterDescription is new Corba.Sequences.
Unbounded (ParameterDescription);
type ParDescriptionSeq is new Idl_Sequence_ParameterDescription.Sequence ;
Null_ParDescriptionSeq : constant ParDescriptionSeq :=
ParDescriptionSeq (Idl_Sequence_ParameterDescription.Null_Sequence) ;
type ContextIdentifier is new CORBA.Identifier;
package Idl_Sequence_ContextIdentifier is new Corba.Sequences.Unbounded (
ContextIdentifier);
type ContextIdSeq is new Idl_Sequence_ContextIdentifier.Sequence ;
Null_ContextIdSeq : constant ContextIdSeq :=
ContextIdSeq (Idl_Sequence_ContextIdentifier.Null_Sequence) ;
use ExceptionDef_Forward ;
package Idl_Sequence_ExceptionDef is new Corba.Sequences.Unbounded (
ExceptionDef_Forward.Ref);
type ExceptionDefSeq is new Idl_Sequence_ExceptionDef.Sequence ;
Null_ExceptionDefSeq : constant ExceptionDefSeq :=
ExceptionDefSeq (Idl_Sequence_ExceptionDef.Null_Sequence) ;
type OperationDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
result : Corba.TypeCode.Object;
mode : CORBA.OperationMode;
contexts : ContextIdSeq;
parameters : ParDescriptionSeq;
exceptions : ExcDescriptionSeq;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out OperationDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in OperationDescription) ;
package Idl_Sequence_RepositoryId renames Corba.Idl_Sequence_RepositoryId ;
type RepositoryIdSeq is new Idl_Sequence_RepositoryId.Sequence ;
Null_RepositoryIdSeq : constant RepositoryIdSeq :=
RepositoryIdSeq (Idl_Sequence_RepositoryId.Null_Sequence) ;
package Idl_Sequence_OperationDescription is new Corba.Sequences.
Unbounded (OperationDescription);
type OpDescriptionSeq is new Idl_Sequence_OperationDescription.Sequence ;
Null_OpDescriptionSeq : constant OpDescriptionSeq :=
OpDescriptionSeq (Idl_Sequence_OperationDescription.Null_Sequence) ;
package Idl_Sequence_AttributeDescription is new Corba.Sequences.
Unbounded (AttributeDescription);
type AttrDescriptionSeq is new Idl_Sequence_AttributeDescription
.Sequence ;
Null_AttrDescriptionSeq : constant AttrDescriptionSeq :=
AttrDescriptionSeq (Idl_Sequence_AttributeDescription.Null_Sequence) ;
package Idl_Sequence_ExtAttributeDescription is new Corba.Sequences.
Unbounded (ExtAttributeDescription);
type ExtAttrDescriptionSeq is new Idl_Sequence_ExtAttributeDescription
.Sequence ;
Null_ExtAttrDescriptionSeq : constant ExtAttrDescriptionSeq :=
ExtAttrDescriptionSeq (Idl_Sequence_ExtAttributeDescription
.Null_Sequence) ;
type InterfaceDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
base_interfaces : RepositoryIdSeq;
is_abstract : Corba.Boolean;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out InterfaceDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in InterfaceDescription) ;
type ValueMember is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
IDL_type : Corba.TypeCode.Object;
type_def : IDLType_Forward.Ref;
IDL_access : CORBA.Visibility;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ValueMember) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ValueMember) ;
package Idl_Sequence_ValueMember is new Corba.Sequences.Unbounded (
ValueMember);
type ValueMemberSeq is new Idl_Sequence_ValueMember.Sequence ;
Null_ValueMemberSeq : constant ValueMemberSeq :=
ValueMemberSeq (Idl_Sequence_ValueMember.Null_Sequence) ;
type ValueDescription is
record
name : CORBA.Identifier;
id : CORBA.RepositoryId;
is_abstract : Corba.Boolean;
is_custom : Corba.Boolean;
defined_in : CORBA.RepositoryId;
version : CORBA.VersionSpec;
supported_interfaces : RepositoryIdSeq;
abstract_base_values : RepositoryIdSeq;
is_truncatable : Corba.Boolean;
base_value : CORBA.RepositoryId;
end record;
procedure Iop_Read
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : out ValueDescription) ;
procedure Iop_Write
( Stream : access Corba_Ios.Iop_Stream_Type ;
Tgx_Item : in ValueDescription) ;
Tgx_Service_Name : Corba.ObjectId := Corba.To_Corba_String
("InterfaceRepository") ;
end CORBA.Repository_Root;
List of definition uses
This page was generated by PrismTech's ada2html on Friday Mai 12 2006 16:18