diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-05 16:58:54 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-05 16:58:54 +0000 |
| commit | 3667473c47297bb4b5adddf99b58b0000da729e6 (patch) | |
| tree | 3f3770b79279d0996e107618475b5966bceab4f1 | |
| parent | ebec008ec9654700a41ade17f1a4c9fd87aea7e6 (diff) | |
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
| -rw-r--r-- | lib/options.ml | 2 | ||||
| -rw-r--r-- | lib/options.mli | 2 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 2 |
3 files changed, 6 insertions, 0 deletions
diff --git a/lib/options.ml b/lib/options.ml index b60210fde..a47a0bea8 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 53e796f9a..f99064747 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 bcee6d0ce..c9fa6a18c 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 |