Function fxLinkCircularities

xs/sources/xsModule.c:571–719

}

void fxLinkCircularities(txMachine* the, txSlot* module, txSlot* circularities, txSlot* exports)
{
	txSlot* circularitiesInstance;
	txSlot* circularity;
	txSlot* transfers;
	txSlot* exportsInstance;
	txSlot* export;
	txSlot* transfer;
	txSlot* aliases;
	txSlot* alias;
	txSlot* circularitiesCopy;
	txSlot* circularityCopy;
	txSlot* from;
	txSlot* stars;
	txSlot* star;
	circularitiesInstance = circularities->value.reference;
	circularity = circularitiesInstance->next;
	while (circularity) {
		if (circularity->value.reference == module->value.reference)
			return;
		circularity = circularity->next;
	}
	circularity = fxDuplicateSlot(the, module);
	circularity->next = circularitiesInstance->next;
	circularitiesInstance->next = circularity;
	exportsInstance = exports->value.reference;
	export = exportsInstance;
	transfers = mxModuleExports(module);
	if (transfers->kind == XS_REFERENCE_KIND) {
		transfer = transfers->value.reference->next;
		while (transfer) {
			export = export->next = fxNewSlot(the);
			export->ID = transfer->ID;
			export->kind = transfer->kind;
			export->value = transfer->value;
			transfer = transfer->next;
		}
		return;
	}
	transfers = mxModuleTransfers(module);
	if (transfers->kind == XS_REFERENCE_KIND) {
		txBoolean starFlag = 0;
		transfer = transfers->value.reference->next;
		while (transfer) {
			aliases = mxTransferAliases(transfer);
			if (aliases->kind == XS_REFERENCE_KIND) {
				alias = aliases->value.reference->next;
				if (alias) {
					while (alias) {
						export = export->next = fxNewSlot(the);
						export->ID = alias->value.symbol;
						export->kind = transfer->kind;
						export->value = transfer->value;
						alias = alias->next;
					}
				}
				else {
					mxCheck(the, mxTransferLocal(transfer)->kind == XS_NULL_KIND);