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>OctetsDataWriter</dref> 
  14. package DDS.Builtin_Octets_DataWriter is 
  15.  
  16.    type Ref is new Standard.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_Octets_DataWriter.Ref_Access; 
  23.    --  <dref>OctetsDataWriter_narrow</dref> 
  24.  
  25.    function As_DataWriter 
  26.      (writer : DDS.Builtin_Octets_DataWriter.Ref_Access) 
  27.       return DDS.DataWriter.Ref_Access; 
  28.    --  <dref>OctetsDataWriter_as_datawriter</dref> 
  29.  
  30.    function Register_Instance 
  31.      (This          : not null access Ref; 
  32.       Instance_Data : access DDS.Octets) 
  33.       return DDS.InstanceHandle_T; 
  34.  
  35.  
  36.    function Register_Instance_W_Timestamp 
  37.      (This             : not null access Ref; 
  38.       Instance_Data    : access DDS.Octets; 
  39.       Source_Timestamp : in Standard.DDS.Time_T) 
  40.       return Standard.DDS.InstanceHandle_T; 
  41.  
  42.  
  43.    procedure Unregister_Instance 
  44.      (This          : not null access Ref; 
  45.       Instance_Data : access DDS.Octets; 
  46.       Handle        : access Standard.DDS.InstanceHandle_T); 
  47.  
  48.  
  49.    procedure Unregister_Instance_W_Timestamp 
  50.      (This             : not null access Ref; 
  51.       Instance_Data    : access DDS.Octets; 
  52.       Handle           : access Standard.DDS.InstanceHandle_T; 
  53.       Source_Timestamp : access Standard.DDS.Time_T); 
  54.  
  55.  
  56.    procedure Write 
  57.      (This          : not null access Ref; 
  58.       Instance_Data : access DDS.Octets; 
  59.       Handle        : in Standard.DDS.InstanceHandle_T_Access); 
  60.    --  <dref>OctetsDataWriter_write</dref> 
  61.  
  62.    procedure Write_W_Timestamp 
  63.      (This          : not null access Ref; 
  64.       Instance_Data    : access DDS.Octets; 
  65.       Handle           : access DDS.InstanceHandle_T; 
  66.       Source_Timestamp : access DDS.Time_T); 
  67.    --  <dref>OctetsDataWriter_write_w_timestamp</dref> 
  68.  
  69.  
  70.    procedure Dispose 
  71.      (This            : not null access Ref; 
  72.       Instance_Data   : access DDS.Octets; 
  73.       Instance_Handle : access DDS.InstanceHandle_T); 
  74.  
  75.  
  76.    procedure Dispose_W_Timestamp 
  77.      (This             : not null access Ref; 
  78.       Instance_Data    : access DDS.Octets; 
  79.       Instance_Handle  : access DDS.InstanceHandle_T; 
  80.       Source_Timestamp : access DDS.Time_T); 
  81.  
  82.    procedure Get_Key_Value 
  83.      (This       : not null access Ref; 
  84.       Key_Holder : access DDS.Octets; 
  85.       Handle     : access DDS.InstanceHandle_T); 
  86.  
  87.    function Lookup_Instance 
  88.      (This       : not null access Ref; 
  89.       Key_Holder : access DDS.Octets) return Standard.DDS.InstanceHandle_T; 
  90.  
  91.    function Register_Instance_W_Params 
  92.      (This       : not null access Ref; 
  93.       instance_data : access DDS.Octets; 
  94.       params     : access DDS.WriteParams_T) 
  95.      return DDS.InstanceHandle_T; 
  96.  
  97.    procedure Unregister_Instance_W_Params 
  98.      (This       : not null access Ref; 
  99.       instance_data : access DDS.Octets; 
  100.       params     : access DDS.WriteParams_T); 
  101.  
  102.    procedure Write_Octets 
  103.      (This       : not null access Ref; 
  104.       octets     : access DDS.Octet_Array; 
  105.       length     : Integer; 
  106.       handle     : access DDS.InstanceHandle_T); 
  107.    --  <dref>OctetsDataWriter_write_octets</dref> 
  108.  
  109.    procedure Write_Octets_Seq 
  110.      (This       : not null access Ref; 
  111.       octets     : access DDS.Octet_Seq.Sequence; 
  112.       handle     : access DDS.InstanceHandle_T); 
  113.    --  <dref>OctetsDataWriter_write_octets_seq</dref> 
  114.  
  115.    procedure Write_Octets_W_Timestamp 
  116.      (This       : not null access Ref; 
  117.       octets     : access DDS.Octet_Array; 
  118.       length     : Integer; 
  119.       handle     : access DDS.InstanceHandle_T; 
  120.       source_timestamp : access DDS.Time_T); 
  121.    --  <dref>OctetsDataWriter_write_octets_w_timestamp</dref> 
  122.  
  123.    procedure Write_Octets_Seq_W_Timestamp 
  124.      (This       : not null access Ref; 
  125.       octets     : access DDS.Octet_Seq.Sequence; 
  126.       handle     : access DDS.InstanceHandle_T; 
  127.       source_timestamp : access DDS.Time_T); 
  128.    --  <dref>OctetsDataWriter_write_octets_seq_w_timestamp</dref> 
  129.  
  130.    procedure Write_W_Params 
  131.      (This       : not null access Ref; 
  132.       instance_data : DDS.Octets; 
  133.       params     : access DDS.WriteParams_T); 
  134.  
  135.    procedure Write_Octets_W_Params 
  136.      (This       : not null access Ref; 
  137.       octets     : access DDS.Octet_Array; 
  138.       length     : Integer; 
  139.       params     : access DDS.WriteParams_T); 
  140.  
  141.    procedure Write_Octets_Seq_W_Params 
  142.      (This       : not null access Ref; 
  143.       octets     : access DDS.Octet_Seq.Sequence; 
  144.       params     : access DDS.WriteParams_T); 
  145.  
  146.    procedure Dispose_W_Params 
  147.      (This       : not null access Ref; 
  148.       instance_data : access DDS.Octets; 
  149.       params     : access DDS.WriteParams_T); 
  150.  
  151.    --  <internal> 
  152.    --  ========================================================================= 
  153.    -- 
  154.    --  Internal Routines not to be used by the application 
  155.    -- 
  156.    --  ========================================================================= 
  157.    --  </internal> 
  158.  
  159.    function CreateTypedI return Standard.DDS.DataWriter.Ref_Access; 
  160.  
  161.    procedure DestroyTypedI 
  162.      (Writer : in out Standard.DDS.DataWriter.Ref_Access); 
  163.  
  164. end DDS.Builtin_Octets_DataWriter;