From 7da87c68444558218bca2a3b070086712d727bcc Mon Sep 17 00:00:00 2001
From: desmettr
Date: Wed, 5 Feb 2003 15:52:31 +0000
Subject: Ajout du traducteur

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3664 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/options.ml  | 6 ++++++
 lib/options.mli | 5 +++++
 2 files changed, 11 insertions(+)

(limited to 'lib')

diff --git a/lib/options.ml b/lib/options.ml
index cd0de97a4a..f2cc7a09de 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -26,6 +26,12 @@ let xml_export = ref false
 
 let v7 = ref true
 
+(* Translate *)
+let translate = ref false
+let make_translate f = translate := f; ()
+let do_translate () = !translate
+let translate_file = 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 59617ec34a..af08f689ee 100644
--- a/lib/options.mli
+++ b/lib/options.mli
@@ -25,6 +25,11 @@ val xml_export : bool ref
 
 val v7 : bool ref
 
+val translate : bool ref
+val make_translate : bool -> unit
+val do_translate : unit -> bool
+val translate_file : bool ref
+
 val make_silent : bool -> unit
 val is_silent : unit -> bool
 val is_verbose : unit -> bool
-- 
cgit v1.2.3