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.DataWriter; 
  10. with DDS.DataWriter_Impl; 
  11. with DDS; use DDS; 
  12.  
  13. --  <dref>KeyedOctetsDataWriter</dref> 
  14. package DDS.Builtin_KeyedOctets_DataWriter is 
  15.  
  16.    type Ref is new DDS.DataWriter_Impl.Ref with null record; 
  17.    type Ref_Access is access all Ref'Class; 
  18.    type Ref_Access_Access is access all Ref_Access; 
  19.  
  20.    function Narrow 
  21.      (writer : DDS.DataWriter.Ref_Access) 
  22.       return DDS.Builtin_KeyedOctets_DataWriter.Ref_Access; 
  23.    --  <dref>KeyedOctetsDataWriter_narrow</dref> 
  24.  
  25.    function As_DataWriter 
  26.      (writer : DDS.Builtin_KeyedOctets_DataWriter.Ref_Access) 
  27.       return DDS.DataWriter.Ref_Access; 
  28.    --  <dref>KeyedOctetsDataWriter_as_datawriter</dref> 
  29.  
  30.    function Register_Instance 
  31.      (This          : not null access Ref; 
  32.       Instance_Data : access DDS.KeyedOctets) 
  33.       return DDS.InstanceHandle_T; 
  34.    --  <dref>KeyedOctetsDataWriter_register_instance</dref> 
  35.  
  36.  
  37.    function Register_Instance_W_Timestamp 
  38.      (This             : not null access Ref; 
  39.       Instance_Data    : access DDS.KeyedOctets; 
  40.       Source_Timestamp : access DDS.Time_T) 
  41.       return DDS.InstanceHandle_T; 
  42.    --  <dref>KeyedOctetsDataWriter_register_instance_w_timestamp</dref> 
  43.  
  44.  
  45.    procedure Unregister_Instance 
  46.      (This          : not null access Ref; 
  47.       Instance_Data : access DDS.KeyedOctets; 
  48.       Handle        : access DDS.InstanceHandle_T); 
  49.    --  <dref>KeyedOctetsDataWriter_unregister_instance</dref> 
  50.  
  51.    procedure Unregister_Instance_W_Timestamp 
  52.      (This             : not null access Ref; 
  53.       Instance_Data    : access DDS.KeyedOctets; 
  54.       Handle           : access DDS.InstanceHandle_T; 
  55.       Source_Timestamp : access DDS.Time_T); 
  56.    --  <dref>KeyedOctetsDataWriter_unregister_instance_w_timestamp</dref> 
  57.  
  58.    procedure Write 
  59.      (This          : not null access Ref; 
  60.       Instance_Data : access DDS.KeyedOctets; 
  61.       Handle        : access DDS.InstanceHandle_T); 
  62.    --  <dref>KeyedOctetsDataWriter_write</dref> 
  63.  
  64.    procedure Write_W_Timestamp 
  65.      (This          : not null access Ref; 
  66.       Instance_Data    : access DDS.KeyedOctets; 
  67.       Handle           : access DDS.InstanceHandle_T; 
  68.       Source_Timestamp : access DDS.Time_T); 
  69.    --  <dref>KeyedOctetsDataWriter_write_w_timestamp</dref> 
  70.  
  71.    procedure Dispose 
  72.      (This            : not null access Ref; 
  73.       Instance_Data   : access DDS.KeyedOctets; 
  74.       Instance_Handle : access DDS.InstanceHandle_T); 
  75.    --  <dref>KeyedOctetsDataWriter_dispose</dref> 
  76.  
  77.    procedure Dispose_W_Timestamp 
  78.      (This             : not null access Ref; 
  79.       Instance_Data    : access DDS.KeyedOctets; 
  80.       Instance_Handle  : access DDS.InstanceHandle_T; 
  81.       Source_Timestamp : access DDS.Time_T); 
  82.    --  <dref>KeyedOctetsDataWriter_dispose_w_timestamp</dref> 
  83.  
  84.  
  85.    procedure Get_Key_Value 
  86.      (This       : not null access Ref; 
  87.       Key_Holder : access DDS.KeyedOctets; 
  88.       Handle     : access DDS.InstanceHandle_T); 
  89.    --  <dref>KeyedOctetsDataWriter_get_key_value</dref> 
  90.  
  91.  
  92.    function Lookup_Instance 
  93.      (This       : not null access Ref; 
  94.       Key_Holder : access DDS.KeyedOctets) return DDS.InstanceHandle_T; 
  95.    --  <dref>KeyedOctetsDataWriter_lookup_instance</dref> 
  96.  
  97.    function Lookup_Instance_W_Key 
  98.      (This       : not null access Ref; 
  99.       key        : DDS.String) 
  100.       return DDS.InstanceHandle_T; 
  101.    --  <dref>KeyedOctetsDataWriter_lookup_instance_w_key</dref> 
  102.  
  103.    function Register_Instance_W_Key 
  104.      (This       : not null access Ref; 
  105.       key        : DDS.String) 
  106.       return DDS.InstanceHandle_T; 
  107.    --  <dref>KeyedOctetsDataWriter_register_instance_w_key </dref> 
  108.  
  109.    function Register_Instance_W_Params 
  110.      (This       : not null access Ref; 
  111.       instance_data : access DDS.KeyedOctets; 
  112.       params     : access DDS.WriteParams_T) 
  113.       return DDS.InstanceHandle_T; 
  114.  
  115.    function Register_Instance_W_Key_W_Timestamp 
  116.      (This       : not null access Ref; 
  117.       key        : DDS.String; 
  118.       source_timestamp : access DDS.Time_T) 
  119.       return DDS.InstanceHandle_T; 
  120.    --  <dref>KeyedOctetsDataWriter_register_instance_w_key_w_timestamp</dref> 
  121.  
  122.    function Register_Instance_W_Key_W_Params 
  123.      (This       : not null access Ref; 
  124.       key        : DDS.String; 
  125.       params     : access DDS.WriteParams_T) 
  126.       return DDS.InstanceHandle_T; 
  127.  
  128.    procedure Unregister_Instance_W_Key 
  129.      (This       : not null access Ref; 
  130.       key        : DDS.String; 
  131.       handle     : access DDS.InstanceHandle_T); 
  132.    --  <dref>KeyedOctetsDataWriter_unregister_instance_w_key</dref> 
  133.  
  134.    procedure Unregister_Instance_W_Params 
  135.      (This       : not null access Ref; 
  136.       instance_data : access DDS.KeyedOctets; 
  137.       params     : access DDS.WriteParams_T); 
  138.  
  139.    procedure Unregister_Instance_W_Key_W_Timestamp 
  140.      (This       : not null access Ref; 
  141.       key        : DDS.String; 
  142.       handle     : access DDS.InstanceHandle_T; 
  143.       source_timestamp : access DDS.Time_T); 
  144.    --  <dref>KeyedOctetsDataWriter_unregister_instance_w_key_w_timestamp</dref> 
  145.  
  146.    procedure Unregister_Instance_W_Key_W_Params 
  147.      (This       : not null access Ref; 
  148.       key        : DDS.String; 
  149.       params     : access DDS.WriteParams_T); 
  150.  
  151.    procedure Write_Octets_W_Key 
  152.      (This       : not null access Ref; 
  153.       key        : DDS.String; 
  154.       octets     : access DDS.Octet_Array; 
  155.       length     : Integer; 
  156.       handle     : access DDS.InstanceHandle_T); 
  157.    --  <dref>KeyedOctetsDataWriter_write_octets_w_key</dref> 
  158.  
  159.    procedure Write_Octets_Seq_W_Key 
  160.      (This       : not null access Ref; 
  161.       key        : DDS.String; 
  162.       octets     : access DDS.Octet_Seq.Sequence; 
  163.       handle     : access DDS.InstanceHandle_T); 
  164.    --  <dref>KeyedOctetsDataWriter_write_octets_seq_w_key</dref> 
  165.  
  166.    procedure Write_Octets_W_Key_W_Timestamp 
  167.      (This       : not null access Ref; 
  168.       key        : DDS.String; 
  169.       octets     : access DDS.Octet_Array; 
  170.       length     : Integer; 
  171.       handle     : access DDS.InstanceHandle_T; 
  172.       source_timestamp : access DDS.Time_T); 
  173.    --  <dref>KeyedOctetsDataWriter_write_octets_w_key_w_timestamp</dref> 
  174.  
  175.    procedure Write_Octets_Seq_W_Key_W_Timestamp 
  176.      (This       : not null access Ref; 
  177.       key        : DDS.String; 
  178.       octets     : access DDS.Octet_Seq.Sequence; 
  179.       handle     : access DDS.InstanceHandle_T; 
  180.      source_timestamp : access DDS.Time_T); 
  181.    --  <dref>KeyedOctetsDataWriter_write_octets_seq_w_key_w_timestamp</dref> 
  182.  
  183.    procedure Write_W_Params 
  184.      (This       : not null access Ref; 
  185.       instance_data : access DDS.KeyedOctets; 
  186.       params     : access DDS.WriteParams_T); 
  187.  
  188.    procedure Write_Octets_W_Key_W_Params 
  189.      (This       : not null access Ref; 
  190.       key        : DDS.String; 
  191.       octets     : access DDS.Octet_Array; 
  192.       length     : Integer; 
  193.       params     : access DDS.WriteParams_T); 
  194.  
  195.    procedure Write_Octet_Seq_W_Key_W_Params 
  196.      (This       : not null access Ref; 
  197.       key        : DDS.String; 
  198.       octets     : access DDS.Octet_Seq.Sequence; 
  199.       params     : access DDS.WriteParams_T); 
  200.  
  201.    procedure Dispose_W_Key 
  202.      (This       : not null access Ref; 
  203.       key        : DDS.String; 
  204.       instance_handle : access DDS.InstanceHandle_T); 
  205.    --  <dref>KeyedOctetsDataWriter_dispose_w_key</dref> 
  206.  
  207.    procedure Dispose_W_Params 
  208.      (This       : not null access Ref; 
  209.       instance_data : access DDS.KeyedOctets; 
  210.       source_timestamp : access DDS.WriteParams_T); 
  211.  
  212.    procedure Dispose_W_Key_W_Timestamp 
  213.      (This       : not null access Ref; 
  214.       key        : DDS.String; 
  215.       instance_handle : access DDS.InstanceHandle_T; 
  216.       source_timestamp : access DDS.Time_T); 
  217.    --  <dref>KeyedOctetsDataWriter_dispose_w_key_w_timestamp</dref> 
  218.  
  219.    procedure Dispose_W_Key_W_Params 
  220.      (This       : not null access Ref; 
  221.       key        : DDS.String; 
  222.       params     : access DDS.WriteParams_T); 
  223.  
  224.    procedure Get_Key_Value_W_Key 
  225.      (This       : not null access Ref; 
  226.       key        : DDS.String; 
  227.       handle     : access DDS.InstanceHandle_T); 
  228.    --  <dref>KeyedOctetsDataWriter_get_key_value_w_key</dref> 
  229.  
  230.    --  <internal> 
  231.    --  ========================================================================= 
  232.    -- 
  233.    --  Internal Routines not to be used by the application 
  234.    -- 
  235.    --  ========================================================================= 
  236.    --  </internal> 
  237.  
  238.    function CreateTypedI return DDS.DataWriter.Ref_Access; 
  239.  
  240.    procedure DestroyTypedI 
  241.      (Writer : in out DDS.DataWriter.Ref_Access); 
  242.  
  243. end DDS.Builtin_KeyedOctets_DataWriter;