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 Allegro.File_IO;                   use Allegro.File_IO; 
  10.  
  11. -- Allegro 5.0.9 - Image I/O routines 
  12. package Allegro.Bitmaps.Image_IO is 
  13.  
  14.     type Allegro_IIO_Loader_Function is access 
  15.         function( filename : String ) return Allegro_Bitmap; 
  16.     pragma Convention( C, Allegro_IIO_Loader_Function ); 
  17.  
  18.     type Allegro_IIO_FS_Loader_Function is access 
  19.         function( fp : A_Allegro_File ) return Allegro_Bitmap; 
  20.     pragma Convention( C, Allegro_IIO_FS_Loader_Function ); 
  21.  
  22.     type Allegro_IIO_Saver_Function is access 
  23.         function( filename : String; bitmap : A_Allegro_Bitmap ) return Bool; 
  24.     pragma Convention( C, Allegro_IIO_Saver_Function ); 
  25.  
  26.     type Allegro_IIO_FS_Saver_Function is access 
  27.         function( fp : A_Allegro_File; bitmap : A_Allegro_Bitmap ) return Bool; 
  28.     pragma Convention( C, Allegro_IIO_FS_Saver_Function ); 
  29.  
  30.     function Al_Register_Bitmap_Loader( ext    : String; 
  31.                                         loader : Allegro_IIO_Loader_Function ) return Boolean; 
  32.  
  33.     function Al_Register_Bitmap_Saver( ext   : String; 
  34.                                        saver : Allegro_IIO_Saver_Function ) return Boolean; 
  35.  
  36.     function Al_Register_Bitmap_Loader_f( ext       : String; 
  37.                                           fs_loader : Allegro_IIO_FS_Loader_Function ) return Boolean; 
  38.  
  39.     function Al_Register_Bitmap_Saver_f( ext      : String; 
  40.                                          fs_saver : Allegro_IIO_FS_Saver_Function ) return Boolean; 
  41.  
  42.     function Al_Load_Bitmap( filename : String ) return A_Allegro_Bitmap; 
  43.  
  44.     function Al_Load_Bitmap_f( fp    : A_Allegro_File; 
  45.                                ident : String ) return A_Allegro_Bitmap; 
  46.  
  47.     function Al_Save_Bitmap( filename : String; 
  48.                              bitmap   : A_Allegro_Bitmap ) return Boolean; 
  49.  
  50.     function Al_Save_Bitmap_f( fp     : A_Allegro_File; 
  51.                                ident  : String; 
  52.                                bitmap : A_Allegro_Bitmap ) return Boolean; 
  53.  
  54. end Allegro.Bitmaps.Image_IO;