/// <summary>
/// Tries to convert a CLR object to a MoonSharp value, using more in-depth analysis
/// </summary>
internal static R_VAL ObjectToValue(RubyState state, object obj)
{
R_VAL v = TryObjectToSimpleValue(script, obj);
if (v != null)
{
return(v);
}
v = UserData.Create(obj);
if (v != null)
{
return(v);
}
if (obj is Type)
{
v = UserData.CreateStatic(obj as Type);
}
// unregistered enums go as integers
if (obj is Enum)
{
return(R_VAL.NewNumber(
NumericConversions.TypeToDouble(Enum.GetUnderlyingType(obj.GetType()), obj)));
}
if (v != null)
{
return(v);
}
if (obj is Delegate)
{
return(R_VAL.NewCallback(CallbackFunction.FromDelegate(script, ( Delegate )obj)));
}
if (obj is MethodInfo)
{
MethodInfo mi = ( MethodInfo )obj;
if (mi.IsStatic)
{
return(R_VAL.NewCallback(CallbackFunction.FromMethodInfo(script, mi)));
}
}
if (obj is System.Collections.IList)
{
Table t = TableConversions.ConvertIListToTable(script, (System.Collections.IList)obj);
return(R_VAL.NewTable(t));
}
if (obj is System.Collections.IDictionary)
{
Table t = TableConversions.ConvertIDictionaryToTable(script, (System.Collections.IDictionary)obj);
return(R_VAL.NewTable(t));
}
var enumerator = EnumerationToValue(script, obj);
if (enumerator != null)
{
return(enumerator);
}
throw ScriptRuntimeException.ConvertObjectFailed(obj);
}
/// <summary>
/// Converts a R_VAL to a CLR object of a specific type
/// </summary>
internal static object ValueToObjectOfType(RubyState state, R_VAL value, Type desiredType,
object defaultValue, bool isOptional)
{
if (desiredType.IsByRef)
{
desiredType = desiredType.GetElementType();
}
if (desiredType == typeof(R_VAL))
{
return(value);
}
if (desiredType == typeof(object))
{
return(ValueToObject(state, value));
}
StringConversions.StringSubtype stringSubType = StringConversions.GetStringSubtype(desiredType);
string str = null;
Type nt = Nullable.GetUnderlyingType(desiredType);
Type nullableType = null;
if (nt != null)
{
nullableType = desiredType;
desiredType = nt;
}
switch (value.tt)
{
case DataType.Void:
if (isOptional)
{
return(defaultValue);
}
else if ((!desiredType.IsValueType) || (nullableType != null))
{
return(null);
}
break;
case DataType.Nil:
if (Framework.Do.IsValueType(desiredType))
{
if (nullableType != null)
{
return(null);
}
if (isOptional)
{
return(defaultValue);
}
}
else
{
return(null);
}
break;
case DataType.Boolean:
if (desiredType == typeof(bool))
{
return(value.Boolean);
}
if (stringSubType != StringConversions.StringSubtype.None)
{
str = value.Boolean.ToString();
}
break;
case DataType.Number:
if (Framework.Do.IsEnum(desiredType))
{
// number to enum conv
Type underType = Enum.GetUnderlyingType(desiredType);
return(NumericConversions.DoubleToType(underType, value.Number));
}
if (NumericConversions.NumericTypes.Contains(desiredType))
{
return(NumericConversions.DoubleToType(desiredType, value.Number));
}
if (stringSubType != StringConversions.StringSubtype.None)
{
str = value.Number.ToString();
}
break;
case DataType.String:
if (stringSubType != StringConversions.StringSubtype.None)
{
str = value.String;
}
break;
case DataType.Function:
if (desiredType == typeof(Closure))
{
return(value.Function);
}
else if (desiredType == typeof(ScriptFunctionDelegate))
{
return(value.Function.GetDelegate());
}
break;
case DataType.ClrFunction:
if (desiredType == typeof(CallbackFunction))
{
return(value.Callback);
}
else if (desiredType == typeof(Func <ScriptExecutionContext, CallbackArguments, R_VAL>))
{
return(value.Callback.ClrCallback);
}
break;
case DataType.UserData:
if (value.UserData.Object != null)
{
var udObj = value.UserData.Object;
var udDesc = value.UserData.Descriptor;
if (udDesc.IsTypeCompatible(desiredType, udObj))
{
return(udObj);
}
if (stringSubType != StringConversions.StringSubtype.None)
{
str = udDesc.AsString(udObj);
}
}
break;
case DataType.Table:
if (desiredType == typeof(Table) ||
Framework.Do.IsAssignableFrom(desiredType, typeof(Table)))
{
return(value.Table);
}
else
{
object o = TableConversions.ConvertTableToType(value.Table, desiredType);
if (o != null)
{
return(o);
}
}
break;
case DataType.Tuple:
break;
}
if (stringSubType != StringConversions.StringSubtype.None && str != null)
{
return(StringConversions.ConvertString(stringSubType, str, desiredType, value.Type));
}
throw ScriptRuntimeException.ConvertObjectFailed(value.Type, desiredType);
}
