Function fxLoadModules

xs/sources/xsModule.c:1068–1166

}

void fxLoadModules(txMachine* the, txSlot* queue)
{
	txSlot* module = queue->next;
	txBoolean done = 1;
	if (queue->flag & XS_LEVEL_FLAG)
		return;
	queue->flag |= XS_LEVEL_FLAG;
	mxReportModuleQueue("LOAD");
	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;
			mxTry(the) {
				if (fxMapModule(the, realm, moduleID, module, queue, C_NULL)) {
					module = queue;
					done = 0;
				}
				else {
					txSlot* loadHook = mxLoadHook(realm);
					mxModuleStatus(module) = XS_MODULE_STATUS_LOADING;
					if (mxIsUndefined(loadHook)) {
						if (realm != mxModuleInstanceInternal(mxProgram.value.reference)->value.module.realm)
							mxTypeError("no loadHook");
						fxLoadModule(the, module, moduleID);
						if (mxModuleExecute(module)->kind == XS_NULL_KIND)
							mxTypeError("no module");
						mxModuleStatus(module) = XS_MODULE_STATUS_LOADED;
						module = queue;
						done = 1;
						mxReportModuleQueue("LOAD");
					}
					else {
						done = 0;
						mxModuleStatus(module) = XS_MODULE_STATUS_LOADING;
						
						mxPushUndefined();
						mxPushSlot(loadHook);
						mxCall();
						fxPushKeyString(the, moduleID, C_NULL);
						fxPushModuleOptions(the, loader->flag);
						mxRunCount(2);
						
						fxLoadModulesPromise(the, queue, module, the->stack, fxLoadModulesFulfilled, fxLoadModulesRejected);

						mxPop();
					}
				}
			}
			mxCatch(the) {
				mxPush(mxException);
				mxException = mxUndefined;
				fxCompleteModule(the, module->value.reference, the->stack);
				fxRunImportRejected(the, module->value.reference, module->value.reference);
			}
		}
		else if (mxModuleStatus(module) == XS_MODULE_STATUS_LOADING) {
			done = 0;