diff options
| author |  Stephane Glondu <steph@glondu.net> | 2011-04-19 16:52:57 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2011-04-19 16:52:57 +0200 |
| commit | 7a24ebd7506f927a6493d065b8c9c297afd08db3 (patch) | |
| tree | 3ee6d9c9aa5fc6cf6f793c1fb1a37c2307fd0287 /lib/envars.ml | |
| parent | 4b1c150e26881501db9aa944df6406150fc0670d (diff) | |
| parent | aa33547c764a229e22d323ca213d46ea221b903e (diff) | |
Merge commit 'upstream/8.3.pl2+dfsg'
Diffstat (limited to 'lib/envars.ml')
| -rw-r--r-- | lib/envars.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index efb2d3fa..b0db1a50 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -14,6 +14,13 @@ let coqbin () = then Filename.concat Coq_config.coqsrc "bin" else System.canonical_path_name (Filename.dirname Sys.executable_name) +(* On win32, we add coqbin to the PATH at launch-time (this used to be + done in a .bat script). *) + +let _ = + if Coq_config.arch = "win32" then + Unix.putenv "PATH" (coqbin() ^ ";" ^ System.getenv_else "PATH" "") + let guess_coqlib () = let file = "states/initial.coq" in if Sys.file_exists (Filename.concat Coq_config.coqlib file) |