pragma Ada_2012;
with DDS.StatusCondition;
with System;
package DDS.Entity is
type Ref is limited interface;
type Ref_Access is access all Ref'Class;
procedure Enable (Self : not null access Ref) is abstract;
function Get_StatusCondition (Self : not null access Ref) return
DDS.StatusCondition.Ref_Access is abstract;
function Get_Status_Changes (Self : not null access Ref) return
DDS.StatusMask is abstract;
function Get_Instance_Handle (Self : not null access Ref) return
DDS.InstanceHandle_T is abstract;
function Get_Entity_Kind (Self : not null access Ref) return
DDS.EntityKind_T is abstract;
function GetInterface (Self : not null access constant Ref)
return System.Address is abstract;
procedure SetInterface (Self : not null access Ref;
To : System.Address) is abstract;
end DDS.Entity;