Function fxCheckSetRecord

xs/sources/xsMapSet.c:576–613

}

txSlot* fxCheckSetRecord(txMachine* the, txInteger* otherSize, txSlot** otherHas, txSlot** otherKeys)
{
	txSlot* other;
	txNumber size;
	if (mxArgc < 1)
		mxTypeError("other is no object");
	other = mxArgv(0);	
	if (!mxIsReference(other))
		mxTypeError("other is no object");
		
	mxPushSlot(other);
	mxGetID(mxID(_size));	
	size = fxToNumber(the, the->stack);
	if (c_isnan(size))
		mxTypeError("other.size is NaN");
	size = c_trunc(size);
	if (size < 0)
		mxRangeError("other.size < 0");
	if (otherSize)
		*otherSize= (txInteger)size;
	mxPop();
	
	mxPushSlot(other);
	mxGetID(mxID(_has));
	if (!fxIsCallable(the, the->stack))
		mxTypeError("other.has is no function");
	if (otherHas)
		*otherHas = the->stack;
			
	mxPushSlot(other);
	mxGetID(mxID(_keys));
	if (!fxIsCallable(the, the->stack))
		mxTypeError("other.keys is no function");
	if (otherKeys)
		*otherKeys = the->stack;
		
	return other;
}

txSlot* fxNewSetInstance(txMachine* the, txInteger tableLength)
{