1. package Allegro.Configuration is 
  2.  
  3.     -- Allegro 4.2.2 - Configuration routines 
  4.     -- This package is missing: 
  5.     -- hook_configuration 
  6.     -- config_is_hooked 
  7.     -- get_config_argv 
  8.     -- list_config_entries 
  9.     -- list_config_sections 
  10.     -- free_config_entries 
  11.  
  12.     procedure Flush_Config_File; 
  13.  
  14.     function Get_Config_Float( section, name : String; def : Float ) return Float; 
  15.  
  16.     function Get_Config_Hex( section, name : String; def : Integer ) return Integer; 
  17.  
  18.     function Get_Config_Id( section, name : String; def : Integer ) return Integer; 
  19.  
  20.     function Get_Config_Int( section, name : String; def : Integer ) return Integer; 
  21.  
  22.     function Get_Config_String( section, name, def : String ) return String; 
  23.  
  24.     function Get_Config_Text( msg : String ) return String; 
  25.  
  26.     procedure Override_Config_Data( data : String ); 
  27.  
  28.     procedure Override_Config_File( filename : String ); 
  29.  
  30.     procedure Pop_Config_State; 
  31.  
  32.     procedure Push_Config_State; 
  33.  
  34.     procedure Reload_Config_Texts( new_language : String ); 
  35.  
  36.     procedure Set_Config_Data( data : String ); 
  37.  
  38.     procedure Set_Config_File( filename : String ); 
  39.  
  40.     procedure Set_Config_Float( section, name : String; val : Float ); 
  41.  
  42.     procedure Set_Config_Hex( section, name : String; val : Integer ); 
  43.  
  44.     procedure Set_Config_Id( section, name : String; val : Integer ); 
  45.  
  46.     procedure Set_Config_Int( section, name : String; val : Integer ); 
  47.  
  48.     procedure Set_Config_String( section, name, val : String ); 
  49.  
  50. private 
  51.  
  52.     pragma Import( C, Flush_Config_File, "flush_config_file" ); 
  53.     pragma Import( C, Pop_Config_State, "pop_config_state" ); 
  54.     pragma Import( C, Push_Config_State, "push_config_state" ); 
  55.  
  56. end Allegro.Configuration;