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 System; 
  12. with RTIDDS.Low_Level.dds_c.publication_h; 
  13. with RTIDDS.Low_Level.pres.participant_h; 
  14.  
  15. package DDS.DataWriterListener.Low_Level is 
  16.    use RTIDDS.Low_Level.dds_c.publication_h; 
  17.  
  18.    procedure On_Offered_Deadline_Missed 
  19.      (Listener : System.Address; 
  20.       C_Writer : System.Address; 
  21.       Status   : access constant DDS_OfferedDeadlineMissedStatus); 
  22.    pragma Convention (C, On_Offered_Deadline_Missed); 
  23.  
  24.    procedure On_Offered_Incompatible_Qos 
  25.      (Listener : System.Address; 
  26.       C_Writer : System.Address; 
  27.       Status   : access constant DDS_OfferedIncompatibleQosStatus); 
  28.    pragma Convention (C, On_Offered_Incompatible_Qos); 
  29.  
  30.    procedure On_Liveliness_Lost 
  31.      (Listener : System.Address; 
  32.       C_Writer : System.Address; 
  33.       Status   : access constant DDS_LivelinessLostStatus); 
  34.    pragma Convention (C, On_Liveliness_Lost); 
  35.  
  36.    procedure On_Publication_Matched 
  37.      (Listener : System.Address; 
  38.       C_Writer : System.Address; 
  39.       Status   : access constant DDS_PublicationMatchedStatus); 
  40.    pragma Convention (C, On_Publication_Matched); 
  41.  
  42.    procedure On_Reliable_Writer_Cache_Changed 
  43.      (Listener : System.Address; 
  44.       C_Writer : System.Address; 
  45.       Status   : access constant DDS_ReliableWriterCacheChangedStatus); 
  46.    pragma Convention (C, On_Reliable_Writer_Cache_Changed); 
  47.  
  48.    procedure On_Reliable_Reader_Activity_Changed 
  49.      (Listener : System.Address; 
  50.       C_Writer : System.Address; 
  51.       Status   : access constant DDS_ReliableReaderActivityChangedStatus); 
  52.    pragma Convention (C, On_Reliable_Reader_Activity_Changed); 
  53.  
  54.    procedure On_Destination_Unreachable 
  55.      (Listener : System.Address; 
  56.       C_Writer : System.Address; 
  57.       Instance : access constant RTIDDS.Low_Level.pres.participant_h.PRESInstanceHandle; 
  58.       Locator  : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Locator_t); 
  59.    pragma Convention (C, On_Destination_Unreachable); 
  60.  
  61.    function On_Data_Request 
  62.      (Listener : System.Address; 
  63.       C_Writer : System.Address; 
  64.       Cookie   : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Cookie_t) 
  65.       return System.Address; 
  66.    pragma Convention (C, On_Data_Request); 
  67.  
  68.    procedure On_Data_Return 
  69.      (Listener : System.Address; 
  70.       C_Writer : System.Address; 
  71.       arg      : System.Address; 
  72.       Cookie   : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Cookie_t); 
  73.    pragma Convention (C, On_Data_Return); 
  74.  
  75.    procedure On_Sample_Removed 
  76.      (Listener : System.Address; 
  77.       C_Writer : System.Address; 
  78.       Cookie   : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Cookie_t); 
  79.    pragma Convention (C, On_Sample_Removed); 
  80.  
  81.    procedure On_Instance_Replaced 
  82.      (Listener : System.Address; 
  83.       C_Writer : System.Address; 
  84.       Instance : access constant RTIDDS.Low_Level.pres.participant_h.PRESInstanceHandle); 
  85.    pragma Convention (C, On_Instance_Replaced); 
  86.  
  87.    procedure On_Application_Acknowledgment 
  88.      (Listener : System.Address; 
  89.       C_Writer : System.Address; 
  90.       Info : access constant DDS_AcknowledgmentInfo); 
  91.    pragma Convention (C, On_Application_Acknowledgment); 
  92.  
  93.    DataWriterListener_DEFAULT : constant DDS_DataWriterListener := 
  94.                                   (as_listener                         => (listener_data => System.Null_Address), 
  95.                                    on_offered_deadline_missed          => On_Offered_Deadline_Missed'Access, 
  96.                                    On_Offered_Incompatible_Qos         => On_Offered_Incompatible_Qos'Access, 
  97.                                    On_Liveliness_Lost                  => On_Liveliness_Lost'Access, 
  98.                                    On_Publication_Matched              => On_Publication_Matched'Access, 
  99.                                    On_Reliable_Writer_Cache_Changed    => On_Reliable_Writer_Cache_Changed'Access, 
  100.                                    On_Reliable_Reader_Activity_Changed => On_Reliable_Reader_Activity_Changed'Access, 
  101.                                    on_destination_unreachable          => On_Destination_Unreachable'Access, 
  102.                                    on_data_request                     => On_Data_Request'Access, 
  103.                                    on_data_return                      => On_Data_Return'Access, 
  104.                                    on_sample_removed                   => On_Sample_Removed'Access, 
  105.                                    on_instance_replaced                => On_Instance_Replaced'Access, 
  106.                                    on_application_acknowledgment       => On_Application_Acknowledgment'Access); 
  107.  
  108. end DDS.DataWriterListener.Low_Level;