mirror of
https://github.com/lua/lua
synced 2024-12-05 02:41:56 +03:00
219 lines
5.0 KiB
C
219 lines
5.0 KiB
C
/*
|
|
** $Id: ldblib.c,v 1.2 1999/01/11 18:57:35 roberto Exp roberto $
|
|
** Interface from Lua to its debug API
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "lauxlib.h"
|
|
#include "lua.h"
|
|
#include "luadebug.h"
|
|
#include "lualib.h"
|
|
|
|
|
|
|
|
static void settabss (lua_Object t, char *i, char *v) {
|
|
lua_pushobject(t);
|
|
lua_pushstring(i);
|
|
lua_pushstring(v);
|
|
lua_settable();
|
|
}
|
|
|
|
|
|
static void settabsi (lua_Object t, char *i, int v) {
|
|
lua_pushobject(t);
|
|
lua_pushstring(i);
|
|
lua_pushnumber(v);
|
|
lua_settable();
|
|
}
|
|
|
|
|
|
static lua_Object getfuncinfo (lua_Object func) {
|
|
lua_Object result = lua_createtable();
|
|
char *name;
|
|
int line;
|
|
lua_funcinfo(func, &name, &line);
|
|
if (line == -1) /* C function? */
|
|
settabss(result, "kind", "C");
|
|
else if (line == 0) { /* "main"? */
|
|
settabss(result, "kind", "chunk");
|
|
settabss(result, "name", name);
|
|
}
|
|
else { /* Lua function */
|
|
settabss(result, "kind", "Lua");
|
|
settabsi(result, "def_line", line);
|
|
settabss(result, "def_chunk", name);
|
|
}
|
|
if (line != 0) { /* is it not a "main"? */
|
|
char *kind = lua_getobjname(func, &name);
|
|
if (*kind) {
|
|
settabss(result, "name", name);
|
|
settabss(result, "where", kind);
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
|
|
static void getstack (void) {
|
|
lua_Object func = lua_stackedfunction(luaL_check_int(1));
|
|
if (func == LUA_NOOBJECT) /* level out of range? */
|
|
return;
|
|
else {
|
|
lua_Object result = getfuncinfo(func);
|
|
int currline = lua_currentline(func);
|
|
if (currline > 0)
|
|
settabsi(result, "current", currline);
|
|
lua_pushobject(result);
|
|
lua_pushstring("func");
|
|
lua_pushobject(func);
|
|
lua_settable(); /* result.func = func */
|
|
lua_pushobject(result);
|
|
}
|
|
}
|
|
|
|
|
|
static void funcinfo (void) {
|
|
lua_pushobject(getfuncinfo(luaL_functionarg(1)));
|
|
}
|
|
|
|
|
|
static int findlocal (lua_Object func, int arg) {
|
|
lua_Object v = lua_getparam(arg);
|
|
if (lua_isnumber(v))
|
|
return (int)lua_getnumber(v);
|
|
else {
|
|
char *name = luaL_check_string(arg);
|
|
int i = 0;
|
|
int result = -1;
|
|
char *vname;
|
|
while (lua_getlocal(func, ++i, &vname) != LUA_NOOBJECT) {
|
|
if (strcmp(name, vname) == 0)
|
|
result = i; /* keep looping to get the last var with this name */
|
|
}
|
|
if (result == -1)
|
|
luaL_verror("no local variable `%.50s' at given level", name);
|
|
return result;
|
|
}
|
|
}
|
|
|
|
|
|
static void getlocal (void) {
|
|
lua_Object func = lua_stackedfunction(luaL_check_int(1));
|
|
lua_Object val;
|
|
char *name;
|
|
if (func == LUA_NOOBJECT) /* level out of range? */
|
|
return; /* return nil */
|
|
else if (lua_getparam(2) != LUA_NOOBJECT) { /* 2nd argument? */
|
|
if ((val = lua_getlocal(func, findlocal(func, 2), &name)) != LUA_NOOBJECT) {
|
|
lua_pushobject(val);
|
|
lua_pushstring(name);
|
|
}
|
|
/* else return nil */
|
|
}
|
|
else { /* collect all locals in a table */
|
|
lua_Object result = lua_createtable();
|
|
int i;
|
|
for (i=1; ;i++) {
|
|
if ((val = lua_getlocal(func, i, &name)) == LUA_NOOBJECT)
|
|
break;
|
|
lua_pushobject(result);
|
|
lua_pushstring(name);
|
|
lua_pushobject(val);
|
|
lua_settable(); /* result[name] = value */
|
|
}
|
|
lua_pushobject(result);
|
|
}
|
|
}
|
|
|
|
|
|
static void setlocal (void) {
|
|
lua_Object func = lua_stackedfunction(luaL_check_int(1));
|
|
int numvar;
|
|
luaL_arg_check(func != LUA_NOOBJECT, 1, "level out of range");
|
|
numvar = findlocal(func, 2);
|
|
lua_pushobject(luaL_nonnullarg(3));
|
|
if (!lua_setlocal(func, numvar))
|
|
lua_error("no such local variable");
|
|
}
|
|
|
|
|
|
|
|
static int linehook = -1; /* Lua reference to line hook function */
|
|
static int callhook = -1; /* Lua reference to call hook function */
|
|
|
|
|
|
static void dohook (int ref) {
|
|
lua_LHFunction oldlinehook = lua_linehook; /* save old hooks */
|
|
lua_CHFunction oldcallhook = lua_callhook;
|
|
lua_linehook = NULL; lua_callhook = NULL; /* to avoid recusive calls */
|
|
lua_callfunction(lua_getref(ref));
|
|
lua_linehook = oldlinehook; /* restore old hooks */
|
|
lua_callhook = oldcallhook;
|
|
}
|
|
|
|
|
|
static void linef (int line) {
|
|
lua_pushnumber(line);
|
|
dohook(linehook);
|
|
}
|
|
|
|
|
|
static void callf (lua_Function func, char *file, int line) {
|
|
if (func != LUA_NOOBJECT) {
|
|
lua_pushobject(func);
|
|
lua_pushstring(file);
|
|
lua_pushnumber(line);
|
|
}
|
|
dohook(callhook);
|
|
}
|
|
|
|
|
|
static void setcallhook (void) {
|
|
lua_Object f = lua_getparam(1);
|
|
lua_unref(callhook);
|
|
if (f == LUA_NOOBJECT) {
|
|
callhook = -1;
|
|
lua_callhook = NULL;
|
|
}
|
|
else {
|
|
lua_pushobject(f);
|
|
callhook = lua_ref(1);
|
|
lua_callhook = callf;
|
|
}
|
|
}
|
|
|
|
|
|
static void setlinehook (void) {
|
|
lua_Object f = lua_getparam(1);
|
|
lua_unref(linehook);
|
|
if (f == LUA_NOOBJECT) {
|
|
linehook = -1;
|
|
lua_linehook = NULL;
|
|
}
|
|
else {
|
|
lua_pushobject(f);
|
|
linehook = lua_ref(1);
|
|
lua_linehook = linef;
|
|
}
|
|
}
|
|
|
|
|
|
static struct luaL_reg dblib[] = {
|
|
{"funcinfo", funcinfo},
|
|
{"getlocal", getlocal},
|
|
{"getstack", getstack},
|
|
{"setcallhook", setcallhook},
|
|
{"setlinehook", setlinehook},
|
|
{"setlocal", setlocal}
|
|
};
|
|
|
|
|
|
void lua_dblibopen (void) {
|
|
luaL_openlib(dblib, (sizeof(dblib)/sizeof(dblib[0])));
|
|
}
|
|
|