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