--  (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. 

pragma Ada_05; 

with System; 

with RTIDDS.Low_Level.ndds_dds_c_dds_c_subscription_h; 

with DDS.DataReaderListener.Low_Level; 

package DDS.SubscriberListener.Low_Level
To API doc
To body is 

   use RTIDDS.Low_Level.ndds_dds_c_dds_c_subscription_h; 

   use DDS.DataReaderListener.Low_Level; 

   procedure On_Data_On_Readers
To API doc
To body 

     (Listener     : System.Address; 

      C_Subscriber : System.Address); 

   pragma Convention (C, On_Data_On_Readers
To API doc
To spec
To body); 

   SubscriberListener_DEFAULT : constant DDS_SubscriberListener := 

                                  (as_datareaderlistener      => C_DataReaderListener_DEFAULT
To API doc
To spec, 

                                   on_data_on_readers         => On_Data_On_Readers
To API doc
To spec
To body'Access); 

end DDS.SubscriberListener.Low_Level;