package DDS.Entity_Impl is

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

type Ref_Access is access all Ref'Class;

procedure Enable 
(
Self
: not null access Ref);

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

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

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

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

procedure Entity_Initialize_I 
(
Self
: access Ref;
CEntity
: System.Address);