Win32: remove the need for Coq.bat and Coqide.bat

  This is an adaptation of commit r13750 of branch 8.3

  - coqlib is currently computed relatively of Sys.executable_name,
    hence no need to set it manually

  - in Win32, better detection of user home dir : in System.ml,
    if HOME isn't set, we look now for HOMEDRIVE\HOMEPATH, and then
    for USERPROFILE

  - concerning PATH, in Win32 we now add coqbin (or the location of
    coqide) to PATH during the initialization.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14041 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 7 insertions, 1 deletions

diff --git a/ide/minilib.ml b/ide/minilib.ml
index 9833fbd6b..f072ff9fa 100644
--- a/ide/minilib.ml
+++ b/ide/minilib.ml
@@ -58,7 +58,13 @@ let list_filter_i p =
 let subst_command_placeholder s t =
   Str.global_replace (Str.regexp_string "%s") s t
 
-let home = try Sys.getenv "HOME" with Not_found -> "."
+(* On win32, the home directory is probably not in $HOME, but in
+   some other environment variable *)
+
+let home =
+  try Sys.getenv "HOME" with Not_found ->
+    try (Sys.getenv "HOMEDRIVE")^(Sys.getenv "HOMEPATH") with Not_found ->
+      try Sys.getenv "USERPROFILE" with Not_found -> "."
 
 let coqlib = ref ""
 let coqtop_path = ref ""