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;

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);