Function fx_Object_create

xs/sources/xsObject.c:520–556

}

void fx_Object_create(txMachine* the)
{
	txSlot* instance;
	txSlot* properties;
	txSlot* at;
	txSlot* property;
	txFlag mask;
	if ((mxArgc < 1) || ((mxArgv(0)->kind != XS_NULL_KIND) && (mxArgv(0)->kind != XS_REFERENCE_KIND)))
		mxTypeError("invalid prototype");
	if (mxArgv(0)->kind == XS_NULL_KIND)
		fxNewInstance(the);
	else {
		mxPushSlot(mxArgv(0));
		fxNewHostInstance(the);
	}
	mxPullSlot(mxResult);
	instance = fxGetInstance(the, mxResult);
	if ((mxArgc > 1) && (mxArgv(1)->kind != XS_UNDEFINED_KIND)) {
		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();
	}
}

void fx_Object_defineProperties(txMachine* the)
{