Function fx_Object_freeze

xs/sources/xsObject.c:643–743

}

void fx_Object_freeze(txMachine* the)
{
	if (mxArgc > 0) {
		txSlot* slot = mxArgv(0);
		if (slot->kind == XS_REFERENCE_KIND) {
			txSlot* instance = slot->value.reference;
			txBoolean deep = 0;
			txSlot* at;
			txSlot* property;
			if (!mxBehaviorPreventExtensions(the, instance))
				mxTypeError("extensible object");
			if ((mxArgc > 1) && fxToBoolean(the, mxArgv(1)))
				deep = 1;
			at = fxNewInstance(the);
			mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
			mxPushUndefined();
			property = the->stack;
			while ((at = at->next)) {
				if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
					txFlag mask = XS_DONT_DELETE_FLAG;
					property->flag |= XS_DONT_DELETE_FLAG;
					if (property->kind != XS_ACCESSOR_KIND) {
						mask |= XS_DONT_SET_FLAG;
						property->flag |= XS_DONT_SET_FLAG;
					}
					property->kind = XS_UNINITIALIZED_KIND;
					if (!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, property, mask)) {
						if (!deep)
							mxTypeError("cannot configure property");
					}
				}
			}
			mxPop();
			if (deep) {
				at = the->stack->value.reference;
				mxPushUndefined();
				property = the->stack;
				while ((at = at->next)) {
					if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
						if (property->kind == XS_REFERENCE_KIND) {
							mxPushSlot(mxThis);
							mxDub();
							mxGetID(mxID(_isFrozen));
							mxCall();
							mxPushSlot(property);
							mxRunCount(1);
							if (!fxRunTest(the)) {
								mxPushSlot(mxThis);
								mxPushSlot(mxFunction);
								mxCall();
								mxPushSlot(property);
								mxPushBoolean(1);
								mxRunCount(2);
								mxPop();
							}
						}
						else if (property->kind == XS_ACCESSOR_KIND) {
							if (property->value.accessor.getter) {