diff options
author | obache <obache> | 2013-10-30 10:36:12 +0000 |
---|---|---|
committer | obache <obache> | 2013-10-30 10:36:12 +0000 |
commit | fbd3cc7507a61e269abed3ba68c681845fdbe5ac (patch) | |
tree | e6233ad999d9fd437b71c79f2402918651ad43be /databases/tokyotyrant/patches | |
parent | 6d12553960f3a1ac3f7df045fc6fddb4758ab1e5 (diff) | |
download | pkgsrc-fbd3cc7507a61e269abed3ba68c681845fdbe5ac.tar.gz |
Let to be buildable with lua-5.1 too.
Diffstat (limited to 'databases/tokyotyrant/patches')
-rw-r--r-- | databases/tokyotyrant/patches/patch-scrext.c | 121 |
1 files changed, 15 insertions, 106 deletions
diff --git a/databases/tokyotyrant/patches/patch-scrext.c b/databases/tokyotyrant/patches/patch-scrext.c index 83838b047e3..8d1dec62d36 100644 --- a/databases/tokyotyrant/patches/patch-scrext.c +++ b/databases/tokyotyrant/patches/patch-scrext.c @@ -1,111 +1,20 @@ -$NetBSD: patch-scrext.c,v 1.1 2013/07/07 05:19:39 obache Exp $ +$NetBSD: patch-scrext.c,v 1.2 2013/10/30 10:43:24 obache Exp $ * Lua-5.2 API change (lua_objlen was renamed lua_rawlen). --- scrext.c.orig 2010-08-05 06:24:33.000000000 +0000 +++ scrext.c -@@ -389,7 +389,7 @@ char *scrextcallmethod(void *scr, const - } - break; - case LUA_TTABLE: -- if(lua_objlen(lua, 1) > 0){ -+ if(lua_rawlen(lua, 1) > 0){ - lua_rawgeti(lua, 1, 1); - switch(lua_type(lua, -1)){ - case LUA_TNUMBER: -@@ -879,7 +879,7 @@ static int serv_misc(lua_State *lua){ - tclistpush(args, aptr, asiz); - break; - case LUA_TTABLE: -- len = lua_objlen(lua, i); -+ len = lua_rawlen(lua, i); - for(int j = 1; j <= len; j++){ - lua_rawgeti(lua, i, j); - switch(lua_type(lua, -1)){ -@@ -970,7 +970,7 @@ static int serv_mapreduce(lua_State *lua - tclistpush(keys, kbuf, ksiz); - break; - case LUA_TTABLE: -- len = lua_objlen(lua, 3); -+ len = lua_rawlen(lua, 3); - keys = tclistnew2(len); - for(int i = 1; i <= len; i++){ - lua_rawgeti(lua, 3, i); -@@ -1311,7 +1311,7 @@ static int serv_pack(lua_State *lua){ - lua_rawseti(lua, aidx, eidx++); - break; - case LUA_TTABLE: -- len = lua_objlen(lua, i); -+ len = lua_rawlen(lua, i); - for(int j = 1; j <= len; j++){ - lua_rawgeti(lua, i, j); - lua_rawseti(lua, aidx, eidx++); -@@ -1983,7 +1983,7 @@ static int serv_ucs(lua_State *lua){ - lua_error(lua); - } - if(lua_type(lua, 1) == LUA_TTABLE){ -- int anum = lua_objlen(lua, 1); -+ int anum = lua_rawlen(lua, 1); - uint16_t *ary = tcmalloc(sizeof(*ary) * anum + 1); - for(int i = 1; i <= anum; i++){ - lua_rawgeti(lua, 1, i); -@@ -2043,7 +2043,7 @@ static int serv_dist(lua_State *lua){ - static int serv_isect(lua_State *lua){ - int argc = lua_gettop(lua); - if(argc == 1 && lua_type(lua, 1) == LUA_TTABLE){ -- int len = lua_objlen(lua, 1); -+ int len = lua_rawlen(lua, 1); - for(int i = 1; i <= len; i++){ - lua_rawgeti(lua, 1, i); - if(lua_type(lua, -1) == LUA_TTABLE){ -@@ -2062,7 +2062,7 @@ static int serv_isect(lua_State *lua){ - int rnum = 0; - for(int i = 1; i <= argc; i++){ - if(lua_type(lua, i) != LUA_TTABLE) continue; -- int len = lua_objlen(lua, i); -+ int len = lua_rawlen(lua, i); - if(len < 1){ - lua_settop(lua, 0); - lua_newtable(lua); -@@ -2076,7 +2076,7 @@ static int serv_isect(lua_State *lua){ - TCMAP *latter = NULL; - for(int i = 1; i <= argc; i++){ - if(lua_type(lua, i) != LUA_TTABLE) continue; -- int len = lua_objlen(lua, i); -+ int len = lua_rawlen(lua, i); - if(former){ - latter = tcmapnew2(tclmin(len, tcmaprnum(former))); - for(int j = 1; j <= len; j++){ -@@ -2121,7 +2121,7 @@ static int serv_isect(lua_State *lua){ - TCMAP *freq = tcmapnew2(rnum); - for(int i = 1; i <= argc; i++){ - if(lua_type(lua, i) != LUA_TTABLE) continue; -- int len = lua_objlen(lua, i); -+ int len = lua_rawlen(lua, i); - TCMAP *uniq = tcmapnew2(len); - for(int j = 1; j <= len; j++){ - lua_rawgeti(lua, i, j); -@@ -2162,7 +2162,7 @@ static int serv_isect(lua_State *lua){ - static int serv_union(lua_State *lua){ - int argc = lua_gettop(lua); - if(argc == 1 && lua_type(lua, 1) == LUA_TTABLE){ -- int len = lua_objlen(lua, 1); -+ int len = lua_rawlen(lua, 1); - for(int i = 1; i <= len; i++){ - lua_rawgeti(lua, 1, i); - if(lua_type(lua, -1) == LUA_TTABLE){ -@@ -2180,12 +2180,12 @@ static int serv_union(lua_State *lua){ - int rnum = 0; - for(int i = 1; i <= argc; i++){ - if(lua_type(lua, i) != LUA_TTABLE) continue; -- rnum += lua_objlen(lua, i); -+ rnum += lua_rawlen(lua, i); - } - TCMAP *result = tcmapnew2(rnum); - for(int i = 1; i <= argc; i++){ - if(lua_type(lua, i) != LUA_TTABLE) continue; -- int len = lua_objlen(lua, i); -+ int len = lua_rawlen(lua, i); - for(int j = 1; j <= len; j++){ - lua_rawgeti(lua, i, j); - size_t size; +@@ -153,6 +153,13 @@ bool scrextkill(void *scr){ + #include "lualib.h" + #include "lauxlib.h" + ++#ifdef LUA_VERSION_NUM ++# if (LUA_VERSION_NUM >= 502) ++#undef lua_objlen ++#define lua_objlen lua_rawlen ++# endif ++#endif ++ + #define SERVVAR "_serv_" // global variable name for server resources + #define ITERVAR "_iter_" // global variable name for iterator + #define MRMAPVAR "_mrmap_" // global variable name for mapreduce mapper |