pragma Ada_05;
with System;
with RTIDDS.Low_Level.dds_c.domain_h;
with RTIDDS.Low_Level.dds_c.topic_h;
with RTIDDS.Low_Level.dds_c.publication_h;
with RTIDDS.Low_Level.pres.participant_h;
with RTIDDS.Low_Level.dds_c.subscription_h;
package DDS.DomainParticipantListener.Low_Level is
use RTIDDS.Low_Level.dds_c.domain_h;
use RTIDDS.Low_Level.dds_c.topic_h;
use RTIDDS.Low_Level.dds_c.publication_h;
use RTIDDS.Low_Level.dds_c.subscription_h;
procedure On_Inconsistent_Topic
(Listener : System.Address;
C_Topic : access DDS_Topic;
Status : access constant DDS_InconsistentTopicStatus);
pragma Convention (C, On_Inconsistent_Topic);
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);
procedure On_Requested_Deadline_Missed
(Listener : System.Address;
C_Reader : System.Address;
Status : access constant DDS_RequestedDeadlineMissedStatus);
pragma Convention (C, On_Requested_Deadline_Missed);
procedure On_Requested_Incompatible_Qos
(Listener : System.Address;
C_Reader : System.Address;
Status : access constant DDS_RequestedIncompatibleQosStatus);
pragma Convention (C, On_Requested_Incompatible_Qos);
procedure On_Sample_Rejected
(Listener : System.Address;
C_Reader : System.Address;
Status : access constant DDS_SampleRejectedStatus);
pragma Convention (C, On_Sample_Rejected);
procedure On_Liveliness_Changed
(Listener : System.Address;
C_Reader : System.Address;
Status : access constant DDS_LivelinessChangedStatus);
pragma Convention (C, On_Liveliness_Changed);
procedure On_Data_Available
(Listener : System.Address;
C_Reader : System.Address);
pragma Convention (C, On_Data_Available);
procedure On_Subscription_Matched
(Listener : System.Address;
C_Reader : System.Address;
Status : access constant DDS_SubscriptionMatchedStatus);
pragma Convention (C, On_Subscription_Matched);
procedure On_Sample_Lost
(Listener : System.Address;
C_Reader : System.Address;
Status : access constant DDS_SampleLostStatus);
pragma Convention (C, On_Sample_Lost);
procedure On_Data_On_Readers
(Listener : System.Address;
C_Subscriber : System.Address);
pragma Convention (C, On_Data_On_Readers);
DomainParticipantTopicListener_DEFAULT : constant RTIDDS.Low_Level.dds_c.topic_h.DDS_TopicListener :=
(as_listener => (listener_data => System.Null_Address),
On_Inconsistent_Topic => On_Inconsistent_Topic'Access);
DomainParticipantDataWriterListener_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);
DomainParticipantPublisherListener_DEFAULT : constant DDS_PublisherListener :=
(As_DataWriterListener => DomainParticipantDataWriterListener_DEFAULT);
DomainParticipantDataReaderListener_DEFAULT : constant DDS_DataReaderListener :=
(as_listener => (Listener_Data => System.Null_Address),
on_requested_deadline_missed => On_Requested_Deadline_Missed'Access,
on_requested_incompatible_qos => On_Requested_Incompatible_Qos'Access,
on_sample_rejected => On_Sample_Rejected'Access,
on_liveliness_changed => On_Liveliness_Changed'Access,
on_data_available => On_Data_Available'Access,
on_subscription_matched => On_Subscription_Matched'Access,
on_sample_lost => On_Sample_Lost'Access);
DomainParticipantSubscriberListener_DEFAULT : constant DDS_SubscriberListener :=
(as_datareaderlistener => DomainParticipantDataReaderListener_DEFAULT,
on_data_on_readers => On_Data_On_Readers'Access);
DomainParticipantListener_DEFAULT : constant DDS_DomainParticipantListener :=
(as_topiclistener => DomainParticipantTopicListener_DEFAULT,
as_publisherlistener => DomainParticipantPublisherListener_DEFAULT,
as_subscriberlistener => DomainParticipantSubscriberListener_DEFAULT);
end DDS.DomainParticipantListener.Low_Level;