diff options
author | Ted Yin <[email protected]> | 2015-08-31 12:03:15 +0800 |
---|---|---|
committer | Ted Yin <[email protected]> | 2015-08-31 12:03:15 +0800 |
commit | 447bd1ec6b7be07f22653874fc9db84c9b6a9f9a (patch) | |
tree | 0268d85a8f75783daaa6b182bee1338dcd504f48 /fastnn/threads/lib/init.c | |
parent | cad144243b898a7bed91c18572bf42944e9db3b3 (diff) | |
parent | 3463789202b7ededf5074b199d5122ca85d328ea (diff) |
Merge pull request #4 from uphantom/master
fastnn first version, include follow submodular
Diffstat (limited to 'fastnn/threads/lib/init.c')
-rw-r--r-- | fastnn/threads/lib/init.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/fastnn/threads/lib/init.c b/fastnn/threads/lib/init.c new file mode 100644 index 0000000..4042189 --- /dev/null +++ b/fastnn/threads/lib/init.c @@ -0,0 +1,27 @@ +#include <lua.h> +#include <lauxlib.h> + +#if LUA_VERSION_NUM == 501 +static void luaL_setfuncs(lua_State *L, const luaL_Reg *l, int nup) +{ + luaL_checkstack(L, nup+1, "too many upvalues"); + for (; l->name != NULL; l++) { /* fill the table with given functions */ + int i; + lua_pushstring(L, l->name); + for (i = 0; i < nup; i++) /* copy upvalues to the top */ + lua_pushvalue(L, -(nup+1)); + lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ + lua_settable(L, -(nup + 3)); + } + lua_pop(L, nup); /* remove upvalues */ +} +#endif + +#include "threads.c" + +int luaopen_libthreads(lua_State *L) +{ + lua_newtable(L); + thread_init_pkg(L); + return 1; +} |