| /* |
| ** $Id: luadebug.h,v 1.14 2000/09/11 20:29:27 roberto Exp roberto $ |
| ** Debugging API |
| ** See Copyright Notice in lua.h |
| */ |
| |
| |
| #ifndef luadebug_h |
| #define luadebug_h |
| |
| |
| #include "lua.h" |
| |
| typedef struct lua_Debug lua_Debug; /* activation record */ |
| typedef struct lua_Localvar lua_Localvar; |
| |
| typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); |
| |
| |
| int lua_getstack (lua_State *L, int level, lua_Debug *ar); |
| int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar); |
| const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int localnum); |
| const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int localnum); |
| |
| lua_Hook lua_setcallhook (lua_State *L, lua_Hook func); |
| lua_Hook lua_setlinehook (lua_State *L, lua_Hook func); |
| |
| |
| #define LUA_IDSIZE 60 |
| |
| struct lua_Debug { |
| const char *event; /* `call', `return' */ |
| int currentline; /* (l) */ |
| const char *name; /* (n) */ |
| const char *namewhat; /* (n) `global', `tag method', `local', `field' */ |
| int nups; /* (u) number of upvalues */ |
| int linedefined; /* (S) */ |
| const char *what; /* (S) `Lua' function, `C' function, Lua `main' */ |
| const char *source; /* (S) */ |
| char short_src[LUA_IDSIZE]; /* (S) */ |
| /* private part */ |
| struct lua_TObject *_func; /* active function */ |
| }; |
| |
| |
| #endif |