Allow resetting of the configuration parameters dictionary.

[Imported from Perforce change 8334 at 2006-12-01 20:32:59]

Subversion-branch: /trunk/polyorb
Subversion-revision: 35932

src/polyorb-dynamic_dict.adb

@@ -111,6 +111,16 @@ package body PolyORB.Dynamic_Dict is
       Insert (T, K, V);
    end Register;
 
+   -----------
+   -- Reset --
+   -----------
+
+   procedure Reset is
+   begin
+      Finalize (T);
+      Initialize (T);
+   end Reset;
+
    ----------------
    -- Unregister --
    ----------------

src/polyorb-dynamic_dict.ads

@@ -69,4 +69,7 @@ package PolyORB.Dynamic_Dict is
    --  As above, but Default is returned for non-registered keys,
    --  insted of raising an exception.
 
+   procedure Reset;
+   --  Remove all key associations.
+
 end PolyORB.Dynamic_Dict;

src/polyorb-parameters.adb

@@ -311,4 +311,10 @@ package body PolyORB.Parameters is
       PolyORB.Log.Get_Conf_Hook := Get_Conf'Access;
    end Set_Hooks;
 
+   -----------
+   -- Reset --
+   -----------
+
+   procedure Reset renames Variables.Reset;
+
 end PolyORB.Parameters;

src/polyorb-parameters.ads

@@ -78,6 +78,9 @@ package PolyORB.Parameters is
 
    type Parameters_Initializer is access procedure;
 
+   procedure Reset;
+   --  Clear all variables previously positioned using Set_Conf.
+
 private
 
    function Get_Env