diff options
| author | letouzey | 2013-08-22 14:29:58 +0000 |
|---|---|---|
| committer | letouzey | 2013-08-22 14:29:58 +0000 |
| commit | 08e7ec2c48c5ca666ad42b5f969576e6aa43d2ea (patch) | |
| tree | 9b47cee57c927b638d9cfdab49890f21ec05c8cf /interp/dumpglob.ml | |
| parent | c1159f736c8d8f5b95bc53af7614a63f2ab9a86b (diff) | |
Misc changes around coqtop.ml :
- Revised Coqtop.parse_args in a cleaner and lighter style
- Improved error message in case of argument parse failure:
* tell which option is expecting a related argument
* in case of unknown options, warn about them all at once
* do not hide the previous error messages by filling the
screen with usage(). Instead, suggest the use of --help.
- Specialized boolean config field Coq_config.arch_is_win32
- Faster Envars.coqlib, which is back to (unit->string), and
just access Flags.coqlib. Caveat: it must be initialized once
via Envars.set_coqlib
- Avoid keeping an opened channel to the "revision" file
- Direct load of theories/init/prelude.vo, no detour via Loadpath
Beware : ./configure must be runned after this commit
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16726 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/dumpglob.ml')
| -rw-r--r-- | interp/dumpglob.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index 74c60f75be..1a44fac6cf 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -30,11 +30,13 @@ let dump () = !glob_output != NoGlob let noglob () = glob_output := NoGlob -let dump_to_stdout () = glob_output := StdOut; glob_file := Pervasives.stdout - let dump_to_dotglob () = glob_output := MultFiles -let dump_into_file f = glob_output := File f; open_glob_file f +let dump_into_file f = + if String.equal f "stdout" then + (glob_output := StdOut; glob_file := Pervasives.stdout) + else + (glob_output := File f; open_glob_file f) let dump_string s = if dump () then Pervasives.output_string !glob_file s |