| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| 6 | #ifndef _LJ_DEBUG_H |
| 7 | #define _LJ_DEBUG_H |
| 8 | |
| 9 | #include "lj_obj.h" |
| 10 | |
| 11 | typedef struct lj_Debug { |
| 12 | |
| 13 | int event; |
| 14 | const char *name; |
| 15 | const char *namewhat; |
| 16 | const char *what; |
| 17 | const char *source; |
| 18 | int currentline; |
| 19 | int nups; |
| 20 | int linedefined; |
| 21 | int lastlinedefined; |
| 22 | char short_src[LUA_IDSIZE]; |
| 23 | int i_ci; |
| 24 | |
| 25 | int nparams; |
| 26 | int isvararg; |
| 27 | } lj_Debug; |
| 28 | |
| 29 | LJ_FUNC cTValue *lj_debug_frame(lua_State *L, int level, int *size); |
| 30 | LJ_FUNC BCLine LJ_FASTCALL lj_debug_line(GCproto *pt, BCPos pc); |
| 31 | LJ_FUNC const char *lj_debug_uvname(GCproto *pt, uint32_t idx); |
| 32 | LJ_FUNC const char *lj_debug_uvnamev(cTValue *o, uint32_t idx, TValue **tvp, |
| 33 | GCobj **op); |
| 34 | LJ_FUNC const char *lj_debug_slotname(GCproto *pt, const BCIns *pc, |
| 35 | BCReg slot, const char **name); |
| 36 | LJ_FUNC const char *lj_debug_funcname(lua_State *L, TValue *frame, |
| 37 | const char **name); |
| 38 | LJ_FUNC void lj_debug_shortname(char *out, GCstr *str); |
| 39 | LJ_FUNC void lj_debug_addloc(lua_State *L, const char *msg, |
| 40 | cTValue *frame, cTValue *nextframe); |
| 41 | LJ_FUNC void lj_debug_pushloc(lua_State *L, GCproto *pt, BCPos pc); |
| 42 | LJ_FUNC int lj_debug_getinfo(lua_State *L, const char *what, lj_Debug *ar, |
| 43 | int ext); |
| 44 | |
| 45 | |
| 46 | #define VARNAMEDEF(_) \ |
| 47 | _(FOR_IDX, "(for index)") \ |
| 48 | _(FOR_STOP, "(for limit)") \ |
| 49 | _(FOR_STEP, "(for step)") \ |
| 50 | _(FOR_GEN, "(for generator)") \ |
| 51 | _(FOR_STATE, "(for state)") \ |
| 52 | _(FOR_CTL, "(for control)") |
| 53 | |
| 54 | enum { |
| 55 | VARNAME_END, |
| 56 | #define VARNAMEENUM(name, str) VARNAME_##name, |
| 57 | VARNAMEDEF(VARNAMEENUM) |
| 58 | #undef VARNAMEENUM |
| 59 | VARNAME__MAX |
| 60 | }; |
| 61 | |
| 62 | #endif |