FSharpUtils
using Newtonsoft.Json.Serialization;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Reflection;
using System.Threading;
namespace Newtonsoft.Json.Utilities
{
internal static class FSharpUtils
{
private static readonly object Lock = new object();
private static bool _initialized;
private static MethodInfo _ofSeq;
private static Type _mapType;
public const string FSharpSetTypeName = "FSharpSet`1";
public const string FSharpListTypeName = "FSharpList`1";
public const string FSharpMapTypeName = "FSharpMap`2";
public static Assembly FSharpCoreAssembly { get; set; }
public static MethodCall<object, object> IsUnion { get; set; }
public static MethodCall<object, object> GetUnionCases { get; set; }
public static MethodCall<object, object> PreComputeUnionTagReader { get; set; }
public static MethodCall<object, object> PreComputeUnionReader { get; set; }
public static MethodCall<object, object> PreComputeUnionConstructor { get; set; }
public static Func<object, object> GetUnionCaseInfoDeclaringType { get; set; }
public static Func<object, object> GetUnionCaseInfoName { get; set; }
public static Func<object, object> GetUnionCaseInfoTag { get; set; }
public static MethodCall<object, object> GetUnionCaseInfoFields { get; set; }
public static void EnsureInitialized(Assembly fsharpCoreAssembly)
{
if (!_initialized) {
lock (Lock) {
if (!_initialized) {
FSharpCoreAssembly = fsharpCoreAssembly;
Type type = fsharpCoreAssembly.GetType("Microsoft.FSharp.Reflection.FSharpType");
MethodInfo method = type.GetMethod("IsUnion", BindingFlags.Static | BindingFlags.Public | BindingFlags.NonPublic);
IsUnion = JsonTypeReflector.ReflectionDelegateFactory.CreateMethodCall<object>(method);
MethodInfo method2 = type.GetMethod("GetUnionCases", BindingFlags.Static | BindingFlags.Public | BindingFlags.NonPublic);
GetUnionCases = JsonTypeReflector.ReflectionDelegateFactory.CreateMethodCall<object>(method2);
Type type2 = fsharpCoreAssembly.GetType("Microsoft.FSharp.Reflection.FSharpValue");
PreComputeUnionTagReader = CreateFSharpFuncCall(type2, "PreComputeUnionTagReader");
PreComputeUnionReader = CreateFSharpFuncCall(type2, "PreComputeUnionReader");
PreComputeUnionConstructor = CreateFSharpFuncCall(type2, "PreComputeUnionConstructor");
Type type3 = fsharpCoreAssembly.GetType("Microsoft.FSharp.Reflection.UnionCaseInfo");
GetUnionCaseInfoName = JsonTypeReflector.ReflectionDelegateFactory.CreateGet<object>(type3.GetProperty("Name"));
GetUnionCaseInfoTag = JsonTypeReflector.ReflectionDelegateFactory.CreateGet<object>(type3.GetProperty("Tag"));
GetUnionCaseInfoDeclaringType = JsonTypeReflector.ReflectionDelegateFactory.CreateGet<object>(type3.GetProperty("DeclaringType"));
GetUnionCaseInfoFields = JsonTypeReflector.ReflectionDelegateFactory.CreateMethodCall<object>(type3.GetMethod("GetFields"));
_ofSeq = fsharpCoreAssembly.GetType("Microsoft.FSharp.Collections.ListModule").GetMethod("OfSeq");
_mapType = fsharpCoreAssembly.GetType("Microsoft.FSharp.Collections.FSharpMap`2");
Thread.MemoryBarrier();
_initialized = true;
}
}
}
}
private static MethodCall<object, object> CreateFSharpFuncCall(Type type, string methodName)
{
MethodInfo method = type.GetMethod(methodName, BindingFlags.Static | BindingFlags.Public | BindingFlags.NonPublic);
MethodInfo method2 = method.ReturnType.GetMethod("Invoke", BindingFlags.Instance | BindingFlags.Public);
MethodCall<object, object> call = JsonTypeReflector.ReflectionDelegateFactory.CreateMethodCall<object>(method);
MethodCall<object, object> invoke = JsonTypeReflector.ReflectionDelegateFactory.CreateMethodCall<object>(method2);
return (object target, object[] args) => new FSharpFunction(call(target, args), invoke);
}
public static ObjectConstructor<object> CreateSeq(Type t)
{
MethodInfo method = _ofSeq.MakeGenericMethod(t);
return JsonTypeReflector.ReflectionDelegateFactory.CreateParameterizedConstructor(method);
}
public static ObjectConstructor<object> CreateMap(Type keyType, Type valueType)
{
return (ObjectConstructor<object>)typeof(FSharpUtils).GetMethod("BuildMapCreator").MakeGenericMethod(keyType, valueType).Invoke(null, null);
}
public static ObjectConstructor<object> BuildMapCreator<TKey, TValue>()
{
ConstructorInfo constructor = _mapType.MakeGenericType(typeof(TKey), typeof(TValue)).GetConstructor(new Type[1] {
typeof(IEnumerable<Tuple<TKey, TValue>>)
});
ObjectConstructor<object> ctorDelegate = JsonTypeReflector.ReflectionDelegateFactory.CreateParameterizedConstructor(constructor);
return delegate(object[] args) {
IEnumerable<Tuple<TKey, TValue>> enumerable = Enumerable.Select<KeyValuePair<TKey, TValue>, Tuple<TKey, TValue>>((IEnumerable<KeyValuePair<TKey, TValue>>)args[0], (Func<KeyValuePair<TKey, TValue>, Tuple<TKey, TValue>>)((KeyValuePair<TKey, TValue> kv) => new Tuple<TKey, TValue>(kv.Key, kv.Value)));
return ctorDelegate(new object[1] {
enumerable
});
};
}
}
}