2010-01-13 18:26:03 +00:00
|
|
|
#include <C4Include.h>
|
|
|
|
#include <C4Version.h>
|
|
|
|
#include <C4GameControl.h>
|
|
|
|
#include <C4Game.h>
|
|
|
|
#include <C4MessageInput.h>
|
2010-01-15 00:47:20 +00:00
|
|
|
#include <C4Log.h>
|
2010-04-26 18:16:04 +00:00
|
|
|
#include <C4Object.h>
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
#include "C4AulDebug.h"
|
|
|
|
#include "C4AulExec.h"
|
|
|
|
|
2010-02-24 18:16:17 +00:00
|
|
|
#ifndef NOAULDEBUG
|
|
|
|
|
2010-01-13 18:26:03 +00:00
|
|
|
// *** C4AulDebug
|
|
|
|
|
|
|
|
C4AulDebug::C4AulDebug()
|
2010-03-28 18:58:01 +00:00
|
|
|
: fInit(false), fConnected(false)
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
ZeroMem(&PeerAddr, sizeof PeerAddr);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
C4AulDebug::~C4AulDebug()
|
2010-01-15 04:46:16 +00:00
|
|
|
{
|
|
|
|
for (std::list<StdStrBuf*>::iterator it = StackTrace.begin(); it != StackTrace.end(); it++)
|
|
|
|
{delete *it;}
|
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::PackPacket(const C4NetIOPacket &rPacket, StdBuf &rOutBuf)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Enlarge buffer
|
|
|
|
int iSize = rPacket.getSize(),
|
2010-03-28 18:58:01 +00:00
|
|
|
iPos = rOutBuf.getSize();
|
2010-01-13 18:26:03 +00:00
|
|
|
rOutBuf.Grow(iSize + 2);
|
|
|
|
// Write packet
|
|
|
|
rOutBuf.Write(rPacket, iPos);
|
|
|
|
// Terminate
|
|
|
|
uint8_t *pPos = getMBufPtr<uint8_t>(rOutBuf, iPos + iSize);
|
|
|
|
*pPos = '\r'; *(pPos + 1) = '\n';
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
size_t C4AulDebug::UnpackPacket(const StdBuf &rInBuf, const C4NetIO::addr_t &addr)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-04-01 21:08:06 +00:00
|
|
|
// Find line separation
|
2010-03-28 18:58:01 +00:00
|
|
|
const char *pSep = reinterpret_cast<const char *>(memchr(rInBuf.getData(), '\n', rInBuf.getSize()));
|
|
|
|
if (!pSep)
|
2010-01-13 18:26:03 +00:00
|
|
|
return 0;
|
2010-04-01 21:08:06 +00:00
|
|
|
// Check if it's windows-style separation
|
2010-01-13 18:26:03 +00:00
|
|
|
int iSize = pSep - getBufPtr<char>(rInBuf) + 1,
|
2010-03-28 18:58:01 +00:00
|
|
|
iLength = iSize - 1;
|
|
|
|
if (iLength && *(pSep - 1) == '\r')
|
2010-01-13 18:26:03 +00:00
|
|
|
iLength--;
|
|
|
|
// Copy the line
|
|
|
|
StdStrBuf Buf; Buf.Copy(getBufPtr<char>(rInBuf), iLength);
|
|
|
|
// Password line?
|
2010-03-28 18:58:01 +00:00
|
|
|
if (fConnected)
|
2010-01-13 18:26:03 +00:00
|
|
|
ProcessLine(Buf);
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (!Password.getSize() || Password == Buf)
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
fConnected = true;
|
2010-03-28 18:58:01 +00:00
|
|
|
SendLine("HLO", "This is " C4ENGINEINFOLONG ", " C4VERSION);
|
2010-01-13 18:26:03 +00:00
|
|
|
Log("C4Aul debugger connected successfully!");
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
else
|
|
|
|
C4NetIOTCP::Close(PeerAddr);
|
|
|
|
// Consume line
|
|
|
|
return iSize;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
bool C4AulDebug::OnConn(const C4NetIO::addr_t &AddrPeer, const C4NetIO::addr_t &AddrConnect, const addr_t *pOwnAddr, C4NetIO *pNetIO)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
assert(pNetIO == this);
|
|
|
|
// Already have a connection?
|
2010-03-28 18:58:01 +00:00
|
|
|
if (fConnected) return false;
|
2010-01-13 18:26:03 +00:00
|
|
|
// Check address
|
2010-03-28 18:58:01 +00:00
|
|
|
if (AllowedAddr.sin_addr.s_addr)
|
|
|
|
if (AllowedAddr.sin_addr.s_addr != AddrPeer.sin_addr.s_addr ||
|
|
|
|
(AllowedAddr.sin_port && AllowedAddr.sin_port != AddrPeer.sin_port))
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
LogF("C4AulDebug blocked connection from %s:%d", inet_ntoa(AddrPeer.sin_addr), htons(AddrPeer.sin_port));
|
|
|
|
return false;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
// Log
|
|
|
|
LogF("C4AulDebug got connection from %s:%d", inet_ntoa(AddrPeer.sin_addr), htons(AddrPeer.sin_port));
|
|
|
|
// Accept connection
|
|
|
|
PeerAddr = AddrPeer;
|
|
|
|
return true;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::OnDisconn(const C4NetIO::addr_t &AddrPeer, C4NetIO *pNetIO, const char *szReason)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
LogF("C4AulDebug lost connection (%s)", szReason);
|
|
|
|
fConnected = false;
|
|
|
|
eState = DS_Go;
|
|
|
|
ZeroMem(&PeerAddr, sizeof PeerAddr);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::OnPacket(const class C4NetIOPacket &rPacket, C4NetIO *pNetIO)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Won't get called
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
bool C4AulDebug::SetAllowed(const char *szHost)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Clear
|
|
|
|
ZeroMem(&AllowedAddr, sizeof(AllowedAddr));
|
|
|
|
// No host?
|
2010-03-28 18:58:01 +00:00
|
|
|
if (!szHost || !*szHost) return true;
|
2010-01-13 18:26:03 +00:00
|
|
|
// Resolve the address
|
|
|
|
return ResolveAddress(szHost, &AllowedAddr, 0);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
bool C4AulDebug::Init(uint16_t iPort)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
|
|
|
if (fInit) Close();
|
|
|
|
if (iPort == P_NONE) return false;
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Register self as callback for network events
|
|
|
|
C4NetIOTCP::SetCallback(this);
|
2010-03-28 18:58:01 +00:00
|
|
|
|
2010-01-13 18:26:03 +00:00
|
|
|
// Start listening
|
2010-03-28 18:58:01 +00:00
|
|
|
if (!C4NetIOTCP::Init(iPort))
|
2010-01-13 18:26:03 +00:00
|
|
|
return false;
|
|
|
|
|
|
|
|
// Okay
|
|
|
|
fInit = true;
|
|
|
|
eState = DS_Go;
|
|
|
|
return true;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
bool C4AulDebug::Close()
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
|
|
|
if (!fInit) return true;
|
2010-01-13 18:26:03 +00:00
|
|
|
fInit = fConnected = false;
|
|
|
|
return C4NetIOTCP::Close();
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
2010-03-21 18:18:27 +00:00
|
|
|
bool C4AulDebug::Close(const addr_t &addr)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
|
|
|
if (!fInit) return true;
|
2010-03-21 18:18:27 +00:00
|
|
|
bool success = C4NetIOTCP::Close(addr);
|
|
|
|
if (success)
|
|
|
|
fInit = fConnected = false;
|
|
|
|
return success;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-03-21 18:18:27 +00:00
|
|
|
|
2010-01-13 18:26:03 +00:00
|
|
|
void C4AulDebug::OnLog(const char *szLine)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
|
|
|
if (!fConnected) return;
|
2010-01-13 18:26:03 +00:00
|
|
|
SendLine("LOG", szLine);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::ProcessLine(const StdStrBuf &Line)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Get command
|
|
|
|
StdStrBuf Cmd;
|
|
|
|
Cmd.CopyUntil(Line.getData(), ' ');
|
|
|
|
// Get data
|
|
|
|
const char *szData = Line.getPtr(Cmd.getLength());
|
2010-03-28 18:58:01 +00:00
|
|
|
if (*szData) szData++;
|
2010-01-13 18:26:03 +00:00
|
|
|
// Identify command
|
|
|
|
const char *szCmd = Cmd.getData();
|
|
|
|
bool fOkay = true;
|
|
|
|
const char *szAnswer = NULL;
|
2010-03-28 18:58:01 +00:00
|
|
|
if (SEqualNoCase(szCmd, "HELP"))
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
fOkay = false; szAnswer = "Yeah, like I'm going to explain that /here/";
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
|
|
|
else if (SEqualNoCase(szCmd, "BYE") || SEqualNoCase(szCmd, "QUIT"))
|
2010-01-13 18:26:03 +00:00
|
|
|
C4NetIOTCP::Close(PeerAddr);
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "SAY"))
|
2010-01-13 18:26:03 +00:00
|
|
|
::Control.DoInput(CID_Message, new C4ControlMessage(C4CMT_Normal, szData), CDT_Direct);
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "CMD"))
|
2010-01-13 18:26:03 +00:00
|
|
|
::MessageInput.ProcessCommand(szData);
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "STP") || SEqualNoCase(szCmd, "S"))
|
2010-01-13 18:26:03 +00:00
|
|
|
eState = DS_Step;
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "GO") || SEqualNoCase(szCmd, "G"))
|
2010-01-13 18:26:03 +00:00
|
|
|
eState = DS_Go;
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "STO") || SEqualNoCase(szCmd, "O"))
|
2010-01-13 18:26:03 +00:00
|
|
|
eState = DS_StepOver;
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "STR") || SEqualNoCase(szCmd, "R"))
|
2010-01-13 18:26:03 +00:00
|
|
|
eState = DS_StepOut;
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "EXC") || SEqualNoCase(szCmd, "E"))
|
2010-04-26 18:16:04 +00:00
|
|
|
{
|
|
|
|
C4AulScriptContext* context = pExec->GetContext(pExec->GetContextDepth()-1);
|
|
|
|
int32_t objectNum = context && context->Obj ? context->Obj->Number : C4ControlScript::SCOPE_Global;
|
|
|
|
::Control.DoInput(CID_Script, new C4ControlScript(szData, objectNum, true, true), CDT_Decide);
|
|
|
|
}
|
2010-03-28 18:58:01 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "PSE"))
|
|
|
|
if (Game.IsPaused())
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
Game.Unpause();
|
|
|
|
szAnswer = "Game unpaused.";
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
else
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
Game.Pause();
|
|
|
|
szAnswer = "Game paused.";
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-15 00:47:20 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "LST"))
|
|
|
|
{
|
2010-03-28 18:58:01 +00:00
|
|
|
for (C4AulScript* script = ScriptEngine.Child0; script; script = script->Next)
|
|
|
|
{
|
2010-01-16 01:32:53 +00:00
|
|
|
SendLine(RelativePath(script->ScriptName));
|
2010-01-15 00:47:20 +00:00
|
|
|
}
|
|
|
|
}
|
2010-03-28 18:58:01 +00:00
|
|
|
|
2010-01-15 00:47:20 +00:00
|
|
|
// toggle breakpoint
|
|
|
|
else if (SEqualNoCase(szCmd, "TBR"))
|
|
|
|
{
|
2010-12-22 01:10:58 +00:00
|
|
|
// FIXME: this doesn't find functions which were included/appended
|
2010-01-15 00:47:20 +00:00
|
|
|
StdStrBuf scriptPath;
|
|
|
|
scriptPath.CopyUntil(szData, ':');
|
|
|
|
const char* lineStart = szData+1+scriptPath.getLength();
|
|
|
|
int line = strtol(szData+1+scriptPath.getLength(), const_cast<char**>(&lineStart), 10);
|
2010-03-28 18:58:01 +00:00
|
|
|
|
2010-01-15 00:47:20 +00:00
|
|
|
C4AulScript* script;
|
|
|
|
for (script = ScriptEngine.Child0; script; script = script->Next)
|
|
|
|
{
|
2010-01-16 01:32:53 +00:00
|
|
|
if (SEqualNoCase(RelativePath(script->ScriptName), scriptPath.getData()))
|
2010-01-15 00:47:20 +00:00
|
|
|
break;
|
|
|
|
}
|
2010-03-28 18:58:01 +00:00
|
|
|
|
2010-01-15 00:47:20 +00:00
|
|
|
if (script)
|
|
|
|
{
|
|
|
|
C4AulBCC* foundDebugChunk = NULL;
|
|
|
|
const char* scriptText = script->GetScript();
|
2010-10-25 21:48:08 +00:00
|
|
|
for (C4AulBCC* chunk = &script->Code[0]; chunk; chunk++)
|
2010-01-15 00:47:20 +00:00
|
|
|
{
|
2010-03-28 18:58:01 +00:00
|
|
|
switch (chunk->bccType)
|
|
|
|
{
|
|
|
|
case AB_DEBUG:
|
2010-10-25 21:48:08 +00:00
|
|
|
{
|
2010-12-22 01:10:58 +00:00
|
|
|
int lineOfThisOne = SGetLine(scriptText, script->PosForCode[chunk - &script->Code[0]]);
|
2010-10-25 21:48:08 +00:00
|
|
|
if (lineOfThisOne == line)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
|
|
|
foundDebugChunk = chunk;
|
2010-01-15 00:47:20 +00:00
|
|
|
goto Done;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
|
|
|
/*else {
|
|
|
|
DebugLogF("Debug chunk at %d", lineOfThisOne);
|
|
|
|
}*/
|
2010-10-25 21:48:08 +00:00
|
|
|
}
|
2010-03-28 18:58:01 +00:00
|
|
|
break;
|
|
|
|
case AB_EOF:
|
|
|
|
goto Done;
|
|
|
|
default:
|
|
|
|
break;
|
2010-01-15 00:47:20 +00:00
|
|
|
}
|
|
|
|
}
|
2010-03-28 18:58:01 +00:00
|
|
|
Done:
|
2010-01-15 00:47:20 +00:00
|
|
|
if (foundDebugChunk)
|
|
|
|
{
|
|
|
|
foundDebugChunk->Par.i = !foundDebugChunk->Par.i; // activate breakpoint
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
szAnswer = "Can't set breakpoint (wrong line?)";
|
|
|
|
fOkay = false;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fOkay = false;
|
|
|
|
szAnswer = "Can't find script";
|
|
|
|
}
|
|
|
|
|
2010-03-28 18:58:01 +00:00
|
|
|
|
2010-01-15 04:46:16 +00:00
|
|
|
}
|
|
|
|
else if (SEqualNoCase(szCmd, "SST"))
|
|
|
|
{
|
|
|
|
std::list<StdStrBuf*>::iterator it = StackTrace.begin();
|
|
|
|
for (it++; it != StackTrace.end(); it++)
|
|
|
|
{
|
|
|
|
SendLine("AT", (*it)->getData());
|
|
|
|
}
|
|
|
|
SendLine("EST");
|
2010-01-15 00:47:20 +00:00
|
|
|
}
|
2010-01-21 15:22:33 +00:00
|
|
|
else if (SEqualNoCase(szCmd, "VAR"))
|
|
|
|
{
|
2010-03-22 09:54:41 +00:00
|
|
|
|
2010-01-21 15:22:33 +00:00
|
|
|
C4Value *val = NULL;
|
|
|
|
int varIndex;
|
|
|
|
C4AulScriptContext* pCtx = pExec->GetContext(pExec->GetContextDepth() - 1);
|
|
|
|
if (pCtx)
|
|
|
|
{
|
|
|
|
if ((varIndex = pCtx->Func->ParNamed.GetItemNr(szData)) != -1)
|
|
|
|
{
|
|
|
|
val = &pCtx->Pars[varIndex];
|
|
|
|
}
|
2010-03-22 09:54:41 +00:00
|
|
|
else if ((varIndex = pCtx->Func->VarNamed.GetItemNr(szData)) != -1)
|
2010-01-21 15:22:33 +00:00
|
|
|
{
|
|
|
|
val = &pCtx->Vars[varIndex];
|
|
|
|
}
|
|
|
|
}
|
2010-03-22 09:54:41 +00:00
|
|
|
const char* typeName = val ? GetC4VName(val->GetType()) : "any";
|
|
|
|
StdStrBuf output = FormatString("%s %s %s", szData, typeName, val ? val->GetDataString().getData() : "Unknown");
|
2010-01-21 15:22:33 +00:00
|
|
|
SendLine("VAR", output.getData());
|
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
else
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
fOkay = false;
|
|
|
|
szAnswer = "Can't do that";
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
// Send answer
|
|
|
|
SendLine(fOkay ? "OK" : "ERR", szAnswer);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
bool C4AulDebug::SendLine(const char *szType, const char *szData)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
StdStrBuf Line = szData ? FormatString("%s %s", szType, szData) : StdStrBuf(szType);
|
|
|
|
return Send(C4NetIOPacket(Line.getData(), Line.getSize(), false, PeerAddr));
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::DebugStep(C4AulBCC *pCPos)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Get top context
|
2010-03-16 11:39:58 +00:00
|
|
|
//C4AulScriptContext *pCtx = pExec->GetContext(pExec->GetContextDepth() - 1);
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Already stopped? Ignore.
|
|
|
|
// This means we are doing some calculation with suspended script engine.
|
|
|
|
// We do /not/ want to have recursive suspensions...
|
2010-03-28 18:58:01 +00:00
|
|
|
if (eState == DS_Stop)
|
2010-01-13 18:26:03 +00:00
|
|
|
return;
|
|
|
|
|
|
|
|
// Have break point?
|
2010-03-28 18:58:01 +00:00
|
|
|
if (pCPos->Par.i)
|
2010-01-13 18:26:03 +00:00
|
|
|
eState = DS_Step;
|
|
|
|
|
|
|
|
StepPoint(pCPos);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::DebugStepIn(C4AulBCC *pCPos)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::DebugStepOut(C4AulBCC *pCPos, C4AulScriptContext *pRetCtx, C4Value *pRVal)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Ignore if already suspended, see above.
|
2010-03-28 18:58:01 +00:00
|
|
|
if (eState == DS_Stop)
|
2010-01-13 18:26:03 +00:00
|
|
|
return;
|
|
|
|
|
|
|
|
// This counts as a regular step point
|
|
|
|
StepPoint(pCPos, pRetCtx, pRVal);
|
|
|
|
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
void C4AulDebug::StepPoint(C4AulBCC *pCPos, C4AulScriptContext *pRetCtx, C4Value *pRVal)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Maybe got a command in the meantime?
|
|
|
|
Execute(0);
|
2010-03-28 18:58:01 +00:00
|
|
|
|
2010-01-13 18:26:03 +00:00
|
|
|
// Get current script context
|
2010-01-15 14:31:51 +00:00
|
|
|
int iCallDepth = pExec->GetContextDepth();
|
2010-01-13 18:26:03 +00:00
|
|
|
C4AulScriptContext *pCtx = pExec->GetContext(iCallDepth-1);
|
|
|
|
|
|
|
|
// When we're stepping out of a script function, the context of the returning
|
|
|
|
// function hasn't been removed yet.
|
2010-03-28 18:58:01 +00:00
|
|
|
if (pCtx == pRetCtx)
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
iCallDepth--;
|
|
|
|
// Check if we are returning to a script function
|
2010-03-28 18:58:01 +00:00
|
|
|
if (pCtx->Return)
|
2010-01-13 18:26:03 +00:00
|
|
|
pCtx--;
|
|
|
|
else
|
|
|
|
pCtx = NULL;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Stepped out?
|
2010-03-28 18:58:01 +00:00
|
|
|
if (pRVal && eState != DS_Go && iCallDepth <= iStepCallDepth)
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
StdStrBuf FuncDump = pRetCtx->ReturnDump();
|
|
|
|
StdStrBuf ReturnDump = pRVal->GetDataString();
|
|
|
|
SendLine("RET", FormatString("%s = %s", FuncDump.getData(), ReturnDump.getData()).getData());
|
|
|
|
|
|
|
|
// Ignore as step point if we didn't "really" step out
|
2010-03-28 18:58:01 +00:00
|
|
|
if (iCallDepth >= iStepCallDepth) return;
|
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Stop?
|
2010-03-28 18:58:01 +00:00
|
|
|
switch (eState)
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Continue normally
|
2010-03-28 18:58:01 +00:00
|
|
|
case DS_Go: return;
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Always stop
|
2010-03-28 18:58:01 +00:00
|
|
|
case DS_Stop: break;
|
|
|
|
case DS_Step: break;
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Only stop for same level or above
|
2010-03-28 18:58:01 +00:00
|
|
|
case DS_StepOver:
|
|
|
|
if (iCallDepth > iStepCallDepth)
|
|
|
|
return;
|
|
|
|
break;
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Only stop above
|
2010-03-28 18:58:01 +00:00
|
|
|
case DS_StepOut:
|
|
|
|
if (iCallDepth >= iStepCallDepth)
|
|
|
|
return;
|
|
|
|
break;
|
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Let's stop here
|
|
|
|
eState = DS_Stop;
|
|
|
|
iStepCallDepth = iCallDepth;
|
|
|
|
Game.HaltCount++;
|
|
|
|
|
|
|
|
// No valid stop position? Just continue
|
2010-03-28 18:58:01 +00:00
|
|
|
if (!pCtx)
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
Game.HaltCount--;
|
|
|
|
eState = DS_Step;
|
|
|
|
return;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Signal
|
2010-03-28 18:58:01 +00:00
|
|
|
if (pCPos && pCPos->bccType == AB_DEBUG && pCPos->Par.i)
|
2010-01-13 18:26:03 +00:00
|
|
|
SendLine("STP", FormatString("Stopped on breakpoint %d", pCPos->Par.i).getData());
|
|
|
|
else
|
|
|
|
SendLine("STP", "Stepped");
|
|
|
|
|
|
|
|
// Position
|
2010-01-15 04:46:16 +00:00
|
|
|
ObtainStackTrace(pCtx, pCPos);
|
|
|
|
SendLine("POS", StackTrace.front()->getData());
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Suspend until we get some command
|
2010-03-28 18:58:01 +00:00
|
|
|
while (eState == DS_Stop)
|
|
|
|
if (!Application.ScheduleProcs())
|
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
Close();
|
|
|
|
return;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
|
|
|
// Do whatever we've been told.
|
|
|
|
Game.HaltCount--;
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-01-13 18:26:03 +00:00
|
|
|
|
2010-04-26 18:13:36 +00:00
|
|
|
void C4AulDebug::ControlScriptEvaluated(const char* script, const char* result)
|
|
|
|
{
|
|
|
|
SendLine("EVR", FormatString("%s=%s", script, result).getData());
|
|
|
|
}
|
|
|
|
|
2010-01-16 01:32:53 +00:00
|
|
|
const char* C4AulDebug::RelativePath(StdStrBuf &path)
|
|
|
|
{
|
|
|
|
const char* p = path.getData();
|
|
|
|
const char* result = Config.AtRelativePath(p);
|
|
|
|
if (p != result)
|
|
|
|
return result;
|
2010-01-16 04:24:10 +00:00
|
|
|
// try path relative to scenario container
|
|
|
|
StdStrBuf scenarioContainerPath;
|
|
|
|
GetParentPath(::Game.ScenarioFile.GetName(), &scenarioContainerPath);
|
|
|
|
return GetRelativePathS(p, scenarioContainerPath.getData());
|
2010-01-16 01:32:53 +00:00
|
|
|
}
|
|
|
|
|
2010-01-15 04:46:16 +00:00
|
|
|
void C4AulDebug::ObtainStackTrace(C4AulScriptContext* pCtx, C4AulBCC* pCPos)
|
|
|
|
{
|
|
|
|
for (std::list<StdStrBuf*>::iterator it = StackTrace.begin(); it != StackTrace.end(); it++)
|
|
|
|
{delete *it;}
|
|
|
|
StackTrace.clear();
|
|
|
|
for (int ctxNum = pExec->GetContextDepth()-1; ctxNum >= 0; ctxNum--)
|
|
|
|
{
|
|
|
|
C4AulScriptContext* c = pExec->GetContext(ctxNum);
|
|
|
|
C4AulBCC* _cpos = c == pCtx ? pCPos : c->CPos;
|
|
|
|
if (_cpos)
|
|
|
|
{
|
|
|
|
StdStrBuf* format = new StdStrBuf(FormatCodePos(c, _cpos));
|
|
|
|
StackTrace.push_back(format);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2010-01-13 18:26:03 +00:00
|
|
|
StdStrBuf C4AulDebug::FormatCodePos(C4AulScriptContext *pCtx, C4AulBCC *pCPos)
|
2010-03-28 18:58:01 +00:00
|
|
|
{
|
2010-01-13 18:26:03 +00:00
|
|
|
// Get position in script
|
2010-12-22 01:10:58 +00:00
|
|
|
int iLine = pCtx->Func->GetLineOfCode(pCPos);
|
2010-01-13 18:26:03 +00:00
|
|
|
// Format
|
2010-01-16 01:32:53 +00:00
|
|
|
return FormatString("%s:%d", RelativePath(pCtx->Func->pOrgScript->ScriptName), iLine);
|
2010-03-28 18:58:01 +00:00
|
|
|
}
|
2010-02-23 18:29:26 +00:00
|
|
|
|
2010-03-16 11:39:58 +00:00
|
|
|
#endif
|