Support using tables to assign to lists and arrays
This commit is contained in:
parent
6b53877aa5
commit
b6934d153a
|
@ -79,6 +79,9 @@ namespace PorygonSharp.EvalValues
|
|||
return EvaluateString();
|
||||
case TypeClass.UserData:
|
||||
return EvaluateGenericObject();
|
||||
case TypeClass.Table:
|
||||
var val = new TableEvalValue(_handle);
|
||||
return val.EvaluateNumericalTable();
|
||||
default:
|
||||
throw new ArgumentOutOfRangeException();
|
||||
}
|
||||
|
|
|
@ -0,0 +1,89 @@
|
|||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Runtime.InteropServices;
|
||||
|
||||
namespace PorygonSharp.EvalValues
|
||||
{
|
||||
internal class TableEvalValue
|
||||
{
|
||||
private readonly IntPtr _handle;
|
||||
|
||||
public TableEvalValue(IntPtr ptr)
|
||||
{
|
||||
_handle = ptr;
|
||||
}
|
||||
|
||||
public enum TableType
|
||||
{
|
||||
Unknown,
|
||||
Numerical,
|
||||
StringKeyed,
|
||||
Dictionary
|
||||
}
|
||||
|
||||
public TableType GetTableType()
|
||||
{
|
||||
return GetTableType(_handle);
|
||||
}
|
||||
|
||||
public int GetLength()
|
||||
{
|
||||
return GetTableLength(_handle);
|
||||
}
|
||||
|
||||
public EvalValue IndexTable(uint hash)
|
||||
{
|
||||
var ptr = IndexTableHash(_handle, hash);
|
||||
return new EvalValue(ptr);
|
||||
}
|
||||
|
||||
public EvalValue IndexTable(EvalValue key)
|
||||
{
|
||||
var ptr = IndexTableObj(_handle, key.GetPointer());
|
||||
return new EvalValue(ptr);
|
||||
}
|
||||
|
||||
public IEnumerator<object> EvaluateNumericalEnumerator()
|
||||
{
|
||||
if (GetTableType() != TableType.Numerical)
|
||||
throw new Exception("Can't evaluate table as array. It's not a numerical table");
|
||||
|
||||
var length = GetLength();
|
||||
for (uint i = 1; i <= length; i++)
|
||||
{
|
||||
var val = IndexTable(i);
|
||||
yield return val.GetObjectValue();
|
||||
}
|
||||
}
|
||||
|
||||
public object[] EvaluateNumericalTable()
|
||||
{
|
||||
var length = GetLength();
|
||||
var array = new object[length];
|
||||
var c = 0;
|
||||
using (var enumerator = EvaluateNumericalEnumerator())
|
||||
{
|
||||
while (enumerator.MoveNext())
|
||||
{
|
||||
array[c] = enumerator.Current;
|
||||
c++;
|
||||
}
|
||||
}
|
||||
return array;
|
||||
}
|
||||
|
||||
|
||||
[DllImport("PorygonLang", EntryPoint = "GetTableType", CallingConvention = CallingConvention.Cdecl)]
|
||||
private static extern TableType GetTableType(IntPtr ptr);
|
||||
|
||||
[DllImport("PorygonLang", EntryPoint = "GetTableLength", CallingConvention = CallingConvention.Cdecl)]
|
||||
private static extern int GetTableLength(IntPtr ptr);
|
||||
|
||||
[DllImport("PorygonLang", EntryPoint = "IndexTableHash", CallingConvention = CallingConvention.Cdecl)]
|
||||
private static extern IntPtr IndexTableHash(IntPtr ptr, uint hash);
|
||||
|
||||
[DllImport("PorygonLang", EntryPoint = "IndexTableObj", CallingConvention = CallingConvention.Cdecl)]
|
||||
private static extern IntPtr IndexTableObj(IntPtr ptr, IntPtr key);
|
||||
|
||||
}
|
||||
}
|
|
@ -2,6 +2,7 @@ using System;
|
|||
using System.Reflection;
|
||||
using System.Runtime.InteropServices;
|
||||
using PorygonSharp.EvalValues;
|
||||
using PorygonSharp.Utilities;
|
||||
|
||||
namespace PorygonSharp.UserData
|
||||
{
|
||||
|
@ -29,7 +30,7 @@ namespace PorygonSharp.UserData
|
|||
_setter = (ptr, val) =>
|
||||
{
|
||||
var obj = GCHandle.FromIntPtr(ptr).Target;
|
||||
var evalValue = Convert.ChangeType(new EvalValue(val).GetObjectValue(), field.FieldType);
|
||||
var evalValue = Caster.Cast(new EvalValue(val), field.FieldType);
|
||||
field.SetValue(obj, evalValue);
|
||||
};
|
||||
}
|
||||
|
@ -51,7 +52,7 @@ namespace PorygonSharp.UserData
|
|||
_setter = (ptr, val) =>
|
||||
{
|
||||
var obj = GCHandle.FromIntPtr(ptr).Target;
|
||||
var evalValue = Convert.ChangeType(new EvalValue(val).GetObjectValue(), property.PropertyType);
|
||||
var evalValue = Caster.Cast(new EvalValue(val), property.PropertyType);
|
||||
property.SetValue(obj, evalValue);
|
||||
};
|
||||
}
|
||||
|
|
|
@ -1,4 +1,7 @@
|
|||
using System;
|
||||
using System.Collections;
|
||||
using System.Collections.Generic;
|
||||
using System.Runtime.CompilerServices;
|
||||
using PorygonSharp.EvalValues;
|
||||
|
||||
namespace PorygonSharp.Utilities
|
||||
|
@ -8,16 +11,47 @@ namespace PorygonSharp.Utilities
|
|||
public static object Cast(EvalValue val, Type t)
|
||||
{
|
||||
var eval = val.GetObjectValue();
|
||||
return Cast(eval, t);
|
||||
}
|
||||
|
||||
private static object Cast(object o, Type t)
|
||||
{
|
||||
if (t.IsEnum)
|
||||
{
|
||||
var underlying = t.GetEnumUnderlyingType();
|
||||
return Convert.ChangeType(eval, underlying);
|
||||
return Convert.ChangeType(o, underlying);
|
||||
}
|
||||
if (eval is IConvertible)
|
||||
if (o is IConvertible)
|
||||
{
|
||||
return Convert.ChangeType(eval, t);
|
||||
return Convert.ChangeType(o, t);
|
||||
}
|
||||
return eval;
|
||||
if (typeof(IList).IsAssignableFrom(t) && o is object[] arr)
|
||||
{
|
||||
return CastList(arr, t);
|
||||
}
|
||||
return o;
|
||||
}
|
||||
|
||||
private static object CastList(IReadOnlyList<object> o, Type t)
|
||||
{
|
||||
IList arr;
|
||||
Type elementType;
|
||||
if (t.IsArray)
|
||||
{
|
||||
elementType = t.GetElementType();
|
||||
arr = Array.CreateInstance(elementType, o.Count);
|
||||
}
|
||||
else
|
||||
{
|
||||
elementType = t.GetGenericArguments()[0];
|
||||
arr = (IList)Activator.CreateInstance(t, o.Count);
|
||||
}
|
||||
for (var i = 0; i < o.Count; i++)
|
||||
{
|
||||
arr[i] = Cast(o[i], elementType);
|
||||
}
|
||||
|
||||
return arr;
|
||||
}
|
||||
}
|
||||
}
|
Binary file not shown.
Loading…
Reference in New Issue