diff options
author | Mike Pall <mike> | 2011-03-01 12:31:16 +0100 |
---|---|---|
committer | Mike Pall <mike> | 2011-03-01 12:31:16 +0100 |
commit | 6c43767c23ee46d28682f120b8e8bc817420fbd8 (patch) | |
tree | ad109af013c515f14b28f06e02bea5588661992f /src/lj_clib.c | |
parent | e1aa8d0d9772aad198483cf9ac2794895ff07558 (diff) | |
download | luajit-6c43767c23ee46d28682f120b8e8bc817420fbd8.tar.gz luajit-6c43767c23ee46d28682f120b8e8bc817420fbd8.tar.bz2 luajit-6c43767c23ee46d28682f120b8e8bc817420fbd8.zip |
FFI: Resolve ld script redirection in ffi.load().
Diffstat (limited to 'src/lj_clib.c')
-rw-r--r-- | src/lj_clib.c | 33 |
1 files changed, 32 insertions, 1 deletions
diff --git a/src/lj_clib.c b/src/lj_clib.c index d7721860..7b9b6c1a 100644 --- a/src/lj_clib.c +++ b/src/lj_clib.c | |||
@@ -22,6 +22,7 @@ | |||
22 | #if LJ_TARGET_DLOPEN | 22 | #if LJ_TARGET_DLOPEN |
23 | 23 | ||
24 | #include <dlfcn.h> | 24 | #include <dlfcn.h> |
25 | #include <stdio.h> | ||
25 | 26 | ||
26 | #if defined(RTLD_DEFAULT) | 27 | #if defined(RTLD_DEFAULT) |
27 | #define CLIB_DEFHANDLE RTLD_DEFAULT | 28 | #define CLIB_DEFHANDLE RTLD_DEFAULT |
@@ -59,11 +60,41 @@ static const char *clib_extname(lua_State *L, const char *name) | |||
59 | return name; | 60 | return name; |
60 | } | 61 | } |
61 | 62 | ||
63 | /* Quick and dirty solution to resolve shared library name from ld script. */ | ||
64 | static const char *clib_resolve_lds(lua_State *L, const char *name) | ||
65 | { | ||
66 | FILE *fp = fopen(name, "r"); | ||
67 | if (fp) { | ||
68 | char *p, *e, buf[256]; | ||
69 | if (fgets(buf, sizeof(buf), fp) && !strncmp(buf, "/* GNU ld script", 16)) { | ||
70 | while (fgets(buf, sizeof(buf), fp)) { | ||
71 | if (!strncmp(buf, "GROUP", 5) && (p = strchr(buf, '('))) { | ||
72 | while (*++p == ' ') ; | ||
73 | for (e = p; *e && *e != ' ' && *e != ')'; e++) ; | ||
74 | fclose(fp); | ||
75 | return strdata(lj_str_new(L, p, e-p)); | ||
76 | } | ||
77 | } | ||
78 | } | ||
79 | fclose(fp); | ||
80 | } | ||
81 | return NULL; | ||
82 | } | ||
83 | |||
62 | static void *clib_loadlib(lua_State *L, const char *name, int global) | 84 | static void *clib_loadlib(lua_State *L, const char *name, int global) |
63 | { | 85 | { |
64 | void *h = dlopen(clib_extname(L, name), | 86 | void *h = dlopen(clib_extname(L, name), |
65 | RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); | 87 | RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); |
66 | if (!h) clib_error_(L); | 88 | if (!h) { |
89 | const char *e, *err = dlerror(); | ||
90 | if (*err == '/' && (e = strchr(err, ':')) && | ||
91 | (name = clib_resolve_lds(L, strdata(lj_str_new(L, err, e-err))))) { | ||
92 | h = dlopen(name, RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL)); | ||
93 | if (h) return h; | ||
94 | err = dlerror(); | ||
95 | } | ||
96 | lj_err_callermsg(L, err); | ||
97 | } | ||
67 | return h; | 98 | return h; |
68 | } | 99 | } |
69 | 100 | ||