| | | 1 | | // Licensed to the .NET Foundation under one or more agreements. |
| | | 2 | | // The .NET Foundation licenses this file to you under the MIT license. |
| | | 3 | | |
| | | 4 | | using System.Diagnostics; |
| | | 5 | | using System.Diagnostics.CodeAnalysis; |
| | | 6 | | using System.Reflection; |
| | | 7 | | using System.Text.Json.Serialization.Metadata; |
| | | 8 | | using FSharpKind = System.Text.Json.Serialization.Metadata.FSharpCoreReflectionProxy.FSharpKind; |
| | | 9 | | |
| | | 10 | | namespace System.Text.Json.Serialization.Converters |
| | | 11 | | { |
| | | 12 | | [RequiresDynamicCode(FSharpCoreReflectionProxy.FSharpCoreUnreferencedCodeMessage)] |
| | | 13 | | internal sealed class FSharpTypeConverterFactory : JsonConverterFactory |
| | | 14 | | { |
| | | 15 | | [RequiresUnreferencedCode(FSharpCoreReflectionProxy.FSharpCoreUnreferencedCodeMessage)] |
| | 0 | 16 | | public FSharpTypeConverterFactory() { } |
| | | 17 | | |
| | | 18 | | private ObjectConverterFactory? _recordConverterFactory; |
| | | 19 | | |
| | | 20 | | [UnconditionalSuppressMessage("ReflectionAnalysis", "IL2026:RequiresUnreferencedCode", |
| | | 21 | | Justification = "The ctor is marked RequiresUnreferencedCode.")] |
| | | 22 | | public override bool CanConvert(Type typeToConvert) => |
| | 0 | 23 | | FSharpCoreReflectionProxy.IsFSharpType(typeToConvert) && |
| | 0 | 24 | | FSharpCoreReflectionProxy.Instance.DetectFSharpKind(typeToConvert) is not FSharpKind.Unrecognized; |
| | | 25 | | |
| | | 26 | | [UnconditionalSuppressMessage("ReflectionAnalysis", "IL2026:RequiresUnreferencedCode", |
| | | 27 | | Justification = "The ctor is marked RequiresUnreferencedCode.")] |
| | | 28 | | [UnconditionalSuppressMessage("ReflectionAnalysis", "IL2055:MakeGenericType", |
| | | 29 | | Justification = "The ctor is marked RequiresUnreferencedCode.")] |
| | | 30 | | public override JsonConverter? CreateConverter(Type typeToConvert, JsonSerializerOptions options) |
| | 0 | 31 | | { |
| | 0 | 32 | | Debug.Assert(CanConvert(typeToConvert)); |
| | | 33 | | |
| | | 34 | | Type elementType; |
| | | 35 | | Type converterFactoryType; |
| | 0 | 36 | | object?[]? constructorArguments = null; |
| | | 37 | | |
| | 0 | 38 | | switch (FSharpCoreReflectionProxy.Instance.DetectFSharpKind(typeToConvert)) |
| | | 39 | | { |
| | | 40 | | case FSharpKind.Option: |
| | 0 | 41 | | elementType = typeToConvert.GetGenericArguments()[0]; |
| | 0 | 42 | | converterFactoryType = typeof(FSharpOptionConverter<,>).MakeGenericType(typeToConvert, elementType); |
| | 0 | 43 | | constructorArguments = new object[] { options.GetConverterInternal(elementType) }; |
| | 0 | 44 | | break; |
| | | 45 | | case FSharpKind.ValueOption: |
| | 0 | 46 | | elementType = typeToConvert.GetGenericArguments()[0]; |
| | 0 | 47 | | converterFactoryType = typeof(FSharpValueOptionConverter<,>).MakeGenericType(typeToConvert, elementT |
| | 0 | 48 | | constructorArguments = new object[] { options.GetConverterInternal(elementType) }; |
| | 0 | 49 | | break; |
| | | 50 | | case FSharpKind.List: |
| | 0 | 51 | | elementType = typeToConvert.GetGenericArguments()[0]; |
| | 0 | 52 | | converterFactoryType = typeof(FSharpListConverter<,>).MakeGenericType(typeToConvert, elementType); |
| | 0 | 53 | | break; |
| | | 54 | | case FSharpKind.Set: |
| | 0 | 55 | | elementType = typeToConvert.GetGenericArguments()[0]; |
| | 0 | 56 | | converterFactoryType = typeof(FSharpSetConverter<,>).MakeGenericType(typeToConvert, elementType); |
| | 0 | 57 | | break; |
| | | 58 | | case FSharpKind.Map: |
| | 0 | 59 | | Type[] genericArgs = typeToConvert.GetGenericArguments(); |
| | 0 | 60 | | Type keyType = genericArgs[0]; |
| | 0 | 61 | | Type valueType = genericArgs[1]; |
| | 0 | 62 | | converterFactoryType = typeof(FSharpMapConverter<,,>).MakeGenericType(typeToConvert, keyType, valueT |
| | 0 | 63 | | break; |
| | | 64 | | case FSharpKind.Record: |
| | | 65 | | // Use a modified object converter factory that picks the right constructor for struct record deseri |
| | 0 | 66 | | ObjectConverterFactory objectFactory = _recordConverterFactory ??= new ObjectConverterFactory(useDef |
| | 0 | 67 | | Debug.Assert(objectFactory.CanConvert(typeToConvert)); |
| | 0 | 68 | | return objectFactory.CreateConverter(typeToConvert, options); |
| | | 69 | | case FSharpKind.Union: |
| | 0 | 70 | | return CreateFSharpUnionConverter(typeToConvert, options); |
| | | 71 | | default: |
| | 0 | 72 | | Debug.Fail("Unrecognized F# type."); |
| | | 73 | | throw new Exception(); |
| | | 74 | | } |
| | | 75 | | |
| | 0 | 76 | | return (JsonConverter)Activator.CreateInstance(converterFactoryType, constructorArguments)!; |
| | 0 | 77 | | } |
| | | 78 | | |
| | | 79 | | [UnconditionalSuppressMessage("ReflectionAnalysis", "IL2026:RequiresUnreferencedCode", |
| | | 80 | | Justification = "The ctor is marked RequiresUnreferencedCode.")] |
| | | 81 | | private static JsonConverter CreateFSharpUnionConverter(Type typeToConvert, JsonSerializerOptions options) |
| | 0 | 82 | | { |
| | 0 | 83 | | FSharpCoreReflectionProxy proxy = FSharpCoreReflectionProxy.Instance; |
| | 0 | 84 | | FSharpCoreReflectionProxy.FSharpUnionCaseInfo[] caseInfos = proxy.GetUnionCaseInfos(typeToConvert); |
| | 0 | 85 | | Func<object, int> tagReader = proxy.CreateUnionTagReader(typeToConvert); |
| | | 86 | | |
| | | 87 | | // Read [JsonPolymorphic] for TypeDiscriminatorPropertyName customization. |
| | 0 | 88 | | string typeDiscriminatorPropertyName = typeToConvert |
| | 0 | 89 | | .GetCustomAttribute<JsonPolymorphicAttribute>(inherit: false)?.TypeDiscriminatorPropertyName |
| | 0 | 90 | | ?? JsonSerializer.TypePropertyName; |
| | | 91 | | |
| | | 92 | | // Validate the discriminator property name doesn't conflict with reserved metadata properties ($id, $ref, $ |
| | 0 | 93 | | if (!typeDiscriminatorPropertyName.Equals(JsonSerializer.TypePropertyName, StringComparison.Ordinal)) |
| | 0 | 94 | | { |
| | 0 | 95 | | byte[] utf8EncodedName = System.Text.Encoding.UTF8.GetBytes(typeDiscriminatorPropertyName); |
| | 0 | 96 | | if ((JsonSerializer.GetMetadataPropertyName(utf8EncodedName, resolver: null) & ~MetadataPropertyName.Typ |
| | 0 | 97 | | { |
| | 0 | 98 | | ThrowHelper.ThrowInvalidOperationException_InvalidCustomTypeDiscriminatorPropertyName(); |
| | | 99 | | } |
| | 0 | 100 | | } |
| | | 101 | | |
| | 0 | 102 | | Type converterType = typeof(FSharpUnionConverter<>).MakeGenericType(typeToConvert); |
| | 0 | 103 | | return (JsonConverter)Activator.CreateInstance(converterType, new object[] { caseInfos, tagReader, options, |
| | 0 | 104 | | } |
| | | 105 | | } |
| | | 106 | | } |
| | | 107 | | |