Function fx_Object_defineProperties

xs/sources/xsObject.c:558–588

}

void fx_Object_defineProperties(txMachine* the)
{
	txSlot* instance;
	txSlot* properties;
	txSlot* at;
	txSlot* property;
	txFlag mask;
	if ((mxArgc < 1) || (mxArgv(0)->kind != XS_REFERENCE_KIND))
		mxTypeError("invalid object");
	if ((mxArgc < 2) || (mxArgv(1)->kind == XS_UNDEFINED_KIND))
		mxTypeError("invalid properties");
	instance = fxGetInstance(the, mxArgv(0));
	properties = fxToInstance(the, mxArgv(1));
	at = fxNewInstance(the);
	mxBehaviorOwnKeys(the, properties, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
	mxPushUndefined();
	property = the->stack;
	while ((at = at->next)) {
		if (mxBehaviorGetOwnProperty(the, properties, at->value.at.id, at->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
			mxPushReference(properties);
			mxGetAll(at->value.at.id, at->value.at.index);
			mask = fxDescriptorToSlot(the, the->stack);
			if (!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack, mask))
				mxTypeError("invalid descriptor");
			mxPop();
		}
	}
	mxPop();
	mxPop();
	*mxResult = *mxArgv(0);
}

void fx_Object_defineProperty(txMachine* the)
{