Function fxDebugLine

xs/sources/xsDebug.c:513–606

#endif

void fxDebugLine(txMachine* the, txID path, txInteger line, txID function)
{
	txSlot* breakpoint = C_NULL;
	breakpoint = mxBreakpoints.value.list.first;
	while (breakpoint) {
		if (breakpoint->value.breakpoint.line == line) {
			if (breakpoint->ID == path)
				break;
		}
		else if (breakpoint->value.breakpoint.line == 0) {
			if (breakpoint->ID == function)
				break;
		}
		breakpoint = breakpoint->next;
	}
	if (breakpoint) {
		txSlot* instance = breakpoint->value.breakpoint.info;
		if (instance) {
			txSlot* property = instance->next;
			if (!mxIsUndefined(property)) {
				txSlot* result;
				txBoolean skip = 1;
				mxTemporary(result);
				if (fxDebugEvalExpression(the, the->frame, property, result)) {
					mxPushSlot(result);
					skip = (fxRunTest(the)) ? 0 : 1;
				}
				else {
					fxEchoStart(the);
					fxEcho(the, "<log");
					fxEchoPathLine(the, fxGetKeyName(the, path), line);
					fxEcho(the, "># ");
					fxEchoException(the, result);
					fxEcho(the, "\n</log>");
					fxEchoStop(the);
				}
				mxPop();
				if (skip)
					breakpoint = C_NULL;
			}
			if (breakpoint) {
				property = property->next;
				if (!mxIsUndefined(property)) {
					txInteger offset = property->value.dataView.offset + 1;
					txInteger size = property->value.dataView.size;
					txBoolean skip = 1;
					switch (property->ID) {
					case XS_CODE_EQUAL: if (offset == size) skip = 0; break;
					case XS_CODE_LESS: if (offset < size) skip = 0; break;
					case XS_CODE_LESS_EQUAL: if (offset <= size) skip = 0; break;
					case XS_CODE_MODULO: if ((offset % size) == 0) skip = 0; break;
					case XS_CODE_MORE: if (offset > size) skip = 0; break;
					case XS_CODE_MORE_EQUAL: if (offset >= size) skip = 0; break;
					}
					property->value.dataView.offset = offset;
					if (skip)
						breakpoint = C_NULL;
				}