Replaced DefinedEnums by enum validation.

Author: Timovzl

DomainModeling.Analyzer/Analyzers/DefinedEnumMemberWithoutPrimitiveAnalyzer.cs

@@ -0,0 +1,146 @@
+using System.Collections.Immutable;
+using Microsoft.CodeAnalysis;
+using Microsoft.CodeAnalysis.Diagnostics;
+using Microsoft.CodeAnalysis.Operations;
+
+namespace Architect.DomainModeling.Analyzer.Analyzers;
+
+/// <summary>
+/// Prevents assignment of unvalidated enum values to members of an IDomainObject.
+/// </summary>
+[DiagnosticAnalyzer(LanguageNames.CSharp)]
+public sealed class UnvalidatedEnumMemberAssignmentAnalyzer : DiagnosticAnalyzer
+{
+	[System.Diagnostics.CodeAnalysis.SuppressMessage("CodeQuality", "IDE0079:Remove unnecessary suppression", Justification = "False positive.")]
+	[System.Diagnostics.CodeAnalysis.SuppressMessage("MicrosoftCodeAnalysisReleaseTracking", "RS2008:Enable analyzer release tracking", Justification = "Not yet implemented.")]
+	private static readonly DiagnosticDescriptor DiagnosticDescriptor = new DiagnosticDescriptor(
+		id: "UnvalidatedEnumAssignmentToDomainobject",
+		title: "Unvalidated enum assignment to domain object member",
+		messageFormat: "The assigned value was not validated. Use the AsDefined(), AsDefinedFlags(), or AsUnvalidated() extension methods to specify the intent.",
+		category: "Usage",
+		defaultSeverity: DiagnosticSeverity.Warning,
+		isEnabledByDefault: true);
+
+	public override ImmutableArray<DiagnosticDescriptor> SupportedDiagnostics => [DiagnosticDescriptor];
+
+	public override void Initialize(AnalysisContext context)
+	{
+		context.ConfigureGeneratedCodeAnalysis(GeneratedCodeAnalysisFlags.ReportDiagnostics);
+		context.EnableConcurrentExecution();
+
+		context.RegisterOperationAction(AnalyzeAssignment,
+			OperationKind.SimpleAssignment,
+			OperationKind.CoalesceAssignment);
+	}
+
+	private static void AnalyzeAssignment(OperationAnalysisContext context)
+	{
+		var assignment = (IAssignmentOperation)context.Operation;
+
+		if (assignment.Target is not IMemberReferenceOperation memberRef)
+			return;
+
+		if (assignment.Value.Type is not { } assignedValueType)
+			return;
+
+		// Dig through nullable
+		if (assignedValueType.IsNullable(out var nullableUnderlyingType))
+			assignedValueType = nullableUnderlyingType;
+
+		var memberType = memberRef.Type.IsNullable(out var memberNullableUnderlyingType) ? memberNullableUnderlyingType : memberRef.Type;
+		if (memberType is not { TypeKind: TypeKind.Enum } enumType)
+			return;
+
+		// Only if target member is a member of some IDomainObject
+		if (!memberRef.Member.ContainingType.AllInterfaces.Any(interf =>
+			interf is { Name: "IDomainObject", ContainingNamespace: { Name: "DomainModeling", ContainingNamespace: { Name: "Architect", ContainingNamespace.IsGlobalNamespace: true } } }))
+			return;
+
+		// Ignore if valid by AsDefined() or the like
+		if (IsValidatedWithExtensionMethod(assignment.Value))
+			return;
+
+		var constantValue = assignment.Value.ConstantValue;
+
+		// Dig through up to two conversions
+		if (assignment.Value is IConversionOperation conversionOperation)
+		{
+			// Ignore if valid by AsDefined() or the like
+			if (IsValidatedWithExtensionMethod(conversionOperation.Operand))
+				return;
+
+			if (!constantValue.HasValue && conversionOperation.Operand.ConstantValue.HasValue)
+				constantValue = conversionOperation.Operand.ConstantValue.Value;
+
+			if (conversionOperation.Operand is IConversionOperation nestedConversionOperation)
+			{
+				// Ignore if valid by AsDefined() or the like
+				if (IsValidatedWithExtensionMethod(nestedConversionOperation.Operand))
+					return;
+
+				if (!constantValue.HasValue && nestedConversionOperation.Operand.ConstantValue.HasValue)
+					constantValue = nestedConversionOperation.Operand.ConstantValue.Value;
+			}
+		}
+
+		// Ignore if assigning null or a defined constant
+		if (constantValue.HasValue && (constantValue.Value is null || IsDefinedEnumConstantOrNullableThereof(enumType, constantValue.Value)))
+			return;
+
+		// Ignore if assigning a nullable member with default(T?) (i.e. null) or default (i.e. null)
+		if (assignment.Value is IDefaultValueOperation or IConversionOperation { Operand: IDefaultValueOperation { ConstantValue.HasValue: false } } && assignment.Target.Type.IsNullable(out _))
+			return;
+
+		var diagnostic = Diagnostic.Create(
+			DiagnosticDescriptor,
+			assignment.Syntax.GetLocation());
+
+		context.ReportDiagnostic(diagnostic);
+	}
+
+	private static bool IsValidatedWithExtensionMethod(IOperation operation)
+	{
+		if (operation is not IInvocationOperation invocation)
+			return false;
+
+		var method = invocation.TargetMethod;
+		method = method.ReducedFrom ?? method; // value.AsDefined() vs. EnumExtensions.AsDefined()
+
+		if (method.Name is not "AsDefined" and not "AsDefinedFlags" and not "AsUnvalidated")
+			return false;
+
+		if (method.ContainingType is not { Name: "EnumExtensions", ContainingNamespace: { Name: "DomainModeling", ContainingNamespace: { Name: "Architect", ContainingNamespace.IsGlobalNamespace: true } } })
+			return false;
+
+		return true;
+	}
+
+	private static bool IsDefinedEnumConstantOrNullableThereof(ITypeSymbol enumType, object constantValue)
+	{
+		if (enumType is not INamedTypeSymbol { EnumUnderlyingType: { } } namedEnumType)
+			return false;
+
+		var binaryValue = GetBinaryValue(namedEnumType.EnumUnderlyingType, constantValue);
+
+		var valueIsDefined = namedEnumType.GetMembers().Any(member =>
+			member is IFieldSymbol { ConstantValue: { } value } && GetBinaryValue(namedEnumType.EnumUnderlyingType, value) == binaryValue);
+
+		return valueIsDefined;
+	}
+
+	private static ulong? GetBinaryValue(ITypeSymbol enumUnderlyingType, object value)
+	{
+		return (enumUnderlyingType.SpecialType, Type.GetTypeCode(value.GetType())) switch
+		{
+			(SpecialType.System_Byte, TypeCode.Byte) => Convert.ToByte(value),
+			(SpecialType.System_SByte, TypeCode.SByte) => (ulong)Convert.ToSByte(value),
+			(SpecialType.System_UInt16, TypeCode.UInt16) => Convert.ToUInt16(value),
+			(SpecialType.System_Int16, TypeCode.Int16) => (ulong)Convert.ToInt16(value),
+			(SpecialType.System_UInt32, TypeCode.UInt32) => Convert.ToUInt32(value),
+			(SpecialType.System_Int32, TypeCode.Int32) => (ulong)Convert.ToInt32(value),
+			(SpecialType.System_UInt64, TypeCode.UInt64) => Convert.ToUInt64(value),
+			(SpecialType.System_Int64, TypeCode.Int64) => (ulong)Convert.ToInt64(value),
+			_ => null,
+		};
+	}
+}