Function fxSetBreakpoint

xs/sources/xsDebug.c:2576–2625

}

void fxSetBreakpoint(txMachine* the, txString thePath, txInteger theLine, size_t theID)
{
	txID path;
	txSlot* breakpoint;

	if (!thePath)
		return;
	if ((theID == 0) && (theLine == 0)) { 
		if (!c_strcmp(thePath, "exceptions")) {
			the->breakOnExceptionsFlag = 1;
			mxPushUndefined();
			return;
		}	
		if (!c_strcmp(thePath, "start")) {
			the->breakOnStartFlag = 1;
			mxPushUndefined();
			return;
		}	
	}
	path = fxNewNameC(the, thePath);
	if (!path)
		return;
	breakpoint = mxBreakpoints.value.list.first;
	while (breakpoint)	{
		if ((breakpoint->ID == path) && (breakpoint->value.breakpoint.line == theLine)) {
			break;
		}
		breakpoint = breakpoint->next;
	}
	if (!breakpoint) {
		breakpoint = fxNewSlot(the);
		breakpoint->next = mxBreakpoints.value.list.first;
		breakpoint->ID = path;
		breakpoint->kind = XS_BREAKPOINT_KIND;
		breakpoint->value.breakpoint.line = theLine;
		mxBreakpoints.value.list.first = breakpoint;
	}
	if (theID == 0) {
		mxPushUndefined();
		breakpoint->value.breakpoint.info = C_NULL;
	}
	else {
		txSlot* instance = fxNewInstance(the);
		txSlot* property = fxLastProperty(the, instance);
		property = fxNextUndefinedProperty(the, property, XS_NO_ID, XS_INTERNAL_FLAG);
		property = fxNextUndefinedProperty(the, property, XS_NO_ID, XS_INTERNAL_FLAG);
		property = fxNextUndefinedProperty(the, property, XS_NO_ID, XS_INTERNAL_FLAG);
		breakpoint->value.breakpoint.info = instance;
	}
}

void fxSetBreakpointCondition(txMachine* the, txSlot* reference, txString it)
{