winamp/Src/Wasabi/api/script/debugger/sdebuggerui.cpp
2024-09-24 14:54:57 +02:00

438 lines
10 KiB
C++

#include <precomp.h>
#include "sdebuggerui.h"
#include <api/script/debugger/jitd.h>
#include <tataki/canvas/canvas.h>
#include <api/wnd/wndclass/editwnd.h>
#include <api/script/objcontroller.h>
#include <bfc/string/stringdict.h>
#include <bfc/parse/paramparser.h>
#include <api/wnd/notifmsg.h>
#include <api/script/objecttable.h>
#include <api/script/debugger/sourcecodeline.h>
#include "../nu/AutoWide.h"
#define LEFTCOLUMN 100
#define RIGHTCOLUMN 200
#define INPUTHEIGHT 21
#define NCONSOLELINES 4
#define LINEHEIGHT 14
#define REGWIDTH 100
SimpleDebuggerUI::SimpleDebuggerUI()
{
leave = 0;
jitd = NULL;
edit = NULL;
memset(cmdbuf, 0, sizeof(cmdbuf));
retcode = JITD_RETURN_CONTINUE;
}
SimpleDebuggerUI::~SimpleDebuggerUI()
{}
void SimpleDebuggerUI::setJITD(MakiJITD *_jitd)
{
jitd = _jitd;
}
int SimpleDebuggerUI::messageLoop()
{
leave = 0;
retcode = JITD_RETURN_STEPINTO;
if (!isInited())
{
setVirtual(0);
setStartHidden(1);
setParent(WASABI_API_WND->main_getRootWnd());
init(WASABI_API_WND->main_getRootWnd(), 1);
edit = new EditWnd;
edit->setParent(this);
edit->setBackgroundColor(RGB(0, 0, 0));
edit->setTextColor(RGB(0, 255, 0));
edit->setWantFocus(0);
*cmdbuf = 0;
edit->setBuffer(cmdbuf, 256);
edit->init(this);
RECT r;
POINT pt = {0, 0};
Wasabi::Std::getViewport(&r, &pt);
resize(r.right - 656, r.top + 16, 640, 480);
bringToFront();
}
for (int s = 0;s < jitd->getVSP();s++)
{
scriptVar v = WASABI_API_MAKIDEBUG->debugger_readStack(s);
StringW str;
switch (v.type)
{
case SCRIPT_VOID:
str = L"NULL";
break;
case SCRIPT_INT:
str = StringPrintfW(L"%d", GET_SCRIPT_INT(v));
break;
case SCRIPT_BOOLEAN:
str = StringPrintfW(L"%s", GET_SCRIPT_BOOLEAN(v) ? L"true" : L"false");
break;
case SCRIPT_FLOAT:
str = StringPrintfW(L"%f", GET_SCRIPT_FLOAT(v));
break;
case SCRIPT_DOUBLE:
str = StringPrintfW(L"%f", (float)GET_SCRIPT_DOUBLE(v));
break;
case SCRIPT_STRING:
str = GET_SCRIPT_STRING(v);
break;
default:
{
if (v.type == SCRIPT_OBJECT)
str = L"Object";
else
str = ObjectTable::getClassName(v.type);
#ifdef WASABI_COMPILE_SKIN
ScriptObject *o = GET_SCRIPT_OBJECT(v);
if (o != NULL)
{
GuiObject *go = static_cast<GuiObject *>(o->vcpu_getInterface(guiObjectGuid));
if (go != NULL)
{
str += L";";
str.cat(go->guiobject_getId());
}
}
#endif
break;
}
}
strstack.addItem(new StringW(str));
}
setVisible(1);
//WASABI_API_WND->pushModalWnd(this);
#ifdef WIN32
MSG msg;
//DWORD leavetime = GetTickCount()+5;
while (!leave/* && !(GetTickCount() >leavetime)*/)
{
if (PeekMessage(&msg, /*(HWND)NULL*/ getOsWindowHandle(), 0, 0, PM_NOREMOVE))
{
GetMessage(&msg, /*(HWND) NULL*/getOsWindowHandle(), 0, 0) &&
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
#endif
//WASABI_API_WND->popModalWnd(this);
setVisible(0);
strstack.deleteAll();
return retcode;
}
int SimpleDebuggerUI::onPaint(Canvas *c)
{
SimpleDebuggerUI_PARENT::onPaint(c);
Wasabi::FontInfo fontInfo;
RECT r;
getClientRect(&r);
c->fillRect(&r, RGB(0, 0, 0));
c->drawRect(&r, 1, RGB(0, 255, 0));
fontInfo.color = RGB(0, 255, 0);
fontInfo.pointSize = 14;
fontInfo.face = L"Courier New";
c->pushPen(PENSTYLE_SOLID, 1, RGB(0, 255, 0));
c->textOut(r.right - REGWIDTH + 7, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2) + 8, StringPrintfW(L"VSD:%08X", jitd->getVSD()), &fontInfo);
c->textOut(r.right - REGWIDTH + 7, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2) + 8 + (LINEHEIGHT + 1), StringPrintfW(L"VIP:%08X", jitd->getVIP()), &fontInfo);
c->textOut(r.right - REGWIDTH + 7, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2) + 8 + (LINEHEIGHT + 1)*2, StringPrintfW(L"VSP:%08X", jitd->getVSP()), &fontInfo);
c->textOut(r.right - REGWIDTH + 7, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2) + 8 + (LINEHEIGHT + 1)*3, StringPrintfW(L"VCC:%08X", jitd->getVCC()), &fontInfo);
c->lineDraw(r.left, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2), r.right, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2));
c->lineDraw(r.left, r.bottom - (INPUTHEIGHT + 2), r.right - REGWIDTH, r.bottom - (INPUTHEIGHT + 2));
c->lineDraw(r.right - REGWIDTH, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2), r.right - REGWIDTH, r.bottom);
c->lineDraw(r.right - RIGHTCOLUMN, 0, r.right - RIGHTCOLUMN, r.bottom - (INPUTHEIGHT + (NCONSOLELINES*LINEHEIGHT) + 2));
disassemble(c);
for (int s = 0;s < strstack.getNumItems();s++)
{
c->textOutEllipsed(r.right - RIGHTCOLUMN + 4, s*LINEHEIGHT + 4, RIGHTCOLUMN - 8, 16, strstack.enumItem(s)->getValue(), &fontInfo);
}
return 1;
}
int SimpleDebuggerUI::onLeftButtonDown(int x, int y)
{
SimpleDebuggerUI_PARENT::onLeftButtonDown(x, y);
if (edit) edit->onGetFocus();
// leave = 1;
return 1;
}
void SimpleDebuggerUI::disassemble(Canvas *c)
{
RECT r;
getClientRect(&r);
int x = 4;
int y = (r.bottom - r.top - 4) / 2 + 4;
int ln = jitd->findLine(jitd->getVIP());
if (ln != -1)
{
Wasabi::FontInfo fontInfo;
SourceCodeLine *l = jitd->enumLine(ln);
int sourcecode = l->getSourceFile() != NULL;
int g;
int j = 0;
for (g = y;g < r.bottom - (INPUTHEIGHT + 4 + (NCONSOLELINES*LINEHEIGHT)) - LINEHEIGHT;g += LINEHEIGHT)
{
if (!sourcecode || j == 0)
l = jitd->enumLine(ln + j);
if (!l) break;
if (j == 0)
{
RECT br;
br.left = 4;
br.top = g;
br.right = r.right - (RIGHTCOLUMN + 4);
br.bottom = br.top + LINEHEIGHT;
c->fillRect(&br, RGB(0, 255, 0));
fontInfo.color = RGB(0, 0, 0);
}
if (!sourcecode)
{
String str;
unsigned const char *d = (unsigned const char *)(l->getPointer() + jitd->getCodeBlock());
for (int k = 0;k < l->getLength();k++)
{
if (!str.isempty()) str += " ";
str += StringPrintf("%02X", *d);
d++;
}
c->textOut(x, g, StringPrintfW(L"%08X", l->getPointer()), &fontInfo);
c->textOut(x + 70, g, AutoWide(str), &fontInfo);
c->textOut(x + 70 + 150, g, l->getLine(), &fontInfo);
}
else
{
c->textOutEllipsed(x, g, r.right - r.left - (RIGHTCOLUMN + 4 + x), 16, (getLine(l->getSourceFile(), l->getSourceFileLine() + j)), &fontInfo);
}
j++;
}
j = 1;
for (g = y - LINEHEIGHT;g > 1;g -= LINEHEIGHT)
{
if (!sourcecode || j == 0)
l = jitd->enumLine(ln - j);
if (!l) break;
if (!sourcecode)
{
String str;
unsigned const char *d = (unsigned const char *)(l->getPointer() + jitd->getCodeBlock());
for (int k = 0;k < l->getLength();k++)
{
if (!str.isempty()) str += " ";
str += StringPrintf("%02X", *d);
d++;
}
c->textOut(x, g, StringPrintfW(L"%08X", l->getPointer()), &fontInfo);
c->textOut(x + 70, g, AutoWide(str), &fontInfo);
c->textOut(x + 70 + 150, g, (l->getLine()), &fontInfo);
}
else
{
c->textOutEllipsed(x, g, r.right - r.left - (RIGHTCOLUMN + 4 + x), 16, (getLine(l->getSourceFile(), l->getSourceFileLine() - j)), &fontInfo);
}
j++;
}
}
}
int SimpleDebuggerUI::onResize()
{
SimpleDebuggerUI_PARENT::onResize();
if (edit != NULL)
{
RECT r;
getClientRect(&r);
edit->resize(1, r.bottom - (INPUTHEIGHT + 1), r.right - r.left - (REGWIDTH + 1), INPUTHEIGHT);
}
return 1;
}
int SimpleDebuggerUI::childNotify(ifc_window *child, int msg, intptr_t p1, intptr_t p2)
{
if (child == edit)
{
if (msg == ChildNotify::EDITWND_ENTER_PRESSED)
{
onCommand(cmdbuf);
}
}
return SimpleDebuggerUI_PARENT::childNotify(child, msg, p1, p2);
}
BEGIN_STRINGDICTIONARY(_debuggercommands)
SDI(L"b", DEBUG_CMD_BREAKPOINT);
SDI(L"break", DEBUG_CMD_BREAKPOINT);
SDI(L"x", DEBUG_CMD_CONTINUE);
SDI(L"continue", DEBUG_CMD_CONTINUE);
SDI(L"i", DEBUG_CMD_STEPINTO);
SDI(L"stepinto", DEBUG_CMD_STEPINTO);
SDI(L"o", DEBUG_CMD_STEPOVER);
SDI(L"stepover", DEBUG_CMD_STEPOVER);
SDI(L"p", DEBUG_CMD_STEPOUT);
SDI(L"stepout", DEBUG_CMD_STEPOUT);
SDI(L"k", DEBUG_CMD_KILL);
SDI(L"kill", DEBUG_CMD_KILL);
SDI(L"?", DEBUG_CMD_HELP);
SDI(L"help", DEBUG_CMD_HELP);
END_STRINGDICTIONARY(_debuggercommands, debuggercommands)
void SimpleDebuggerUI::onCommand(const wchar_t *cmd)
{
if (*cmd == 0)
{
stepOver();
return;
}
ParamParser pp(cmd, L" ");
int i = debuggercommands.getId(pp.enumItem(0));
switch (i)
{
case DEBUG_CMD_BREAKPOINT:
addBreakPoint(pp.enumItem(1));
break;
case DEBUG_CMD_CONTINUE:
continueExecution();
break;
case DEBUG_CMD_STEPINTO:
stepInto();
break;
case DEBUG_CMD_STEPOVER:
stepOver();
break;
case DEBUG_CMD_KILL:
killScript();
break;
case DEBUG_CMD_HELP:
showHelp();
break;
}
}
int SimpleDebuggerUI::evaluate(const wchar_t *ascii)
{
if (!_wcsicmp(ascii, L"VSD")) return jitd->getVSD();
if (!_wcsicmp(ascii, L"VIP")) return jitd->getVIP();
if (!_wcsicmp(ascii, L"VSP")) return jitd->getVSP();
if (!_wcsicmp(ascii, L"VCC")) return jitd->getVCC();
wchar_t *end;
return wcstol(ascii, &end, 16);
}
void SimpleDebuggerUI::addBreakPoint(const wchar_t *pointer_ascii)
{
/*int i = */evaluate(pointer_ascii);
}
void SimpleDebuggerUI::continueExecution()
{
retcode = JITD_RETURN_CONTINUE;
leave = 1;
}
void SimpleDebuggerUI::stepInto()
{
retcode = JITD_RETURN_STEPINTO;
leave = 1;
}
void SimpleDebuggerUI::stepOver()
{
int ln = jitd->findLine(jitd->getVIP());
ln++;
SourceCodeLine *l = jitd->enumLine(ln);
if (l != NULL) // else ret as last opcode
jitd->setSysBreakpoint(l->getPointer());
retcode = JITD_RETURN_CONTINUE;
leave = 1;
}
void SimpleDebuggerUI::killScript()
{
retcode = JITD_RETURN_TERMINATE;
leave = 1;
}
void SimpleDebuggerUI::showHelp()
{}
int SimpleDebuggerUI::onGetFocus()
{
SimpleDebuggerUI_PARENT::onGetFocus();
if (edit) edit->onGetFocus();
return 1;
}
void SimpleDebuggerUI::onSetVisible(int show)
{
SimpleDebuggerUI_PARENT::onSetVisible(show);
if (edit) edit->onGetFocus();
}
#undef fgets
const wchar_t *SimpleDebuggerUI::getLine(const wchar_t *filename, int fileline)
{
if (fileline <= 0)
return L"";
static StringW str;
FILE *f = _wfopen(filename, L"rt");
if (!f)
{
str = L"couldn't load ";
str += filename;
return str;
}
char t[256] = {0};
char u[256] = {0};
int n = fileline;
while (n--)
{
*u = 0;
char *p;
do
{
p = *u ? t : u;
fgets(p, 255, f);
t[255] = 0;
}
while (!feof(f) && p[STRLEN(p)-1] != '\n' && p[STRLEN(p)-1] != '\r');
}
char *p = u;
while (p && *p && p < u + 256)
{
if (*p < 0x21) *p = ' ';
p++;
}
str = AutoWide(u, CP_UTF8);
fclose(f);
return str;
}