From 3667473c47297bb4b5adddf99b58b0000da729e6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 5 Nov 2002 16:58:54 +0000
Subject: Nouvelle option -xml à coqtop pour compiler un développement en
 l'exportant au format xml

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

diff --git a/lib/options.ml b/lib/options.ml
index b60210fdef..a47a0bea87 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -22,6 +22,8 @@ let emacs_str s = if !print_emacs then s else ""
 
 let term_quality = ref false
 
+let xml_export = 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 53e796f9a9..f990647473 100644
--- a/lib/options.mli
+++ b/lib/options.mli
@@ -21,6 +21,8 @@ val emacs_str : string -> string
 
 val term_quality : bool ref
 
+val xml_export : bool ref
+
 val make_silent : bool -> unit
 val is_silent : unit -> bool
 val is_verbose : unit -> bool
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index bcee6d0ce6..c9fa6a18c2 100644
--- a/toplevel/coqtop.ml
+++ b/toplevel/coqtop.ml
@@ -195,6 +195,8 @@ let parse_args () =
 
     | ("-m" | "--memory") :: rem -> memory_stat := true; parse rem
 
+    | "-xml" :: rem -> Options.xml_export := true; parse rem
+
     | s :: _ -> prerr_endline ("Don't know what to do with " ^ s); usage ()
 
   in
-- 
cgit v1.2.3