1. pragma Ada_2012; 
  2. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-10-23 #$ 
  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.DataWriter; 
  14.  
  15. --  <dref>DataWriterListener</dref> 
  16. package DDS.DataWriterListener is 
  17.  
  18.    type Ref is limited interface and DDS.Listener.Ref; 
  19.    type Ref_Access is access all Ref'Class; 
  20.  
  21.    procedure On_Offered_Deadline_Missed 
  22.      (Self   : not null access Ref; 
  23.       Writer : access DDS.DataWriter.Ref'Class; 
  24.       Status : in DDS.OfferedDeadlineMissedStatus) is null; 
  25.    --  <dref>DataWriterListener_on_offered_deadline_missed</dref> 
  26.  
  27.    procedure On_Offered_Incompatible_Qos 
  28.      (Self   : not null access Ref; 
  29.       Writer : access DDS.DataWriter.Ref'Class; 
  30.       Status : in DDS.OfferedIncompatibleQosStatus) is null; 
  31.    --  <dref>DataWriterListener_on_offered_incompatible_qos</dref> 
  32.  
  33.    procedure On_Liveliness_Lost 
  34.      (Self   : not null access Ref; 
  35.       Writer : access DDS.DataWriter.Ref'Class; 
  36.       Status : in DDS.LivelinessLostStatus) is null; 
  37.    --  <dref>DataWriterListener_on_liveliness_lost</dref> 
  38.  
  39.    procedure On_Publication_Matched 
  40.      (Self   : not null access Ref; 
  41.       Writer : access DDS.DataWriter.Ref'Class; 
  42.       Status : in DDS.PublicationMatchedStatus) is null; 
  43.    --  <dref>DataWriterListener_on_publication_matched</dref> 
  44.  
  45.    procedure On_Reliable_Writer_Cache_Changed 
  46.      (Self   : not null access Ref; 
  47.       Writer : access DDS.DataWriter.Ref'Class; 
  48.       Status : in DDS.ReliableWriterCacheChangedStatus) is null; 
  49.    --  <dref>DataWriterListener_on_reliable_writer_cache_changed</dref> 
  50.  
  51.    procedure On_Reliable_Reader_Activity_Changed 
  52.      (Self   : not null access Ref; 
  53.       Writer : access DDS.DataWriter.Ref'Class; 
  54.       Status : in DDS.ReliableReaderActivityChangedStatus) is null; 
  55.    --  <dref>DataWriterListener_on_reliable_reader_activity_changed</dref> 
  56.  
  57.    procedure On_Destination_Unreachable 
  58.      (Self   : not null access Ref; 
  59.       Writer : access DDS.DataWriter.Ref'Class; 
  60.       Instance : in DDS.InstanceHandle_T; 
  61.       Locator  : in DDS.Locator_T) is null; 
  62.    --  <dref internal="true">DataWriterListener_on_destination_unreachable</dref> 
  63.  
  64.    procedure On_Data_Request 
  65.      (Self   : not null access Ref; 
  66.       Writer : access DDS.DataWriter.Ref'Class; 
  67.       Cookie   : in DDS.Cookie_T; 
  68.       Request  : in out System.Address) is null; 
  69.    --  <dref internal="true">DataWriterListener_on_data_request</dref> 
  70.  
  71.    procedure On_Data_Return 
  72.      (Self   : not null access Ref; 
  73.       Writer : access DDS.DataWriter.Ref'Class; 
  74.       arg      : System.Address; 
  75.       Cookie   : in DDS.Cookie_T) is null; 
  76.    --  <dref internal="true">DataWriterListener_on_data_return</dref> 
  77.  
  78.    procedure On_Sample_Removed 
  79.      (Self   : not null access Ref; 
  80.       Writer : access DDS.DataWriter.Ref'Class; 
  81.       Cookie : in DDS.Cookie_T) is null; 
  82.    --  <dref internal="true">DataWriterListener_on_sample_removed</dref> 
  83.  
  84.    procedure On_Instance_Replaced 
  85.      (Self   : not null access Ref; 
  86.       Writer : access DDS.DataWriter.Ref'Class; 
  87.       Instance : in DDS.InstanceHandle_T) is null; 
  88.    --  <dref>DataWriterListener_on_instance_replaced</dref> 
  89.  
  90.    procedure On_Application_Acknowledgment 
  91.      (Self   : not null access Ref; 
  92.       Writer : access DDS.DataWriter.Ref'Class; 
  93.       Info : in DDS.AcknowledgmentInfo) is null; 
  94.    --  <dref>DataWriterListener_on_application_acknowledgment</dref> 
  95.  
  96.    procedure On_Service_Request_Accepted 
  97.      (Self   : not null access Ref; 
  98.       Writer : access DDS.DataWriter.Ref'Class; 
  99.       Info : in DDS.ServiceRequestAcceptedStatus) is null; 
  100.    --  <dref>DataWriterListener_on_service_request_accepted</dref> 
  101.  
  102. end DDS.DataWriterListener;