MonoDl*
mono_dl_open_runtime_lib (const char* lib_name, int flags, char **error_msg)
{
MonoDl *runtime_lib = NULL;
char buf [4096];
int binl;
binl = readlink ("/proc/self/exe", buf, sizeof (buf)-1);
*error_msg = NULL;
#ifdef __MACH__
if (binl == -1) {
uint32_t bsize = sizeof (buf);
if (_NSGetExecutablePath (buf, &bsize) == 0) {
binl = strlen (buf);
}
}
#endif
if (binl != -1) {
char *base;
char *resolvedname, *name;
buf [binl] = 0;
resolvedname = mono_path_resolve_symlinks (buf);
base = g_path_get_dirname (resolvedname);
name = g_strdup_printf ("%s/.libs", base);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
if (!runtime_lib) {
char *newbase = g_path_get_dirname (base);
name = g_strdup_printf ("%s/lib", newbase);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
}
#ifdef __MACH__
if (!runtime_lib) {
char *newbase = g_path_get_dirname (base);
name = g_strdup_printf ("%s/Libraries", newbase);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
}
#endif
g_free (base);
g_free (resolvedname);
}
if (!runtime_lib)
runtime_lib = try_load (lib_name, NULL, flags, error_msg);
return runtime_lib;
}
MonoDl*
mono_dl_open_runtime_lib (const char* lib_name, int flags, char **error_msg)
{
MonoDl *runtime_lib = NULL;
char buf [4096];
int binl;
*error_msg = NULL;
binl = mono_dl_get_executable_path (buf, sizeof (buf));
if (binl != -1) {
char *base;
char *resolvedname, *name;
char *baseparent = NULL;
buf [binl] = 0;
resolvedname = mono_path_resolve_symlinks (buf);
base = g_path_get_dirname (resolvedname);
name = g_strdup_printf ("%s/.libs", base);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
if (!runtime_lib)
baseparent = g_path_get_dirname (base);
if (!runtime_lib) {
name = g_strdup_printf ("%s/lib", baseparent);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
}
#ifdef __MACH__
if (!runtime_lib) {
name = g_strdup_printf ("%s/Libraries", baseparent);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
}
#endif
if (!runtime_lib) {
name = g_strdup_printf ("%s/profiler/.libs", baseparent);
runtime_lib = try_load (lib_name, name, flags, error_msg);
g_free (name);
}
g_free (base);
g_free (resolvedname);
g_free (baseparent);
}
if (!runtime_lib)
runtime_lib = try_load (lib_name, NULL, flags, error_msg);
return runtime_lib;
}
/* Entry point called by LdrLoadDll of ntdll.dll after _CorValidateImage. */
BOOL STDMETHODCALLTYPE _CorDllMain(HINSTANCE hInst, DWORD dwReason, LPVOID lpReserved)
{
MonoAssembly* assembly;
MonoImage* image;
gchar* file_name;
gchar* error;
switch (dwReason)
{
case DLL_PROCESS_ATTACH:
DisableThreadLibraryCalls (hInst);
file_name = mono_get_module_file_name (hInst);
if (mono_get_root_domain ()) {
image = mono_image_open_from_module_handle (hInst, mono_path_resolve_symlinks (file_name), TRUE, NULL);
} else {
init_from_coree = TRUE;
mono_runtime_load (file_name, NULL);
error = (gchar*) mono_check_corlib_version ();
if (error) {
g_free (error);
g_free (file_name);
mono_runtime_quit ();
return FALSE;
}
image = mono_image_open (file_name, NULL);
if (image) {
image->has_entry_point = TRUE;
mono_close_exe_image ();
/* Decrement reference count to zero. (Image will not be closed.) */
mono_image_close (image);
}
}
if (!image) {
g_free (file_name);
return FALSE;
}
/*
* FIXME: Find a better way to call mono_image_fixup_vtable. Only
* loader trampolines should be used and assembly loading should
* probably be delayed until the first call to an exported function.
*/
if (image->tables [MONO_TABLE_ASSEMBLY].rows && ((MonoCLIImageInfo*) image->image_info)->cli_cli_header.ch_vtable_fixups.rva)
assembly = mono_assembly_open (file_name, NULL);
g_free (file_name);
break;
case DLL_PROCESS_DETACH:
if (lpReserved != NULL)
/* The process is terminating. */
return TRUE;
file_name = mono_get_module_file_name (hInst);
image = mono_image_loaded (file_name);
if (image)
mono_image_close (image);
g_free (file_name);
break;
}
return TRUE;
}