Index

Package: DDS.Entity_Impl

Description

package DDS.Entity_Impl is
(c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ All rights reserved. No duplications, whole or partial, manual or electronic, may be made without express written permission. Any such copies, or revisions thereof, must display this notice unaltered. This code contains trade secrets of Real-Time Innovations, Inc.

Classes

Ref

type Ref is limited new RTIDDS.Obj_Impl.Ref and DDS.Entity.Ref with
      record
         StatusCondition : aliased DDS.StatusCondition_Impl.Ref;
      end record;

Ancestors:

Primitive operations:

Enable (overriding Ref)
Entity_Initialize_I
Get_Entity_Kind (overriding Ref)
Get_Instance_Handle (overriding Ref)
Get_Status_Changes (overriding Ref)
Get_StatusCondition (overriding Ref)
Get_User_Data
GetInterface
Set_User_Data
SetInterface

Types

Ref_Access

type Ref_Access is access all Ref'Class;

Ref_Access_constant

type Ref_Access_constant is access constant Ref;

DDS_Entity_Access

type DDS_Entity_Access is access all DDS_Entity with Storage_Size => 0;

Subprograms & Entries

Enable

procedure Enable 
(Self: not null access Ref);

Get_StatusCondition

function Get_StatusCondition 
(Self: not null access Ref) return DDS.StatusCondition.Ref_Access;

Get_Status_Changes

function Get_Status_Changes 
(Self: not null access Ref) return DDS.StatusMask;

Get_Instance_Handle

function Get_Instance_Handle 
(Self: not null access Ref) return DDS.InstanceHandle_T;

Get_Entity_Kind

function Get_Entity_Kind 
(Self: not null access Ref) return DDS.EntityKind_T;

Get_User_Data

function Get_User_Data 
(Self: not null access Ref) return System.Address;

Set_User_Data

procedure Set_User_Data 
(Self: not null access Ref;
To: System.Address);

Entity_Initialize_I

procedure Entity_Initialize_I 
(Self: access Ref;
CEntity: DDS_Entity_Access);

GetInterface

function GetInterface 
(Self: not null access Ref) return DDS_Entity_Access;

SetInterface

procedure SetInterface 
(Self: not null access Ref;
To: DDS_Entity_Access);