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

with DDS.DataReader; 

package DDS.DataReaderAdapter is 

   --<<eXtension>> A listener adapter. 

   --  (The Adapter provides empty implementations for the listener methods) 

   --  Clients who do not wish to implement all listener methods can subclass 

   --  this class and override only the methods of interest. 

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

   procedure On_Data_Available 

     (Self       : not null access Ref; 

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

end DDS.DataReaderAdapter;