package DDS.GuardCondition_Impl is

type Ref is limited new DDS.Condition_Impl.Ref with null record;

type Ref_Access is access all Ref'Class;

type DDS_GuardCondition_Access is access all DDS_GuardCondition with Storage_Size => 0;

procedure Initialize 
(
Self
: in out Ref);

procedure Adjust 
(
Self
: in out Ref);

procedure Finalize 
(
Self
: in out Ref);

procedure Set_Trigger_Value 
(
Self
: access Ref;
Value
: DDS.Boolean);

function Get_Trigger_Value 
(
Self
: access Ref) return DDS.Boolean;

procedure Free 
(
This
: in out Ref_Access);

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

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