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 DDS; 
  10. with DDS.DomainParticipant; 
  11. with DDS.TypeSupport; 
  12. with DDS.DataReader; 
  13. with DDS.DataWriter; 
  14.  
  15. --  <defgroup>KeyedStringBuiltInTypeGroupDocs</defgroup> 
  16. --  <dref>KeyedStringTypeSupport</dref> 
  17. package DDS.Builtin_KeyedString_TypeSupport is 
  18.  
  19.    type Ref is new Standard.DDS.TypeSupport.Ref with null record; 
  20.    type Ref_Access is access all Ref'Class; 
  21.  
  22.    function Create_TypedDataReaderI 
  23.      (Self : access Ref) return Standard.DDS.DataReader.Ref_Access; 
  24.  
  25.    procedure Destroy_TypedDataReaderI 
  26.      (Self   : access Ref; 
  27.       Reader : in out Standard.DDS.DataReader.Ref_Access); 
  28.  
  29.    function Create_TypedDataWriterI 
  30.      (Self : access Ref) return Standard.DDS.DataWriter.Ref_Access; 
  31.  
  32.    procedure Destroy_TypedDataWriterI 
  33.      (Self   : access Ref; 
  34.       Writer : in out Standard.DDS.DataWriter.Ref_Access) is null; 
  35.  
  36.    --  <internal> 
  37.    --  static methods 
  38.    --  </internal> 
  39.  
  40.    procedure Register_Type 
  41.      (Participant : not null access Standard.DDS.DomainParticipant.Ref'Class; 
  42.       Type_Name   : in Standard.DDS.String); 
  43.    --  <dref>KeyedStringTypeSupport_register_type</dref> 
  44.  
  45.    procedure Unregister_Type 
  46.      (Participant : not null access Standard.DDS.DomainParticipant.Ref'Class; 
  47.       Type_Name   : in Standard.DDS.String); 
  48.    --  <dref>KeyedStringTypeSupport_unregister_type</dref> 
  49.  
  50.    function Get_Type_Name return Standard.DDS.String; 
  51.    --  <dref>KeyedStringTypeSupport_get_type_name</dref> 
  52.  
  53.    procedure Get_Type_Name (name : out Standard.DDS.String); 
  54.  
  55.    function Create_Data (AllocatePointers : in Boolean := True) 
  56.      return DDS.KeyedString; 
  57.  
  58.    procedure Delete_Data 
  59.      (A_Data : in out DDS.KeyedString; DeletePointers : in Boolean := True); 
  60.  
  61.    procedure Print_Data (A_Data : access DDS.KeyedString); 
  62.    --  <dref>KeyedStringTypeSupport_print_data</dref> 
  63.  
  64.    function Create_Data_W_Size 
  65.      (key_size : Integer; 
  66.       size     : Integer) 
  67.      return DDS.KeyedString; 
  68.  
  69.    procedure Initialize_data_w_size 
  70.      (a_data   : access DDS.KeyedString; 
  71.       key_size : Integer; 
  72.       size     : Integer); 
  73.  
  74. end DDS.Builtin_KeyedString_TypeSupport;