mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-22 21:01:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

registry mechanism

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-10-24 17:12:06 -02:00
parent e833bd47c9
commit cdc8139e29
3 changed files with 50 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
ldblib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldblib.c,v 1.22 2000/10/02 20:10:55 roberto Exp roberto $ ** $Id: ldblib.c,v 1.23 2000/10/20 16:39:03 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
*/ */
@ -109,58 +109,61 @@ static int setlocal (lua_State *L) {
} }
/*
** because of these variables, this module is not reentrant, and should
** not be used in multiple states
*/
static int linehook = LUA_NOREF; /* Lua reference to line hook function */ #define KEY_CALLHOOK "dblib_callhook"
static int callhook = LUA_NOREF; /* Lua reference to call hook function */ #define KEY_LINEHOOK "dblib_linehook"
static void hookf (lua_State *L, const char *key) {
static void linef (lua_State *L, lua_Debug *ar) { lua_getregistry(L);
if (linehook != LUA_NOREF) { lua_pushstring(L, key);
lua_getref(L, linehook); lua_gettable(L, -2);
lua_pushnumber(L, ar->currentline); if (lua_isfunction(L, -1)) {
lua_pushvalue(L, 1);
lua_call(L, 1, 0); lua_call(L, 1, 0);
} }
else
lua_pop(L, 1); /* pop result from gettable */
lua_pop(L, 1); /* pop table */
} }
static void callf (lua_State *L, lua_Debug *ar) { static void callf (lua_State *L, lua_Debug *ar) {
if (callhook != LUA_NOREF) { lua_pushstring(L, ar->event);
lua_getref(L, callhook); hookf(L, KEY_CALLHOOK);
lua_pushstring(L, ar->event); }
lua_call(L, 1, 0);
}
static void linef (lua_State *L, lua_Debug *ar) {
lua_pushnumber(L, ar->currentline);
hookf(L, KEY_LINEHOOK);
}
static void sethook (lua_State *L, const char *key, lua_Hook hook,
lua_Hook (*sethookf)(lua_State * L, lua_Hook h)) {
lua_settop(L, 1);
lua_getregistry(L);
lua_pushstring(L, key);
if (lua_isnil(L, 1))
(*sethookf)(L, NULL);
else if (lua_isfunction(L, 1))
(*sethookf)(L, hook);
else
luaL_argerror(L, 1, "function expected");
lua_pushvalue(L, 1);
lua_settable(L, -3);
} }
static int setcallhook (lua_State *L) { static int setcallhook (lua_State *L) {
lua_unref(L, callhook); sethook(L, KEY_CALLHOOK, callf, lua_setcallhook);
if (lua_isnull(L, 1)) {
callhook = LUA_NOREF;
lua_setcallhook(L, NULL);
}
else {
callhook = lua_ref(L, 1);
lua_setcallhook(L, callf);
}
return 0; return 0;
} }
static int setlinehook (lua_State *L) { static int setlinehook (lua_State *L) {
lua_unref(L, linehook); sethook(L, KEY_LINEHOOK, linef, lua_setlinehook);
if (lua_isnull(L, 1)) {
linehook = LUA_NOREF;
lua_setlinehook(L, NULL);
}
else {
linehook = lua_ref(L, 1);
lua_setlinehook(L, linef);
}
return 0; return 0;
} }

7
lstate.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.c,v 1.44 2000/10/06 19:28:47 roberto Exp roberto $ ** $Id: lstate.c,v 1.45 2000/10/20 16:39:03 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -47,16 +47,19 @@ static void f_luaopen (lua_State *L, void *ud) {
stacksize = DEFAULT_STACK_SIZE; stacksize = DEFAULT_STACK_SIZE;
else else
stacksize += LUA_MINSTACK; stacksize += LUA_MINSTACK;
L->gt = luaH_new(L, 10); L->gt = luaH_new(L, 10); /* table of globals */
luaD_init(L, stacksize); luaD_init(L, stacksize);
luaS_init(L); luaS_init(L);
luaX_init(L); luaX_init(L);
luaT_init(L); luaT_init(L);
lua_newtable(L);
lua_ref(L, 1); /* create registry */
lua_register(L, LUA_ERRORMESSAGE, errormessage); lua_register(L, LUA_ERRORMESSAGE, errormessage);
#ifdef DEBUG #ifdef DEBUG
luaB_opentests(L); luaB_opentests(L);
if (lua_state == NULL) lua_state = L; /* keep first state to be opened */ if (lua_state == NULL) lua_state = L; /* keep first state to be opened */
#endif #endif
LUA_ASSERT(lua_gettop(L) == 0, "wrong API stack");
} }

8
lua.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lua.h,v 1.74 2000/10/09 15:46:43 roberto Exp roberto $ ** $Id: lua.h,v 1.75 2000/10/20 16:39:03 roberto Exp roberto $
** Lua - An Extensible Extension Language ** Lua - An Extensible Extension Language
** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
** e-mail: lua@tecgraf.puc-rio.br ** e-mail: lua@tecgraf.puc-rio.br
@ -29,12 +29,16 @@
#define LUA_ERRORMESSAGE "_ERRORMESSAGE" #define LUA_ERRORMESSAGE "_ERRORMESSAGE"
/* pre-defined references */
#define LUA_NOREF (-2) #define LUA_NOREF (-2)
#define LUA_REFNIL (-1) #define LUA_REFNIL (-1)
#define LUA_REFREGISTRY 0
/* pre-defined tags */
#define LUA_ANYTAG (-1) #define LUA_ANYTAG (-1)
#define LUA_NOTAG (-2) #define LUA_NOTAG (-2)
#define LUA_MULTRET (-1) #define LUA_MULTRET (-1)
@ -198,6 +202,8 @@ LUA_API void lua_concat (lua_State *L, int n);
#define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL) #define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL)
#define lua_isnull(L,n) (lua_type(L,n) == LUA_TNONE) #define lua_isnull(L,n) (lua_type(L,n) == LUA_TNONE)
#define lua_getregistry(L) lua_getref(L, LUA_REFREGISTRY)
#endif #endif