Ajout des options "Set Contextual Implicits" et "Set Strict Implicits

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3351 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 24 insertions, 0 deletions

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 0a3e28c6cd..9b977b846f 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -651,12 +651,36 @@ let _ =
 let _ =
   declare_bool_option 
     { optsync  = true;
+      optname  = "strict implicits";
+      optkey   = (SecondaryTable ("Strict","Implicits"));
+      optread  = (fun () -> !Impargs.strict_implicit_args);
+      optwrite = (fun b ->  Impargs.strict_implicit_args := b) }
+
+let _ =
+  declare_bool_option 
+    { optsync  = true;
+      optname  = "contextual implicits";
+      optkey   = (SecondaryTable ("Contextual","Implicits"));
+      optread  = (fun () -> !Impargs.contextual_implicit_args);
+      optwrite = (fun b ->  Impargs.contextual_implicit_args := b) }
+
+let _ =
+  declare_bool_option 
+    { optsync  = true;
       optname  = "coercion printing";
       optkey   = (SecondaryTable ("Printing","Coercions"));
       optread  = (fun () -> !Termast.print_coercions);
       optwrite = (fun b ->  Termast.print_coercions := b) }
 
 let _ =
+  declare_bool_option 
+    { optsync  = true;
+      optname  = "symbols printing";
+      optkey   = (SecondaryTable ("Printing","Symbols"));
+      optread  = (fun () -> !Constrextern.print_no_symbol);
+      optwrite = (fun b ->  Constrextern.print_no_symbol := not b) }
+
+let _ =
   declare_int_option
     { optsync=false;
       optkey=PrimaryTable("Undo");