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 Ada.Strings.Unbounded; 
  10. generic 
  11.    with function Image (Index : in Index_Type; Item : in Element; Indent : Standard.String := "") 
  12.      return Ada.Strings.Unbounded.Unbounded_String is <>; 
  13. function DDS_Support.Sequences_Generic.Image_Generic (Item : Sequence; Indent : Standard.String := "") return Ada.Strings.Unbounded.Unbounded_String; 
  14.