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