From 9ccd1899dba51e24216d0de8865eecf029f44cef Mon Sep 17 00:00:00 2001 From: letouzey Date: Thu, 21 Apr 2011 16:12:34 +0000 Subject: 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 --- ide/minilib.ml | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'ide/minilib.ml') 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 "" -- cgit v1.2.3