[INTERPRETER]

* NEW: Relative paths beginning with ".../" always refer to files stored in 
  the main project archive.


git-svn-id: svn://localhost/gambas/trunk@7346 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-09-26 08:43:50 +00:00
parent 0a9262a2d8
commit 647c900268

View file

@ -333,6 +333,13 @@ bool ARCHIVE_find_from_path(ARCHIVE **parch, const char **ppath)
//fprintf(stderr, "ARCHIVE_find_from_path: %s (%s)\n", *ppath, *parch ? (*parch)->name : "NULL");
if (strncmp(*ppath, ".../", 4) == 0)
{
*ppath += 4;
*parch = NULL;
}
else
{
i = 0;
while (strncmp(*ppath, "../", 3) == 0)
{
@ -364,6 +371,7 @@ bool ARCHIVE_find_from_path(ARCHIVE **parch, const char **ppath)
if (i == STACK_frame_count)
*parch = NULL;
}
}
if (*parch == NULL && EXEC_arch)
*parch = ARCHIVE_main;