Function fxRunImportNow

xs/sources/xsModule.c:2463–2586

}

void fxRunImportNow(txMachine* the, txSlot* realm, txSlot* referrer)
{
	txSlot* stack = the->stack + 1;
	txSlot* module = fxRunImportAux(the, realm, referrer, stack, stack - 1, 1);
	txID status = mxModuleStatus(module);
	if ((status == XS_MODULE_STATUS_NEW) || (status == XS_MODULE_STATUS_LOADED)) {
		txSlot* result = stack;
		txSlot* queue = fxNewInstance(the);
		mxTry(the) {
			txBoolean done = 1;
			result->kind = module->kind;
			result->value = module->value;

			fxQueueModule(the, queue, module);
// 			slot = mxBehaviorSetProperty(the, queue, moduleID, 0, XS_OWN);;
// 			slot->flag |= XS_BASE_FLAG;
// 			slot->kind = XS_REFERENCE_KIND;
// 			slot->value.reference = module->value.reference;
		
			mxReportModuleQueue("LOAD");
			module = queue->next;
			while (module) {
				if (mxModuleStatus(module) == XS_MODULE_STATUS_NEW) {
					txSlot* loader = mxModuleLoader(module);
					txID moduleID = loader->value.module.id;
					txSlot* realm = loader->value.module.realm;
					if (!fxMapModule(the, realm, moduleID, module, queue, result)) {
						txSlot* loadNowHook = mxLoadNowHook(realm);
						if (mxIsUndefined(loadNowHook)) {
							if (realm != mxModuleInstanceInternal(mxProgram.value.reference)->value.module.realm)
								mxTypeError("no loadNowHook");
							fxLoadModule(the, module, moduleID);
							if (mxModuleExecute(module)->kind == XS_NULL_KIND)
								mxTypeError("no module");
							mxModuleStatus(module) = XS_MODULE_STATUS_LOADED;
						}
						else {
							txSlot* descriptor;
							done = 0;
							mxModuleStatus(module) = XS_MODULE_STATUS_LOADING;
							mxPushUndefined();
							mxPushSlot(loadNowHook);
							mxCall();
							fxPushKeyString(the, moduleID, C_NULL);
							fxPushModuleOptions(the, loader->flag);
							mxRunCount(2);
							descriptor = the->stack;
							fxMapModuleDescriptor(the, realm, moduleID, module, queue, result, descriptor);
							mxPop(); // descriptor
						}
					}
					module = queue;
					done = 1;
					mxReportModuleQueue("LOAD");
				}
				else if (mxModuleStatus(module) == XS_MODULE_STATUS_LOADING) {
					done = 0;
				}