pragma Ada_2012;
with DDS.Entity;
with DDS.Condition_Impl;
with DDS.StatusCondition;
with RTIDDS.Low_Level.ndds_dds_c_dds_c_infrastructure_h; use RTIDDS.Low_Level.ndds_dds_c_dds_c_infrastructure_h;
package DDS.StatusCondition_Impl is
type Ref is limited new DDS.Condition_Impl.Ref and DDS.StatusCondition.Ref with
record
Owner : DDS.Entity.Ref_Access;
end record;
type Ref_Access is access all Ref'Class;
function Get_Enabled_Statuses
(Self : not null access Ref)
return DDS.StatusMask;
function Get_Trigger_Value
(Self : access Ref)
return DDS.Boolean;
procedure Set_Enabled_Statuses
(Self : not null access Ref;
Mask : in DDS.StatusMask);
function Get_Entity
(Self : not null access Ref)
return access DDS.Entity.Ref'Class;
function Get_Impl_I
(Self : access Ref)
return DDS.Condition_Impl.Ref_Access;
type DDS_StatusCondition_Access is access all DDS_StatusCondition with Storage_Size => 0;
function GetInterface (Self : not null access Ref) return DDS_StatusCondition_Access;
procedure SetInterface (Self : not null access Ref; To : DDS_StatusCondition_Access);
end DDS.StatusCondition_Impl;