1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. with Ada.Streams;                       use Ada.Streams; 
  10. with Ada.Unchecked_Deallocation; 
  11.  
  12. package Streams is 
  13.  
  14.     -- A named access type for Stream_Element_Arrays. 
  15.     type A_SEA is access all Stream_Element_Array; 
  16.  
  17.     -- Deletes the Stream_Element_Array. 
  18.     procedure Delete is new Ada.Unchecked_Deallocation( Stream_Element_Array, A_SEA ); 
  19.  
  20.     -- raised by streams on error 
  21.     STREAM_ERROR : exception; 
  22.  
  23. end Streams;