Function fx_Array_fromAsync

xs/sources/xsArray.c:1255–1362

}

void fx_Array_fromAsync(txMachine* the)
{
	txSlot* stack = the->stack;
	txSlot* iterator;
	txSlot* resolveFunction;
    txSlot* rejectFunction;
    txSlot* promise;
	txSlot* instance;
	txSlot* property;
	txSlot* home;
	
	mxTemporary(iterator);
	mxTemporary(resolveFunction);
	mxTemporary(rejectFunction);
	mxTemporary(promise);
	mxPush(mxPromiseConstructor);
	fxNewPromiseCapability(the, resolveFunction, rejectFunction);
	mxPullSlot(promise);
    {
		mxTry(the) {
			txSlot* function = (mxArgc > 1) && !mxIsUndefined(mxArgv(1)) ? fxArgToCallback(the, 1) : C_NULL;
			txNumber length = 0;
			
			if (mxArgc == 0)
				mxTypeError("no items");
				
			mxPushSlot(mxArgv(0));
			mxDub();
			mxGetID(mxID(_Symbol_asyncIterator));
			if (mxIsUndefined(the->stack) || mxIsNull(the->stack)) {
				mxPop();
				mxDub();
				mxGetID(mxID(_Symbol_iterator));
				if (mxIsUndefined(the->stack) || mxIsNull(the->stack)) {
					mxPop();
					mxDub();
					mxGetID(mxID(_length));
					length = fxToLength(the, the->stack);
					mxPop();
					if (length > 0x7FFFFFFF)
						mxRangeError("array overflow");
					mxPush(mxIteratorPrototype);
					property = fxLastProperty(the, fxNewIteratorInstance(the, mxArgv(0), mxID(_Array)));
					property = fxNextIntegerProperty(the, property, (txInteger)length, XS_NO_ID, XS_INTERNAL_FLAG);
					property = fxNextHostFunctionProperty(the, property, mxCallback(fx_Array_fromAsync_items_next), 0, mxID(_next), XS_DONT_ENUM_FLAG);
					fxNewAsyncFromSyncIteratorInstance(the);
					mxPullSlot(iterator);
					fxCreateArray(the, 1, (txIndex)length);
				}
				else {
					mxCall();
					mxRunCount(0);
					fxNewAsyncFromSyncIteratorInstance(the);
					mxPullSlot(iterator);
					fxCreateArray(the, 0, 0);
				}
			}
			else {