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. --  This file has been generated automatically 
  12. --  by IDLAC (http://libre.adacore.com/polyorb/) 
  13. -- 
  14. --  Do NOT hand-modify this file, as your 
  15. --  changes will be lost when you re-run the 
  16. --  IDL to Ada compiler. 
  17. ------------------------------------------------- 
  18. pragma Style_Checks ("NM32766"); 
  19.  
  20. with DDS.DataWriter; 
  21. with DDS.Domain_Entity_Impl; 
  22. with DDS.Publisher; 
  23. with DDS.Topic; 
  24. with DDS.DataWriterListener; 
  25.  
  26. with System; 
  27. with RTIDDS.Low_Level.reda.worker_impl_h; 
  28.  
  29.  
  30. package DDS.DataWriter_Impl is 
  31.  
  32.    type Ref is limited new DDS.Domain_Entity_Impl.Ref and DDS.DataWriter.Ref with null record; 
  33.    type Ref_Access is access all Ref'Class; 
  34.  
  35.    -- 
  36.    procedure Set_Qos 
  37.      (Self : not null access Ref; 
  38.       Qos  : in DDS.DataWriterQos); 
  39.  
  40.    procedure  Set_Qos_With_Profile (Self : not null access Ref; 
  41.                        Library_Name : String; 
  42.                        Profile_Name : String); 
  43.    procedure  Set_Qos_With_Profile (Self : not null access Ref; 
  44.                        Library_Name : Standard.String; 
  45.                        Profile_Name : Standard.String); 
  46.  
  47.    procedure Get_Qos 
  48.      (Self : not null access Ref; 
  49.       Qos  : in out DDS.DataWriterQos); 
  50.  
  51.    procedure Set_Listener 
  52.      (Self       : not null access Ref; 
  53.       A_Listener : in DDS.DataWriterListener.Ref_Access; 
  54.       Mask       : in DDS.StatusMask); 
  55.  
  56.    function Get_Listener 
  57.      (Self : not null access Ref) 
  58.      return DDS.DataWriterListener.Ref_Access; 
  59.  
  60.    function Get_Topic 
  61.      (Self : not null access Ref) 
  62.      return DDS.Topic.Ref_Access; 
  63.  
  64.    function Get_Publisher 
  65.      (Self : not null access Ref) 
  66.      return access DDS.Publisher.Ref'Class; 
  67.  
  68.    procedure Wait_For_Acknowledgments 
  69.      (Self     : not null access Ref; 
  70.       Max_Wait : in DDS.Duration_T); 
  71.  
  72.    procedure Wait_For_Asynchronous_Publishing 
  73.      (Self     : not null access Ref; 
  74.       Max_Wait : in DDS.Duration_T); 
  75.  
  76.    procedure Get_Liveliness_Lost_Status 
  77.      (Self   : not null access Ref; 
  78.       Status : in out DDS.LivelinessLostStatus); 
  79.  
  80.    procedure Get_Offered_Deadline_Missed_Status 
  81.      (Self : not null access Ref; 
  82.       Status : in out DDS.OfferedDeadlineMissedStatus); 
  83.  
  84.    procedure Get_Offered_Incompatible_Qos_Status 
  85.      (Self : not null access Ref; 
  86.       Status : in out DDS.OfferedIncompatibleQosStatus); 
  87.  
  88.    procedure Get_Publication_Matched_Status 
  89.      (Self : not null access Ref; 
  90.       Status : in out DDS.PublicationMatchedStatus); 
  91.  
  92.    procedure Assert_Liveliness 
  93.      (Self : not null access Ref); 
  94.  
  95.    function Get_Matched_Subscriptions 
  96.      (Self    : not null access Ref) 
  97.      return DDS.InstanceHandle_Seq.Sequence; 
  98.  
  99.    function Get_Matched_Subscription_Data 
  100.      (Self                : not null access Ref; 
  101.       Subscription_Handle : in DDS.InstanceHandle_T) 
  102.      return DDS.SubscriptionBuiltinTopicData; 
  103.  
  104.    function Get_Matched_Subscription_Locators 
  105.      (Self    : not null access Ref) 
  106.      return DDS.Locator_Seq.Sequence; 
  107.  
  108.    procedure Free (This : in out Ref_Access); 
  109.  
  110.  
  111.  
  112.    function CreateI (Publisher    : DDS.Publisher.Ref_Access; 
  113.                      Topic      : access DDS.Topic.Ref'Class; 
  114.                      Qos          : in DDS.DataWriterQos; 
  115.                      Listener   : in DDS.DataWriterListener.Ref_Access; 
  116.                      Mask         : in DDS.StatusMask) 
  117.                      return DDS.DataWriter.Ref_Access; 
  118.  
  119.    function CreateI (Publisher    : DDS.Publisher.Ref_Access; 
  120.                      Topic      : access DDS.Topic.Ref'Class; 
  121.                      Library_Name : in DDS.String; 
  122.                      Profile_name : in DDS.String; 
  123.                      Listener   : in DDS.DataWriterListener.Ref_Access; 
  124.                      Mask         : in DDS.StatusMask) 
  125.                      return DDS.DataWriter.Ref_Access; 
  126.  
  127.    function Get_FacadeI (C_DataWriter : System.Address) 
  128.                         return Ref_Access; 
  129.  
  130.    function Register_Instance 
  131.      (Self          : not null access Ref; 
  132.       Instance_Data : System.Address) 
  133.       return DDS.InstanceHandle_T; 
  134.  
  135.  
  136.    function Register_Instance_W_Timestamp 
  137.      (Self             : not null access Ref; 
  138.       Instance_Data    : System.Address; 
  139.       Source_Timestamp : in DDS.Time_T) 
  140.       return DDS.InstanceHandle_T; 
  141.  
  142.    procedure Unregister_Instance 
  143.      (Self          : not null access Ref; 
  144.       Instance_Data : System.Address; 
  145.       Handle        : in DDS.InstanceHandle_T); 
  146.  
  147.    procedure Unregister_Instance_W_Timestamp 
  148.      (Self              : not null access Ref; 
  149.       Instance_Data    : System.Address; 
  150.       Handle           : in DDS.InstanceHandle_T; 
  151.       Source_Timestamp : in DDS.Time_T); 
  152.  
  153.    procedure Write 
  154.      (Self           : not null access Ref; 
  155.       Instance_Data : System.Address; 
  156.       Handle        : in DDS.InstanceHandle_T_Access); 
  157.  
  158.    procedure Write_W_Timestamp 
  159.      (Self           : not null access Ref; 
  160.       Instance_Data    : System.Address; 
  161.       Handle           : in DDS.InstanceHandle_T_Access; 
  162.       Source_Timestamp : in DDS.Time_T); 
  163.  
  164.    procedure Dispose 
  165.      (Self             : not null access Ref; 
  166.       Instance_Data   : System.Address; 
  167.       Instance_Handle : in DDS.InstanceHandle_T); 
  168.  
  169.    procedure Dispose_W_Timestamp 
  170.      (Self              : not null access Ref; 
  171.       Instance_Data    : System.Address; 
  172.       Instance_Handle  : in DDS.InstanceHandle_T; 
  173.       Source_Timestamp : in DDS.Time_T); 
  174.  
  175.    procedure Get_Key_Value 
  176.      (Self        : not null access Ref; 
  177.       Key_Holder : System.Address; 
  178.       Handle     : in DDS.InstanceHandle_T); 
  179.  
  180.  
  181.    function Lookup_Instance 
  182.      (Self        : not null access Ref; 
  183.       Key_Holder : System.Address) return DDS.InstanceHandle_T; 
  184.  
  185.    procedure Finalize_Callback 
  186.      (arg1 : System.Address; 
  187.       arg2 : System.Address; 
  188.       arg3 : access RTIDDS.Low_Level.reda.worker_impl_h.REDAWorker); 
  189.    pragma Convention (C, Finalize_Callback); 
  190.  
  191.    procedure Get_Reliable_Reader_Activity_Changed_Status 
  192.      (Self : not null access Ref; 
  193.       status : in out DDS.ReliableReaderActivityChangedStatus); 
  194.  
  195.    procedure Get_Reliable_Writer_Cache_Changed_Status 
  196.      (Self : not null access Ref; 
  197.       status : in out DDS.ReliableWriterCacheChangedStatus); 
  198.  
  199.    procedure Get_DataWriter_Cache_Status 
  200.      (Self : not null access Ref; 
  201.       status : in out DDS.DataWriterCacheStatus); 
  202.  
  203.    procedure Get_DataWriter_Protocol_Status 
  204.      (Self : not null access Ref; 
  205.       status : in out DDS.DataWriterProtocolStatus); 
  206.  
  207.    procedure Get_Matched_Subscription_Datawriter_Protocol_Status 
  208.      (Self                : not null access Ref; 
  209.       status              : in out DDS.DataWriterProtocolStatus; 
  210.       subscription_handle : DDS.InstanceHandle_T); 
  211.  
  212.    procedure Get_Matched_Subscription_Datawriter_Protocol_Status_By_Locator 
  213.      (Self    : not null access Ref; 
  214.       status  : in out DDS.DataWriterProtocolStatus; 
  215.       locator : DDS.Locator_T); 
  216.  
  217.    procedure Flush 
  218.      (Self : not null access Ref); 
  219.  
  220. private 
  221.  
  222.    procedure Free_Impl is new Ada.Unchecked_Deallocation (Ref'Class, Ref_Access); 
  223.    procedure Free_Mem (This : in out Ref_Access) renames Free_Impl; 
  224.  
  225. end DDS.DataWriter_Impl;