From e4a667a4503de1ebda52aee4aa5e08fb0711f1ce Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 18 Jul 2010 11:29:23 +0000
Subject: Tentative de suppression de l'import automatique des hints et
 coercions.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13293 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/auto.ml | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

(limited to 'tactics')

diff --git a/tactics/auto.ml b/tactics/auto.ml
index 0448b0b224..ba38f54584 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -402,12 +402,35 @@ type hint_action = | CreateDB of bool * transparent_state
 		   | AddTransparency of evaluable_global_reference list * bool
 		   | AddTactic of (global_reference option * pri_auto_tactic) list
 
+let automatically_import_hints = ref false
+
+open Goptions
+let _ =
+  declare_bool_option
+    { optsync  = true;
+      optname  = "automatic importation of hints";
+      optkey   = ["Automatic";"Hints";"Importation"];
+      optread  = (fun () -> !automatically_import_hints);
+      optwrite = (:=) automatically_import_hints }
+
 let cache_autohint (_,(local,name,hints)) =
   match hints with
   | CreateDB (b, st) -> searchtable_add (name, Hint_db.empty st b)
   | AddTransparency (grs, b) -> add_transparency name grs b
   | AddTactic hints -> add_hint name hints
 
+let load_autohint _ x =
+  if
+    !automatically_import_hints || Flags.version_less_or_equal Flags.V8_2
+  then
+    cache_autohint x
+
+let open_autohint _ x =
+  if
+    not (!automatically_import_hints || Flags.version_less_or_equal Flags.V8_2)
+  then
+    cache_autohint x
+
 let forward_subst_tactic =
   ref (fun _ -> failwith "subst_tactic is not installed for auto")
 
@@ -500,7 +523,8 @@ let discharge_autohint (_,(local,name,hintlist as obj)) =
 let (inAutoHint,_) =
   declare_object {(default_object "AUTOHINT") with
                     cache_function = cache_autohint;
-		    load_function = (fun _ -> cache_autohint);
+		    open_function = open_autohint;
+		    load_function = load_autohint;
 		    subst_function = subst_autohint;
 		    classify_function = classify_autohint }
 
-- 
cgit v1.2.3