DynValue Callback(Script script, object obj, ScriptExecutionContext context, CallbackArguments args)
{
if (AccessMode == InteropAccessMode.LazyOptimized &&
m_OptimizedFunc == null && m_OptimizedAction == null)
{
Optimize();
}
object[] pars = new object[m_Arguments.Length];
int j = args.IsMethodCall ? 1 : 0;
for (int i = 0; i < pars.Length; i++)
{
if (m_Arguments[i] == typeof(Script))
{
pars[i] = script;
}
else if (m_Arguments[i] == typeof(ScriptExecutionContext))
{
pars[i] = context;
}
else if (m_Arguments[i] == typeof(CallbackArguments))
{
pars[i] = args.SkipMethodCall();
}
else
{
var arg = args.RawGet(j, false) ?? DynValue.Void;
pars[i] = ConversionHelper.MoonSharpValueToObjectOfType(arg, m_Arguments[i], m_Defaults[i]);
j++;
}
}
object retv = null;
if (m_OptimizedFunc != null)
{
retv = m_OptimizedFunc(obj, pars);
}
else if (m_OptimizedAction != null)
{
m_OptimizedAction(obj, pars);
retv = DynValue.Void;
}
else if (m_IsAction)
{
MethodInfo.Invoke(obj, pars);
retv = DynValue.Void;
}
else
{
retv = MethodInfo.Invoke(obj, pars);
}
return(ConversionHelper.ClrObjectToComplexMoonSharpValue(script, retv));
}
/// <summary>
/// Builds the argument list.
/// </summary>
/// <param name="script">The script.</param>
/// <param name="obj">The object.</param>
/// <param name="context">The context.</param>
/// <param name="args">The arguments.</param>
/// <param name="outParams">Output: A list containing the indices of all "out" parameters, or null if no out parameters are specified.</param>
/// <returns>The arguments, appropriately converted.</returns>
protected virtual object[] BuildArgumentList(Script script, object obj, ScriptExecutionContext context, CallbackArguments args,
out List <int> outParams)
{
ParameterDescriptor[] parameters = Parameters;
object[] pars = new object[parameters.Length];
int j = args.IsMethodCall ? 1 : 0;
outParams = null;
for (int i = 0; i < pars.Length; i++)
{
// keep track of out and ref params
if (parameters[i].Type.IsByRef)
{
if (outParams == null)
{
outParams = new List <int>();
}
outParams.Add(i);
}
// if an ext method, we have an obj -> fill the first param
if (ExtensionMethodType != null && obj != null && i == 0)
{
pars[i] = obj;
continue;
}
// else, fill types with a supported type
else if (parameters[i].Type == typeof(Script))
{
pars[i] = script;
}
else if (parameters[i].Type == typeof(ScriptExecutionContext))
{
pars[i] = context;
}
else if (parameters[i].Type == typeof(CallbackArguments))
{
pars[i] = args.SkipMethodCall();
}
// else, ignore out params
else if (parameters[i].IsOut)
{
pars[i] = null;
}
else if (i == parameters.Length - 1 && VarArgsArrayType != null)
{
List <DynValue> extraArgs = new List <DynValue>();
while (true)
{
DynValue arg = args.RawGet(j, false);
j += 1;
if (arg != null)
{
extraArgs.Add(arg);
}
else
{
break;
}
}
// here we have to worry we already have an array.. damn. We only support this for userdata.
// remains to be analyzed what's the correct behavior here. For example, let's take a params object[]..
// given a single table parameter, should it use it as an array or as an object itself ?
if (extraArgs.Count == 1)
{
DynValue arg = extraArgs[0];
if (arg.Type == DataType.UserData && arg.UserData.Object != null)
{
if (Framework.Do.IsAssignableFrom(VarArgsArrayType, arg.UserData.Object.GetType()))
{
pars[i] = arg.UserData.Object;
continue;
}
}
}
// ok let's create an array, and loop
Array vararg = Array.CreateInstance(VarArgsElementType, extraArgs.Count);
for (int ii = 0; ii < extraArgs.Count; ii++)
{
vararg.SetValue(ScriptToClrConversions.DynValueToObjectOfType(extraArgs[ii], VarArgsElementType,
null, false), ii);
}
pars[i] = vararg;
}
// else, convert it
else
{
var arg = args.RawGet(j, false) ?? DynValue.Void;
pars[i] = ScriptToClrConversions.DynValueToObjectOfType(arg, parameters[i].Type,
parameters[i].DefaultValue, parameters[i].HasDefaultValue);
j += 1;
}
}
return(pars);
}
/// <summary>
/// Builds the argument list.
/// </summary>
/// <param name="script">The script.</param>
/// <param name="obj">The object.</param>
/// <param name="context">The context.</param>
/// <param name="args">The arguments.</param>
/// <param name="outParams">Output: A list containing the indices of all "out" parameters, or null if no out parameters are specified.</param>
/// <returns>The arguments, appropriately converted.</returns>
protected virtual object[] BuildArgumentList(Script script, object obj, ScriptExecutionContext context, CallbackArguments args,
out List<int> outParams)
{
ParameterDescriptor[] parameters = Parameters;
object[] pars = new object[parameters.Length];
int j = args.IsMethodCall ? 1 : 0;
outParams = null;
for (int i = 0; i < pars.Length; i++)
{
// keep track of out and ref params
if (parameters[i].Type.IsByRef)
{
if (outParams == null) outParams = new List<int>();
outParams.Add(i);
}
// if an ext method, we have an obj -> fill the first param
if (ExtensionMethodType != null && obj != null && i == 0)
{
pars[i] = obj;
continue;
}
// else, fill types with a supported type
else if (parameters[i].Type == typeof(Script))
{
pars[i] = script;
}
else if (parameters[i].Type == typeof(ScriptExecutionContext))
{
pars[i] = context;
}
else if (parameters[i].Type == typeof(CallbackArguments))
{
pars[i] = args.SkipMethodCall();
}
// else, ignore out params
else if (parameters[i].IsOut)
{
pars[i] = null;
}
else if (i == parameters.Length - 1 && VarArgsArrayType != null)
{
List<DynValue> extraArgs = new List<DynValue>();
while (true)
{
DynValue arg = args.RawGet(j, false);
j += 1;
if (arg != null)
extraArgs.Add(arg);
else
break;
}
// here we have to worry we already have an array.. damn. We only support this for userdata.
// remains to be analyzed what's the correct behavior here. For example, let's take a params object[]..
// given a single table parameter, should it use it as an array or as an object itself ?
if (extraArgs.Count == 1)
{
DynValue arg = extraArgs[0];
if (arg.Type == DataType.UserData && arg.UserData.Object != null)
{
if (VarArgsArrayType.IsAssignableFrom(arg.UserData.Object.GetType()))
{
pars[i] = arg.UserData.Object;
continue;
}
}
}
// ok let's create an array, and loop
Array vararg = Array.CreateInstance(VarArgsElementType, extraArgs.Count);
for (int ii = 0; ii < extraArgs.Count; ii++)
{
vararg.SetValue(ScriptToClrConversions.DynValueToObjectOfType(extraArgs[ii], VarArgsElementType,
null, false), ii);
}
pars[i] = vararg;
}
// else, convert it
else
{
var arg = args.RawGet(j, false) ?? DynValue.Void;
pars[i] = ScriptToClrConversions.DynValueToObjectOfType(arg, parameters[i].Type,
parameters[i].DefaultValue, parameters[i].HasDefaultValue);
j += 1;
}
}
return pars;
}
/// <summary>
/// The internal callback which actually executes the method
/// </summary>
/// <param name="script">The script.</param>
/// <param name="obj">The object.</param>
/// <param name="context">The context.</param>
/// <param name="args">The arguments.</param>
/// <returns></returns>
internal DynValue Callback(Script script, object obj, ScriptExecutionContext context, CallbackArguments args)
{
if (ValueTypeDefaultCtor != null)
{
object vto = Activator.CreateInstance(ValueTypeDefaultCtor);
return(ClrToScriptConversions.ObjectToDynValue(script, vto));
}
if (AccessMode == InteropAccessMode.LazyOptimized &&
m_OptimizedFunc == null && m_OptimizedAction == null)
{
Optimize();
}
object[] pars = new object[Parameters.Length];
int j = args.IsMethodCall ? 1 : 0;
List <int> outParams = null;
for (int i = 0; i < pars.Length; i++)
{
// keep track of out and ref params
if (Parameters[i].ParameterType.IsByRef)
{
if (outParams == null)
{
outParams = new List <int>();
}
outParams.Add(i);
}
// if an ext method, we have an obj -> fill the first param
if (ExtensionMethodType != null && obj != null && i == 0)
{
pars[i] = obj;
continue;
}
// else, fill types with a supported type
else if (Parameters[i].ParameterType == typeof(Script))
{
pars[i] = script;
}
else if (Parameters[i].ParameterType == typeof(ScriptExecutionContext))
{
pars[i] = context;
}
else if (Parameters[i].ParameterType == typeof(CallbackArguments))
{
pars[i] = args.SkipMethodCall();
}
// else, ignore out params
else if (Parameters[i].IsOut)
{
pars[i] = null;
}
else if (i == Parameters.Length - 1 && VarArgsArrayType != null)
{
List <DynValue> extraArgs = new List <DynValue>();
while (true)
{
DynValue arg = args.RawGet(j, false);
j += 1;
if (arg != null)
{
extraArgs.Add(arg);
}
else
{
break;
}
}
// here we have to worry we already have an array.. damn. We only support this for userdata.
// remains to be analyzed what's the correct behavior here. For example, let's take a params object[]..
// given a single table parameter, should it use it as an array or as an object itself ?
if (extraArgs.Count == 1)
{
DynValue arg = extraArgs[0];
if (arg.Type == DataType.UserData && arg.UserData.Object != null)
{
if (VarArgsArrayType.IsAssignableFrom(arg.UserData.Object.GetType()))
{
pars[i] = arg.UserData.Object;
continue;
}
}
}
// ok let's create an array, and loop
Array vararg = CreateVarArgArray(extraArgs.Count);
for (int ii = 0; ii < extraArgs.Count; ii++)
{
vararg.SetValue(ScriptToClrConversions.DynValueToObjectOfType(extraArgs[ii], VarArgsElementType,
null, false), ii);
}
pars[i] = vararg;
}
// else, convert it
else
{
var arg = args.RawGet(j, false) ?? DynValue.Void;
pars[i] = ScriptToClrConversions.DynValueToObjectOfType(arg, Parameters[i].ParameterType,
Parameters[i].DefaultValue, !Parameters[i].DefaultValue.IsDbNull());
j += 1;
}
}
object retv = null;
if (m_OptimizedFunc != null)
{
retv = m_OptimizedFunc(obj, pars);
}
else if (m_OptimizedAction != null)
{
m_OptimizedAction(obj, pars);
retv = DynValue.Void;
}
else if (m_IsAction)
{
MethodInfo.Invoke(obj, pars);
retv = DynValue.Void;
}
else
{
if (IsConstructor)
{
retv = ((ConstructorInfo)MethodInfo).Invoke(pars);
}
else
{
retv = MethodInfo.Invoke(obj, pars);
}
}
if (outParams == null)
{
return(ClrToScriptConversions.ObjectToDynValue(script, retv));
}
else
{
DynValue[] rets = new DynValue[outParams.Count + 1];
rets[0] = ClrToScriptConversions.ObjectToDynValue(script, retv);
for (int i = 0; i < outParams.Count; i++)
{
rets[i + 1] = ClrToScriptConversions.ObjectToDynValue(script, pars[outParams[i]]);
}
return(DynValue.NewTuple(rets));
}
}