1. package Preferences is 
  2.  
  3.     procedure Initialize( filename : String ); 
  4.  
  5.     procedure Finalize; 
  6.  
  7.     ---------------------------------------------------------------------------- 
  8.  
  9.     function Get_Pref( name : String ) return Boolean; 
  10.  
  11.     function Get_Pref( name : String ) return Float; 
  12.  
  13.     function Get_Pref( name : String ) return Integer; 
  14.  
  15.     function Get_Pref( name : String ) return String; 
  16.  
  17.     function Get_Pref( section, name : String ) return Boolean; 
  18.  
  19.     function Get_Pref( section, name : String ) return Float; 
  20.  
  21.     function Get_Pref( section, name : String ) return Integer; 
  22.  
  23.     function Get_Pref( section, name : String ) return String; 
  24.  
  25.     ---------------------------------------------------------------------------- 
  26.  
  27.     procedure Set_Pref( name : String; value : Boolean ); 
  28.  
  29.     procedure Set_Pref( name : String; value : Float ); 
  30.  
  31.     procedure Set_Pref( name : String; value : Integer ); 
  32.  
  33.     procedure Set_Pref( name : String; value : String ); 
  34.  
  35.     procedure Set_Pref( section, name : String; value : Boolean ); 
  36.  
  37.     procedure Set_Pref( section, name : String; value : Float ); 
  38.  
  39.     procedure Set_Pref( section, name : String; value : Integer ); 
  40.  
  41.     procedure Set_Pref( section, name : String; value : String ); 
  42.  
  43.     ---------------------------------------------------------------------------- 
  44.  
  45.     procedure Set_Default( name : String; value : Boolean ); 
  46.  
  47.     procedure Set_Default( name : String; value : Float ); 
  48.  
  49.     procedure Set_Default( name : String; value : Integer ); 
  50.  
  51.     procedure Set_Default( name : String; value : String ); 
  52.  
  53.     procedure Set_Default( section, name : String; value : Boolean ); 
  54.  
  55.     procedure Set_Default( section, name : String; value : Float ); 
  56.  
  57.     procedure Set_Default( section, name : String; value : Integer ); 
  58.  
  59.     procedure Set_Default( section, name : String; value : String ); 
  60.  
  61. end Preferences;