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. --  <internal> 
  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. --  <internal> 
  21.  
  22. pragma Warnings (Off); --  Since this is autogenerated code. 
  23. with DDS.DataWriter; 
  24. with DDS.DataWriter_Impl; 
  25. with DDS; use DDS; 
  26. pragma Warnings (On); 
  27.  
  28. --  <dref>StringDataWriter</dref> 
  29. package DDS.Builtin_String_DataWriter is 
  30.  
  31.    type Ref is new Standard.DDS.DataWriter_Impl.Ref with null record; 
  32.    type Ref_Access is access all Ref'Class; 
  33.    type Ref_Access_Access is access all Ref_Access; 
  34.  
  35.    function Narrow 
  36.      (writer : DDS.DataWriter.Ref_Access) 
  37.       return DDS.Builtin_String_DataWriter.Ref_Access; 
  38.    --  <dref>StringDataWriter_narrow</dref> 
  39.  
  40.    function As_DataWriter 
  41.      (writer : DDS.Builtin_String_DataWriter.Ref_Access) 
  42.       return DDS.DataWriter.Ref_Access; 
  43.    --  <dref>StringDataWriter_as_datawriter</dref> 
  44.  
  45.    function Register_Instance 
  46.      (This          : not null access Ref; 
  47.       Instance_Data : DDS.String) 
  48.       return Standard.DDS.InstanceHandle_T; 
  49.  
  50.    function Register_Instance_W_Timestamp 
  51.      (This             : not null access Ref; 
  52.       Instance_Data    : DDS.String; 
  53.       Source_Timestamp : in Standard.DDS.Time_T) 
  54.       return Standard.DDS.InstanceHandle_T; 
  55.  
  56.    procedure Unregister_Instance 
  57.      (This          : not null access Ref; 
  58.       Instance_Data : DDS.String; 
  59.       Handle        : in Standard.DDS.InstanceHandle_T); 
  60.  
  61.    procedure Unregister_Instance_W_Timestamp 
  62.      (This             : not null access Ref; 
  63.       Instance_Data    : DDS.String; 
  64.       Handle           : in Standard.DDS.InstanceHandle_T; 
  65.       Source_Timestamp : in Standard.DDS.Time_T); 
  66.  
  67.    procedure Write 
  68.      (This          : not null access Ref; 
  69.       Instance_Data : DDS.String; 
  70.       Handle        : access constant Standard.DDS.InstanceHandle_T); 
  71.    --  <dref>StringDataWriter_write</dref> 
  72.  
  73.  
  74.    procedure Write_W_Timestamp 
  75.      (This          : not null access Ref; 
  76.       Instance_Data    : DDS.String; 
  77.       Handle           : in Standard.DDS.InstanceHandle_T_Access; 
  78.       Source_Timestamp : in Standard.DDS.Time_T); 
  79.    --  <dref>StringDataWriter_write_w_timestamp</dref> 
  80.  
  81.  
  82.    procedure Dispose 
  83.      (This            : not null access Ref; 
  84.       Instance_Data   : DDS.String; 
  85.       Instance_Handle : in Standard.DDS.InstanceHandle_T); 
  86.  
  87.    procedure Dispose_W_Timestamp 
  88.      (This             : not null access Ref; 
  89.       Instance_Data    : DDS.String; 
  90.       Instance_Handle  : in Standard.DDS.InstanceHandle_T; 
  91.       Source_Timestamp : in Standard.DDS.Time_T); 
  92.  
  93.    procedure Get_Key_Value 
  94.      (This       : not null access Ref; 
  95.       Key_Holder : DDS.String; 
  96.       Handle     : in Standard.DDS.InstanceHandle_T); 
  97.  
  98.    function Lookup_Instance 
  99.      (This       : not null access Ref; 
  100.       Key_Holder : DDS.String) return Standard.DDS.InstanceHandle_T; 
  101.  
  102.    function Register_Instance_W_Params 
  103.      (This          : not null access Ref; 
  104.       instance_data : DDS.String; 
  105.       params        : access DDS.WriteParams_T) 
  106.      return DDS.InstanceHandle_T; 
  107.  
  108.    procedure Unregister_Instance_W_Params 
  109.      (This          : not null access Ref; 
  110.       instance_data : DDS.String; 
  111.       params        : access DDS.WriteParams_T); 
  112.  
  113.    procedure Write_W_Params 
  114.      (This          : not null access Ref; 
  115.       instance_data : DDS.String; 
  116.       params        : access DDS.WriteParams_T); 
  117.  
  118.    procedure Dispose_W_Params 
  119.      (This          : not null access Ref; 
  120.       instance_data : DDS.String; 
  121.       params        : DDS.WriteParams_T); 
  122.  
  123.    --  <internal> 
  124.    --  ========================================================================= 
  125.    -- 
  126.    --  Internal Routines not to be used by the application 
  127.    -- 
  128.    --  ========================================================================= 
  129.    --  </internal> 
  130.  
  131.    function CreateTypedI return Standard.DDS.DataWriter.Ref_Access; 
  132.  
  133.    procedure DestroyTypedI 
  134.      (Writer : in out Standard.DDS.DataWriter.Ref_Access); 
  135.  
  136. end DDS.Builtin_String_DataWriter;