{

int length;

length = wai_getExecutablePath(NULL, 0, &dirname_length);

if (length > 0) {

std::string path(length+1, '\0');

wai_getExecutablePath(&path[0], length, &dirname_length);

executable_path = path;

if (executable_path[executable_path.size()-1] == '\0') {

executable_path = executable_path.substr(0,executable_path.size()-1);

}

} else {

throw LFortranException("Cannot determine executable path.");

}

{

char *env_p = std::getenv("LFORTRAN_RUNTIME_LIBRARY_DIR");

if (env_p) return env_p;

std::string path;

int dirname_length;

get_executable_path(path, dirname_length);

std::string dirname = path.substr(0,dirname_length);

if ( endswith(dirname, "src/bin")

|| endswith(dirname, "src\\bin")

|| endswith(dirname, "SRC\\BIN")) {

// Development version

return dirname + "/../runtime";

} else if (endswith(dirname, "src/lpython/tests") ||

endswith(to_lower(dirname), "src\\lpython\\tests")) {

// CTest Tests

return dirname + "/../../runtime";

} else {

// Installed version

return dirname + "/../share/lpython/lib";

}

{

char *env_p = std::getenv("LFORTRAN_RUNTIME_LIBRARY_HEADER_DIR");

if (env_p) return env_p;

return get_runtime_library_dir() + "/impure";