Ajout option translate_syntax pour caractériser l'interprétation du traducteur à proprement parler

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

2 files changed, 8 insertions, 0 deletions

diff --git a/lib/options.ml b/lib/options.ml
index b67f8359d..572539572 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -24,6 +24,8 @@ let term_quality = ref false
 
 let xml_export = ref false
 
+let dont_load_proofs = ref false
+
 let v7 = ref true
 let v7_only = ref false
 
@@ -34,6 +36,9 @@ let do_translate () = !translate
 let translate_file = ref false
 let p1 = ref true
 
+(* True only when interning from pp*new.ml *)
+let translate_syntax = ref false
+
 (* Silent / Verbose *)
 let silent = ref false
 let make_silent flag = silent := flag; ()
diff --git a/lib/options.mli b/lib/options.mli
index a65958e4f..db6ee1d5b 100644
--- a/lib/options.mli
+++ b/lib/options.mli
@@ -23,6 +23,8 @@ val term_quality : bool ref
 
 val xml_export : bool ref
 
+val dont_load_proofs : bool ref
+
 val v7 : bool ref
 val v7_only : bool ref
 
@@ -31,6 +33,7 @@ val make_translate : bool -> unit
 val do_translate : unit -> bool
 val translate_file : bool ref
 val p1 : bool ref
+val translate_syntax : bool ref
 
 val make_silent : bool -> unit
 val is_silent : unit -> bool