Function fxResolveSpecifier

xs/sources/xsModule.c:2144–2194

}

txID fxResolveSpecifier(txMachine* the, txSlot* realm, txID moduleID, txSlot* name)
{
	if (moduleID == XS_NO_ID) {
		if (realm == mxModuleInstanceInternal(mxProgram.value.reference)->value.module.realm) {
			moduleID = fxFindModule(the, realm, XS_NO_ID, name);
			if (moduleID == XS_NO_ID) {
				fxToStringBuffer(the, name, the->nameBuffer, sizeof(the->nameBuffer));
				mxReferenceError("module \"%s\" not found", the->nameBuffer);
			}
		}
		else {
			if (name->kind == XS_STRING_X_KIND)
				moduleID = fxNewNameX(the, name->value.string);
			else
				moduleID = fxNewName(the, name);
		}
	}
	else {
		txSlot* resolveHook = mxResolveHook(realm);
		while (mxIsUndefined(resolveHook)) {
			txSlot* parent = mxRealmParent(realm);
			if (mxIsReference(parent)) {
				realm = parent->value.reference;
				resolveHook = mxResolveHook(realm);
			}
			else
				break;
		}
		if (mxIsUndefined(resolveHook)) {
			mxCheck(the, realm == mxModuleInstanceInternal(mxProgram.value.reference)->value.module.realm);
			moduleID = fxFindModule(the, realm, moduleID, name);
			if (moduleID == XS_NO_ID) {
				fxToStringBuffer(the, name, the->nameBuffer, sizeof(the->nameBuffer));
				mxReferenceError("module \"%s\" not found", the->nameBuffer);
			}
		}
		else {
			mxPushUndefined();
			mxPushSlot(resolveHook);
			mxCall();
			mxPushSlot(name);
			fxPushKeyString(the, moduleID, C_NULL);
			mxRunCount(2);
			moduleID = fxToID(the, the->stack);
			mxPop();
		}
	}
	name->kind = XS_SYMBOL_KIND;
	name->value.symbol = moduleID;
	return moduleID;
}

void fxImport(txMachine* the)
{