diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enable path expansion by default

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-04-24 10:03:44 -06:00
parent d5ce9a1376
commit 0ed3ee4fc4
16 changed files with 1551 additions and 1566 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
os/pl-files.c
View File

@@ -543,7 +543,7 @@ get_file_name(term_t n, char **namep, char *tmp, int flags)
{ fid_t fid;
if ( (fid = PL_open_foreign_frame()) )
{ predicate_t pred = PL_predicate("absolute_file_name", 3, "system");
{ predicate_t pred = PL_predicate("absolute_file_name", 3, "prolog");
term_t av = PL_new_term_refs(3);
term_t options = PL_copy_term_ref(av+2);
int rc = TRUE;
@@ -634,12 +634,11 @@ PL_get_file_name(term_t n, char **namep, int flags)
if ( (rc=get_file_name(n, &name, buf, flags)) )
{ if ( (flags & PL_FILE_OSPATH) )
{ if ( !(name = OsPath(name, ospath)) )
{ if ( !(name = OsPath(name, ospath)) )
return FALSE;
}
*namep = buffer_string(name, BUF_RING);
}
return rc;
}