diff options
author | 2003-09-22 07:28:03 +0000 | |
---|---|---|
committer | 2003-09-22 07:28:03 +0000 | |
commit | af08be9e326fe4b7e76234022fe33b1eea4c06dd (patch) | |
tree | 74da9fa6dc40ef9109e6307f62cb15457421fa2b /lib | |
parent | 9ee004e00a0b5ef2bb86c1cd201382ab30673d8f (diff) |
Passage à la V8 par défaut
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4437 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
-rw-r--r-- | lib/options.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/options.ml b/lib/options.ml index 5f67bebee..80b463123 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -27,9 +27,12 @@ let xml_export = ref false let dont_load_proofs = ref false let v7 = - let f = Filename.basename Sys.argv.(0) in - ref (not (f = "coqtopnew.byte" or f = "coqtopnew.opt" or f = "coqtopnew" - or array_exists ((=) "-v8") Sys.argv)) + let transl = array_exists ((=) "-translate") Sys.argv in + let v7 = array_exists ((=) "-v7") Sys.argv in + let v8 = array_exists ((=) "-v8") Sys.argv in + if v8 & transl then error "Options -translate and -v8 are incompatible"; + if v8 & v7 then error "Options -v7 and -v8 are incompatible"; + ref (v7 or transl) let v7_only = ref false |