1. pragma Ada_2012; 
  2. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 
  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_subscription_h; use RTIDDS.Low_Level.ndds_dds_c_dds_c_subscription_h; 
  14.  
  15. package DDS.DataReaderListener.Low_Level is 
  16.  
  17.    type T_Requested_Deadline_Missed is access procedure 
  18.      (Listener_Data : System.Address; 
  19.       C_Reader      : access DDS_DataReader; 
  20.       Status        : in DDS_RequestedDeadlineMissedStatus); 
  21.    pragma Convention (C, T_Requested_Deadline_Missed); 
  22.  
  23.    type T_Requested_Incompatible_Qos is access procedure 
  24.      (Listener_Data : System.Address; 
  25.       C_Reader      : access DDS_DataReader; 
  26.       Status        : in DDS_RequestedIncompatibleQosStatus); 
  27.    pragma Convention (C, T_Requested_Incompatible_Qos); 
  28.  
  29.    type T_Sample_Rejected is access procedure 
  30.      (Listener_Data : System.Address; 
  31.       C_Reader      : access DDS_DataReader; 
  32.       Status        : in DDS_SampleRejectedStatus); 
  33.    pragma Convention (C, T_Sample_Rejected); 
  34.  
  35.    type T_Liveliness_Changed is access procedure 
  36.      (Listener_Data : System.Address; 
  37.       C_Reader      : access DDS_DataReader; 
  38.       Status        : in DDS_LivelinessChangedStatus); 
  39.    pragma Convention (C, T_Liveliness_Changed); 
  40.  
  41.    type T_Data_Available is access procedure 
  42.      (Listener_Data : System.Address; 
  43.       C_Reader      : access DDS_DataReader); 
  44.    pragma Convention (C, T_Data_Available); 
  45.  
  46.    type T_Subscription_Matched is access procedure 
  47.      (Listener_Data : System.Address; 
  48.       C_Reader      : access DDS_DataReader; 
  49.       Status        : access constant DDS_SubscriptionMatchedStatus); 
  50.    pragma Convention (C, T_Subscription_Matched); 
  51.  
  52.    type T_Sample_Lost is access procedure 
  53.      (Listener_Data : System.Address; 
  54.       C_Reader      : access DDS_DataReader; 
  55.       Status        : access constant DDS_SampleLostStatus); 
  56.    pragma Convention (C, T_Sample_Lost); 
  57.  
  58.  
  59.    procedure On_Requested_Deadline_Missed 
  60.      (Listener : System.Address; 
  61.       C_Reader : access DDS_DataReader; 
  62.       Status   : access constant DDS_RequestedDeadlineMissedStatus); 
  63.    pragma Convention (C, On_Requested_Deadline_Missed); 
  64.  
  65.    procedure On_Requested_Incompatible_Qos 
  66.      (Listener : System.Address; 
  67.       C_Reader : access DDS_DataReader; 
  68.       Status   : access constant DDS_RequestedIncompatibleQosStatus); 
  69.    pragma Convention (C, On_Requested_Incompatible_Qos); 
  70.  
  71.    procedure On_Sample_Rejected 
  72.      (Listener : System.Address; 
  73.       C_Reader : access DDS_DataReader; 
  74.       Status   : access constant DDS_SampleRejectedStatus); 
  75.    pragma Convention (C, On_Sample_Rejected); 
  76.  
  77.    procedure On_Liveliness_Changed 
  78.      (Listener : System.Address; 
  79.       C_Reader : access DDS_DataReader; 
  80.       Status   : access constant DDS_LivelinessChangedStatus); 
  81.    pragma Convention (C, On_Liveliness_Changed); 
  82.  
  83.    procedure On_Data_Available 
  84.      (Listener : System.Address; 
  85.       C_Reader : access DDS_DataReader); 
  86.    pragma Convention (C, On_Data_Available); 
  87.  
  88.    procedure On_Subscription_Matched 
  89.      (Listener : System.Address; 
  90.       C_Reader : access DDS_DataReader; 
  91.       Status   : access constant DDS_SubscriptionMatchedStatus); 
  92.    pragma Convention (C, On_Subscription_Matched); 
  93.  
  94.    procedure On_Sample_Lost 
  95.      (Listener : System.Address; 
  96.       C_Reader : access DDS_DataReader; 
  97.       Status   : access constant DDS_SampleLostStatus); 
  98.    pragma Convention (C, On_Sample_Lost); 
  99.  
  100.    C_DataReaderListener_DEFAULT : constant DDS_DataReaderListener := 
  101.                                     (as_listener                   => (listener_data => System.Null_Address), 
  102.                                      on_requested_deadline_missed  => On_Requested_Deadline_Missed'Access, 
  103.                                      on_requested_incompatible_qos => On_Requested_Incompatible_Qos'Access, 
  104.                                      on_sample_rejected            => On_Sample_Rejected'Access, 
  105.                                      on_liveliness_changed         => On_Liveliness_Changed'Access, 
  106.                                      on_data_available             => On_Data_Available'Access, 
  107.                                      on_subscription_matched       => On_Subscription_Matched'Access, 
  108.                                      on_sample_lost                => On_Sample_Lost'Access); 
  109.  
  110. end DDS.DataReaderListener.Low_Level;