package DDS.Condition_Impl is

type Ref is  abstract limited new RTIDDS.Obj_Impl.Ref and DDS.Condition.Ref with null record;

type Ref_Access is access all Ref'Class;

type DDS_Condition_Access is access all DDS_Condition with Storage_Size => 0;

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

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

procedure Set_User_Object 
(
Self
: not null access Ref;
To
: System.Address);

function  Get_User_Object 
(
Self
: not null access Ref) return System.Address;