-- (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.Listener;
limited with DDS.DataReader;
-- <dref>DataReaderListener</dref>
package DDS.DataReaderListener is
type Ref is limited interface and DDS.Listener.Ref;
type Ref_Access is access all Ref'Class;
type DataReader_Access is not null access all DDS.DataReader.Ref'Class;
procedure On_Requested_Deadline_Missed
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access;
Status : in DDS.RequestedDeadlineMissedStatus)
is null;
-- <dref>DataReaderListener_on_requested_deadline_missed</dref>
-- <internal>
-- Handles the StatusKind.REQUESTED_DEADLINE_MISSED_STATUS
-- communication status.
-- </internal>
procedure On_Requested_Incompatible_Qos
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access;
Status : in DDS.RequestedIncompatibleQosStatus)
is null;
-- <dref>DataReaderListener_on_requested_incompatible_qos</dref>
-- <internal>
-- Handles the StatusKind.REQUESTED_INCOMPATIBLE_QOS_STATUS
-- communication status.
-- </internal>
procedure On_Sample_Rejected
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access;
Status : in DDS.SampleRejectedStatus)
is null;
-- <dref>DataReaderListener_on_sample_rejected</dref>
-- <internal>
-- Handles the StatusKind.SAMPLE_REJECTED_STATUS
-- communication status.
-- </internal>
procedure On_Liveliness_Changed
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access;
Status : in DDS.LivelinessChangedStatus)
is null;
-- <dref>DataReaderListener_on_liveliness_changed</dref>
-- <internal>
-- Handles the StatusKind.LIVELINESS_CHANGED_STATUS
-- communication status.
-- </internal>
procedure On_Data_Available
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access)
is abstract;
-- <dref>DataReaderListener_on_data_available</dref>
-- <internal>
-- Handle the StatusKind.DATA_AVAILABLE_STATUS communication status.
-- </internal>
procedure On_Subscription_Matched
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access;
Status : in DDS.SubscriptionMatchedStatus)
is null;
-- <dref>DataReaderListener_on_subscription_matched</dref>
-- <internal>
-- Handles the StatusKind.SUBSCRIPTION_MATCHED_STATUS communication status.
-- </internal>
procedure On_Sample_Lost
(Self : not null access Ref;
The_Reader : in DDS.DataReaderListener.DataReader_Access;
Status : in DDS.SampleLostStatus)
is null;
-- <dref>DataReaderListener_on_sample_lost</dref>
end DDS.DataReaderListener;