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
|
#include "test.h"
#include "net/util.h"
#include "types/parray.h"
int ld_match(lua_State* L){
parray_t* a = parray_init();
int o = match_param(lua_tostring(L, 1), lua_tostring(L, 2), a);
if(o == 0){
lua_pushinteger(L, o);
return 1;
}
lua_newtable(L);
int tidx = lua_gettop(L);
for(int i = 0; i != a->len; i++){
//printf("%s:%s\n",a->P[i].key->c, (char*)a->P[i].value);
luaI_tsets(L, tidx, a->P[i].key->c, (char*)a->P[i].value);
}
lua_pushinteger(L, o);
lua_pushvalue(L, tidx);
return 2;
}
int l_stack_dump(lua_State* L){
/*StkId a = L->top.p-2;
printf("%i %i\n", ttype(s2v(a)), LUA_TSTRING);
printf("is string? %i\n", ttisstring(&a->val));
printf("%s\n", tsvalue(&a->val)->contents);*/
//int level = 0;
//lua_lock(L);
//for(CallInfo* ci = L->ci; ci != &L->base_ci; ci = ci->previous) level++;
//lua_unlock(L);
//level -= 2;
//printf("%i\n", level);
lua_Debug info;
for(int i = 0; ; i++){
if(lua_getstack(L, i, &info) == 0) break;
for(int idx = 1;; idx++){
const char* name = lua_getlocal(L, &info, idx);
if(name == NULL) break;
printf("l:%i | %s = %s %s\n", i, name, lua_tostring(L, -1), lua_typename(L, lua_type(L, -1)));
lua_pop(L, 1);
}
}
//lua_getstack(L, level, &info);
//const char* name = lua_getlocal(L, &info, 2);
return 0;
}
|
