123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771 |
- using System;
- using System.Collections.Generic;
- using System.Linq;
- using System.Text;
- using ILRuntime.CLR.Method;
- using ILRuntime.CLR.TypeSystem;
- using ILRuntime.Runtime.Intepreter;
- namespace ILRuntime.Runtime.Enviorment
- {
- #region Functions
- public class CrossBindingFunctionInfo<T1, T2, T3, T4, T5, TResult> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T1>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<T3>(),
- InvocationContext.GetInvocationType<T4>(),
- InvocationContext.GetInvocationType<T5>(),
- InvocationContext.GetInvocationType<TResult>(),
- };
- static Type[] pTypes = new Type[] { typeof(T1), typeof(T2), typeof(T3), typeof(T4), typeof(T5) };
- public delegate TResult InvocationDelegate(ILTypeInstance instance, T1 arg, T2 arg2, T3 arg3, T4 arg4, T5 arg5);
- public CrossBindingFunctionInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return typeof(TResult); } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public TResult Invoke(ILTypeInstance instance, T1 arg, T2 arg2, T3 arg3, T4 arg4, T5 arg5)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- TResult res = default(TResult);
- try
- {
- if (DoInvoke != null)
- res = DoInvoke(instance, arg, arg2, arg3, arg4, arg5);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.PushParameter(piTypes[2], arg3);
- ctx.PushParameter(piTypes[3], arg4);
- ctx.PushParameter(piTypes[4], arg5);
- ctx.Invoke();
- res = ctx.ReadResult<TResult>(piTypes[5]);
- }
- }
- }
- finally
- {
- invoking = false;
- }
- return res;
- }
- else
- return default(TResult);
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingFunctionInfo<T1, T2, T3, T4, TResult> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T1>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<T3>(),
- InvocationContext.GetInvocationType<T4>(),
- InvocationContext.GetInvocationType<TResult>(),
- };
- static Type[] pTypes = new Type[] { typeof(T1), typeof(T2), typeof(T3), typeof(T4) };
- public delegate TResult InvocationDelegate(ILTypeInstance instance, T1 arg, T2 arg2, T3 arg3, T4 arg4);
- public CrossBindingFunctionInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return typeof(TResult); } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public TResult Invoke(ILTypeInstance instance, T1 arg, T2 arg2, T3 arg3, T4 arg4)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- TResult res = default(TResult);
- try
- {
- if (DoInvoke != null)
- res = DoInvoke(instance, arg, arg2, arg3, arg4);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.PushParameter(piTypes[2], arg3);
- ctx.PushParameter(piTypes[3], arg4);
- ctx.Invoke();
- res = ctx.ReadResult<TResult>(piTypes[4]);
- }
- }
- }
- finally
- {
- invoking = false;
- }
- return res;
- }
- else
- return default(TResult);
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingFunctionInfo<T1, T2, T3, TResult> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T1>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<T3>(),
- InvocationContext.GetInvocationType<TResult>(),
- };
- static Type[] pTypes = new Type[] { typeof(T1), typeof(T2), typeof(T3) };
- public delegate TResult InvocationDelegate(ILTypeInstance instance, T1 arg, T2 arg2, T3 arg3);
- public CrossBindingFunctionInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return typeof(TResult); } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public TResult Invoke(ILTypeInstance instance, T1 arg, T2 arg2, T3 arg3)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- TResult res = default(TResult);
- try
- {
- if (DoInvoke != null)
- res = DoInvoke(instance, arg, arg2, arg3);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.PushParameter(piTypes[2], arg3);
- ctx.Invoke();
- res = ctx.ReadResult<TResult>(piTypes[3]);
- }
- }
- }
- finally
- {
- invoking = false;
- }
- return res;
- }
- else
- return default(TResult);
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingFunctionInfo<T1, T2, TResult> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T1>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<TResult>(),
- };
- static Type[] pTypes = new Type[] { typeof(T1), typeof(T2) };
- public delegate TResult InvocationDelegate(ILTypeInstance instance, T1 arg, T2 arg2);
- public CrossBindingFunctionInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return typeof(TResult); } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public TResult Invoke(ILTypeInstance instance, T1 arg, T2 arg2)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- TResult res = default(TResult);
- try
- {
- if (DoInvoke != null)
- res = DoInvoke(instance, arg, arg2);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.Invoke();
- res = ctx.ReadResult<TResult>(piTypes[2]);
- }
- }
- }
- finally
- {
- invoking = false;
- }
- return res;
- }
- else
- return default(TResult);
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingFunctionInfo<T1, TResult> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T1>(),
- InvocationContext.GetInvocationType<TResult>(),
- };
- static Type[] pTypes = new Type[] { typeof(T1) };
- public delegate TResult InvocationDelegate(ILTypeInstance instance, T1 arg);
- public CrossBindingFunctionInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return typeof(TResult); } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public TResult Invoke(ILTypeInstance instance, T1 arg)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- TResult res = default(TResult);
- try
- {
- if (DoInvoke != null)
- res = DoInvoke(instance, arg);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.Invoke();
- res = ctx.ReadResult<TResult>(piTypes[1]);
- }
- }
- }
- finally
- {
- invoking = false;
- }
- return res;
- }
- else
- return default(TResult);
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingFunctionInfo<TResult> : CrossBindingMethodInfo
- {
- static InvocationTypes rType = InvocationContext.GetInvocationType<TResult>();
- public delegate TResult InvocationDelegate(ILTypeInstance instance);
- public CrossBindingFunctionInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return typeof(TResult); } }
- public InvocationDelegate DoInvoke { get; set; }
- public new TResult Invoke(ILTypeInstance instance)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- TResult res = default(TResult);
- try
- {
- if (DoInvoke != null)
- res = DoInvoke(instance);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.Invoke();
- res = ctx.ReadResult<TResult>(rType);
- }
- }
- }
- finally
- {
- invoking = false;
- }
- return res;
- }
- else
- return default(TResult);
- }
- }
- #endregion
- #region Methods
- public class CrossBindingMethodInfo<T, T2, T3, T4, T5> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<T3>(),
- InvocationContext.GetInvocationType<T4>(),
- InvocationContext.GetInvocationType<T5>(),
- };
- static Type[] pTypes = new Type[] { typeof(T), typeof(T2), typeof(T3), typeof(T4), typeof(T5) };
- public delegate void InvocationDelegate(ILTypeInstance instance, T arg, T2 arg2, T3 arg3, T4 arg4, T5 arg5);
- public CrossBindingMethodInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return null; } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public void Invoke(ILTypeInstance instance, T arg, T2 arg2, T3 arg3, T4 arg4, T5 arg5)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- try
- {
- if (DoInvoke != null)
- DoInvoke(instance, arg, arg2, arg3, arg4, arg5);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.PushParameter(piTypes[2], arg3);
- ctx.PushParameter(piTypes[3], arg4);
- ctx.PushParameter(piTypes[4], arg5);
- ctx.Invoke();
- }
- }
- }
- finally
- {
- invoking = false;
- }
- }
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingMethodInfo<T, T2, T3, T4> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<T3>(),
- InvocationContext.GetInvocationType<T4>(),
- };
- static Type[] pTypes = new Type[] { typeof(T), typeof(T2), typeof(T3), typeof(T4) };
- public delegate void InvocationDelegate(ILTypeInstance instance, T arg, T2 arg2, T3 arg3, T4 arg4);
- public CrossBindingMethodInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return null; } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public void Invoke(ILTypeInstance instance, T arg, T2 arg2, T3 arg3, T4 arg4)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- try
- {
- if (DoInvoke != null)
- DoInvoke(instance, arg, arg2, arg3, arg4);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.PushParameter(piTypes[2], arg3);
- ctx.PushParameter(piTypes[3], arg4);
- ctx.Invoke();
- }
- }
- }
- finally
- {
- invoking = false;
- }
- }
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingMethodInfo<T, T2, T3> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T>(),
- InvocationContext.GetInvocationType<T2>(),
- InvocationContext.GetInvocationType<T3>(),
- };
- static Type[] pTypes = new Type[] { typeof(T), typeof(T2), typeof(T3) };
- public delegate void InvocationDelegate(ILTypeInstance instance, T arg, T2 arg2, T3 arg3);
- public CrossBindingMethodInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return null; } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public void Invoke(ILTypeInstance instance, T arg, T2 arg2, T3 arg3)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- try
- {
- if (DoInvoke != null)
- DoInvoke(instance, arg, arg2, arg3);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.PushParameter(piTypes[2], arg3);
- ctx.Invoke();
- }
- }
- }
- finally
- {
- invoking = false;
- }
- }
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingMethodInfo<T, T2> : CrossBindingMethodInfo
- {
- static InvocationTypes[] piTypes = new InvocationTypes[]
- {
- InvocationContext.GetInvocationType<T>(),
- InvocationContext.GetInvocationType<T2>(),
- };
- static Type[] pTypes = new Type[] { typeof(T), typeof(T2) };
- public delegate void InvocationDelegate(ILTypeInstance instance, T arg, T2 arg2);
-
- public CrossBindingMethodInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return null; } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public void Invoke(ILTypeInstance instance, T arg, T2 arg2)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- try
- {
- if (DoInvoke != null)
- DoInvoke(instance, arg, arg2);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes[0], arg);
- ctx.PushParameter(piTypes[1], arg2);
- ctx.Invoke();
- }
- }
- }
- finally
- {
- invoking = false;
- }
- }
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- public class CrossBindingMethodInfo<T> : CrossBindingMethodInfo
- {
- static InvocationTypes piTypes = InvocationContext.GetInvocationType<T>();
- static Type[] pTypes = new Type[] { typeof(T) };
- public delegate void InvocationDelegate(ILTypeInstance instance, T arg);
- public CrossBindingMethodInfo(string name)
- : base(name)
- {
- }
- protected override Type ReturnType { get { return null; } }
- protected override Type[] Parameters { get { return pTypes; } }
- public InvocationDelegate DoInvoke { get; set; }
- public void Invoke(ILTypeInstance instance, T arg)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- try
- {
- if (DoInvoke != null)
- DoInvoke(instance, arg);
- else
- {
- using (var ctx = domain.BeginInvoke(method))
- {
- ctx.PushObject(instance);
- ctx.PushParameter(piTypes, arg);
- ctx.Invoke();
- }
- }
- }
- finally
- {
- invoking = false;
- }
- }
- }
- public override void Invoke(ILTypeInstance instance)
- {
- throw new NotSupportedException();
- }
- }
- #endregion
- public class CrossBindingMethodInfo
- {
- public string Name { get; private set; }
- protected AppDomain domain;
- protected IMethod method;
- private IMethod baseMethod;
- private bool methodGot;
- protected bool invoking;
- static List<IType> emptyParam = new List<IType>();
- public CrossBindingMethodInfo(string name)
- {
- Name = name;
- }
- protected virtual Type[] Parameters { get { return null; } }
- protected virtual Type ReturnType { get { return null; } }
- public bool CheckShouldInvokeBase(ILTypeInstance ins)
- {
- EnsureMethod(ins);
- return method == null || invoking;
- }
- protected void EnsureMethod(ILTypeInstance ins)
- {
- if (!methodGot)
- {
- var ilType = ins.Type;
- domain = ilType.AppDomain;
- methodGot = true;
- List<IType> param = null;
- IType rt = null;
- if (Parameters != null)
- {
- param = new List<IType>();
- foreach (var i in Parameters)
- {
- if (i.IsByRef)
- {
- var type = domain.GetType(i.GetElementType());
- param.Add(type.MakeByRefType());
- }
- else
- param.Add(domain.GetType(i));
- }
- }
- else
- param = emptyParam;
- if (ReturnType != null)
- rt = domain.GetType(ReturnType);
- if (ilType.FirstCLRBaseType != null)
- baseMethod = ilType.FirstCLRBaseType.BaseType.GetMethod(Name, param, null, rt);
- if (ilType.FirstCLRInterface != null)
- {
- var implements = ilType.FirstCLRInterface.Implements;
- for (int i = 0; i < implements.Length; i++)
- {
- baseMethod = implements[i].GetMethod(Name, param, null, rt);
- if (baseMethod != null)
- break;
- }
- }
- if (baseMethod == null)
- method = ilType.GetMethod(Name, param, null, rt);
- }
- if (baseMethod != null)
- {
- method = ins.Type.GetVirtualMethod(baseMethod);
- if (method is CLRMethod)
- method = null;
- }
- }
- public virtual void Invoke(ILTypeInstance instance)
- {
- EnsureMethod(instance);
- if (method != null)
- {
- invoking = true;
- try
- {
- domain.Invoke(method, instance, null);
- }
- finally
- {
- invoking = false;
- }
- }
- }
- }
- }
|