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.  
  10. with DDS_Support.Sequences_Generic; 
  11. with DDS.TypeSupport; 
  12. generic 
  13.    type Data_Type is limited private; 
  14.    type Data_Type_Access is access all Data_Type; 
  15.    type Index_Type is range <>; 
  16.    First_Element : Index_Type; 
  17.    type Data_Array is array (Index_Type range <>) of aliased Data_Type; 
  18.    with procedure Initialize (Self  : in out Data_Type) is <>; 
  19.    with procedure Finalize (Self  : in out Data_Type) is <>; 
  20.    with procedure Copy (Dst : in out Data_Type; Src : in Data_Type) is <>; 
  21.  
  22.    with package Data_Sequences is new DDS_Support.Sequences_Generic 
  23.      (Element        => Data_Type, 
  24.       Element_Access => Data_Type_Access, 
  25.       Index_Type     => Index_Type, 
  26.       First_Element  => First_Element, 
  27.       Element_Array  => Data_Array, 
  28.       Initialize     => Initialize, 
  29.       Finalize       => Finalize, 
  30.       Copy           => Copy); 
  31.    with function Get_Type_Name return Standard.DDS.String with Warnings => Off; 
  32.    type TypeSupport is new Standard.DDS.TypeSupport.Ref with private with Warnings => Off; 
  33. package DDS.Treats_Generic is 
  34.  
  35. end DDS.Treats_Generic;