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