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

another (silly) debuging function.

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1999-02-08 14:29:35 -02:00
parent 7bdbd833b5
commit 19ca2087de
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lbuiltin.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbuiltin.c,v 1.48 1999/01/26 15:38:01 roberto Exp roberto $ ** $Id: lbuiltin.c,v 1.49 1999/02/04 19:12:35 roberto Exp roberto $
** Built-in functions ** Built-in functions
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -604,6 +604,11 @@ static void mem_query (void) {
} }
static void query_strings (void) {
lua_pushnumber(L->string_root[luaL_check_int(1)].nuse);
}
static void countlist (void) { static void countlist (void) {
char *s = luaL_check_string(1); char *s = luaL_check_string(1);
GCnode *l = (s[0]=='t') ? L->roottable.next : (s[0]=='c') ? L->rootcl.next : GCnode *l = (s[0]=='t') ? L->roottable.next : (s[0]=='c') ? L->rootcl.next :
@ -677,6 +682,7 @@ static struct luaL_reg builtin_funcs[] = {
{"testC", testC}, {"testC", testC},
{"totalmem", mem_query}, {"totalmem", mem_query},
{"count", countlist}, {"count", countlist},
{"querystr", query_strings},
#endif #endif
{"_ALERT", luaB_alert}, {"_ALERT", luaB_alert},
{"_ERRORMESSAGE", error_message}, {"_ERRORMESSAGE", error_message},