mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new way to ensure uniqueness of registry keys

This commit is contained in:
Roberto Ierusalimschy 2000-10-26 17:04:22 -02:00
parent 4670476584
commit 563b1f5704
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ldblib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ldblib.c,v 1.24 2000/10/24 19:12:06 roberto Exp roberto $
** $Id: ldblib.c,v 1.25 2000/10/26 18:44:26 roberto Exp roberto $
** Interface from Lua to its debug API
** See Copyright Notice in lua.h
*/
@ -110,13 +110,15 @@ static int setlocal (lua_State *L) {
#define KEY_CALLHOOK "lua.dblib.callhook"
#define KEY_LINEHOOK "lua.dblib.linehook"
/* dummy variables (to define unique addresses) */
static char key1, key2;
#define KEY_CALLHOOK (&key1)
#define KEY_LINEHOOK (&key2)
static void hookf (lua_State *L, const char *key) {
static void hookf (lua_State *L, void *key) {
lua_getregistry(L);
lua_pushstring(L, key);
lua_pushuserdata(L, key);
lua_gettable(L, -2);
if (lua_isfunction(L, -1)) {
lua_pushvalue(L, 1);
@ -140,11 +142,11 @@ static void linef (lua_State *L, lua_Debug *ar) {
}
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_settop(L, 1);
lua_getregistry(L);
lua_pushstring(L, key);
lua_pushuserdata(L, key);
if (lua_isnil(L, 1))
(*sethookf)(L, NULL);
else if (lua_isfunction(L, 1))