Function fxDebugEval

xs/sources/xsDebug.c:249–295

}

void fxDebugEval(txMachine* the, txSlot* frame, txString buffer, txInteger index)
{
	txSlot* result;
	txSlot* expression;
	mxHostInspectors.value.list.first = C_NULL;
	mxHostInspectors.value.list.last = C_NULL;
	mxTemporary(result);
	mxTemporary(expression);
	fxDebugEvalBuffer(the, buffer, expression);
	if (fxDebugEvalExpression(the, frame, expression, result)) {
		txInspectorNameList aList = { C_NULL, C_NULL };
		fxEchoStart(the);
		fxEcho(the, "<result line=\"");
		fxEchoInteger(the, index);
		fxEcho(the, "\">");
		if (result->kind == XS_REFERENCE_KIND) {
			txSlot* instance = result->value.reference;
			txSlot* instanceInspector = fxToInstanceInspector(the, instance);
			if (!instanceInspector)
				fxToggle(the, instance);
			fxEchoProperty(the, result, &aList, C_NULL, -1, C_NULL);
			if (!instanceInspector)
				fxToggle(the, instance);
		}
		else
			fxEchoProperty(the, result, &aList, C_NULL, -1, C_NULL);
		fxEcho(the, "</result>");
		fxListLocal(the);
		fxListGlobal(the);
		fxListModules(the);
		fxEchoStop(the);
	}
	else {
		fxEchoStart(the);
		fxEcho(the, "<result line=\"");
		fxEchoInteger(the, index);
		fxEcho(the, "\"># ");
		fxEchoException(the, result);
		fxEcho(the, "</result>");
		fxListLocal(the);
		fxListGlobal(the);
		fxListModules(the);
		fxEchoStop(the);
	}
	mxPop();
	mxPop();
}

txU1* fxDebugEvalAtom(txMachine* the, txU1* p, Atom* atom, txString t)
{