pragma Ada_2012; 

--  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 

--  All rights reserved. 

-- 

--  No duplications, whole or partial, manual or electronic, may be made 

--  without express written permission.  Any such copies, or 

--  revisions thereof, must display this notice unaltered. 

--  This code contains trade secrets of Real-Time Innovations, Inc. 

with DDS.Listener; 

with Unchecked_Conversion; 

with RTIDDS.Low_Level.ndds_dds_c_dds_c_publication_h; use RTIDDS.Low_Level.ndds_dds_c_dds_c_publication_h; 

package DDS.Listener.Low_Level is 

   type DDS_DataWriterListener_access is access all DDS_DataWriterListener; 

   function C_To_Listener is new Unchecked_Conversion 

     (Source => System.Address, Target => DDS.Listener.Ref_Access
To API doc
To spec); 

   function Listener_To_C is new Unchecked_Conversion 

     (Source => DDS.Listener.Ref_Access
To API doc
To spec, Target => DDS_DataWriterListener_access
To API doc
To spec); 

end DDS.Listener.Low_Level;