Function fx_Array_from

xs/sources/xsArray.c:1175–1230

}

void fx_Array_from(txMachine* the)
{
	txSlot* function = (mxArgc > 1) && !mxIsUndefined(mxArgv(1)) ? fxArgToCallback(the, 1) : C_NULL;
	txIndex length = 0;
	txSlot* iterator;
	txSlot* next;
	txSlot* value;
	if (mxArgc > 0) {
		mxPushSlot(mxArgv(0));
		mxGetID(mxID(_Symbol_iterator));
		if (mxIsUndefined(the->stack) || mxIsNull(the->stack)) {
			txIndex index = 0;
			mxPushSlot(mxArgv(0));
			mxGetID(mxID(_length));
			if (mxIsUndefined(the->stack))
				length = 0;
			else
				length = fxCheckArrayLength(the, the->stack);
			mxPop();
			fxCreateArray(the, 1, length);
			while (index < length) {
				mxPushSlot(mxArgv(0));
				mxGetIndex(index);
				fx_Array_from_aux(the, function, the->stack, index);
				mxPop();
				index++;
			}
		}
		else {
			fxCreateArray(the, 0, 0);
			mxTemporary(iterator);
			mxTemporary(next);
			fxGetIterator(the, mxArgv(0), iterator, next, 0);
			mxTemporary(value);
			length = 0;
			while (fxIteratorNext(the, iterator, next, value)) {
				mxTry(the) {
					fx_Array_from_aux(the, function, value, length);
					length++;
				}
				mxCatch(the) {
					fxIteratorReturn(the, iterator, 1);
					fxJump(the);
				}
			}
			mxPop();
		}
	}
	else {
		fxCreateArray(the, 1, 0);
	}
	mxPushUnsigned(length);
	mxPushSlot(mxResult);
	mxSetID(mxID(_length));
	mxPop();
}

void fx_Array_from_aux(txMachine* the, txSlot* function, txSlot* value, txIndex index)