Mercurial > pub > dyncall > bindings

comparison lua/luadyncall/src/ldynload.c @ 0:0cfcc391201f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:0cfcc391201f
1 #include "lua.h"
2 #include "lauxlib.h"
3 #include "dynload.h"
4
5 int lua_dlLoadLibrary(lua_State *L)
6 {
7 const char* libpath;
8 if ( lua_isnoneornil(L, 1) )
9 libpath = NULL;
10 else
11 libpath = lua_tostring(L, 1);
12 DLLib* pLib;
13 pLib = dlLoadLibrary(libpath);
14 if (pLib == NULL) return 0;
15 lua_pushlightuserdata(L, pLib);
16 return 1;
17 }
18
19 int lua_dlFreeLibrary(lua_State *L)
20 {
21 DLLib* pLib = (DLLib*) lua_touserdata(L, 1);
22 dlFreeLibrary(pLib);
23 return 0;
24 }
25
26 int lua_dlFindSymbol(lua_State *L)
27 {
28 DLLib* pLib = (void*) lua_touserdata(L, 1);
29 const char* pSymbolName = (const char*) lua_tostring(L, 2);
30 void* addr = dlFindSymbol(pLib, pSymbolName);
31 if (addr == NULL) return 0;
32 lua_pushlightuserdata(L, addr);
33 return 1;
34 }
35
36 static const struct luaL_Reg luareg_dynload[] =
37 {
38 { "dlLoadLibrary", lua_dlLoadLibrary },
39 { "dlFreeLibrary", lua_dlFreeLibrary },
40 { "dlFindSymbol", lua_dlFindSymbol },
41 { NULL, NULL }
42 };
43
44 // LUALIB_API
45 int luaopen_ldynload(lua_State *L)
46 {
47 lua_createtable(L, 0, 0);
48 luaL_register(L, NULL, luareg_dynload);
49 return 1;
50 }
51