1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
$NetBSD: patch-scrext.c,v 1.1 2013/07/07 05:19:39 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;
|