aboutsummaryrefslogtreecommitdiff
path: root/toplevel/usage.ml
diff options
context:
space:
mode:
authorvgross2010-09-14 14:43:01 +0000
committervgross2010-09-14 14:43:01 +0000
commitc9a9752c76bfb592d775a7fdb9ebe4702ff1aaef (patch)
tree10bf7c57d0ae1c66481d1ea72a4dd438ebc5525e /toplevel/usage.ml
parent4b6b6ba87ee19854bb8464cb248fcf40f0b965e1 (diff)
CoqIDE argv parsing delegated to coqtop
Introduces some hacks to have a consistent user experience. When coqtop prints info on self then exit, return code is 2 if called with -filteropts, 0 else For now, no options are accepted by coqide. there is no way for now to specify a filename that begins with a dash. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13415 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/usage.ml')
-rw-r--r--toplevel/usage.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/usage.ml b/toplevel/usage.ml
index fc4d18b57d..34e8d0fb53 100644
--- a/toplevel/usage.ml
+++ b/toplevel/usage.ml
@@ -6,11 +6,11 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-let version () =
+let version ret =
Printf.printf "The Coq Proof Assistant, version %s (%s)\n"
Coq_config.version Coq_config.date;
Printf.printf "compiled on %s with OCaml %s\n" Coq_config.compile_date Coq_config.caml_version;
- exit 0
+ exit ret
(* print the usage of coqtop (or coqc) on channel co *)