--  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 

--  All rights reserved. 

-- 

--  No duplications, whole or partial, manual or electronic, may be made 

--  without express written permission.  Any such copies, or 

--  revisions thereof, must display this notice unaltered. 

--  This code contains trade secrets of Real-Time Innovations, Inc. 

pragma Ada_05; 

with System; 

with RTIDDS.Low_Level.dds_c.topic_h; 

package DDS.TopicListener.Low_Level is 

   use RTIDDS.Low_Level.dds_c.topic_h; 

   procedure On_Inconsistent_Topic
To API doc
To body 

     (Listener : System.Address; 

      C_Topic  : access DDS_Topic; 

      Status   : access constant DDS_InconsistentTopicStatus); 

   pragma Convention (C, On_Inconsistent_Topic
To API doc
To spec
To body); 

   TopicListener_DEFAULT : constant RTIDDS.Low_Level.dds_c.topic_h.DDS_TopicListener := 

     (as_listener            => (listener_data => System.Null_Address), 

      on_inconsistent_topic  => on_inconsistent_topic
To API doc
To spec
To body'Access); 

end DDS.TopicListener.Low_Level;