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