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.SubscriberListener; 

with DDS.DataReader; 

package DDS.SubscriberAdapter is 

   type Ref is limited interface and SubscriberListener.Ref
To API doc
To spec; 

   procedure On_Data_Available 

     (Self       : not null access Ref
To API doc
To spec; 

      The_Reader : in DDS.DataReader.Ref
To API doc
To spec'Class) is null; 

end DDS.SubscriberAdapter;