public override object Execute(ProtoCore.Runtime.Context c, Interpreter dsi)
{
List <StackValue> s = dsi.runtime.rmem.Stack;
FFIObjectMarshaler marshaller = Module.GetMarshaler(dsi.runtime.RuntimeCore);
var thisObject = marshaller.UnMarshal(s.Last(), c, dsi, ReflectionInfo.DeclaringType);
//Notify marshler for dispose.
marshaller.OnDispose(s.Last(), c, dsi);
Object retVal = null;
if (ReflectionInfo.IsWrapperOf(CLRModuleType.DisposeMethod))
{
// For those FFI objects that are disposable but don't provide
// Dispose() method in their classes, they will share a same
// Dispose() method from CLRModuleType.DisposeMethod. We need
// to manually dispose them.
if (thisObject != null && thisObject is IDisposable)
{
var disposable = thisObject as IDisposable;
disposable.Dispose();
}
}
else
{
retVal = InvokeFunctionPointerNoThrow(c, dsi, thisObject, null);
}
return(retVal);
}
public override object Execute(ProtoCore.Runtime.Context c, Interpreter dsi, List <StackValue> s)
{
var parameters = new List <object>();
if (s == null)
{
s = dsi.runtime.rmem.Stack;
}
object thisObject = null;
FFIObjectMarshaler marshaller = Module.GetMarshaler(dsi.runtime.RuntimeCore);
if (!ReflectionInfo.IsStatic)
{
try
{
thisObject = marshaller.UnMarshal(s.Last(), c, dsi, ReflectionInfo.DeclaringType);
}
catch (InvalidOperationException)
{
string message = String.Format(Resources.kFFIFailedToObtainThisObject, ReflectionInfo.DeclaringType.Name, ReflectionInfo.Name);
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, message);
return(null);
}
if (thisObject == null)
{
return(null); //Can't call a method on null object.
}
}
FFIParameterInfo[] paraminfos = ReflectionInfo.GetParameters();
List <StackValue> referencedParameters = new List <StackValue>();
for (int i = 0; i < mArgTypes.Length; ++i)
{
var opArg = s[i];
try
{
Type paramType = paraminfos[i].Info.ParameterType;
object param = null;
if (opArg.IsDefaultArgument)
{
param = Type.Missing;
}
else
{
param = marshaller.UnMarshal(opArg, c, dsi, paramType);
}
if (paraminfos[i].KeepReference && opArg.IsReferenceType)
{
referencedParameters.Add(opArg);
}
//null is passed for a value type, so we must return null
//rather than interpreting any value from null. fix defect 1462014
if (!paramType.IsGenericType && paramType.IsValueType && param == null)
{
//This is going to cause a cast exception. This is a very frequently called problem, so we want to short-cut the execution
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation,
string.Format(Resources.FailedToCastFromNull, paraminfos[i].Info.ParameterType.Name));
return(null);
//throw new System.InvalidCastException(string.Format("Null value cannot be cast to {0}", paraminfos[i].ParameterType.Name));
}
parameters.Add(param);
}
catch (System.InvalidCastException ex)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.Message);
return(null);
}
catch (InvalidOperationException)
{
string message = String.Format(Resources.kFFIFailedToObtainObject, paraminfos[i].Info.ParameterType.Name, ReflectionInfo.DeclaringType.Name, ReflectionInfo.Name);
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, message);
return(null);
}
}
var ret = InvokeFunctionPointerNoThrow(c, dsi, thisObject, parameters.Count > 0 ? parameters.ToArray() : null);
if (ReflectionInfo.KeepReferenceThis && thisObject != null)
{
referencedParameters.Add(s.Last());
}
int count = referencedParameters.Count;
if (count > 0 && (ret is StackValue))
{
// If there is a parameter who has attribute [KeepReference],
// it means this parameter will cross the DesignScript boundary
// and be referenced by C# object. Therefore, when its DS
// wrapper object is out of scope, we shouldn't dispose it;
// otherwise that C# object will reference to an invalid object.
//
// Similarly, if the method has attribute [KeepReferenceThis],
// it means the return object will reference to this object
// internally, so we shouldn't dispose this object.
//
// The hack here is to treat them like properties in the return
// object. Note all DS wrapper objects are dummy objects who
// haven't any members. By allocating extra space on the heap,
// we store the reference in the return object so that the
// parameter will have the same lifecycle as the return object.
//
// One case need to consider about is the type of return value.
// If the return value is an array, we have to recursively go
// into the array and expand the element, instead of setting
// these hidden information directly on the array.
try
{
SetReferenceObjects((StackValue)ret, referencedParameters, dsi.runtime);
}
catch (RunOutOfMemoryException)
{
dsi.runtime.RuntimeCore.RuntimeStatus.LogWarning(ProtoCore.Runtime.WarningID.RunOutOfMemory, Resources.RunOutOfMemory);
return(StackValue.Null);
}
}
return(ret);
}
protected object InvokeFunctionPointerNoThrow(ProtoCore.Runtime.Context c, Interpreter dsi, object thisObject, object[] parameters)
{
StackValue dsRetValue = StackValue.Null;
try
{
var ret = ReflectionInfo.Invoke(thisObject, parameters);
//Reduce to singleton if the attribute is specified.
ret = ReflectionInfo.ReduceReturnedCollectionToSingleton(ret);
FFIObjectMarshaler marshaller = Module.GetMarshaler(dsi.runtime.RuntimeCore);
dsRetValue = marshaller.Marshal(ret, c, dsi, mReturnType);
}
catch (DllNotFoundException ex)
{
if (ex.InnerException != null)
{
dsi.LogSemanticError(ex.InnerException.Message);
}
dsi.LogSemanticError(ex.Message);
}
catch (System.Reflection.TargetException ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.InnerException.Message);
}
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.Message);
}
catch (System.Reflection.TargetInvocationException ex)
{
if (ex.InnerException != null)
{
System.Exception exc = ex.InnerException;
var exception = exc as ArgumentNullException;
if (exception != null)
{
var innerMessage = string.Format(Resources.ArgumentNullException, exception.ParamName);
var msg = string.Format(Resources.OperationFailType2,
ReflectionInfo.DeclaringType.Name,
ReflectionInfo.Name,
innerMessage);
dsi.LogWarning(ProtoCore.Runtime.WarningID.InvalidArguments, msg);
}
else if (exc is IndexOutOfRangeException)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.IndexOutOfRange, exc.Message);
}
else if (exc is System.ArgumentException)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.InvalidArguments, ErrorString(exc));
}
else if (exc is System.NullReferenceException)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ErrorString(null));
}
else if (exc is StringOverIndexingException)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.OverIndexing, exc.Message);
}
else if (exc is KeyNotFoundException)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.InvalidIndexing, exc.Message);
}
else
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ErrorString(exc));
}
}
else
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ErrorString(ex));
}
}
catch (System.Reflection.TargetParameterCountException ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.InnerException.Message);
}
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.Message);
}
catch (System.MethodAccessException ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.InnerException.Message);
}
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.Message);
}
catch (System.InvalidOperationException ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.InnerException.Message);
}
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.Message);
}
catch (System.NotSupportedException ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.InnerException.Message);
}
dsi.LogWarning(ProtoCore.Runtime.WarningID.AccessViolation, ex.Message);
}
catch (ArgumentNullException ex)
{
var innerMessage = string.Format(Resources.ArgumentNullException, ex.ParamName);
var msg = string.Format(Resources.OperationFailType2,
ReflectionInfo.DeclaringType.Name,
ReflectionInfo.Name,
innerMessage);
dsi.LogWarning(ProtoCore.Runtime.WarningID.InvalidArguments, msg);
}
catch (System.ArgumentException ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.InvalidArguments, ErrorString(ex.InnerException));
}
else
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.InvalidArguments, ErrorString(ex));
}
}
catch (Exception ex)
{
if (ex.InnerException != null)
{
dsi.LogWarning(ProtoCore.Runtime.WarningID.Default, ErrorString(ex.InnerException));
}
dsi.LogWarning(ProtoCore.Runtime.WarningID.Default, ErrorString(ex));
}
return(dsRetValue);
}
