1. private package Tiles.Libraries.Loading is 
  2.  
  3.     -- Initializes the package. Call this before calling Load_From_Disk. 
  4.     procedure Initialize; 
  5.  
  6.     -- Finalizes the package. This should be called before Allegro is shutdown. 
  7.     -- No more assets can be loaded after finalization. 
  8.     procedure Finalize; 
  9.  
  10.     -- Loads a library by name from disk. The library returned will continue to 
  11.     -- load asynchronously so not all bitmaps will be available immediately upon 
  12.     -- return. However, all the tile and matrices information will be available. 
  13.     -- If an error occurs then null will be returned. 
  14.     function Load_From_Disk( name : String ) return A_Tile_Library; 
  15.     pragma Precondition( name'Length >  0 ); 
  16.  
  17. end Tiles.Libraries.Loading;