1. pragma Ada_2012; 
  2. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 
  3. --  All rights reserved. 
  4. -- 
  5. --  No duplications, whole or partial, manual or electronic, may be made 
  6. --  without express written permission.  Any such copies, or 
  7. --  revisions thereof, must display this notice unaltered. 
  8. --  This code contains trade secrets of Real-Time Innovations, Inc. 
  9.  
  10.  
  11.  
  12. with DDS.Listener; 
  13. limited with DDS.DataReader; 
  14.  
  15. --  <dref>DataReaderListener</dref> 
  16. package DDS.DataReaderListener is 
  17.  
  18.    type Ref is limited interface and DDS.Listener.Ref; 
  19.    type Ref_Access is access all Ref'Class; 
  20.    type DataReader_Access is not null access all DDS.DataReader.Ref'Class; 
  21.    procedure On_Requested_Deadline_Missed 
  22.      (Self       : not null access Ref; 
  23.       The_Reader : in DDS.DataReaderListener.DataReader_Access; 
  24.       Status     : in DDS.RequestedDeadlineMissedStatus) 
  25.    is null; 
  26.    --  <dref>DataReaderListener_on_requested_deadline_missed</dref> 
  27.    --  <internal> 
  28.    --  Handles the StatusKind.REQUESTED_DEADLINE_MISSED_STATUS 
  29.    --  communication status. 
  30.    --  </internal> 
  31.  
  32.    procedure On_Requested_Incompatible_Qos 
  33.      (Self       : not null access Ref; 
  34.       The_Reader : in DDS.DataReaderListener.DataReader_Access; 
  35.       Status     : in DDS.RequestedIncompatibleQosStatus) 
  36.    is null; 
  37.    --  <dref>DataReaderListener_on_requested_incompatible_qos</dref> 
  38.    --  <internal> 
  39.    --  Handles the StatusKind.REQUESTED_INCOMPATIBLE_QOS_STATUS 
  40.    --  communication status. 
  41.    --  </internal> 
  42.  
  43.    procedure On_Sample_Rejected 
  44.      (Self       : not null access Ref; 
  45.       The_Reader : in DDS.DataReaderListener.DataReader_Access; 
  46.       Status     : in DDS.SampleRejectedStatus) 
  47.    is null; 
  48.    --  <dref>DataReaderListener_on_sample_rejected</dref> 
  49.    --  <internal> 
  50.    --  Handles the StatusKind.SAMPLE_REJECTED_STATUS 
  51.    --  communication status. 
  52.    --  </internal> 
  53.  
  54.    procedure On_Liveliness_Changed 
  55.      (Self       : not null access Ref; 
  56.       The_Reader : in DDS.DataReaderListener.DataReader_Access; 
  57.       Status     : in DDS.LivelinessChangedStatus) 
  58.    is null; 
  59.    --  <dref>DataReaderListener_on_liveliness_changed</dref> 
  60.    --  <internal> 
  61.    --  Handles the StatusKind.LIVELINESS_CHANGED_STATUS 
  62.    --  communication status. 
  63.    --  </internal> 
  64.  
  65.    procedure On_Data_Available 
  66.      (Self       : not null access Ref; 
  67.       The_Reader : in DDS.DataReaderListener.DataReader_Access) 
  68.    is abstract; 
  69.    --  <dref>DataReaderListener_on_data_available</dref> 
  70.    --  <internal> 
  71.    --  Handle the StatusKind.DATA_AVAILABLE_STATUS communication status. 
  72.    --  </internal> 
  73.  
  74.    procedure On_Subscription_Matched 
  75.      (Self       : not null access Ref; 
  76.       The_Reader : in DDS.DataReaderListener.DataReader_Access; 
  77.       Status     : in DDS.SubscriptionMatchedStatus) 
  78.    is null; 
  79.    --  <dref>DataReaderListener_on_subscription_matched</dref> 
  80.    --  <internal> 
  81.    --  Handles the StatusKind.SUBSCRIPTION_MATCHED_STATUS communication status. 
  82.    --  </internal> 
  83.  
  84.    procedure On_Sample_Lost 
  85.      (Self       : not null access Ref; 
  86.       The_Reader : in DDS.DataReaderListener.DataReader_Access; 
  87.       Status     : in DDS.SampleLostStatus) 
  88.    is null; 
  89.    --  <dref>DataReaderListener_on_sample_lost</dref> 
  90.  
  91. end DDS.DataReaderListener;