bool codegen_merge_runtime_bitcode(compile_t* c)
{
strlist_t* search = package_paths();
char path[FILENAME_MAX];
LLVMModuleRef runtime = NULL;
for(strlist_t* p = search; p != NULL && runtime == NULL; p = strlist_next(p))
{
path_cat(strlist_data(p), "libponyrt.bc", path);
runtime = LLVMParseIRFileInContext(c->context, path);
}
errors_t* errors = c->opt->check.errors;
if(runtime == NULL)
{
errorf(errors, NULL, "couldn't find libponyrt.bc");
return false;
}
if(c->opt->verbosity >= VERBOSITY_MINIMAL)
fprintf(stderr, "Merging runtime\n");
#if PONY_LLVM >= 308
// runtime is freed by the function.
if(LLVMLinkModules2(c->module, runtime))
{
errorf(errors, NULL, "libponyrt.bc contains errors");
return false;
}
#else
if(LLVMLinkModules(c->module, runtime, LLVMLinkerDestroySource /* unused */,
NULL))
{
errorf(errors, NULL, "libponyrt.bc contains errors");
LLVMDisposeModule(runtime);
return false;
}
#endif
return true;
}
// Attempt to find the specified package directory in our search path
// @return The resulting directory path, which should not be deleted and is
// valid indefinitely. NULL is directory cannot be found.
static const char* find_path(ast_t* from, const char* path)
{
// First check for an absolute path
if(is_path_absolute(path))
return try_path(NULL, path);
const char* result;
if((from == NULL) || (ast_id(from) == TK_PROGRAM))
{
// Try a path relative to the current working directory
result = try_path(NULL, path);
if(result != NULL)
return result;
}
else
{
// Try a path relative to the importing package
from = ast_nearest(from, TK_PACKAGE);
package_t* pkg = (package_t*)ast_data(from);
result = try_path(pkg->path, path);
if(result != NULL)
return result;
}
// Try the search paths
for(strlist_t* p = search; p != NULL; p = strlist_next(p))
{
result = try_path(strlist_data(p), path);
if(result != NULL)
return result;
}
errorf(path, "couldn't locate this path");
return NULL;
}
void program_lib_build_args(ast_t* program, const char* path_preamble,
const char* global_preamble, const char* global_postamble,
const char* lib_premable, const char* lib_postamble)
{
assert(program != NULL);
assert(ast_id(program) == TK_PROGRAM);
assert(global_preamble != NULL);
assert(global_postamble != NULL);
assert(lib_premable != NULL);
assert(lib_postamble != NULL);
program_t* data = (program_t*)ast_data(program);
assert(data != NULL);
assert(data->lib_args == NULL); // Not yet built args
// Start with an arbitrary amount of space
data->lib_args_alloced = 256;
data->lib_args = (char*)malloc(data->lib_args_alloced);
data->lib_args[0] = '\0';
data->lib_args_size = 0;
// Library paths defined in the source code.
for(strlist_t* p = data->libpaths; p != NULL; p = strlist_next(p))
{
const char* libpath = strlist_data(p);
append_to_args(data, path_preamble);
append_to_args(data, libpath);
append_to_args(data, " ");
}
// Library paths from the command line and environment variable.
for(strlist_t* p = package_paths(); p != NULL; p = strlist_next(p))
{
const char* libpath = quoted_locator(NULL, strlist_data(p));
if(libpath == NULL)
continue;
append_to_args(data, path_preamble);
append_to_args(data, libpath);
append_to_args(data, " ");
}
// Library names.
append_to_args(data, global_preamble);
for(strlist_t* p = data->libs; p != NULL; p = strlist_next(p))
{
const char* lib = strlist_data(p);
bool amble = !is_path_absolute(lib);
if(amble)
append_to_args(data, lib_premable);
append_to_args(data, lib);
if(amble)
append_to_args(data, lib_postamble);
append_to_args(data, " ");
}
append_to_args(data, global_postamble);
}
// Attempt to find the specified package directory in our search path
// @return The resulting directory path, which should not be deleted and is
// valid indefinitely. NULL is directory cannot be found.
static const char* find_path(ast_t* from, const char* path,
bool* out_is_relative)
{
if(out_is_relative != NULL)
*out_is_relative = false;
// First check for an absolute path
if(is_path_absolute(path))
return try_path(NULL, path);
// Get the base directory
const char* base;
if((from == NULL) || (ast_id(from) == TK_PROGRAM))
{
base = NULL;
} else {
from = ast_nearest(from, TK_PACKAGE);
package_t* pkg = (package_t*)ast_data(from);
base = pkg->path;
}
// Try a path relative to the base
const char* result = try_path(base, path);
if(result != NULL)
{
if(out_is_relative != NULL)
*out_is_relative = true;
return result;
}
// If it's a relative path, don't try elsewhere
if(!is_path_relative(path))
{
// Check ../pony_packages and further up the tree
if(base != NULL)
{
result = try_package_path(base, path);
if(result != NULL)
return result;
// Check ../pony_packages from the compiler target
if((from != NULL) && (ast_id(from) == TK_PACKAGE))
{
ast_t* target = ast_child(ast_parent(from));
package_t* pkg = (package_t*)ast_data(target);
base = pkg->path;
result = try_package_path(base, path);
if(result != NULL)
return result;
}
}
// Try the search paths
for(strlist_t* p = search; p != NULL; p = strlist_next(p))
{
result = try_path(strlist_data(p), path);
if(result != NULL)
return result;
}
}
errorf(path, "couldn't locate this path");
return NULL;
}
