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. with DDS.Builtin_KeyedString_TypeSupport; 
  27. use DDS.Builtin_KeyedString_TypeSupport; 
  28.  
  29. pragma Warnings (On); 
  30.  
  31. --  <dref>KeyedStringDataWriter</dref> 
  32. package DDS.Builtin_KeyedString_DataWriter is 
  33.  
  34.    type Ref is new Standard.DDS.DataWriter_Impl.Ref with null record; 
  35.    type Ref_Access is access all Ref'Class; 
  36.    type Ref_Access_Access is access all Ref_Access; 
  37.  
  38.    function Narrow 
  39.      (writer : DDS.DataWriter.Ref_Access) 
  40.       return DDS.Builtin_KeyedString_DataWriter.Ref_Access; 
  41.    --  <dref>KeyedStringDataWriter_narrow</dref> 
  42.  
  43.    function As_DataWriter 
  44.      (writer : DDS.Builtin_KeyedString_DataWriter.Ref_Access) 
  45.       return DDS.DataWriter.Ref_Access; 
  46.    --  <dref>KeyedStringDataWriter_as_datawriter</dref> 
  47.  
  48.    function Register_Instance 
  49.      (This          : not null access Ref; 
  50.       Instance_Data : DDS.KeyedString) 
  51.       return Standard.DDS.InstanceHandle_T; 
  52.    --  <dref>KeyedStringDataWriter_register_instance</dref> 
  53.  
  54.  
  55.    function Register_Instance_W_Timestamp 
  56.      (This             : not null access Ref; 
  57.       Instance_Data    : DDS.KeyedString; 
  58.       Source_Timestamp : in Standard.DDS.Time_T) 
  59.       return Standard.DDS.InstanceHandle_T; 
  60.    --  <dref>KeyedStringDataWriter_register_instance_w_timestamp</dref> 
  61.  
  62.  
  63.    procedure Unregister_Instance 
  64.      (This          : not null access Ref; 
  65.       Instance_Data : DDS.KeyedString; 
  66.       Handle        : access Standard.DDS.InstanceHandle_T); 
  67.    --  <dref>KeyedStringDataWriter_unregister_instance</dref> 
  68.  
  69.  
  70.    procedure Unregister_Instance_W_Timestamp 
  71.      (This             : not null access Ref; 
  72.       Instance_Data    : DDS.KeyedString; 
  73.       Handle           : access Standard.DDS.InstanceHandle_T; 
  74.       Source_Timestamp : in Standard.DDS.Time_T); 
  75.    --  <dref>KeyedStringDataWriter_unregister_instance_w_timestamp</dref> 
  76.  
  77.    procedure Write 
  78.      (This          : not null access Ref; 
  79.       Instance_Data : DDS.KeyedString; 
  80.       Handle        : in Standard.DDS.InstanceHandle_T_Access); 
  81.    --  <dref>KeyedStringDataWriter_write</dref> 
  82.  
  83.  
  84.    procedure Write_W_Timestamp 
  85.      (This          : not null access Ref; 
  86.       Instance_Data    : DDS.KeyedString; 
  87.       Handle           : in Standard.DDS.InstanceHandle_T_Access; 
  88.       Source_Timestamp : in Standard.DDS.Time_T); 
  89.    --  <dref>KeyedStringDataWriter_write_w_timestamp</dref> 
  90.  
  91.    procedure Dispose 
  92.      (This            : not null access Ref; 
  93.       Instance_Data   : DDS.KeyedString; 
  94.       Instance_Handle : access Standard.DDS.InstanceHandle_T); 
  95.    --  <dref>KeyedStringDataWriter_dispose</dref> 
  96.  
  97.    procedure Dispose_W_Timestamp 
  98.      (This             : not null access Ref; 
  99.       Instance_Data    : DDS.KeyedString; 
  100.       Instance_Handle  : access Standard.DDS.InstanceHandle_T; 
  101.       Source_Timestamp : access Standard.DDS.Time_T); 
  102.    --  <dref>KeyedStringDataWriter_dispose_w_timestamp</dref> 
  103.  
  104.    procedure Get_Key_Value 
  105.      (This       : not null access Ref; 
  106.       Key_Holder : DDS.KeyedString; 
  107.       Handle     : access Standard.DDS.InstanceHandle_T); 
  108.    --  <dref>KeyedStringDataWriter_get_key_value</dref> 
  109.  
  110.    function Lookup_Instance 
  111.      (This       : not null access Ref; 
  112.       Key_Holder : DDS.KeyedString) return Standard.DDS.InstanceHandle_T; 
  113.    --  <dref>KeyedStringDataWriter_lookup_instance</dref> 
  114.  
  115.    function Register_instance_w_key 
  116.      (This       : not null access Ref; 
  117.       key : DDS.String) 
  118.       return DDS.InstanceHandle_T; 
  119.    --  <dref>KeyedStringDataWriter_register_instance_w_key</dref> 
  120.  
  121.    function Register_instance_w_key_w_timestamp 
  122.      (This       : not null access Ref; 
  123.       key : DDS.String; 
  124.       source_timestamp : access DDS.Time_T) 
  125.       return DDS.InstanceHandle_T; 
  126.    --  <dref>KeyedStringDataWriter_register_instance_w_key_w_timestamp</dref> 
  127.  
  128.    function Register_instance_w_key_w_params 
  129.      (This       : not null access Ref; 
  130.       key : DDS.String; 
  131.       params : access DDS.WriteParams_T) 
  132.       return DDS.InstanceHandle_T; 
  133.  
  134.    procedure Unregister_instance_w_key 
  135.      (This       : not null access Ref; 
  136.       key        : DDS.String; 
  137.       handle     : access DDS.InstanceHandle_T); 
  138.    --  <dref>KeyedStringDataWriter_unregister_instance_w_key</dref> 
  139.  
  140.    procedure unregister_instance_w_params 
  141.      (This       : not null access Ref; 
  142.       instance_data : access DDS.KeyedString; 
  143.       params : access DDS.WriteParams_T); 
  144.  
  145.    procedure unregister_instance_w_key_w_timestamp 
  146.      (This       : not null access Ref; 
  147.       key        : DDS.String; 
  148.       handle     : access DDS.InstanceHandle_T; 
  149.       source_timestamp : access DDS.Time_T); 
  150.    --  <dref>KeyedStringDataWriter_unregister_instance_w_key_w_timestamp</dref> 
  151.  
  152.    procedure unregister_instance_w_key_w_params 
  153.      (This       : not null access Ref; 
  154.       key : DDS.String; 
  155.       params : access DDS.WriteParams_T); 
  156.  
  157.    procedure write_string_w_key 
  158.      (This   : not null access Ref; 
  159.       key    : DDS.String; 
  160.       str    : DDS.String; 
  161.       handle : DDS.InstanceHandle_T); 
  162.    --  <dref>KeyedStringDataWriter_write_string_w_key</dref> 
  163.  
  164.    procedure write_string_w_key_w_timestamp 
  165.      (This   : not null access Ref; 
  166.       key    : DDS.String; 
  167.       str    : DDS.String; 
  168.       handle : access DDS.InstanceHandle_T; 
  169.       source_timestamp : access DDS.Time_T); 
  170.    --  <dref>KeyedStringDataWriter_write_string_w_key_w_timestamp</dref> 
  171.  
  172.    procedure write_w_params 
  173.      (This       : not null access Ref; 
  174.       instance_data : access DDS.KeyedString; 
  175.       params : access DDS.WriteParams_T); 
  176.  
  177.    procedure write_string_w_key_w_params 
  178.      (This       : not null access Ref; 
  179.       key : DDS.String; 
  180.       str : DDS.String; 
  181.       params : access DDS.WriteParams_T); 
  182.  
  183.    procedure dispose_w_key 
  184.      (This       : not null access Ref; 
  185.       key : DDS.String; 
  186.       instance_handle : access DDS.InstanceHandle_T); 
  187.    --  <dref>KeyedStringDataWriter_dispose_w_key</dref> 
  188.  
  189.    procedure dispose_w_params 
  190.      (This       : not null access Ref; 
  191.       instance_data : access DDS.KeyedString; 
  192.       params : access DDS.WriteParams_T); 
  193.  
  194.    procedure dispose_w_key_w_timestamp 
  195.      (This       : not null access Ref; 
  196.       key : DDS.String; 
  197.       instance_handle : access DDS.InstanceHandle_T; 
  198.       source_timestamp : access DDS.Time_T); 
  199.    --  <dref>KeyedStringDataWriter_dispose_w_key_w_timestamp</dref> 
  200.  
  201.    procedure dispose_w_key_w_params 
  202.      (This       : not null access Ref; 
  203.       key : DDS.String; 
  204.       params : access DDS.WriteParams_T); 
  205.  
  206.    function lookup_instance_w_key 
  207.      (This       : not null access Ref; 
  208.       key : DDS.String) 
  209.      return DDS.InstanceHandle_T; 
  210.    --  <dref>KeyedStringDataWriter_lookup_instance_w_key</dref> 
  211.  
  212.    procedure Get_Key_Value_W_Key 
  213.      (This       : not null access Ref; 
  214.       key        : DDS.String; 
  215.       handle     : access DDS.InstanceHandle_T); 
  216.    --  <dref>KeyedStringDataWriter_get_key_value_w_key</dref> 
  217.  
  218.    --  <internal> 
  219.    --  ========================================================================= 
  220.    -- 
  221.    --  Internal Routines not to be used by the application 
  222.    -- 
  223.    --  ========================================================================= 
  224.    --  </internal> 
  225.  
  226.    function CreateTypedI return Standard.DDS.DataWriter.Ref_Access; 
  227.  
  228.    procedure DestroyTypedI 
  229.      (Writer : in out Standard.DDS.DataWriter.Ref_Access); 
  230.  
  231. end DDS.Builtin_KeyedString_DataWriter;