GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

New function 'lua_printvalue' for internal debugging

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2024-12-02 11:19:03 -03:00
parent 62afbc6bfc
commit 04e495403b
2 changed files with 43 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ltests.c
View File

@ -325,6 +325,37 @@ void lua_printobj (lua_State *L, struct GCObject *o) {
printobj(G(L), o);
}
void lua_printvalue (TValue *v) {
switch (ttype(v)) {
case LUA_TNUMBER: {
char buff[LUA_N2SBUFFSZ];
unsigned len = luaO_tostringbuff(v, buff);
buff[len] = '\0';
printf("%s", buff);
break;
}
case LUA_TSTRING: {
printf("'%s'", getstr(tsvalue(v)));
break;
}
case LUA_TBOOLEAN: {
printf("%s", (!l_isfalse(v) ? "true" : "false"));
break;
}
case LUA_TNIL: {
printf("nil");
break;
}
default: {
void *p = iscollectable(v) ? gcvalue(v) : NULL;
printf("%s: %p", ttypename(ttype(v)), p);
break;
}
}
}
static int testobjref (global_State *g, GCObject *f, GCObject *t) {
int r1 = testobjref1(g, f, t);
if (!r1) {
@ -827,8 +858,9 @@ void lua_printstack (lua_State *L) {
int n = lua_gettop(L);
printf("stack: >>\n");
for (i = 1; i <= n; i++) {
printf("%3d: %s\n", i, luaL_tolstring(L, i, NULL));
lua_pop(L, 1);
printf("%3d: ", i);
lua_printvalue(s2v(L->ci->func.p + i));
printf("\n");
}
printf("<<\n");
}
@ -1681,8 +1713,8 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
else if EQ("printstack") {
int n = getnum;
if (n != 0) {
printf("%s\n", luaL_tolstring(L1, n, NULL));
lua_pop(L1, 1);
lua_printvalue(s2v(L->ci->func.p + n));
printf("\n");
}
else lua_printstack(L1);
}

7
ltests.h
View File

@ -79,6 +79,13 @@ LUAI_FUNC int lua_checkmemory (lua_State *L);
struct GCObject;
LUAI_FUNC void lua_printobj (lua_State *L, struct GCObject *o);
/*
** Function to print a value
*/
struct TValue;
LUAI_FUNC void lua_printvalue (struct TValue *v);
/*
** Function to print the stack
*/