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