Function PiuDebugMachine_doCommand

tools/xsbug/DebugBehavior.c:1458–1580

}

void PiuDebugMachine_doCommand(xsMachine* the)
{
	static char buffer[16 * 1024];
	PiuDebugMachine self = xsGetHostData(xsThis);
	xsIntegerValue c = xsToInteger(xsArgc), i;
	xsIntegerValue command = xsToInteger(xsArg(0));
	xsVars(1);
	if (self) {
		buffer[0] = 0;
	}
	else {
		xsIntegerValue address = xsToInteger(xsGet(xsThis, xsID_address));
		sprintf(buffer, "\15\12<?xs.%8.8X?>", address);
	}
	if (command < mxScriptCommand) {
		c_strcat(buffer, "\15\12");
		switch (command) {
		case mxAbortCommand:
			c_strcat(buffer, "<abort/>");
			break;
		case mxClearAllBreakpoints:
			c_strcat(buffer, "<clear-all-breakpoints/>");
			break;
		case mxClearBreakpoint:
			c_strcat(buffer, "<clear-breakpoint path=\"");
			c_strcat(buffer, xsToString(xsGet(xsArg(1), xsID("path"))));
			c_strcat(buffer, "\" line=\"");
			c_strcat(buffer, xsToString(xsGet(xsArg(1), xsID("line"))));
			c_strcat(buffer, "\" id=\"@");
			c_strcat(buffer, xsToString(xsGet(xsArg(1), xsID("id"))));
			c_strcat(buffer, "\"/>");
			break;
		case mxGoCommand:
			c_strcat(buffer, "<go/>");
			xsSet(xsThis, xsID_broken, xsFalse);
			break;
		case mxLogoutCommand:
			c_strcat(buffer, "<logout/>");
			break;
		case mxSelectCommand:
			c_strcat(buffer, "<select id=\"");
			c_strcat(buffer, xsToString(xsArg(1)));
			c_strcat(buffer, "\"/>");
			break;
		case mxSetAllBreakpointsCommand:
			c_strcat(buffer, "<set-all-breakpoints>");
			c = xsToInteger(xsGet(xsArg(1), xsID("length")));
			for (i = 0; i < c; i++) {
				xsResult = xsGetAt(xsArg(1), xsInteger(i));
				PiuDebugMachine_doCommandBreakpoint(the, buffer, "breakpoint");
			}
			c_strcat(buffer, "</set-all-breakpoints>");
			break;
		case mxSetBreakpointCommand:
			xsResult = xsArg(1);
			PiuDebugMachine_doCommandBreakpoint(the, buffer, "set-breakpoint");
			break;
		case mxStepCommand: