Function fx_Compartment

xs/sources/xsModule.c:2866–3152

}

void fx_Compartment(txMachine* the)
{
	txSlot* module = mxFunctionInstanceHome(mxFunction->value.reference)->value.home.module;
	txSlot* program = C_NULL;
	txSlot* parent;
	txSlot* realm;
	txSlot* global = C_NULL;
	txSlot* closures = C_NULL;
	txSlot* slot;
	txSlot* target;
	txSlot* own;
	txInteger id;
	
	if (!module) module = mxProgram.value.reference;
	mxTry(the) {
		if (!mxHasTarget)
			mxTypeError("call: Compartment");
			
		mxPushSlot(mxTarget);
		fxGetPrototypeFromConstructor(the, &mxCompartmentPrototype);
		program = fxNewProgramInstance(the);
		mxPullSlot(mxResult);
		
		// PARENT
		parent = mxModuleInstanceInternal(module)->value.module.realm;
		mxPushReference(parent);
		
		// GLOBALS
		if (the->sharedMachine == C_NULL) {
			txSlot* instance;
			txSlot* property;
			txSlot* callback;
			mxPush(mxObjectPrototype);
	#ifdef mxLink
			global = fxNewObjectInstance(the);
	#else
			global = fxNewGlobalInstance(the);
	#endif
			slot = fxLastProperty(the, global);
			if (mxCompartmentGlobal.kind == XS_UNDEFINED_KIND) {
				for (id = XS_SYMBOL_ID_COUNT; id < _Infinity; id++)
					slot = fxNextSlotProperty(the, slot, &the->stackIntrinsics[-1 - id], mxID(id), XS_DONT_ENUM_FLAG);
				for (; id < _Compartment; id++)
					slot = fxNextSlotProperty(the, slot, &the->stackIntrinsics[-1 - id], mxID(id), XS_GET_ONLY);
			}
			else {
				txSlot* item = mxCompartmentGlobal.value.reference->next;
				for (id = XS_SYMBOL_ID_COUNT; id < _Infinity; id++) {
					mxPushSlot(item->value.array.address + id);
					slot = fxNextSlotProperty(the, slot, the->stack, mxID(id), XS_DONT_ENUM_FLAG);
					mxPop();
				}
				for (; id < _Compartment; id++) {
					mxPushSlot(item->value.array.address + id);
					slot = fxNextSlotProperty(the, slot, the->stack, mxID(id), XS_GET_ONLY);
					mxPop();
				}
			}