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. with Ada.Containers.Vectors; 
  10. with Ada.Strings.Unbounded; 
  11. with RTIDDS.Low_Level.ndds_dds_c_dds_c_domain_h; 
  12. with RTIDDS.Low_Level.ndds_dds_c_dds_c_infrastructure_h; 
  13. private package DDS.Interface_Copy_Operations is 
  14.    use RTIDDS.Low_Level.ndds_dds_c_dds_c_domain_h; 
  15.    use RTIDDS.Low_Level.ndds_dds_c_dds_c_infrastructure_h; 
  16.  
  17.    ----------------- 
  18.  
  19.    package string_seq is new Ada.Containers.Vectors 
  20.      (Natural, 
  21.       Ada.Strings.Unbounded.Unbounded_String, 
  22.       Ada.Strings.Unbounded."="); 
  23.  
  24.    function To_DDS_String (src : Standard.String) return Ada.Strings.Unbounded.Unbounded_String 
  25.                            renames Ada.Strings.Unbounded.To_Unbounded_String; 
  26.  
  27.    function To_DDS_String (src : Interfaces.C.Strings.chars_ptr) return Ada.Strings.Unbounded.Unbounded_String; 
  28.    function To_String (src : Ada.Strings.Unbounded.Unbounded_String) return Interfaces.C.Strings.chars_ptr; 
  29.  
  30.    ----------------------- 
  31.  
  32.  
  33.  
  34.    procedure Copy_Up   (tgt : out DomainParticipantFactoryQos; src : not null access  DDS_DomainParticipantFactoryQos); 
  35.    procedure Copy_Down (tgt : not null access DDS_DomainParticipantFactoryQos; src : in DomainParticipantFactoryQos); 
  36.  
  37.    procedure Copy_Up   (tgt : out EntityFactoryQosPolicy; src : not null access  DDS_EntityFactoryQosPolicy); 
  38.    procedure Copy_Down (tgt : not null access DDS_EntityFactoryQosPolicy; src : in EntityFactoryQosPolicy); 
  39.  
  40.    procedure Copy_Up   (tgt : out SystemResourceLimitsQosPolicy; src : not null access  DDS_SystemResourceLimitsQosPolicy); 
  41.    procedure Copy_Down (tgt : not null access DDS_SystemResourceLimitsQosPolicy; src : in SystemResourceLimitsQosPolicy); 
  42.  
  43.    procedure Copy_Up   (tgt : out ProfileQosPolicy; src : not null access  DDS_ProfileQosPolicy); 
  44.    procedure Copy_Down (tgt : not null access DDS_ProfileQosPolicy; src : in ProfileQosPolicy); 
  45.  
  46.    procedure Copy_Up   (tgt : out DDS.String_Seq.Sequence; src : not null access  DDS_StringSeq); 
  47.    procedure Copy_Down (tgt : not null access DDS_StringSeq; src : in DDS.String_Seq.Sequence); 
  48.  
  49.    procedure Copy_Up   (tgt : out string_seq.Vector; src : not null access  DDS_StringSeq); 
  50.    procedure Copy_Down (tgt : not null access DDS_StringSeq; src : in string_seq.Vector); 
  51.  
  52.  
  53.  
  54. end DDS.Interface_Copy_Operations; 
  55.