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. with DDS.MetpTypeSupport; 
  26.  
  27. with System; 
  28. with RTIDDS.Low_Level.ndds_reda_reda_worker_impl_h; 
  29.  
  30.  
  31. package DDS.DataWriter_Impl is 
  32.  
  33.    type Ref is limited new DDS.Domain_Entity_Impl.Ref and DDS.DataWriter.Ref with null record; 
  34.    type Ref_Access is access all Ref'Class; 
  35.  
  36.    -- 
  37.    procedure Set_Qos 
  38.      (Self : not null access Ref; 
  39.       Qos  : in DDS.DataWriterQos); 
  40.  
  41.    procedure  Set_Qos_With_Profile (Self : not null access Ref; 
  42.                        Library_Name : String; 
  43.                        Profile_Name : String); 
  44.    procedure  Set_Qos_With_Profile (Self : not null access Ref; 
  45.                        Library_Name : Standard.String; 
  46.                        Profile_Name : Standard.String); 
  47.  
  48.    procedure Get_Qos 
  49.      (Self : not null access Ref; 
  50.       Qos  : in out DDS.DataWriterQos); 
  51.  
  52.    procedure Set_Listener 
  53.      (Self       : not null access Ref; 
  54.       A_Listener : in DDS.DataWriterListener.Ref_Access; 
  55.       Mask       : in DDS.StatusMask); 
  56.  
  57.    function Get_Listener 
  58.      (Self : not null access Ref) 
  59.      return DDS.DataWriterListener.Ref_Access; 
  60.  
  61.    function Get_Topic 
  62.      (Self : not null access Ref) 
  63.      return DDS.Topic.Ref_Access; 
  64.  
  65.    function Get_Publisher 
  66.      (Self : not null access Ref) 
  67.      return access DDS.Publisher.Ref'Class; 
  68.  
  69.    procedure Wait_For_Acknowledgments 
  70.      (Self     : not null access Ref; 
  71.       Max_Wait : in DDS.Duration_T); 
  72.  
  73.    procedure Wait_For_Asynchronous_Publishing 
  74.      (Self     : not null access Ref; 
  75.       Max_Wait : in DDS.Duration_T); 
  76.  
  77.    procedure Get_Liveliness_Lost_Status 
  78.      (Self   : not null access Ref; 
  79.       Status : in out DDS.LivelinessLostStatus); 
  80.  
  81.    procedure Get_Offered_Deadline_Missed_Status 
  82.      (Self : not null access Ref; 
  83.       Status : in out DDS.OfferedDeadlineMissedStatus); 
  84.  
  85.    procedure Get_Offered_Incompatible_Qos_Status 
  86.      (Self : not null access Ref; 
  87.       Status : in out DDS.OfferedIncompatibleQosStatus); 
  88.  
  89.    procedure Get_Publication_Matched_Status 
  90.      (Self : not null access Ref; 
  91.       Status : in out DDS.PublicationMatchedStatus); 
  92.  
  93.    procedure Assert_Liveliness 
  94.      (Self : not null access Ref); 
  95.  
  96.    function Get_Matched_Subscriptions 
  97.      (Self    : not null access Ref) 
  98.      return DDS.InstanceHandle_Seq.Sequence; 
  99.  
  100.    function Get_Matched_Subscription_Data 
  101.      (Self                : not null access Ref; 
  102.       Subscription_Handle : in DDS.InstanceHandle_T) 
  103.      return DDS.SubscriptionBuiltinTopicData; 
  104.  
  105.    function Get_Matched_Subscription_Locators 
  106.      (Self    : not null access Ref) 
  107.      return DDS.Locator_Seq.Sequence; 
  108.  
  109.    procedure Free (This : in out Ref_Access); 
  110.  
  111.  
  112.  
  113.    function CreateI (Publisher    : DDS.Publisher.Ref_Access; 
  114.                      Topic      : access DDS.Topic.Ref'Class; 
  115.                      Qos          : in DDS.DataWriterQos; 
  116.                      Listener   : in DDS.DataWriterListener.Ref_Access; 
  117.                      Mask         : in DDS.StatusMask) 
  118.                      return DDS.DataWriter.Ref_Access; 
  119.  
  120.    function CreateI (Publisher    : DDS.Publisher.Ref_Access; 
  121.                      Topic      : access DDS.Topic.Ref'Class; 
  122.                      Library_Name : in DDS.String; 
  123.                      Profile_name : in DDS.String; 
  124.                      Listener   : in DDS.DataWriterListener.Ref_Access; 
  125.                      Mask         : in DDS.StatusMask) 
  126.                      return DDS.DataWriter.Ref_Access; 
  127.  
  128.    function Get_FacadeI (C_DataWriter : System.Address) 
  129.                         return Ref_Access; 
  130.  
  131.    function Register_Instance 
  132.      (Self          : not null access Ref; 
  133.       Instance_Data : System.Address) 
  134.       return DDS.InstanceHandle_T; 
  135.  
  136.  
  137.    function Register_Instance_W_Timestamp 
  138.      (Self             : not null access Ref; 
  139.       Instance_Data    : System.Address; 
  140.       Source_Timestamp : in DDS.Time_T) 
  141.       return DDS.InstanceHandle_T; 
  142.  
  143.    function Register_Instance_W_Params 
  144.      (Self             : not null access Ref; 
  145.       Instance_Data    : System.Address; 
  146.       Params           : access DDS.WriteParams_T) 
  147.       return Standard.DDS.InstanceHandle_T; 
  148.  
  149.    procedure Unregister_Instance 
  150.      (Self          : not null access Ref; 
  151.       Instance_Data : System.Address; 
  152.       Handle        : in DDS.InstanceHandle_T; 
  153.       MetpImpl      : DDS.MetpTypeSupport.Unsupported'Class); 
  154.  
  155.    procedure Unregister_Instance_W_Timestamp 
  156.      (Self             : not null access Ref; 
  157.       Instance_Data    : System.Address; 
  158.       Handle           : in DDS.InstanceHandle_T; 
  159.       Source_Timestamp : in DDS.Time_T; 
  160.       MetpImpl         : DDS.MetpTypeSupport.Unsupported'Class); 
  161.  
  162.    procedure Unregister_Instance_W_Params 
  163.      (Self          : not null access Ref; 
  164.       Instance_Data : System.Address; 
  165.       Params        : access DDS.WriteParams_T; 
  166.       MetpImpl      : DDS.MetpTypeSupport.Unsupported'Class); 
  167.  
  168.    procedure WriteI 
  169.      (Self          : not null access Ref; 
  170.       Instance_Data : System.Address; 
  171.       Handle        : in DDS.InstanceHandle_T_Access; 
  172.       MetpImpl      : DDS.MetpTypeSupport.Unsupported'Class); 
  173.  
  174.    procedure Write_W_Timestamp 
  175.      (Self             : not null access Ref; 
  176.       Instance_Data    : System.Address; 
  177.       Handle           : in DDS.InstanceHandle_T_Access; 
  178.       Source_Timestamp : in DDS.Time_T; 
  179.       MetpImpl         : DDS.MetpTypeSupport.Unsupported'Class); 
  180.  
  181.    procedure Write_W_Params 
  182.      (Self          : not null access Ref; 
  183.       Instance_Data : System.Address; 
  184.       Params        : in out DDS.WriteParams_T; 
  185.       MetpImpl      : DDS.MetpTypeSupport.Unsupported'Class); 
  186.  
  187.  
  188.    procedure Dispose 
  189.      (Self            : not null access Ref; 
  190.       Instance_Data   : System.Address; 
  191.       Instance_Handle : in DDS.InstanceHandle_T; 
  192.       MetpImpl        : DDS.MetpTypeSupport.Unsupported'Class); 
  193.  
  194.    procedure Dispose_W_Timestamp 
  195.      (Self             : not null access Ref; 
  196.       Instance_Data    : System.Address; 
  197.       Instance_Handle  : in DDS.InstanceHandle_T; 
  198.       Source_Timestamp : in DDS.Time_T; 
  199.       MetpImpl         : DDS.MetpTypeSupport.Unsupported'Class); 
  200.  
  201.    procedure Dispose_W_Params 
  202.      (Self          : not null access Ref; 
  203.       Instance_Data : System.Address; 
  204.       Params        : in DDS.WriteParams_T; 
  205.       MetpImpl      : DDS.MetpTypeSupport.Unsupported'Class); 
  206.  
  207.  
  208.    procedure Get_Key_Value 
  209.      (Self        : not null access Ref; 
  210.       Key_Holder : System.Address; 
  211.       Handle     : in DDS.InstanceHandle_T); 
  212.  
  213.  
  214.    function Lookup_Instance 
  215.      (Self        : not null access Ref; 
  216.       Key_Holder : System.Address) return DDS.InstanceHandle_T; 
  217.  
  218.    procedure Finalize_Callback 
  219.      (arg1 : System.Address; 
  220.       arg2 : System.Address; 
  221.       arg3 : access RTIDDS.Low_Level.ndds_reda_reda_worker_impl_h.REDAWorker); 
  222.    pragma Convention (C, Finalize_Callback); 
  223.  
  224.    procedure Get_Reliable_Reader_Activity_Changed_Status 
  225.      (Self : not null access Ref; 
  226.       status : in out DDS.ReliableReaderActivityChangedStatus); 
  227.  
  228.    procedure Get_Reliable_Writer_Cache_Changed_Status 
  229.      (Self : not null access Ref; 
  230.       status : in out DDS.ReliableWriterCacheChangedStatus); 
  231.  
  232.    procedure Get_DataWriter_Cache_Status 
  233.      (Self : not null access Ref; 
  234.       status : in out DDS.DataWriterCacheStatus); 
  235.  
  236.    procedure Get_DataWriter_Protocol_Status 
  237.      (Self : not null access Ref; 
  238.       status : in out DDS.DataWriterProtocolStatus); 
  239.  
  240.    procedure Get_Matched_Subscription_Datawriter_Protocol_Status 
  241.      (Self                : not null access Ref; 
  242.       status              : in out DDS.DataWriterProtocolStatus; 
  243.       subscription_handle : DDS.InstanceHandle_T); 
  244.  
  245.    procedure Get_Matched_Subscription_Datawriter_Protocol_Status_By_Locator 
  246.      (Self    : not null access Ref; 
  247.       status  : in out DDS.DataWriterProtocolStatus; 
  248.       locator : DDS.Locator_T); 
  249.  
  250.    procedure Flush 
  251.      (Self : not null access Ref); 
  252.  
  253.    function Is_Metp_Writer 
  254.      (Self     : not null access Ref; 
  255.       MetpImpl : DDS.MetpTypeSupport.Unsupported'Class) return Standard.Boolean; 
  256.  
  257.    procedure Delete_Metp_Data 
  258.      (Self          : not null access Ref; 
  259.       Instance_Data : System.Address; 
  260.       MetpImpl      : DDS.MetpTypeSupport.Unsupported'Class); 
  261.  
  262.    procedure Get_LoanI 
  263.      (Self            : not null access Ref; 
  264.       Loan_Ret        : out System.Address; 
  265.       Initialize_Data : out Standard.Boolean; 
  266.       MetpImpl        : DDS.MetpTypeSupport.Unsupported'Class); 
  267.  
  268.    procedure Discard_LoanI 
  269.      (Self     : not null access Ref; 
  270.       Sample   : System.Address; 
  271.       MetpImpl : DDS.MetpTypeSupport.Unsupported'Class); 
  272.  
  273. private 
  274.  
  275.    procedure Free_Impl is new Ada.Unchecked_Deallocation (Ref'Class, Ref_Access); 
  276.    procedure Free_Mem (This : in out Ref_Access) renames Free_Impl; 
  277.  
  278. end DDS.DataWriter_Impl;