fix test cases

This commit is contained in:
Vítor Santos Costa 2014-11-28 03:21:32 +00:00
parent 0cebf08bfe
commit 9f28f7e836
2 changed files with 15 additions and 10 deletions

View File

@ -239,11 +239,9 @@ char *libdir = NULL;
#endif
static Int
initSysPath(Term tlib, Term tcommons) {
initSysPath(Term tlib, Term tcommons, bool dir_done, bool commons_done) {
CACHE_REGS
int len;
int dir_done = FALSE;
int commons_done = FALSE;
#if __WINDOWS__
{
@ -254,12 +252,14 @@ initSysPath(Term tlib, Term tcommons) {
MkAtomTerm(Yap_LookupAtom(dir))) )
return FALSE;
}
dir_done = true;
if ((dir = Yap_RegistryGetString("prolog_commons")) &&
is_directory(dir)) {
if (! Yap_unify( tcommons,
MkAtomTerm(Yap_LookupAtom(dir))) )
return FALSE;
}
commons_done = true;
}
if (dir_done && commons_done)
return TRUE;
@ -275,6 +275,8 @@ initSysPath(Term tlib, Term tcommons) {
MkAtomTerm(Yap_LookupAtom(LOCAL_FileNameBuf))) )
return FALSE;
}
dir_done = true;
}
if (!commons_done) {
LOCAL_FileNameBuf[len] = '\0';
@ -284,6 +286,7 @@ initSysPath(Term tlib, Term tcommons) {
MkAtomTerm(Yap_LookupAtom(LOCAL_FileNameBuf))) )
return FALSE;
}
commons_done = true;
}
if (dir_done && commons_done)
return TRUE;
@ -334,6 +337,7 @@ initSysPath(Term tlib, Term tcommons) {
MkAtomTerm(Yap_LookupAtom(LOCAL_FileNameBuf))) )
return FALSE;
}
dir_done = true;
LOCAL_FileNameBuf[len] = '\0';
strncat(LOCAL_FileNameBuf, "PrologCommons", YAP_FILENAME_MAX);
if (!commons_done && is_directory(LOCAL_FileNameBuf)) {
@ -341,6 +345,7 @@ initSysPath(Term tlib, Term tcommons) {
MkAtomTerm(Yap_LookupAtom(LOCAL_FileNameBuf))) )
return FALSE;
}
commons_done = true;
#endif
return dir_done && commons_done;
}
@ -349,20 +354,20 @@ initSysPath(Term tlib, Term tcommons) {
static Int
p_libraries_path( USES_REGS1 )
{
return initSysPath( ARG1, ARG2 );
return initSysPath( ARG1, ARG2 , false, false );
}
static Int
p_library_dir( USES_REGS1 )
{
return initSysPath( ARG1, MkVarTerm() );
return initSysPath( ARG1, MkVarTerm(), false, true );
}
static Int
p_commons_dir( USES_REGS1 )
{
return initSysPath( ARG2, MkVarTerm() );
return initSysPath( MkVarTerm(), ARG1, true, false );
}
static Int
@ -3076,9 +3081,9 @@ Yap_InitSysPreds(void)
Yap_InitCPred ("$yap_home", 1, p_yap_home, SafePredFlag);
Yap_InitCPred ("$yap_paths", 3, p_yap_paths, SafePredFlag);
Yap_InitCPred ("$dir_separator", 1, p_dir_sp, SafePredFlag);
Yap_InitCPred ("libraries_directory", 2, p_libraries_path, SafePredFlag);
Yap_InitCPred ("system_library", 1, p_library_dir, SafePredFlag);
Yap_InitCPred ("commons_library", 1, p_commons_dir, SafePredFlag);
Yap_InitCPred ("libraries_directory", 2, p_libraries_path, 0);
Yap_InitCPred ("system_library", 1, p_library_dir, 0);
Yap_InitCPred ("commons_library", 1, p_commons_dir, 0);
Yap_InitCPred ("$alarm", 4, p_alarm, SafePredFlag|SyncPredFlag);
Yap_InitCPred ("$getenv", 2, p_getenv, SafePredFlag);
Yap_InitCPred ("$putenv", 2, p_putenv, SafePredFlag|SyncPredFlag);

@ -1 +1 @@
Subproject commit 5bc6129658062b6938a9fa63bd11976a1bf0b707
Subproject commit dc25a433df1f77e6271179664080d338e10c9d6b