1. with Interfaces;                        use Interfaces; 
  2.  
  3. -- Support for Allegro AL_ID tags. 
  4. package Allegro_Ids is 
  5.  
  6.     pragma Pure; 
  7.  
  8.     type AL_ID is private; 
  9.  
  10.     AL_ID_NONE : constant AL_ID; 
  11.  
  12.     function To_AL_ID( a, b, c, d : Character ) return AL_ID; 
  13.  
  14.     function To_AL_ID( n : Unsigned_32 ) return AL_ID; 
  15.  
  16.     function To_String( id : AL_ID ) return String; 
  17.  
  18. private 
  19.  
  20.     type AL_ID is new Unsigned_32; 
  21.  
  22.     AL_ID_NONE : constant AL_ID := 0; 
  23.  
  24. end Allegro_Ids;