pragma Ada_05;
with System;
with RTIDDS.Low_Level.dds_c.publication_h;
with RTIDDS.Low_Level.pres.participant_h;
package DDS.DataWriterListener.Low_Level is
use RTIDDS.Low_Level.dds_c.publication_h;
procedure On_Offered_Deadline_Missed
(Listener : System.Address;
C_Writer : System.Address;
Status : access constant DDS_OfferedDeadlineMissedStatus);
pragma Convention (C, On_Offered_Deadline_Missed);
procedure On_Offered_Incompatible_Qos
(Listener : System.Address;
C_Writer : System.Address;
Status : access constant DDS_OfferedIncompatibleQosStatus);
pragma Convention (C, On_Offered_Incompatible_Qos);
procedure On_Liveliness_Lost
(Listener : System.Address;
C_Writer : System.Address;
Status : access constant DDS_LivelinessLostStatus);
pragma Convention (C, On_Liveliness_Lost);
procedure On_Publication_Matched
(Listener : System.Address;
C_Writer : System.Address;
Status : access constant DDS_PublicationMatchedStatus);
pragma Convention (C, On_Publication_Matched);
procedure On_Reliable_Writer_Cache_Changed
(Listener : System.Address;
C_Writer : System.Address;
Status : access constant DDS_ReliableWriterCacheChangedStatus);
pragma Convention (C, On_Reliable_Writer_Cache_Changed);
procedure On_Reliable_Reader_Activity_Changed
(Listener : System.Address;
C_Writer : System.Address;
Status : access constant DDS_ReliableReaderActivityChangedStatus);
pragma Convention (C, On_Reliable_Reader_Activity_Changed);
procedure On_Destination_Unreachable
(Listener : System.Address;
C_Writer : System.Address;
Instance : access constant RTIDDS.Low_Level.pres.participant_h.PRESInstanceHandle;
Locator : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Locator_t);
pragma Convention (C, On_Destination_Unreachable);
function On_Data_Request
(Listener : System.Address;
C_Writer : System.Address;
Cookie : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Cookie_t)
return System.Address;
pragma Convention (C, On_Data_Request);
procedure On_Data_Return
(Listener : System.Address;
C_Writer : System.Address;
arg : System.Address;
Cookie : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Cookie_t);
pragma Convention (C, On_Data_Return);
procedure On_Sample_Removed
(Listener : System.Address;
C_Writer : System.Address;
Cookie : access constant RTIDDS.Low_Level.dds_c.infrastructure_h.DDS_Cookie_t);
pragma Convention (C, On_Sample_Removed);
procedure On_Instance_Replaced
(Listener : System.Address;
C_Writer : System.Address;
Instance : access constant RTIDDS.Low_Level.pres.participant_h.PRESInstanceHandle);
pragma Convention (C, On_Instance_Replaced);
procedure On_Application_Acknowledgment
(Listener : System.Address;
C_Writer : System.Address;
Info : access constant DDS_AcknowledgmentInfo);
pragma Convention (C, On_Application_Acknowledgment);
DataWriterListener_DEFAULT : constant DDS_DataWriterListener :=
(as_listener => (listener_data => System.Null_Address),
on_offered_deadline_missed => On_Offered_Deadline_Missed'Access,
On_Offered_Incompatible_Qos => On_Offered_Incompatible_Qos'Access,
On_Liveliness_Lost => On_Liveliness_Lost'Access,
On_Publication_Matched => On_Publication_Matched'Access,
On_Reliable_Writer_Cache_Changed => On_Reliable_Writer_Cache_Changed'Access,
On_Reliable_Reader_Activity_Changed => On_Reliable_Reader_Activity_Changed'Access,
on_destination_unreachable => On_Destination_Unreachable'Access,
on_data_request => On_Data_Request'Access,
on_data_return => On_Data_Return'Access,
on_sample_removed => On_Sample_Removed'Access,
on_instance_replaced => On_Instance_Replaced'Access,
on_application_acknowledgment => On_Application_Acknowledgment'Access);
end DDS.DataWriterListener.Low_Level;