1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
/**
* \file
* Interface to the dynamic linker
*
* Author:
* Mono Team (http://www.mono-project.com)
*
* Copyright 2001-2004 Ximian, Inc.
* Copyright 2004-2009 Novell, Inc.
* Licensed under the MIT license. See LICENSE file in the project root for full license information.
*/
#include <config.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#if defined(_POSIX_VERSION) && !defined (HOST_WASM)
#include "mono/utils/mono-dl.h"
#include "mono/utils/mono-embed.h"
#include "mono/utils/mono-path.h"
#include <stdlib.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <glib.h>
#include <dlfcn.h>
#if !defined (TARGET_MACH)
const char *
mono_dl_get_so_prefix (void)
{
return "lib";
}
const char **
mono_dl_get_so_suffixes (void)
{
static const char *suffixes[] = {
".so",
#if defined (_AIX)
/*
* libtool generating sysv style names (.so) still results in an .a archive,
* (AIX prefers to put shared objects inside the same ar archive used for
* static members, likely as a fat library system) so try common member names
* when no suffix is given. The same path with member names can be tried, then
* .a and .so extensions with member names. (The suffixless member names are
* for when .so names are specified, but the archive is a member - the runtime
* should just keep trying with one of these suffixes then.)
*
* Unfortunately, this strategy won't work for "aix" style libtool sonames -
* it tries something awful like like "libfoo.a(libfoo.so.9)" which requires
* you to hardcode a version in the member name.
*/
"(shr.o)",
"(shr_64.o)",
".a(shr.o)",
".a(shr_64.o)",
".so(shr.o)",
".so(shr_64.o)",
#endif
"",
};
return suffixes;
}
int
mono_dl_get_executable_path (char *buf, int buflen)
{
#if defined(HAVE_READLINK)
return readlink ("/proc/self/exe", buf, buflen - 1);
#else
return -1;
#endif
}
const char*
mono_dl_get_system_dir (void)
{
return NULL;
}
#endif
void *
mono_dl_open_file (const char *file, int flags)
{
#ifdef HOST_ANDROID
/* Bionic doesn't support NULL filenames */
if (!file)
return NULL;
/* The intention of calling `g_file_test (file, G_FILE_TEST_EXISTS)` is
* to speed up probing for non-existent libraries. The problem is that
* if file is just a simple "libdl.so" then `dlopen (file)` doesn't just
* look for it in the current working directory, it will probe some
* other paths too. (For example on desktop linux you'd also look in
* all the directories in LD_LIBRARY_PATH). So the g_file_test() call
* is not a robust way to avoid calling dlopen if the filename is
* relative.
*/
if (g_path_is_absolute (file) && !g_file_test (file, G_FILE_TEST_EXISTS))
return NULL;
#endif
#if defined(_AIX)
/*
* dlopen is /weird/ on AIX
* shared libraries (really, all oobjects are, since PPC is PIC)
* can cohabitate with not just SOs of the other arch, but also
* with regular objects in an archive used for static linking
*
* we have to pass RTLD_MEMBER, otherwise lib.a(lib.o) doesn't work
*/
return dlopen (file, flags | RTLD_MEMBER);
#else
return dlopen (file, flags);
#endif
}
void
mono_dl_close_handle (MonoDl *module)
{
dlclose (module->handle);
}
void*
mono_dl_lookup_symbol (MonoDl *module, const char *name)
{
return dlsym (module->handle, name);
}
int
mono_dl_convert_flags (int mono_flags, int native_flags)
{
int lflags = native_flags;
#ifdef ENABLE_NETCORE
// Specifying both will default to LOCAL
if (mono_flags & MONO_DL_GLOBAL && !(mono_flags & MONO_DL_LOCAL))
lflags |= RTLD_GLOBAL;
else
lflags |= RTLD_LOCAL;
#else
lflags = mono_flags & MONO_DL_LOCAL ? RTLD_LOCAL : RTLD_GLOBAL;
#endif
if (mono_flags & MONO_DL_LAZY)
lflags |= RTLD_LAZY;
else
lflags |= RTLD_NOW;
return lflags;
}
char*
mono_dl_current_error_string (void)
{
return g_strdup (dlerror ());
}
#else
#include <mono/utils/mono-compiler.h>
MONO_EMPTY_SOURCE_FILE (mono_dl_posix);
#endif
|
