// Check that the given path exists and add it to our package search paths
static bool add_path(const char* path)
{
#ifdef PLATFORM_IS_WINDOWS
// The Windows implementation of stat() cannot cope with trailing a \ on a
// directory name, so we remove it here if present. It is not safe to modify
// the given path since it may come direct from getenv(), so we copy.
char buf[FILENAME_MAX];
strcpy(buf, path);
size_t len = strlen(path);
if(path[len - 1] == '\\')
{
buf[len - 1] = '\0';
path = buf;
}
#endif
struct stat s;
int err = stat(path, &s);
if((err != -1) && S_ISDIR(s.st_mode))
{
path = stringtab(path);
if(strlist_find(search, path) == NULL)
search = strlist_append(search, path);
}
return true;
}
static bool add_safe(const char* path)
{
path = stringtab(path);
if(strlist_find(safe, path) == NULL)
safe = strlist_append(safe, path);
return true;
}
static bool add_safe(const char* path, pass_opt_t* opt)
{
path = stringtab(path);
strlist_t* safe = opt->safe_packages;
if(strlist_find(safe, path) == NULL)
opt->safe_packages = strlist_append(safe, path);
return true;
}
// Create a package AST, set up its state and add it to the given program
ast_t* create_package(ast_t* program, const char* name,
const char* qualified_name, pass_opt_t* opt)
{
ast_t* package = ast_blank(TK_PACKAGE);
uint32_t pkg_id = program_assign_pkg_id(program);
package_t* pkg = POOL_ALLOC(package_t);
pkg->path = name;
pkg->qualified_name = qualified_name;
pkg->id = id_to_string(NULL, pkg_id);
const char* p = strrchr(pkg->path, PATH_SLASH);
if(p == NULL)
p = pkg->path;
else
p = p + 1;
pkg->filename = stringtab(p);
if(pkg_id > 1)
pkg->symbol = create_package_symbol(program, pkg->filename);
else
pkg->symbol = NULL;
pkg->ast = package;
package_set_init(&pkg->dependencies, 1);
pkg->group = NULL;
pkg->group_index = -1;
pkg->next_hygienic_id = 0;
pkg->low_index = -1;
ast_setdata(package, pkg);
ast_scope(package);
ast_append(program, package);
ast_set(program, pkg->path, package, SYM_NONE, false);
ast_set(program, pkg->id, package, SYM_NONE, false);
strlist_t* safe = opt->safe_packages;
if((safe != NULL) && (strlist_find(safe, pkg->path) == NULL))
pkg->allow_ffi = false;
else
pkg->allow_ffi = true;
pkg->on_stack = false;
return package;
}
/// Process a "path:" scheme use command.
bool use_path(ast_t* use, const char* locator, ast_t* name,
pass_opt_t* options)
{
(void)name;
const char* libpath = quoted_locator(options, use, locator);
if(libpath == NULL)
return false;
ast_t* p = ast_nearest(use, TK_PROGRAM);
program_t* prog = (program_t*)ast_data(p);
pony_assert(prog->lib_args == NULL); // Not yet built args
if(strlist_find(prog->libpaths, libpath) != NULL) // Ignore duplicate
return true;
prog->libpaths = strlist_append(prog->libpaths, libpath);
return true;
}
// Create a package AST, set up its state and add it to the given program
static ast_t* create_package(ast_t* program, const char* name)
{
ast_t* package = ast_blank(TK_PACKAGE);
uint32_t pkg_id = program_assign_pkg_id(program);
package_t* pkg = POOL_ALLOC(package_t);
pkg->path = name;
pkg->id = id_to_string(NULL, pkg_id);
const char* p = strrchr(pkg->path, PATH_SLASH);
if(p == NULL)
p = pkg->path;
else
p = p + 1;
pkg->filename = stringtab(p);
if(pkg_id > 1)
pkg->symbol = create_package_symbol(program, pkg->filename);
else
pkg->symbol = NULL;
pkg->next_hygienic_id = 0;
ast_setdata(package, pkg);
ast_scope(package);
ast_append(program, package);
ast_set(program, pkg->path, package, SYM_NONE);
ast_set(program, pkg->id, package, SYM_NONE);
if((safe != NULL) && (strlist_find(safe, pkg->path) == NULL))
pkg->allow_ffi = false;
else
pkg->allow_ffi = true;
return package;
}
static int add_to_cross_filesystem(struct conf **c, const char *path)
{
if(strlist_find(get_strlist(c[OPT_FSCHGDIR]), path, 0))
return 0;
return add_to_strlist(c[OPT_FSCHGDIR], path, 0);
}
