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