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. --  ============================================================================ 
  11. -- 
  12. --         WARNING: THIS FILE IS AUTO-GENERATED. DO NOT MODIFY. 
  13. -- 
  14. --  This file was generated from .idl using "rtiddsgen". 
  15. --  The rtiddsgen tool is part of the RTI Data Distribution Service distribution. 
  16. --  For more information, type 'rtiddsgen -help' at a command shell 
  17. --  or consult the RTI Data Distribution Service manual. 
  18. -- 
  19. --  ============================================================================ 
  20.  
  21. with DDS; 
  22. with DDS.DomainParticipant; 
  23. with DDS.TypeSupport; 
  24. with DDS.DataReader; 
  25. with DDS.DataWriter; 
  26.  
  27. --  <dref>TopicBuiltinTopicDataTypeSupport</dref> 
  28. package DDS.TopicBuiltinTopicData_TypeSupport is 
  29.  
  30.    type Ref is new Standard.DDS.TypeSupport.Ref with null record; 
  31.    type Ref_Access is access all Ref'Class; 
  32.  
  33.    function Create_TypedDataReaderI 
  34.      (Self : access Ref) return Standard.DDS.DataReader.Ref_Access; 
  35.  
  36.    procedure Destroy_TypedDataReaderI 
  37.      (Self   : access Ref; 
  38.       Reader : in out Standard.DDS.DataReader.Ref_Access); 
  39.  
  40.    function Create_TypedDataWriterI 
  41.      (Self : access Ref) return Standard.DDS.DataWriter.Ref_Access; 
  42.  
  43.    procedure Destroy_TypedDataWriterI 
  44.      (Self   : access Ref; 
  45.       Writer : in out Standard.DDS.DataWriter.Ref_Access) is null; 
  46.  
  47.    --  static methods 
  48.  
  49.    procedure Register_Type 
  50.      (Participant :  not null access Standard.DDS.DomainParticipant.Ref'Class; 
  51.       Type_Name   : in Standard.DDS.String); 
  52.  
  53.    function Get_Type_Name return Standard.DDS.String; 
  54.  
  55.    procedure Get_Type_Name (name : out Standard.DDS.String); 
  56.  
  57.    function Create_Data (AllocatePointers : in Boolean := True) 
  58.      return not null TopicBuiltinTopicData_Access; 
  59.  
  60.    procedure Delete_Data 
  61.      (A_Data : in out TopicBuiltinTopicData_Access; DeletePointers : in Boolean := True); 
  62.  
  63.    procedure Print_Data (A_Data : not null access constant TopicBuiltinTopicData); 
  64.  
  65.    procedure Copy_Data 
  66.      (Dest   : not null access TopicBuiltinTopicData; 
  67.       Source : not null access constant TopicBuiltinTopicData); 
  68.  
  69.    procedure Initialize_Data 
  70.      (Dest             : not null access TopicBuiltinTopicData; 
  71.       AllocatePointers : in Boolean := True); 
  72.  
  73.    procedure Finalize_Data 
  74.      (Dest           : not null access TopicBuiltinTopicData; 
  75.       DeletePointers : in Boolean := True); 
  76.  
  77. end DDS.TopicBuiltinTopicData_TypeSupport;