first commit

[rbdr/pico-engine] / LuaDebugger.cpp

// ---------------------------------------------------------------------------\r
// FILE NAME            : LuaDebugger.cpp\r
// ---------------------------------------------------------------------------\r
// DESCRIPTION :\r
//\r
// Simple debugging routines\r
// \r
// ---------------------------------------------------------------------------\r
// VERSION              : 1.00\r
// DATE                 : 1-Sep-2005\r
// AUTHOR               : Richard Shephard\r
// ---------------------------------------------------------------------------\r
// LIBRARY INCLUDE FILES\r
#include "luadebugger.h"\r
// ---------------------------------------------------------------------------\r
\r
// typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);\r
static void LuaHookCall (lua_State *lua)\r
{\r
   \r
   printf ("---- Call Stack ----\n");\r
//   printf ("[Level] [Function] [# args] [@line] [src]\n");\r
\r
   lua_Debug ar;\r
   \r
   // Look at call stack\r
   for (int iLevel = 0; lua_getstack (lua, iLevel, &ar) != 0; ++iLevel)\r
   {\r
      if (lua_getinfo (lua, "Snlu", &ar) != 0)\r
      {\r
         printf ("%d %s %s %d @%d %s\n", iLevel, ar.namewhat, ar.name, ar.nups, ar.linedefined, ar.short_src);\r
      }\r
   }\r
}\r
\r
static void LuaHookRet (lua_State *lua)\r
{\r
   \r
}\r
\r
static void LuaHookLine (lua_State *lua)\r
{\r
   lua_Debug ar;\r
   lua_getstack (lua, 0, &ar);\r
   \r
\r
   if (lua_getinfo (lua, "Sl", &ar) != 0)\r
   {\r
      printf ("exe %s on line %d\n", ar.short_src, ar.currentline);\r
   }\r
}\r
\r
static void LuaHookCount (lua_State *lua)\r
{\r
   LuaHookLine (lua);\r
}\r
\r
static void LuaHook (lua_State *lua, lua_Debug *ar)\r
{\r
   // Handover to the correct hook\r
   switch (ar->event)\r
   {\r
   case LUA_HOOKCALL:\r
      LuaHookCall (lua);\r
      break;\r
   case LUA_HOOKRET:\r
   case LUA_HOOKTAILRET:\r
      LuaHookRet (lua);\r
      break;\r
   case LUA_HOOKLINE:\r
      LuaHookLine (lua);\r
      break;\r
   case LUA_HOOKCOUNT:\r
      LuaHookCount (lua);\r
      break;\r
   }\r
}\r
\r
CLuaDebugger::CLuaDebugger (CLuaVirtualMachine& vm) : m_iCountMask (10), m_vm (vm)\r
{\r
   // Clear all current hooks\r
   if (vm.Ok ())\r
   {\r
      vm.AttachDebugger (this);\r
      lua_sethook ((lua_State *) vm, LuaHook, 0, m_iCountMask);\r
   }\r
}\r
\r
CLuaDebugger::~CLuaDebugger (void)\r
{\r
   // Clear all current hooks\r
   if (m_vm.Ok ())\r
   {\r
      lua_sethook ((lua_State *) m_vm, LuaHook, 0, m_iCountMask);\r
   }\r
}\r
\r
void CLuaDebugger::SetHooksFlag (int iMask)\r
{\r
   // Set hooks\r
   lua_sethook ((lua_State *) m_vm, LuaHook, iMask, m_iCountMask);\r
}\r
\r
void CLuaDebugger::ErrorRun (int iErrorCode)\r
{\r
   switch (iErrorCode)\r
   {\r
   case LUA_ERRRUN:\r
      printf ("LUA_ERRRUN\n");\r
      break;\r
   case LUA_ERRMEM:\r
      printf ("LUA_ERRMEM\n");\r
      break;\r
   case LUA_ERRERR:\r
      printf ("LUA_ERRERR\n");\r
      break;\r
   }\r
\r
   // Get the error string that appears on top of stack when a function\r
   // fails to run\r
   printf ("Error: %s\n", lua_tostring ((lua_State *) m_vm, -1));\r
}