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