diff options
Diffstat (limited to 'ltests.c')
-rw-r--r-- | ltests.c | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 1.47 2000/10/02 20:10:55 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.48 2000/10/05 12:14:08 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -438,6 +438,16 @@ static int testC (lua_State *L) { | |||
438 | else if EQ("dostring") { | 438 | else if EQ("dostring") { |
439 | lua_dostring(L, luaL_check_string(L, getnum)); | 439 | lua_dostring(L, luaL_check_string(L, getnum)); |
440 | } | 440 | } |
441 | else if EQ("settagmethod") { | ||
442 | int tag = getnum; | ||
443 | const char *event = getname; | ||
444 | lua_settagmethod(L, tag, event); | ||
445 | } | ||
446 | else if EQ("gettagmethod") { | ||
447 | int tag = getnum; | ||
448 | const char *event = getname; | ||
449 | lua_gettagmethod(L, tag, event); | ||
450 | } | ||
441 | else if EQ("type") { | 451 | else if EQ("type") { |
442 | lua_pushstring(L, lua_typename(L, lua_type(L, getnum))); | 452 | lua_pushstring(L, lua_typename(L, lua_type(L, getnum))); |
443 | } | 453 | } |