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