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