diff options
| -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 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 |