|
| 1 | +using System; |
| 2 | +using System.Text.Json; |
| 3 | +using System.Text.Json.Serialization; |
| 4 | +using LanguageExt; |
| 5 | +using LanguageExt.TypeClasses; |
| 6 | + |
| 7 | +namespace Dbosoft.Functional.Json.DataTypes; |
| 8 | + |
| 9 | +/// <summary> |
| 10 | +/// <para> |
| 11 | +/// A JSON converter which supports <see cref="NewType{NEWTYPE,A, PRED, ORD}"/>. |
| 12 | +/// </para> |
| 13 | +/// <para> |
| 14 | +/// The <see cref="NewType{NEWTYPE,A, PRED, ORD}"/> must be based on one of the |
| 15 | +/// following types: <type><see cref="string"/></type>, |
| 16 | +/// <type><see cref="bool"/></type>, <type><see cref="short"/></type> |
| 17 | +/// <type><see cref="int"/></type>, <type><see cref="long"/></type> |
| 18 | +/// <type><see cref="byte"/></type>, <type><see cref="ushort"/></type> |
| 19 | +/// <type><see cref="uint"/></type>, <type><see cref="ulong"/></type>, |
| 20 | +/// <type><see cref="float"/></type>, <type><see cref="double"/></type>, |
| 21 | +/// <type><see cref="decimal"/></type>. |
| 22 | +/// </para> |
| 23 | +/// <para> |
| 24 | +/// <see cref="NewType{NEWTYPE,A, PRED, ORD}"/>s with <see cref="string"/> as |
| 25 | +/// the base value can be used as keys in dictionaries, objects, etc. |
| 26 | +/// </para> |
| 27 | +/// </summary> |
| 28 | +public class NewTypeJsonConverter : JsonConverterFactory |
| 29 | +{ |
| 30 | + /// <inheritdoc /> |
| 31 | + public override bool CanConvert(Type typeToConvert) |
| 32 | + { |
| 33 | + var newType = FindNewType(typeToConvert); |
| 34 | + if (newType is null || !newType.IsGenericType || newType.GetGenericTypeDefinition() != typeof(NewType<,,,>)) |
| 35 | + return false; |
| 36 | + |
| 37 | + var arguments = newType.GetGenericArguments(); |
| 38 | + if (arguments.Length != 4) |
| 39 | + return false; |
| 40 | + |
| 41 | + var a = arguments[1]; |
| 42 | + return a == typeof(string) || a == typeof(bool) |
| 43 | + || a == typeof(short) || a == typeof(int) || a == typeof(long) |
| 44 | + || a == typeof(byte) || a == typeof(ushort) || a == typeof(uint) || a == typeof(ulong) |
| 45 | + || a == typeof(float) || a == typeof(double) || a == typeof(decimal); |
| 46 | + } |
| 47 | + |
| 48 | + /// <inheritdoc /> |
| 49 | + public override JsonConverter CreateConverter( |
| 50 | + Type typeToConvert, |
| 51 | + JsonSerializerOptions options) |
| 52 | + { |
| 53 | + var newType = FindNewType(typeToConvert); |
| 54 | + if (newType is null || !newType.IsGenericType || newType.GetGenericTypeDefinition() != typeof(NewType<,,,>)) |
| 55 | + throw new ArgumentException("The type is not a LanguageExt NewType.", nameof(typeToConvert)); |
| 56 | + |
| 57 | + var arguments = newType.GetGenericArguments(); |
| 58 | + var a = arguments[1]; |
| 59 | + var pred = arguments[2]; |
| 60 | + var ord = arguments[3]; |
| 61 | + |
| 62 | + if (a == typeof(string)) |
| 63 | + { |
| 64 | + return (JsonConverter)Activator.CreateInstance( |
| 65 | + typeof(NewTypeJsonConverter<,,,>) |
| 66 | + .MakeGenericType(typeToConvert, typeToConvert, pred, ord)); |
| 67 | + } |
| 68 | + |
| 69 | + if (a == typeof(bool) || a == typeof(short) || a == typeof(int) || a == typeof(long) |
| 70 | + || a == typeof(byte) || a == typeof(ushort) || a == typeof(uint) || a == typeof(ulong) |
| 71 | + || a == typeof(float) || a == typeof(double) || a == typeof(decimal)) |
| 72 | + { |
| 73 | + return (JsonConverter)Activator.CreateInstance( |
| 74 | + typeof(NewTypeJsonConverter<,,,,>) |
| 75 | + .MakeGenericType(typeToConvert, typeToConvert, a, pred, ord)); |
| 76 | + } |
| 77 | + |
| 78 | + throw new ArgumentException($"The value type {a.Name} is not supported.", nameof(typeToConvert)); |
| 79 | + } |
| 80 | + |
| 81 | + private static Type? FindNewType(Type type) |
| 82 | + { |
| 83 | + var candidate = type; |
| 84 | + while (candidate is not null && candidate != typeof(object)) |
| 85 | + { |
| 86 | + if (candidate.IsGenericType && candidate.GetGenericTypeDefinition() == typeof(NewType<,,,>)) |
| 87 | + return candidate; |
| 88 | + candidate = candidate.BaseType; |
| 89 | + } |
| 90 | + |
| 91 | + return null; |
| 92 | + } |
| 93 | +} |
| 94 | + |
| 95 | +internal class NewTypeJsonConverter<T, NEWTYPE, PRED, ORD> |
| 96 | + : JsonConverter<T> |
| 97 | + where T : NewType<NEWTYPE, string, PRED, ORD> |
| 98 | + where PRED : struct, Pred<string> |
| 99 | + where NEWTYPE : NewType<NEWTYPE, string, PRED, ORD> |
| 100 | + where ORD : struct, Ord<string> |
| 101 | +{ |
| 102 | + public override T Read(ref Utf8JsonReader reader, Type typeToConvert, JsonSerializerOptions options) |
| 103 | + { |
| 104 | + return (T)Activator.CreateInstance(typeToConvert, reader.GetString()); |
| 105 | + } |
| 106 | + |
| 107 | + public override T ReadAsPropertyName(ref Utf8JsonReader reader, Type typeToConvert, JsonSerializerOptions options) |
| 108 | + { |
| 109 | + return (T)Activator.CreateInstance(typeToConvert, reader.GetString()); |
| 110 | + } |
| 111 | + |
| 112 | + public override void Write(Utf8JsonWriter writer, T value, JsonSerializerOptions options) |
| 113 | + { |
| 114 | + writer.WriteStringValue(value.Value); |
| 115 | + } |
| 116 | + |
| 117 | + public override void WriteAsPropertyName(Utf8JsonWriter writer, T value, JsonSerializerOptions options) |
| 118 | + { |
| 119 | + writer.WritePropertyName(value.Value); |
| 120 | + } |
| 121 | +} |
| 122 | + |
| 123 | +internal class NewTypeJsonConverter<T, NEWTYPE, A, PRED, ORD> |
| 124 | + : JsonConverter<T> |
| 125 | + where T : NewType<NEWTYPE, A, PRED, ORD> |
| 126 | + where PRED : struct, Pred<A> |
| 127 | + where NEWTYPE : NewType<NEWTYPE, A, PRED, ORD> |
| 128 | + where ORD : struct, Ord<A> |
| 129 | +{ |
| 130 | + public override T Read(ref Utf8JsonReader reader, Type typeToConvert, JsonSerializerOptions options) |
| 131 | + { |
| 132 | + object? value = typeof(A) switch |
| 133 | + { |
| 134 | + { } t when t == typeof(bool) => reader.GetBoolean(), |
| 135 | + { } t when t == typeof(byte) => reader.GetByte(), |
| 136 | + { } t when t == typeof(short) => reader.GetInt16(), |
| 137 | + { } t when t == typeof(int) => reader.GetInt32(), |
| 138 | + { } t when t == typeof(long) => reader.GetInt64(), |
| 139 | + { } t when t == typeof(ushort) => reader.GetUInt16(), |
| 140 | + { } t when t == typeof(uint) => reader.GetUInt32(), |
| 141 | + { } t when t == typeof(ulong) => reader.GetUInt64(), |
| 142 | + { } t when t == typeof(float) => reader.GetSingle(), |
| 143 | + { } t when t == typeof(double) => reader.GetDouble(), |
| 144 | + { } t when t == typeof(decimal) => reader.GetDecimal(), |
| 145 | + _ => throw new InvalidOperationException($"Values of type {typeof(A).Name} are not supported.") |
| 146 | + }; |
| 147 | + return (T)Activator.CreateInstance(typeToConvert, value); |
| 148 | + } |
| 149 | + |
| 150 | + public override void Write(Utf8JsonWriter writer, T value, JsonSerializerOptions options) |
| 151 | + { |
| 152 | + switch (value.Value) |
| 153 | + { |
| 154 | + case bool v: |
| 155 | + writer.WriteBooleanValue(v); |
| 156 | + return; |
| 157 | + case byte v: |
| 158 | + writer.WriteNumberValue(v); |
| 159 | + return; |
| 160 | + case short v: |
| 161 | + writer.WriteNumberValue(v); |
| 162 | + return; |
| 163 | + case int v: |
| 164 | + writer.WriteNumberValue(v); |
| 165 | + return; |
| 166 | + case long v: |
| 167 | + writer.WriteNumberValue(v); |
| 168 | + return; |
| 169 | + case ushort v: |
| 170 | + writer.WriteNumberValue(v); |
| 171 | + return; |
| 172 | + case uint v: |
| 173 | + writer.WriteNumberValue(v); |
| 174 | + return; |
| 175 | + case ulong v: |
| 176 | + writer.WriteNumberValue(v); |
| 177 | + break; |
| 178 | + case float v: |
| 179 | + writer.WriteNumberValue(v); |
| 180 | + return; |
| 181 | + case double v: |
| 182 | + writer.WriteNumberValue(v); |
| 183 | + return; |
| 184 | + case decimal v: |
| 185 | + writer.WriteNumberValue(v); |
| 186 | + return; |
| 187 | + default: |
| 188 | + throw new ArgumentException("Values of this type are not supported.", nameof(value)); |
| 189 | + } |
| 190 | + } |
| 191 | +} |
0 commit comments