From 34e73d0e0e1e997a05307eaa2fab97d694271efa Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 12 Jun 2003 15:57:48 +0000
Subject: 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
---
 lib/options.ml  | 5 +++++
 lib/options.mli | 3 +++
 2 files changed, 8 insertions(+)

(limited to 'lib')

diff --git a/lib/options.ml b/lib/options.ml
index b67f8359de..5725395724 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 a65958e4f1..db6ee1d5bd 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
-- 
cgit v1.2.3