diff options
| author | notin | 2006-06-09 09:29:03 +0000 |
|---|---|---|
| committer | notin | 2006-06-09 09:29:03 +0000 |
| commit | 2c1a2d07ab57e257ac84e3ab2c6706b47f52c68d (patch) | |
| tree | 92b658358f2bcf8eddce0be337d6acaf5b9f95bc /toplevel | |
| parent | befd2a4bf35ee1f19b5705e061daf3320400501d (diff) | |
Ajout d'une option -with-geoproof à la configuration et à l'exécution
pour inhiber la gestion de Geoproof sous Coqide (qui peut poser des
problèmes avec GTK < 2.6.0)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8932 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 6 | ||||
| -rw-r--r-- | toplevel/usage.ml | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 94a70ccda8..0dea6415bf 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -174,7 +174,11 @@ let ide_args = ref [] let parse_args is_ide = let rec parse = function | [] -> () - + | "-with-geoproof" :: s :: rem -> + if s = "yes" then Coq_config.with_geoproof := true + else if s = "no" then Coq_config.with_geoproof := false + else usage (); + parse rem | "-impredicative-set" :: rem -> set_engagement Declarations.ImpredicativeSet; parse rem diff --git a/toplevel/usage.ml b/toplevel/usage.ml index 4a1f9e4f27..4944bfede7 100644 --- a/toplevel/usage.ml +++ b/toplevel/usage.ml @@ -54,6 +54,7 @@ let print_usage_channel co command = -boot boot mode (implies -q and -batch) -emacs tells Coq it is executed under Emacs -dump-glob f dump globalizations in file f (to be used by coqdoc) + -with-geoproof (yes|no) to (de)activate special functions for Geoproof within Coqide (default is yes) -impredicative-set set sort Set impredicative -dont-load-proofs don't load opaque proofs in memory -xml export XML files either to the hierarchy rooted in |