common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

add warning when ROSWELL_HOME is not absolute

Browse source
This commit is contained in:
Masataro Asai 2021-11-10 22:01:11 -05:00
parent fe4c321b6c
commit 293b545398
1 changed files with 22 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/util-dir.c
View file

@ -77,11 +77,29 @@ char* currentdir(void);
#endif
char* configdir(void) {
char *c=upcase(q_(PACKAGE"_HOME"));
char *c=upcase(q_(PACKAGE"_HOME")); /* e.g. ROSWELL_HOME */
char *env=getenv(c);
s(c);
return env?append_trail_slash(q(env)):
((c=homedir())?s_cat2(append_trail_slash(c),q("."PACKAGE SLASH)):NULL);
if (env) /* note: env can be a NULL */
{
if (env[0] != SLASH[0])
{
cond_printf(0,"Error: %s must be absolute. Got: %s \n",c,env);
}
s(c); /* note : this deallocates c. */
return append_trail_slash(q(env));
}
{
s(c); /* note : this deallocates c. */
c = homedir();
if (c) /* c is not null */
{
return s_cat2(append_trail_slash(c),q("."PACKAGE SLASH));
}
{
return NULL;
}
}
}
char* subcmddir(void) {