Function fxResolvePromise

xs/sources/xsPromise.c:720–801

}

void fxResolvePromise(txMachine* the)
{
	txSlot* slot;
	txSlot* promise;
	txSlot* argument;
	txSlot* result;
	slot = mxFunctionInstanceHome(mxFunction->value.reference)->value.home.object->next;
	if (slot->value.boolean)
		return;
	slot->value.boolean = 1;
	mxPushSlot(slot->next);
	promise = the->stack->value.reference;
	slot->next = C_NULL;
	if (mxArgc > 0)
		mxPushSlot(mxArgv(0));
	else
		mxPushUndefined();
	argument = the->stack;	
#ifdef mxPromisePrint
	fprintf(stderr, "fxResolvePromise %d\n", promise->next->ID);
#endif
	mxTry(the) {
		if (mxIsReference(argument)) {
			if (argument->value.reference == promise)
				mxTypeError("promise resolves itself");
			mxPushSlot(argument);
			mxGetID(mxID(_then));
			slot = the->stack;
			if (fxIsCallable(the, slot)) {
#ifdef mxPromisePrint
	fprintf(stderr, "fxResolvePromise then %d\n", promise->next->ID);
#endif
				mxPushSlot(argument);
				mxPush(mxOnThenableFunction);
				mxCall();
				fxPushPromiseFunctions(the, promise);
				mxPushSlot(slot);
				fxQueueJob(the, 3, promise);
				goto bail;
			}
			mxPop();
		}
		result = mxPromiseResult(promise);
		result->kind = argument->kind;
		result->value = argument->value;
		slot = mxPromiseThens(promise)->value.reference->next;
		while (slot) {
			mxPushReference(slot->value.reference);
			mxPush(mxOnResolvedPromiseFunction);
			mxCall();
			mxPushSlot(result);
			fxQueueJob(the, 1, promise);
			slot = slot->next;
		}
		mxPromiseThens(promise)->value.reference->next = C_NULL;
		slot = mxPromiseStatus(promise);
		slot->value.integer = mxFulfilledStatus;
	}