nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use addresses as keys to hooks

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-04-09 16:48:08 -03:00
parent 7b65328c8e
commit 018e50ad7f
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
ldblib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ldblib.c,v 1.45 2002/03/27 15:30:41 roberto Exp roberto $ ** $Id: ldblib.c,v 1.46 2002/04/02 20:41:59 roberto Exp roberto $
** Interface from Lua to its debug API ** Interface from Lua to its debug API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -110,12 +110,12 @@ static int setlocal (lua_State *L) {
#define KEY_CALLHOOK "luadblibCallhook" static const char KEY_CALLHOOK = 'c';
#define KEY_LINEHOOK "luadblibLinehook" static const char KEY_LINEHOOK = 'l';
static void hookf (lua_State *L, const char *key) { static void hookf (lua_State *L, void *key) {
lua_pushstring(L, key); lua_pushudataval(L, key);
lua_rawget(L, LUA_REGISTRYINDEX); lua_rawget(L, LUA_REGISTRYINDEX);
if (lua_isfunction(L, -1)) { if (lua_isfunction(L, -1)) {
lua_pushvalue(L, -2); /* original argument (below function) */ lua_pushvalue(L, -2); /* original argument (below function) */
@@ -128,17 +128,17 @@ static void hookf (lua_State *L, const char *key) {
static void callf (lua_State *L, lua_Debug *ar) { static void callf (lua_State *L, lua_Debug *ar) {
lua_pushstring(L, ar->event); lua_pushstring(L, ar->event);
hookf(L, KEY_CALLHOOK); hookf(L, (void *)&KEY_CALLHOOK);
} }
static void linef (lua_State *L, lua_Debug *ar) { static void linef (lua_State *L, lua_Debug *ar) {
lua_pushnumber(L, ar->currentline); lua_pushnumber(L, ar->currentline);
hookf(L, KEY_LINEHOOK); hookf(L, (void *)&KEY_LINEHOOK);
} }
static void sethook (lua_State *L, const char *key, lua_Hook hook, static void sethook (lua_State *L, void *key, lua_Hook hook,
lua_Hook (*sethookf)(lua_State * L, lua_Hook h)) { lua_Hook (*sethookf)(lua_State * L, lua_Hook h)) {
lua_settop(L, 1); lua_settop(L, 1);
if (lua_isnoneornil(L, 1)) if (lua_isnoneornil(L, 1))
@@ -147,22 +147,22 @@ static void sethook (lua_State *L, const char *key, lua_Hook hook,
(*sethookf)(L, hook); (*sethookf)(L, hook);
else else
luaL_argerror(L, 1, "function expected"); luaL_argerror(L, 1, "function expected");
lua_pushstring(L, key); lua_pushudataval(L, key);
lua_rawget(L, LUA_REGISTRYINDEX); /* get old value */ lua_rawget(L, LUA_REGISTRYINDEX); /* get old value */
lua_pushstring(L, key); lua_pushudataval(L, key);
lua_pushvalue(L, 1); lua_pushvalue(L, 1);
lua_rawset(L, LUA_REGISTRYINDEX); /* set new value */ lua_rawset(L, LUA_REGISTRYINDEX); /* set new value */
} }
static int setcallhook (lua_State *L) { static int setcallhook (lua_State *L) {
sethook(L, KEY_CALLHOOK, callf, lua_setcallhook); sethook(L, (void *)&KEY_CALLHOOK, callf, lua_setcallhook);
return 1; return 1;
} }
static int setlinehook (lua_State *L) { static int setlinehook (lua_State *L) {
sethook(L, KEY_LINEHOOK, linef, lua_setlinehook); sethook(L, (void *)&KEY_LINEHOOK, linef, lua_setlinehook);
return 1; return 1;
} }