1. pragma Ada_2012; 
  2. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 
  3. --  All rights reserved. 
  4. -- 
  5. --  No duplications, whole or partial, manual or electronic, may be made 
  6. --  without express written permission.  Any such copies, or 
  7. --  revisions thereof, must display this notice unaltered. 
  8. --  This code contains trade secrets of Real-Time Innovations, Inc. 
  9.  
  10. with Ada.Containers.Vectors; 
  11. with Ada.Strings.Unbounded; 
  12. with RTIDDS.Low_Level.ndds_dds_c_dds_c_domain_h; 
  13. with RTIDDS.Low_Level.ndds_dds_c_dds_c_infrastructure_h; 
  14. private package DDS.Interface_Copy_Operations is 
  15.    use RTIDDS.Low_Level.ndds_dds_c_dds_c_domain_h; 
  16.    use RTIDDS.Low_Level.ndds_dds_c_dds_c_infrastructure_h; 
  17.  
  18.    ----------------- 
  19.  
  20.    package string_seq is new Ada.Containers.Vectors 
  21.      (Natural, 
  22.       Ada.Strings.Unbounded.Unbounded_String, 
  23.       Ada.Strings.Unbounded."="); 
  24.  
  25.    function To_DDS_String (src : Standard.String) return Ada.Strings.Unbounded.Unbounded_String 
  26.                            renames Ada.Strings.Unbounded.To_Unbounded_String; 
  27.  
  28.    function To_DDS_String (src : Interfaces.C.Strings.chars_ptr) return Ada.Strings.Unbounded.Unbounded_String; 
  29.    function To_String (src : Ada.Strings.Unbounded.Unbounded_String) return Interfaces.C.Strings.chars_ptr; 
  30.  
  31.    ----------------------- 
  32.  
  33.  
  34.  
  35.    procedure Copy_Up   (tgt : out DomainParticipantFactoryQos; src : not null access  DDS_DomainParticipantFactoryQos); 
  36.    procedure Copy_Down (tgt : not null access DDS_DomainParticipantFactoryQos; src : in DomainParticipantFactoryQos); 
  37.  
  38.    procedure Copy_Up   (tgt : out EntityFactoryQosPolicy; src : not null access  DDS_EntityFactoryQosPolicy); 
  39.    procedure Copy_Down (tgt : not null access DDS_EntityFactoryQosPolicy; src : in EntityFactoryQosPolicy); 
  40.  
  41.    procedure Copy_Up   (tgt : out SystemResourceLimitsQosPolicy; src : not null access  DDS_SystemResourceLimitsQosPolicy); 
  42.    procedure Copy_Down (tgt : not null access DDS_SystemResourceLimitsQosPolicy; src : in SystemResourceLimitsQosPolicy); 
  43.  
  44.    procedure Copy_Up   (tgt : out ProfileQosPolicy; src : not null access  DDS_ProfileQosPolicy); 
  45.    procedure Copy_Down (tgt : not null access DDS_ProfileQosPolicy; src : in ProfileQosPolicy); 
  46.  
  47.    procedure Copy_Up   (tgt : out DDS.String_Seq.Sequence; src : not null access  DDS_StringSeq); 
  48.    procedure Copy_Down (tgt : not null access DDS_StringSeq; src : in DDS.String_Seq.Sequence); 
  49.  
  50.    procedure Copy_Up   (tgt : out string_seq.Vector; src : not null access  DDS_StringSeq); 
  51.    procedure Copy_Down (tgt : not null access DDS_StringSeq; src : in string_seq.Vector); 
  52.  
  53.  
  54.  
  55. end DDS.Interface_Copy_Operations; 
  56.