diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-11 14:05:35 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-11 14:05:35 +0000 |
| commit | 2abc6e4c9b35570a44af9a246c88bb177d81373d (patch) | |
| tree | 270af8c7eda9ff39546dd4e6c26665afcd90b8dd /ide/coqide.ml | |
| parent | e75cd30ff9fc61ce3de31c88645d9bb85128841c (diff) | |
Coqide awful coqtop options parsing fixup
(back to the future)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15301 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
| -rw-r--r-- | ide/coqide.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index f6eabc062..de70b94c9 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -2401,6 +2401,9 @@ let read_coqide_args argv = ((Minilib.canonical_path_name (Filename.dirname file), Project_file.read_project_file file) :: project_files) out args | "-f" :: [] -> output_string stderr "Error: missing project file name"; exit 1 + | "-coqtop" :: [] -> output_string stderr "Error: missing argument after -coqtop"; exit 1 + | "-debug"::args -> Ideutils.debug := true; + filter_coqtop coqtop project_files ("-debug"::out) args | arg::args -> filter_coqtop coqtop project_files (arg::out) args | [] -> (coqtop,List.rev project_files,List.rev out) in |