Function fx_Math_sumPrecise

xs/sources/xsMath.c:615–656

}

void fx_Math_sumPrecise(txMachine* the)
{
	txSlot *iterable, *iterator, *next, *value;
	xsum_small_accumulator accumulator;
	txInteger count = 0;
	txBoolean flag = 1;
	if (mxArgc < 1)
		mxTypeError("no items");
	iterable = mxArgv(0);
	fxToInstance(the, iterable);
	mxTemporary(iterator);
	mxTemporary(next);
	fxGetIterator(the, iterable, iterator, next, 0);	
	xsum_small_init(&accumulator);
	mxTemporary(value);
	while (fxIteratorNext(the, iterator, next, value)) {
		mxTry(the) {
			if (value->kind == XS_INTEGER_KIND) {
				flag = 0;
				xsum_small_add1(&accumulator, value->value.integer);
			}
			else if (value->kind == XS_NUMBER_KIND) {
				if (value->value.number != -0.0) {
					flag = 0;
					xsum_small_add1(&accumulator, value->value.number);
				}
			}
			else
				mxTypeError("items[%d]: not a number", count);
			count++;
		}
		mxCatch(the) {
			fxIteratorReturn(the, iterator, 1);
			fxJump(the);
		}
	}
	if (flag)
		mxResult->value.number = -0.0;
	else
		mxResult->value.number = xsum_small_round(&accumulator);
	mxResult->kind = XS_NUMBER_KIND;
}

void fx_Math_sign(txMachine* the)
{