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