mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

In addition to HOME, ECL now recognizes the environment variables HOMEDRIVE and HOMEPATH

Browse source
This commit is contained in:
jjgarcia 2008-08-25 14:00:36 +00:00
parent dd16065d92
commit 2b08e138cf
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -30,6 +30,9 @@ ECL 0.9l-p1:
for i from 0
do (format t "~&~@<;;; ~@;Message #~D~%~A~:>" i m)))
- In windows, ECL recognizes the environment variables HOMEDRIVE and HOMEPATH
and uses them to construct the output of user-homedir-pathname.
* Bugs fixed:
- The optimizer for COERCE might enter an infinite loop for certain

19
src/c/unixfsys.d
View file

@ -483,12 +483,8 @@ ecl_homedir_pathname(cl_object user)
{
cl_index i;
cl_object namestring;
if (Null(user)) {
char *h = getenv("HOME");
namestring = (h == NULL)? make_constant_base_string("/")
: make_base_string_copy(h);
} else {
const char *h, *d;
If (!Null(user)) {
#ifdef HAVE_PWD_H
struct passwd *pwent = NULL;
#endif
@ -511,6 +507,17 @@ ecl_homedir_pathname(cl_object user)
namestring = make_base_string_copy(pwent->pw_dir);
#endif
FEerror("Unknown user ~S.", 1, p);
} else if ((h = getenv("HOME"))) {
namestring = make_base_string_copy(h);
#ifdef _MSC_VER
} else if ((h = getenv("HOMEPATH")) && (d = getenv("HOMEDRIVE"))) {
namestring =
si_base_string_concatenate(2,
make_constant_base_string(h),
make_constant_base_string(d));
#endif
} else {
namestring = make_constant_base_string("/");
}
if (namestring->base_string.self[0] == '~') {
FEerror("Not a valid home pathname ~S", 1, namestring);