-- (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 DDS.DataReaderListener;
limited with DDS.Subscriber;
-- <dref>SubscriberListener</dref>
package DDS.SubscriberListener is
type Ref is limited interface and DDS.DataReaderListener.Ref;
type Ref_Access is access all Ref'Class;
procedure On_Data_On_Readers
(Self : not null access Ref;
The_Subscriber : in out DDS.Subscriber.Ref'Class) is null;
-- <dref>SubscriberListener_on_data_on_readers</dref>
end DDS.SubscriberListener;