1. -- 
  2. -- Copyright (c) 2013 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 Interfaces;                        use Interfaces; 
  10.  
  11. -- Support for Allegro AL_ID tags 
  12. package Allegro_Ids is 
  13.  
  14.     pragma Pure; 
  15.  
  16.     type AL_ID is private; 
  17.  
  18.     AL_ID_NONE : constant AL_ID; 
  19.  
  20.     function To_AL_ID( a, b, c, d : Character ) return AL_ID; 
  21.  
  22.     function To_AL_ID( n : Unsigned_32 ) return AL_ID; 
  23.  
  24.     function To_String( id : AL_ID ) return String; 
  25.  
  26.     function To_Unsigned_32( id : AL_ID ) return Unsigned_32; 
  27.  
  28. private 
  29.  
  30.     type AL_ID is new Unsigned_32; 
  31.  
  32.     AL_ID_NONE : constant AL_ID := 0; 
  33.  
  34. end Allegro_Ids;