nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

'loadlib(lib, "*")' loads 'lib' with global names exported to all

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2009-03-26 19:25:05 -03:00
parent b1e1c15ced
commit 7e9bc41fe7
1 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
loadlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: loadlib.c,v 1.60 2008/08/05 19:25:42 roberto Exp roberto $ ** $Id: loadlib.c,v 1.61 2008/08/06 13:38:32 roberto Exp roberto $
** Dynamic library loader for Lua ** Dynamic library loader for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
** **
@@ -43,7 +43,7 @@
static void ll_unloadlib (void *lib); static void ll_unloadlib (void *lib);
static void *ll_load (lua_State *L, const char *path); static void *ll_load (lua_State *L, const char *path, int seeglb);
static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym); static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym);
@@ -65,8 +65,8 @@ static void ll_unloadlib (void *lib) {
} }
static void *ll_load (lua_State *L, const char *path) { static void *ll_load (lua_State *L, const char *path, int seeglb) {
void *lib = dlopen(path, RTLD_NOW); void *lib = dlopen(path, RTLD_NOW | (seeglb ? RTLD_GLOBAL : 0));
if (lib == NULL) lua_pushstring(L, dlerror()); if (lib == NULL) lua_pushstring(L, dlerror());
return lib; return lib;
} }
@@ -122,8 +122,9 @@ static void ll_unloadlib (void *lib) {
} }
static void *ll_load (lua_State *L, const char *path) { static void *ll_load (lua_State *L, const char *path, int seeglb) {
HINSTANCE lib = LoadLibrary(path); HINSTANCE lib = LoadLibrary(path);
UNUSED(seeglb); /* symbols are 'global' by default? */
if (lib == NULL) pusherror(L); if (lib == NULL) pusherror(L);
return lib; return lib;
} }
@@ -186,7 +187,7 @@ static void ll_unloadlib (void *lib) {
} }
static void *ll_load (lua_State *L, const char *path) { static void *ll_load (lua_State *L, const char *path, int seeglb) {
NSObjectFileImage img; NSObjectFileImage img;
NSObjectFileImageReturnCode ret; NSObjectFileImageReturnCode ret;
/* this would be a rare case, but prevents crashing if it happens */ /* this would be a rare case, but prevents crashing if it happens */
@@ -196,8 +197,10 @@ static void *ll_load (lua_State *L, const char *path) {
} }
ret = NSCreateObjectFileImageFromFile(path, &img); ret = NSCreateObjectFileImageFromFile(path, &img);
if (ret == NSObjectFileImageSuccess) { if (ret == NSObjectFileImageSuccess) {
NSModule mod = NSLinkModule(img, path, NSLINKMODULE_OPTION_PRIVATE | NSModule mod = NSLinkModule(img,
NSLINKMODULE_OPTION_RETURN_ON_ERROR); path,
NSLINKMODULE_OPTION_RETURN_ON_ERROR |
(seeglb ? 0 : NSLINKMODULE_OPTION_PRIVATE));
NSDestroyObjectFileImage(img); NSDestroyObjectFileImage(img);
if (mod == NULL) pusherror(L); if (mod == NULL) pusherror(L);
return mod; return mod;
@@ -235,19 +238,19 @@ static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) {
static void ll_unloadlib (void *lib) { static void ll_unloadlib (void *lib) {
(void)lib; /* to avoid warnings */ UNUSED(lib); /* to avoid warnings */
} }
static void *ll_load (lua_State *L, const char *path) { static void *ll_load (lua_State *L, const char *path, int seeglb) {
(void)path; /* to avoid warnings */ UNUSED(path); /* to avoid warnings */
lua_pushliteral(L, DLMSG); lua_pushliteral(L, DLMSG);
return NULL; return NULL;
} }
static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) {
(void)lib; (void)sym; /* to avoid warnings */ UNUSED(lib); UNUSED(sym); /* to avoid warnings */
lua_pushliteral(L, DLMSG); lua_pushliteral(L, DLMSG);
return NULL; return NULL;
} }
@@ -291,9 +294,13 @@ static int gctm (lua_State *L) {
static int ll_loadfunc (lua_State *L, const char *path, const char *sym) { static int ll_loadfunc (lua_State *L, const char *path, const char *sym) {
void **reg = ll_register(L, path); void **reg = ll_register(L, path);
if (*reg == NULL) *reg = ll_load(L, path); if (*reg == NULL) *reg = ll_load(L, path, *sym == '*');
if (*reg == NULL) if (*reg == NULL)
return ERRLIB; /* unable to load library */ return ERRLIB; /* unable to load library */
else if (*sym == '*') { /* loading only library (no function)? */
lua_pushboolean(L, 1); /* return 'true' */
return 0;
}
else { else {
lua_CFunction f = ll_sym(L, *reg, sym); lua_CFunction f = ll_sym(L, *reg, sym);
if (f == NULL) if (f == NULL)