package RTIDDS.Obj_Impl is

type Ref is new Ada.Finalization.Limited_Controlled  and RTIDDS.Obj.Ref with private;

type Ref_Access is access all Ref'Class;

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

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

function Interface_Is_Null 
(
Self
: not null access constant Ref) return Boolean;

procedure Free 
(
Self
: in out Ref_Access);