From 7bb75c03f72a307c1cff91d4c89fdbb34a4d9455 Mon Sep 17 00:00:00 2001 From: Natanael Copa Date: Fri, 30 Aug 2013 13:55:38 +0000 Subject: testing/lua5.2-llthreads: new aport Low-Level native threads module for Lua https://github.com/Neopallium/lua-llthreads --- testing/lua5.2-llthreads/APKBUILD | 57 +++ testing/lua5.2-llthreads/bindings-1.patch | 650 ++++++++++++++++++++++++++++++ testing/lua5.2-llthreads/bindings-2.patch | 109 +++++ testing/lua5.2-llthreads/lua-5.2.patch | 336 +++++++++++++++ 4 files changed, 1152 insertions(+) create mode 100644 testing/lua5.2-llthreads/APKBUILD create mode 100644 testing/lua5.2-llthreads/bindings-1.patch create mode 100644 testing/lua5.2-llthreads/bindings-2.patch create mode 100644 testing/lua5.2-llthreads/lua-5.2.patch (limited to 'testing') diff --git a/testing/lua5.2-llthreads/APKBUILD b/testing/lua5.2-llthreads/APKBUILD new file mode 100644 index 0000000000..b201e35ed3 --- /dev/null +++ b/testing/lua5.2-llthreads/APKBUILD @@ -0,0 +1,57 @@ +# Contributor: Natanael Copa +# Maintainer: Natanael Copa +pkgname=lua5.2-llthreads +pkgver=1.2 +pkgrel=0 +pkgdesc="Low-Level native threads module for Lua" +url="https://github.com/Neopallium/lua-llthreads" +arch="all" +license="MIT" +depends="" +makedepends="cmake lua5.2-dev" +install="" +subpackages= +source="lua-llthreads-$pkgver.tar.gz::https://github.com/Neopallium/lua-llthreads/archive/v$pkgver.tar.gz + bindings-1.patch + bindings-2.patch + lua-5.2.patch" + +_builddir="$srcdir"/lua-llthreads-$pkgver + +prepare() { + local i + cd "$_builddir" + for i in $source; do + case $i in + *.patch) msg $i; patch -p1 -i "$srcdir"/$i || return 1;; + esac + done +} + +build() { + cd "$_builddir" + _luaver=$(lua -e 'print((_VERSION:match("^Lua (%d+%.%d+)")))') + cmake \ + -DCMAKE_INSTALL_PREFIX=/usr \ + -DINSTALL_CMOD=/usr/lib/lua/$_luaver \ + . || return 1 + make || return 1 +} + +package() { + cd "$_builddir" + make install DESTDIR="$pkgdir" || return 1 +} + +md5sums="d4adb2e6d4859bf33ebdb3bd6b6c6bb5 lua-llthreads-1.2.tar.gz +399fa42d7dfa7ec2335bd7111b17935e bindings-1.patch +f892e9cb699eef2d5df406063a26d044 bindings-2.patch +5f4a0b8c23968a521072c96c42435475 lua-5.2.patch" +sha256sums="32df7dc903760825536def63fba834466c42e6bd17022d430893c9a6ca3ba8f2 lua-llthreads-1.2.tar.gz +20c2cc64f09dd601fb85d867e7e57b8849a66d9b1992c647282a84af92127902 bindings-1.patch +3bb62563bdd5e4b5261612b5d0498bed4b327f02c7b5ff4a85329b9bc7867b3c bindings-2.patch +5c7f28e7a3ef4e8d1ac6f0ef5cf5680ba58d0aa76e77260d6fe1c4ed74c4b586 lua-5.2.patch" +sha512sums="d8b006e7f135e9c45d88c93d6acf30d41024bee66bd0747ba8112e28c2fe03fbd8f869d6235261108f3df30a08f3a812595a763c82a57674b5ec54a8ca915fa7 lua-llthreads-1.2.tar.gz +eace4eb6226527697aa82b5e455b7ece3d651966f3525471f07476d84714550bb4f75447be34569d57f2ed52bbfd708458305b527621179cfa2f843ae684d931 bindings-1.patch +fd5be1ec7293c0e279877ee139de53c1772c28957c30e276f5fe8e05314c31e81ae6ea18553fe67d912b3f9902b48cd88b962480f5855037783477bbb633e019 bindings-2.patch +234e0afe81bbd2a40689a858febec8778962273553da6d7b876871bd996ed0ad28ca33a15b7e155c313b63f10b0f8bab3ee0a83c0cd14d3378884d0031df720d lua-5.2.patch" diff --git a/testing/lua5.2-llthreads/bindings-1.patch b/testing/lua5.2-llthreads/bindings-1.patch new file mode 100644 index 0000000000..72c116f4fa --- /dev/null +++ b/testing/lua5.2-llthreads/bindings-1.patch @@ -0,0 +1,650 @@ +From dee5a6fabc51c22607fefb5f7a9dd8fe32d098aa Mon Sep 17 00:00:00 2001 +From: "Robert G. Jakabosky" +Date: Mon, 13 Feb 2012 01:47:15 -0800 +Subject: [PATCH] Update pre-generated bindings. + +--- + src/pre_generated-llthreads.nobj.c | 378 +++++++++++++++++++++++++++++-------- + 1 file changed, 302 insertions(+), 76 deletions(-) + +diff --git a/src/pre_generated-llthreads.nobj.c b/src/pre_generated-llthreads.nobj.c +index 6f53fe5..a7ce73a 100644 +--- a/src/pre_generated-llthreads.nobj.c ++++ b/src/pre_generated-llthreads.nobj.c +@@ -10,13 +10,14 @@ + #include "lauxlib.h" + #include "lualib.h" + +- +- + #define REG_PACKAGE_IS_CONSTRUCTOR 0 ++#define REG_MODULES_AS_GLOBALS 0 + #define REG_OBJECTS_AS_GLOBALS 0 + #define OBJ_DATA_HIDDEN_METATABLE 1 +-#define LUAJIT_FFI 0 + #define USE_FIELD_GET_SET_METHODS 0 ++#define LUAJIT_FFI 0 ++ ++ + + + +@@ -95,19 +96,26 @@ + #define assert_obj_type(type, obj) + #endif + +-#ifndef obj_type_free ++void *nobj_realloc(void *ptr, size_t osize, size_t nsize); ++ ++void *nobj_realloc(void *ptr, size_t osize, size_t nsize) { ++ (void)osize; ++ if(0 == nsize) { ++ free(ptr); ++ return NULL; ++ } ++ return realloc(ptr, nsize); ++} ++ + #define obj_type_free(type, obj) do { \ + assert_obj_type(type, obj); \ +- free((obj)); \ ++ nobj_realloc((obj), sizeof(type), 0); \ + } while(0) +-#endif + +-#ifndef obj_type_new + #define obj_type_new(type, obj) do { \ + assert_obj_type(type, obj); \ +- (obj) = malloc(sizeof(type)); \ ++ (obj) = nobj_realloc(NULL, 0, sizeof(type)); \ + } while(0) +-#endif + + typedef struct obj_type obj_type; + +@@ -165,15 +173,22 @@ struct obj_type { + uint32_t flags; /**< is_writable:1bit */ + } obj_field; + ++typedef enum { ++ REG_OBJECT, ++ REG_PACKAGE, ++ REG_META, ++} module_reg_type; ++ + typedef struct reg_sub_module { + obj_type *type; +- int is_package; ++ module_reg_type req_type; + const luaL_reg *pub_funcs; + const luaL_reg *methods; + const luaL_reg *metas; + const obj_base *bases; + const obj_field *fields; + const obj_const *constants; ++ int bidirectional_consts; + } reg_sub_module; + + #define OBJ_UDATA_FLAG_OWN (1<<0) +@@ -185,18 +200,26 @@ struct obj_type { + } obj_udata; + + /* use static pointer as key to weak userdata table. */ +-static char *obj_udata_weak_ref_key = "obj_udata_weak_ref_key"; ++static char obj_udata_weak_ref_key[] = "obj_udata_weak_ref_key"; ++ ++/* use static pointer as key to module's private table. */ ++static char obj_udata_private_key[] = "obj_udata_private_key"; + + #if LUAJIT_FFI ++typedef int (*ffi_export_func_t)(void); + typedef struct ffi_export_symbol { + const char *name; +- void *sym; ++ union { ++ void *data; ++ ffi_export_func_t func; ++ } sym; + } ffi_export_symbol; + #endif + + + + ++ + static obj_type obj_types[] = { + #define obj_type_id_Lua_LLThread 0 + #define obj_type_Lua_LLThread (obj_types[obj_type_id_Lua_LLThread]) +@@ -205,10 +228,101 @@ struct obj_type { + }; + + ++#if LUAJIT_FFI ++ ++/* nobj_ffi_support_enabled_hint should be set to 1 when FFI support is enabled in at-least one ++ * instance of a LuaJIT state. It should never be set back to 0. */ ++static int nobj_ffi_support_enabled_hint = 0; ++static const char nobj_ffi_support_key[] = "LuaNativeObject_FFI_SUPPORT"; ++static const char nobj_check_ffi_support_code[] = ++"local stat, ffi=pcall(require,\"ffi\")\n" /* try loading LuaJIT`s FFI module. */ ++"if not stat then return false end\n" ++"return true\n"; ++ ++static int nobj_check_ffi_support(lua_State *L) { ++ int rc; ++ int err; ++ ++ /* check if ffi test has already been done. */ ++ lua_pushstring(L, nobj_ffi_support_key); ++ lua_rawget(L, LUA_REGISTRYINDEX); ++ if(!lua_isnil(L, -1)) { ++ rc = lua_toboolean(L, -1); ++ lua_pop(L, 1); ++ return rc; /* return results of previous check. */ ++ } ++ lua_pop(L, 1); /* pop nil. */ ++ ++ err = luaL_loadbuffer(L, nobj_check_ffi_support_code, ++ sizeof(nobj_check_ffi_support_code) - 1, nobj_ffi_support_key); ++ if(0 == err) { ++ err = lua_pcall(L, 0, 1, 0); ++ } ++ if(err) { ++ const char *msg = ""; ++ if(lua_isstring(L, -1)) { ++ msg = lua_tostring(L, -1); ++ } ++ printf("Error when checking for FFI-support: %s\n", msg); ++ lua_pop(L, 1); /* pop error message. */ ++ return 0; ++ } ++ /* check results of test. */ ++ rc = lua_toboolean(L, -1); ++ lua_pop(L, 1); /* pop results. */ ++ /* cache results. */ ++ lua_pushstring(L, nobj_ffi_support_key); ++ lua_pushboolean(L, rc); ++ lua_rawset(L, LUA_REGISTRYINDEX); ++ ++ /* turn-on hint that there is FFI code enabled. */ ++ if(rc) { ++ nobj_ffi_support_enabled_hint = 1; ++ } ++ ++ return rc; ++} ++ ++static int nobj_try_loading_ffi(lua_State *L, const char *ffi_mod_name, ++ const char *ffi_init_code, const ffi_export_symbol *ffi_exports, int priv_table) ++{ ++ int err; ++ ++ /* export symbols to priv_table. */ ++ while(ffi_exports->name != NULL) { ++ lua_pushstring(L, ffi_exports->name); ++ lua_pushlightuserdata(L, ffi_exports->sym.data); ++ lua_settable(L, priv_table); ++ ffi_exports++; ++ } ++ err = luaL_loadbuffer(L, ffi_init_code, strlen(ffi_init_code), ffi_mod_name); ++ if(0 == err) { ++ lua_pushvalue(L, -2); /* dup C module's table. */ ++ lua_pushvalue(L, priv_table); /* move priv_table to top of stack. */ ++ lua_remove(L, priv_table); ++ lua_pushvalue(L, LUA_REGISTRYINDEX); ++ err = lua_pcall(L, 3, 0, 0); ++ } ++ if(err) { ++ const char *msg = ""; ++ if(lua_isstring(L, -1)) { ++ msg = lua_tostring(L, -1); ++ } ++ printf("Failed to install FFI-based bindings: %s\n", msg); ++ lua_pop(L, 1); /* pop error message. */ ++ } ++ return err; ++} ++#endif ++ + #ifndef REG_PACKAGE_IS_CONSTRUCTOR + #define REG_PACKAGE_IS_CONSTRUCTOR 1 + #endif + ++#ifndef REG_MODULES_AS_GLOBALS ++#define REG_MODULES_AS_GLOBALS 0 ++#endif ++ + #ifndef REG_OBJECTS_AS_GLOBALS + #define REG_OBJECTS_AS_GLOBALS 0 + #endif +@@ -296,6 +410,25 @@ static FUNC_UNUSED obj_udata *obj_udata_luacheck_internal(lua_State *L, int _ind + return ud; + } + } ++ } else { ++ /* handle cdata. */ ++ /* get private table. */ ++ lua_pushlightuserdata(L, obj_udata_private_key); ++ lua_rawget(L, LUA_REGISTRYINDEX); /* private table. */ ++ /* get cdata type check function from private table. */ ++ lua_pushlightuserdata(L, type); ++ lua_rawget(L, -2); ++ ++ /* pass cdata value to type checking function. */ ++ lua_pushvalue(L, _index); ++ lua_call(L, 1, 1); ++ if(!lua_isnil(L, -1)) { ++ /* valid type get pointer from cdata. */ ++ lua_pop(L, 2); ++ *obj = *(void **)lua_topointer(L, _index); ++ return ud; ++ } ++ lua_pop(L, 2); + } + if(not_delete) { + luaL_typerror(L, _index, type->name); /* is not a userdata value. */ +@@ -309,6 +442,15 @@ static FUNC_UNUSED void *obj_udata_luacheck(lua_State *L, int _index, obj_type * + return obj; + } + ++static FUNC_UNUSED void *obj_udata_luaoptional(lua_State *L, int _index, obj_type *type) { ++ void *obj = NULL; ++ if(lua_isnil(L, _index)) { ++ return obj; ++ } ++ obj_udata_luacheck_internal(L, _index, &(obj), type, 1); ++ return obj; ++} ++ + static FUNC_UNUSED void *obj_udata_luadelete(lua_State *L, int _index, obj_type *type, int *flags) { + void *obj; + obj_udata *ud = obj_udata_luacheck_internal(L, _index, &(obj), type, 0); +@@ -327,6 +469,17 @@ static FUNC_UNUSED void obj_udata_luapush(lua_State *L, void *obj, obj_type *typ + lua_pushnil(L); + return; + } ++#if LUAJIT_FFI ++ lua_pushlightuserdata(L, type); ++ lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ ++ if(nobj_ffi_support_enabled_hint && lua_isfunction(L, -1)) { ++ /* call special FFI "void *" to FFI object convertion function. */ ++ lua_pushlightuserdata(L, obj); ++ lua_pushinteger(L, flags); ++ lua_call(L, 2, 1); ++ return; ++ } ++#endif + /* check for type caster. */ + if(type->dcaster) { + (type->dcaster)(&obj, &type); +@@ -336,8 +489,12 @@ static FUNC_UNUSED void obj_udata_luapush(lua_State *L, void *obj, obj_type *typ + ud->obj = obj; + ud->flags = flags; + /* get obj_type metatable. */ ++#if LUAJIT_FFI ++ lua_insert(L, -2); /* move userdata below metatable. */ ++#else + lua_pushlightuserdata(L, type); + lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ ++#endif + lua_setmetatable(L, -2); + } + +@@ -383,6 +540,18 @@ static FUNC_UNUSED void obj_udata_luapush_weak(lua_State *L, void *obj, obj_type + } + lua_pop(L, 1); /* pop nil. */ + ++#if LUAJIT_FFI ++ lua_pushlightuserdata(L, type); ++ lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ ++ if(nobj_ffi_support_enabled_hint && lua_isfunction(L, -1)) { ++ lua_remove(L, -2); ++ /* call special FFI "void *" to FFI object convertion function. */ ++ lua_pushlightuserdata(L, obj); ++ lua_pushinteger(L, flags); ++ lua_call(L, 2, 1); ++ return; ++ } ++#endif + /* create new userdata. */ + ud = (obj_udata *)lua_newuserdata(L, sizeof(obj_udata)); + +@@ -390,8 +559,12 @@ static FUNC_UNUSED void obj_udata_luapush_weak(lua_State *L, void *obj, obj_type + ud->obj = obj; + ud->flags = flags; + /* get obj_type metatable. */ ++#if LUAJIT_FFI ++ lua_insert(L, -2); /* move userdata below metatable. */ ++#else + lua_pushlightuserdata(L, type); + lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ ++#endif + lua_setmetatable(L, -2); + + /* add weak reference to object. */ +@@ -455,15 +628,39 @@ static FUNC_UNUSED void * obj_simple_udata_luacheck(lua_State *L, int _index, ob + return ud; + } + } ++ } else { ++ /* handle cdata. */ ++ /* get private table. */ ++ lua_pushlightuserdata(L, obj_udata_private_key); ++ lua_rawget(L, LUA_REGISTRYINDEX); /* private table. */ ++ /* get cdata type check function from private table. */ ++ lua_pushlightuserdata(L, type); ++ lua_rawget(L, -2); ++ ++ /* pass cdata value to type checking function. */ ++ lua_pushvalue(L, _index); ++ lua_call(L, 1, 1); ++ if(!lua_isnil(L, -1)) { ++ /* valid type get pointer from cdata. */ ++ lua_pop(L, 2); ++ return (void *)lua_topointer(L, _index); ++ } ++ lua_pop(L, 2); + } + luaL_typerror(L, _index, type->name); /* is not a userdata value. */ + return NULL; + } + +-static FUNC_UNUSED void * obj_simple_udata_luadelete(lua_State *L, int _index, obj_type *type, int *flags) { ++static FUNC_UNUSED void * obj_simple_udata_luaoptional(lua_State *L, int _index, obj_type *type) { ++ if(lua_isnil(L, _index)) { ++ return NULL; ++ } ++ return obj_simple_udata_luacheck(L, _index, type); ++} ++ ++static FUNC_UNUSED void * obj_simple_udata_luadelete(lua_State *L, int _index, obj_type *type) { + void *obj; + obj = obj_simple_udata_luacheck(L, _index, type); +- *flags = OBJ_UDATA_FLAG_OWN; + /* clear the metatable to invalidate userdata. */ + lua_pushnil(L); + lua_setmetatable(L, _index); +@@ -472,12 +669,26 @@ static FUNC_UNUSED void * obj_simple_udata_luadelete(lua_State *L, int _index, o + + static FUNC_UNUSED void *obj_simple_udata_luapush(lua_State *L, void *obj, int size, obj_type *type) + { ++#if LUAJIT_FFI ++ lua_pushlightuserdata(L, type); ++ lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ ++ if(nobj_ffi_support_enabled_hint && lua_isfunction(L, -1)) { ++ /* call special FFI "void *" to FFI object convertion function. */ ++ lua_pushlightuserdata(L, obj); ++ lua_call(L, 1, 1); ++ return obj; ++ } ++#endif + /* create new userdata. */ + void *ud = lua_newuserdata(L, size); + memcpy(ud, obj, size); + /* get obj_type metatable. */ ++#if LUAJIT_FFI ++ lua_insert(L, -2); /* move userdata below metatable. */ ++#else + lua_pushlightuserdata(L, type); + lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ ++#endif + lua_setmetatable(L, -2); + + return ud; +@@ -526,7 +737,8 @@ static int obj_constructor_call_wrapper(lua_State *L) { + return lua_gettop(L); + } + +-static void obj_type_register_constants(lua_State *L, const obj_const *constants, int tab_idx) { ++static void obj_type_register_constants(lua_State *L, const obj_const *constants, int tab_idx, ++ int bidirectional) { + /* register constants. */ + while(constants->name != NULL) { + lua_pushstring(L, constants->name); +@@ -544,6 +756,22 @@ static void obj_type_register_constants(lua_State *L, const obj_const *constants + lua_pushnil(L); + break; + } ++ /* map values back to keys. */ ++ if(bidirectional) { ++ /* check if value already exists. */ ++ lua_pushvalue(L, -1); ++ lua_rawget(L, tab_idx - 3); ++ if(lua_isnil(L, -1)) { ++ lua_pop(L, 1); ++ /* add value->key mapping. */ ++ lua_pushvalue(L, -1); ++ lua_pushvalue(L, -3); ++ lua_rawset(L, tab_idx - 4); ++ } else { ++ /* value already exists. */ ++ lua_pop(L, 1); ++ } ++ } + lua_rawset(L, tab_idx - 2); + constants++; + } +@@ -558,20 +786,48 @@ static void obj_type_register_package(lua_State *L, const reg_sub_module *type_r + luaL_register(L, NULL, reg_list); + } + +- obj_type_register_constants(L, type_reg->constants, -1); ++ obj_type_register_constants(L, type_reg->constants, -1, type_reg->bidirectional_consts); + + lua_pop(L, 1); /* drop package table */ + } + ++static void obj_type_register_meta(lua_State *L, const reg_sub_module *type_reg) { ++ const luaL_reg *reg_list; ++ ++ /* create public functions table. */ ++ reg_list = type_reg->pub_funcs; ++ if(reg_list != NULL && reg_list[0].name != NULL) { ++ /* register functions */ ++ luaL_register(L, NULL, reg_list); ++ } ++ ++ obj_type_register_constants(L, type_reg->constants, -1, type_reg->bidirectional_consts); ++ ++ /* register methods. */ ++ luaL_register(L, NULL, type_reg->methods); ++ ++ /* create metatable table. */ ++ lua_newtable(L); ++ luaL_register(L, NULL, type_reg->metas); /* fill metatable */ ++ /* setmetatable on meta-object. */ ++ lua_setmetatable(L, -2); ++ ++ lua_pop(L, 1); /* drop meta-object */ ++} ++ + static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int priv_table) { + const luaL_reg *reg_list; + obj_type *type = type_reg->type; + const obj_base *base = type_reg->bases; + +- if(type_reg->is_package == 1) { ++ if(type_reg->req_type == REG_PACKAGE) { + obj_type_register_package(L, type_reg); + return; + } ++ if(type_reg->req_type == REG_META) { ++ obj_type_register_meta(L, type_reg); ++ return; ++ } + + /* create public functions table. */ + reg_list = type_reg->pub_funcs; +@@ -620,14 +876,10 @@ static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int + lua_pushvalue(L, -2); /* dup metatable. */ + lua_rawset(L, LUA_REGISTRYINDEX); /* REGISTRY[type] = metatable */ + +-#if LUAJIT_FFI + /* add metatable to 'priv_table' */ + lua_pushstring(L, type->name); + lua_pushvalue(L, -2); /* dup metatable. */ + lua_rawset(L, priv_table); /* priv_table[""] = metatable */ +-#else +- (void)priv_table; +-#endif + + luaL_register(L, NULL, type_reg->metas); /* fill metatable */ + +@@ -638,7 +890,7 @@ static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int + base++; + } + +- obj_type_register_constants(L, type_reg->constants, -2); ++ obj_type_register_constants(L, type_reg->constants, -2, type_reg->bidirectional_consts); + + lua_pushliteral(L, "__index"); + lua_pushvalue(L, -3); /* dup methods table */ +@@ -658,54 +910,12 @@ static FUNC_UNUSED int lua_checktype_ref(lua_State *L, int _index, int _type) { + return luaL_ref(L, LUA_REGISTRYINDEX); + } + +-#if LUAJIT_FFI +-static int nobj_udata_new_ffi(lua_State *L) { +- size_t size = luaL_checkinteger(L, 1); +- luaL_checktype(L, 2, LUA_TTABLE); +- lua_settop(L, 2); +- /* create userdata. */ +- lua_newuserdata(L, size); +- lua_replace(L, 1); +- /* set userdata's metatable. */ +- lua_setmetatable(L, 1); +- return 1; +-} +- +-static int nobj_try_loading_ffi(lua_State *L, const char *ffi_mod_name, +- const char *ffi_init_code, const ffi_export_symbol *ffi_exports, int priv_table) +-{ +- int err; +- +- /* export symbols to priv_table. */ +- while(ffi_exports->name != NULL) { +- lua_pushstring(L, ffi_exports->name); +- lua_pushlightuserdata(L, ffi_exports->sym); +- lua_settable(L, priv_table); +- ffi_exports++; +- } +- err = luaL_loadbuffer(L, ffi_init_code, strlen(ffi_init_code), ffi_mod_name); +- if(0 == err) { +- lua_pushvalue(L, -2); /* dup C module's table. */ +- lua_pushvalue(L, priv_table); /* move priv_table to top of stack. */ +- lua_remove(L, priv_table); +- lua_pushcfunction(L, nobj_udata_new_ffi); +- err = lua_pcall(L, 3, 0, 0); +- } +- if(err) { +- const char *msg = ""; +- if(lua_isstring(L, -1)) { +- msg = lua_tostring(L, -1); +- } +- printf("Failed to install FFI-based bindings: %s\n", msg); +- lua_pop(L, 1); /* pop error message. */ +- } +- return err; +-} +-#endif + + + #define obj_type_Lua_LLThread_check(L, _index) \ + obj_udata_luacheck(L, _index, &(obj_type_Lua_LLThread)) ++#define obj_type_Lua_LLThread_optional(L, _index) \ ++ obj_udata_luaoptional(L, _index, &(obj_type_Lua_LLThread)) + #define obj_type_Lua_LLThread_delete(L, _index, flags) \ + obj_udata_luadelete_weak(L, _index, &(obj_type_Lua_LLThread), flags) + #define obj_type_Lua_LLThread_push(L, obj, flags) \ +@@ -714,8 +924,6 @@ static int nobj_try_loading_ffi(lua_State *L, const char *ffi_mod_name, + + + +- +- + /* maximum recursive depth of table copies. */ + #define MAX_COPY_DEPTH 30 + +@@ -1106,7 +1314,7 @@ static Lua_LLThread *llthread_create(lua_State *L, const char *code, size_t code + + + +-/* method: delete */ ++/* method: _priv */ + static int Lua_LLThread__delete__meth(lua_State *L) { + int this_flags_idx1 = 0; + Lua_LLThread * this_idx1 = obj_type_Lua_LLThread_delete(L,1,&(this_flags_idx1)); +@@ -1264,14 +1472,21 @@ static int llthreads__new__func(lua_State *L) { + + + static const reg_sub_module reg_sub_modules[] = { +- { &(obj_type_Lua_LLThread), 0, obj_Lua_LLThread_pub_funcs, obj_Lua_LLThread_methods, obj_Lua_LLThread_metas, obj_Lua_LLThread_bases, obj_Lua_LLThread_fields, obj_Lua_LLThread_constants}, +- {NULL, 0, NULL, NULL, NULL, NULL, NULL, NULL} ++ { &(obj_type_Lua_LLThread), REG_OBJECT, obj_Lua_LLThread_pub_funcs, obj_Lua_LLThread_methods, obj_Lua_LLThread_metas, obj_Lua_LLThread_bases, obj_Lua_LLThread_fields, obj_Lua_LLThread_constants, 0}, ++ {NULL, 0, NULL, NULL, NULL, NULL, NULL, NULL, 0} + }; + + + + + ++#if LUAJIT_FFI ++static const ffi_export_symbol llthreads_ffi_export[] = { ++ {NULL, { .data = NULL } } ++}; ++#endif ++ ++ + + + static const luaL_Reg submodule_libs[] = { +@@ -1304,20 +1519,26 @@ LUA_NOBJ_API int luaopen_llthreads(lua_State *L) { + const luaL_Reg *submodules = submodule_libs; + int priv_table = -1; + +-#if LUAJIT_FFI + /* private table to hold reference to object metatables. */ + lua_newtable(L); + priv_table = lua_gettop(L); +-#endif ++ lua_pushlightuserdata(L, obj_udata_private_key); ++ lua_pushvalue(L, priv_table); ++ lua_rawset(L, LUA_REGISTRYINDEX); /* store private table in registry. */ + + /* create object cache. */ + create_object_instance_cache(L); + + /* module table. */ ++#if REG_MODULES_AS_GLOBALS + luaL_register(L, "llthreads", llthreads_function); ++#else ++ lua_newtable(L); ++ luaL_register(L, NULL, llthreads_function); ++#endif + + /* register module constants. */ +- obj_type_register_constants(L, llthreads_constants, -1); ++ obj_type_register_constants(L, llthreads_constants, -1, 0); + + for(; submodules->func != NULL ; submodules++) { + lua_pushcfunction(L, submodules->func); +@@ -1338,9 +1559,14 @@ LUA_NOBJ_API int luaopen_llthreads(lua_State *L) { + } + + #if LUAJIT_FFI +- nobj_try_loading_ffi(L, "llthreads", llthreads_ffi_lua_code, +- llthreads_ffi_export, priv_table); ++ if(nobj_check_ffi_support(L)) { ++ nobj_try_loading_ffi(L, "llthreads", llthreads_ffi_lua_code, ++ llthreads_ffi_export, priv_table); ++ } + #endif ++ ++ ++ + return 1; + } + +-- +1.8.1.6 + diff --git a/testing/lua5.2-llthreads/bindings-2.patch b/testing/lua5.2-llthreads/bindings-2.patch new file mode 100644 index 0000000000..226ba322c6 --- /dev/null +++ b/testing/lua5.2-llthreads/bindings-2.patch @@ -0,0 +1,109 @@ +From 25687f0babcc2b3cdc8b42c7ecf8a34f751062d6 Mon Sep 17 00:00:00 2001 +From: "Robert G. Jakabosky" +Date: Fri, 2 Mar 2012 17:34:04 -0800 +Subject: [PATCH] Re-generate bindings. + +--- + src/pre_generated-llthreads.nobj.c | 35 +++++++++++++++++++++++++++++------ + 1 file changed, 29 insertions(+), 6 deletions(-) + +diff --git a/src/pre_generated-llthreads.nobj.c b/src/pre_generated-llthreads.nobj.c +index b2d1185..d016651 100644 +--- a/src/pre_generated-llthreads.nobj.c ++++ b/src/pre_generated-llthreads.nobj.c +@@ -56,7 +56,7 @@ + #define true 1 + #endif + #ifndef false +-#define false 1 ++#define false 0 + #endif + + #endif +@@ -250,7 +250,8 @@ static int nobj_check_ffi_support(lua_State *L) { + if(!lua_isnil(L, -1)) { + rc = lua_toboolean(L, -1); + lua_pop(L, 1); +- return rc; /* return results of previous check. */ ++ /* use results of previous check. */ ++ goto finished; + } + lua_pop(L, 1); /* pop nil. */ + +@@ -276,6 +277,7 @@ static int nobj_check_ffi_support(lua_State *L) { + lua_pushboolean(L, rc); + lua_rawset(L, LUA_REGISTRYINDEX); + ++finished: + /* turn-on hint that there is FFI code enabled. */ + if(rc) { + nobj_ffi_support_enabled_hint = 1; +@@ -284,9 +286,29 @@ static int nobj_check_ffi_support(lua_State *L) { + return rc; + } + ++typedef struct { ++ const char **ffi_init_code; ++ int offset; ++} nobj_reader_state; ++ ++static const char *nobj_lua_Reader(lua_State *L, void *data, size_t *size) { ++ nobj_reader_state *state = (nobj_reader_state *)data; ++ const char *ptr; ++ ++ ptr = state->ffi_init_code[state->offset]; ++ if(ptr != NULL) { ++ *size = strlen(ptr); ++ state->offset++; ++ } else { ++ *size = 0; ++ } ++ return ptr; ++} ++ + static int nobj_try_loading_ffi(lua_State *L, const char *ffi_mod_name, +- const char *ffi_init_code, const ffi_export_symbol *ffi_exports, int priv_table) ++ const char *ffi_init_code[], const ffi_export_symbol *ffi_exports, int priv_table) + { ++ nobj_reader_state state = { ffi_init_code, 0 }; + int err; + + /* export symbols to priv_table. */ +@@ -296,7 +318,7 @@ static int nobj_try_loading_ffi(lua_State *L, const char *ffi_mod_name, + lua_settable(L, priv_table); + ffi_exports++; + } +- err = luaL_loadbuffer(L, ffi_init_code, strlen(ffi_init_code), ffi_mod_name); ++ err = lua_load(L, nobj_lua_Reader, &state, ffi_mod_name); + if(0 == err) { + lua_pushvalue(L, -2); /* dup C module's table. */ + lua_pushvalue(L, priv_table); /* move priv_table to top of stack. */ +@@ -670,6 +692,7 @@ static FUNC_UNUSED void * obj_simple_udata_luadelete(lua_State *L, int _index, o + + static FUNC_UNUSED void *obj_simple_udata_luapush(lua_State *L, void *obj, int size, obj_type *type) + { ++ void *ud; + #if LUAJIT_FFI + lua_pushlightuserdata(L, type); + lua_rawget(L, LUA_REGISTRYINDEX); /* type's metatable. */ +@@ -681,7 +704,7 @@ static FUNC_UNUSED void *obj_simple_udata_luapush(lua_State *L, void *obj, int s + } + #endif + /* create new userdata. */ +- void *ud = lua_newuserdata(L, size); ++ ud = lua_newuserdata(L, size); + memcpy(ud, obj, size); + /* get obj_type metatable. */ + #if LUAJIT_FFI +@@ -1483,7 +1506,7 @@ static int llthreads__new__func(lua_State *L) { + + #if LUAJIT_FFI + static const ffi_export_symbol llthreads_ffi_export[] = { +- {NULL, { .data = NULL } } ++ {NULL, { NULL } } + }; + #endif + +-- +1.8.1.6 + diff --git a/testing/lua5.2-llthreads/lua-5.2.patch b/testing/lua5.2-llthreads/lua-5.2.patch new file mode 100644 index 0000000000..354b4d42a4 --- /dev/null +++ b/testing/lua5.2-llthreads/lua-5.2.patch @@ -0,0 +1,336 @@ +From 58b5d127c94138e1c46fdbed993bea52c90585fd Mon Sep 17 00:00:00 2001 +From: "Robert G. Jakabosky" +Date: Tue, 16 Oct 2012 00:52:40 -0700 +Subject: [PATCH] Add support for Lua 5.2 + +--- + src/pre_generated-llthreads.nobj.c | 117 +++++++++++++++++++++++++++++-------- + src/thread.nobj.lua | 19 +++++- + 2 files changed, 110 insertions(+), 26 deletions(-) + +diff --git a/src/pre_generated-llthreads.nobj.c b/src/pre_generated-llthreads.nobj.c +index ed9c43b..ff70704 100644 +--- a/src/pre_generated-llthreads.nobj.c ++++ b/src/pre_generated-llthreads.nobj.c +@@ -10,6 +10,54 @@ + #include "lauxlib.h" + #include "lualib.h" + ++/* some Lua 5.0 compatibility support. */ ++#if !defined(lua_pushliteral) ++#define lua_pushliteral(L, s) lua_pushstring(L, "" s, (sizeof(s)/sizeof(char))-1) ++#endif ++ ++#if !defined(LUA_VERSION_NUM) ++#define lua_pushinteger(L, n) lua_pushnumber(L, (lua_Number)n) ++#define luaL_Reg luaL_reg ++#endif ++ ++/* some Lua 5.1 compatibility support. */ ++#if !defined(LUA_VERSION_NUM) || (LUA_VERSION_NUM == 501) ++/* ++** Adapted from Lua 5.2.0 ++*/ ++static void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { ++ luaL_checkstack(L, nup, "too many upvalues"); ++ for (; l->name != NULL; l++) { /* fill the table with given functions */ ++ int i; ++ for (i = 0; i < nup; i++) /* copy upvalues to the top */ ++ lua_pushvalue(L, -nup); ++ lua_pushstring(L, l->name); ++ lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ ++ lua_settable(L, -(nup + 3)); ++ } ++ lua_pop(L, nup); /* remove upvalues */ ++} ++ ++#define lua_load_no_mode(L, reader, data, source) \ ++ lua_load(L, reader, data, source) ++ ++#define lua_rawlen(L, idx) lua_objlen(L, idx) ++ ++#endif ++ ++#if LUA_VERSION_NUM == 502 ++ ++#define lua_load_no_mode(L, reader, data, source) \ ++ lua_load(L, reader, data, source, NULL) ++ ++static int luaL_typerror (lua_State *L, int narg, const char *tname) { ++ const char *msg = lua_pushfstring(L, "%s expected, got %s", ++ tname, luaL_typename(L, narg)); ++ return luaL_argerror(L, narg, msg); ++} ++ ++#endif ++ + #define REG_PACKAGE_IS_CONSTRUCTOR 0 + #define REG_MODULES_AS_GLOBALS 0 + #define REG_OBJECTS_AS_GLOBALS 0 +@@ -189,9 +237,9 @@ struct obj_type { + typedef struct reg_sub_module { + obj_type *type; + module_reg_type req_type; +- const luaL_reg *pub_funcs; +- const luaL_reg *methods; +- const luaL_reg *metas; ++ const luaL_Reg *pub_funcs; ++ const luaL_Reg *methods; ++ const luaL_Reg *metas; + const obj_base *bases; + const obj_field *fields; + const obj_const *constants; +@@ -326,7 +374,7 @@ static int nobj_try_loading_ffi(lua_State *L, const char *ffi_mod_name, + lua_settable(L, priv_table); + ffi_exports++; + } +- err = lua_load(L, nobj_lua_Reader, &state, ffi_mod_name); ++ err = lua_load_no_mode(L, nobj_lua_Reader, &state, ffi_mod_name); + if(0 == err) { + lua_pushvalue(L, -2); /* dup C module's table. */ + lua_pushvalue(L, priv_table); /* move priv_table to top of stack. */ +@@ -531,6 +579,12 @@ static void obj_type_register_implements(lua_State *L, const reg_impl *impls) { + #define REG_MODULES_AS_GLOBALS 0 + #endif + ++/* For Lua 5.2 don't register modules as globals. */ ++#if LUA_VERSION_NUM == 502 ++#undef REG_MODULES_AS_GLOBALS ++#define REG_MODULES_AS_GLOBALS 0 ++#endif ++ + #ifndef REG_OBJECTS_AS_GLOBALS + #define REG_OBJECTS_AS_GLOBALS 0 + #endif +@@ -591,7 +645,7 @@ static FUNC_UNUSED obj_udata *obj_udata_toobj(lua_State *L, int _index) { + luaL_typerror(L, _index, "userdata"); /* is not a userdata value. */ + } + /* verify userdata size. */ +- len = lua_objlen(L, _index); ++ len = lua_rawlen(L, _index); + if(len != sizeof(obj_udata)) { + /* This shouldn't be possible */ + luaL_error(L, "invalid userdata size: size=%d, expected=%d", len, sizeof(obj_udata)); +@@ -1007,9 +1061,9 @@ static FUNC_UNUSED void *obj_simple_udata_luapush(lua_State *L, void *obj, int s + /* default simple object equal method. */ + static FUNC_UNUSED int obj_simple_udata_default_equal(lua_State *L) { + void *ud1 = obj_simple_udata_toobj(L, 1); +- size_t len1 = lua_objlen(L, 1); ++ size_t len1 = lua_rawlen(L, 1); + void *ud2 = obj_simple_udata_toobj(L, 2); +- size_t len2 = lua_objlen(L, 2); ++ size_t len2 = lua_rawlen(L, 2); + + if(len1 == len2) { + lua_pushboolean(L, (memcmp(ud1, ud2, len1) == 0)); +@@ -1088,12 +1142,12 @@ static void obj_type_register_constants(lua_State *L, const obj_const *constants + } + + static void obj_type_register_package(lua_State *L, const reg_sub_module *type_reg) { +- const luaL_reg *reg_list = type_reg->pub_funcs; ++ const luaL_Reg *reg_list = type_reg->pub_funcs; + + /* create public functions table. */ + if(reg_list != NULL && reg_list[0].name != NULL) { + /* register functions */ +- luaL_register(L, NULL, reg_list); ++ luaL_setfuncs(L, reg_list, 0); + } + + obj_type_register_constants(L, type_reg->constants, -1, type_reg->bidirectional_consts); +@@ -1102,23 +1156,23 @@ static void obj_type_register_package(lua_State *L, const reg_sub_module *type_r + } + + static void obj_type_register_meta(lua_State *L, const reg_sub_module *type_reg) { +- const luaL_reg *reg_list; ++ const luaL_Reg *reg_list; + + /* create public functions table. */ + reg_list = type_reg->pub_funcs; + if(reg_list != NULL && reg_list[0].name != NULL) { + /* register functions */ +- luaL_register(L, NULL, reg_list); ++ luaL_setfuncs(L, reg_list, 0); + } + + obj_type_register_constants(L, type_reg->constants, -1, type_reg->bidirectional_consts); + + /* register methods. */ +- luaL_register(L, NULL, type_reg->methods); ++ luaL_setfuncs(L, type_reg->methods, 0); + + /* create metatable table. */ + lua_newtable(L); +- luaL_register(L, NULL, type_reg->metas); /* fill metatable */ ++ luaL_setfuncs(L, type_reg->metas, 0); /* fill metatable */ + /* setmetatable on meta-object. */ + lua_setmetatable(L, -2); + +@@ -1126,7 +1180,7 @@ static void obj_type_register_meta(lua_State *L, const reg_sub_module *type_reg) + } + + static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int priv_table) { +- const luaL_reg *reg_list; ++ const luaL_Reg *reg_list; + obj_type *type = type_reg->type; + const obj_base *base = type_reg->bases; + +@@ -1143,7 +1197,7 @@ static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int + reg_list = type_reg->pub_funcs; + if(reg_list != NULL && reg_list[0].name != NULL) { + /* register "constructors" as to object's public API */ +- luaL_register(L, NULL, reg_list); /* fill public API table. */ ++ luaL_setfuncs(L, reg_list, 0); /* fill public API table. */ + + /* make public API table callable as the default constructor. */ + lua_newtable(L); /* create metatable */ +@@ -1173,7 +1227,7 @@ static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int + #endif + } + +- luaL_register(L, NULL, type_reg->methods); /* fill methods table. */ ++ luaL_setfuncs(L, type_reg->methods, 0); /* fill methods table. */ + + luaL_newmetatable(L, type->name); /* create metatable */ + lua_pushliteral(L, ".name"); +@@ -1191,7 +1245,7 @@ static void obj_type_register(lua_State *L, const reg_sub_module *type_reg, int + lua_pushvalue(L, -2); /* dup metatable. */ + lua_rawset(L, priv_table); /* priv_table[""] = metatable */ + +- luaL_register(L, NULL, type_reg->metas); /* fill metatable */ ++ luaL_setfuncs(L, type_reg->metas, 0); /* fill metatable */ + + /* add obj_bases to metatable. */ + while(base->id >= 0) { +@@ -1348,7 +1402,7 @@ static FUNC_UNUSED void *nobj_delete_callback_state(lua_State *L, int owner_idx) + #define ERROR_LEN 1024 + + /****************************************************************************** +-* traceback() function from Lua 5.1.x source. ++* traceback() function from Lua 5.1/5.2 source. + * Copyright (C) 1994-2008 Lua.org, PUC-Rio. All rights reserved. + * + * Permission is hereby granted, free of charge, to any person obtaining +@@ -1370,10 +1424,12 @@ static FUNC_UNUSED void *nobj_delete_callback_state(lua_State *L, int owner_idx) + * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE + * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + ******************************************************************************/ ++#if !defined(LUA_VERSION_NUM) || (LUA_VERSION_NUM == 501) ++/* from Lua 5.1 */ + static int traceback (lua_State *L) { + if (!lua_isstring(L, 1)) /* 'message' not a string? */ + return 1; /* keep it intact */ +- lua_getfield(L, LUA_GLOBALSINDEX, "debug"); ++ lua_getglobal(L, "debug"); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + return 1; +@@ -1388,6 +1444,19 @@ static int traceback (lua_State *L) { + lua_call(L, 2, 1); /* call debug.traceback */ + return 1; + } ++#else ++/* from Lua 5.2 */ ++static int traceback (lua_State *L) { ++ const char *msg = lua_tostring(L, 1); ++ if (msg) ++ luaL_traceback(L, L, msg, 1); ++ else if (!lua_isnoneornil(L, 1)) { /* is there an error object? */ ++ if (!luaL_callmeta(L, 1, "__tostring")) /* try its 'tostring' metamethod */ ++ lua_pushliteral(L, "(no error message)"); ++ } ++ return 1; ++} ++#endif + + static Lua_LLThread_child *llthread_child_new() { + Lua_LLThread_child *this; +@@ -1831,17 +1900,17 @@ static int llthreads__new__func(lua_State *L) { + + + +-static const luaL_reg obj_Lua_LLThread_pub_funcs[] = { ++static const luaL_Reg obj_Lua_LLThread_pub_funcs[] = { + {NULL, NULL} + }; + +-static const luaL_reg obj_Lua_LLThread_methods[] = { ++static const luaL_Reg obj_Lua_LLThread_methods[] = { + {"start", Lua_LLThread__start__meth}, + {"join", Lua_LLThread__join__meth}, + {NULL, NULL} + }; + +-static const luaL_reg obj_Lua_LLThread_metas[] = { ++static const luaL_Reg obj_Lua_LLThread_metas[] = { + {"__gc", Lua_LLThread__delete__meth}, + {"__tostring", obj_udata_default_tostring}, + {"__eq", obj_udata_default_equal}, +@@ -1864,7 +1933,7 @@ static int llthreads__new__func(lua_State *L) { + {NULL, NULL} + }; + +-static const luaL_reg llthreads_function[] = { ++static const luaL_Reg llthreads_function[] = { + {"new", llthreads__new__func}, + {NULL, NULL} + }; +@@ -1941,7 +2010,7 @@ LUA_NOBJ_API int luaopen_llthreads(lua_State *L) { + luaL_register(L, "llthreads", llthreads_function); + #else + lua_newtable(L); +- luaL_register(L, NULL, llthreads_function); ++ luaL_setfuncs(L, llthreads_function, 0); + #endif + + /* register module constants. */ +diff --git a/src/thread.nobj.lua b/src/thread.nobj.lua +index 8d4ef54..626022f 100644 +--- a/src/thread.nobj.lua ++++ b/src/thread.nobj.lua +@@ -59,7 +59,7 @@ typedef struct Lua_LLThread { + #define ERROR_LEN 1024 + + /****************************************************************************** +-* traceback() function from Lua 5.1.x source. ++* traceback() function from Lua 5.1/5.2 source. + * Copyright (C) 1994-2008 Lua.org, PUC-Rio. All rights reserved. + * + * Permission is hereby granted, free of charge, to any person obtaining +@@ -81,10 +81,12 @@ typedef struct Lua_LLThread { + * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE + * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + ******************************************************************************/ ++#if !defined(LUA_VERSION_NUM) || (LUA_VERSION_NUM == 501) ++/* from Lua 5.1 */ + static int traceback (lua_State *L) { + if (!lua_isstring(L, 1)) /* 'message' not a string? */ + return 1; /* keep it intact */ +- lua_getfield(L, LUA_GLOBALSINDEX, "debug"); ++ lua_getglobal(L, "debug"); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + return 1; +@@ -99,6 +101,19 @@ static int traceback (lua_State *L) { + lua_call(L, 2, 1); /* call debug.traceback */ + return 1; + } ++#else ++/* from Lua 5.2 */ ++static int traceback (lua_State *L) { ++ const char *msg = lua_tostring(L, 1); ++ if (msg) ++ luaL_traceback(L, L, msg, 1); ++ else if (!lua_isnoneornil(L, 1)) { /* is there an error object? */ ++ if (!luaL_callmeta(L, 1, "__tostring")) /* try its 'tostring' metamethod */ ++ lua_pushliteral(L, "(no error message)"); ++ } ++ return 1; ++} ++#endif + + static Lua_LLThread_child *llthread_child_new() { + Lua_LLThread_child *this; +-- +1.8.1.6 + -- cgit v1.2.3