/// <summary>
/// call an operator
/// </summary>
/// <typeparam name="t3">Return type</typeparam>
/// <param name="a"></param>
/// <param name="b"></param>
/// <param name="s"></param>
/// <returns></returns>
internal static t3 Call <t3>(NetLogoObject a, NetLogoObject b, string s)
{
//if the operator requires a cast the get the value from the varible identity
if (a.GetType() == typeof(NetLogoObject) && !string.IsNullOrEmpty(a.ptrID) && a.ptrID != "NULLPTR" && opTable.Any(t => t.Key.token == s && t.Key.cast)) //&& v.cast)
{
a = SystemState.internalState.Assign(a.value.ToString());
}
else
{
a = SystemState.internalState.Assign(a.value.ToString(), false);
}
if (b.GetType() == typeof(NetLogoObject) && !string.IsNullOrEmpty(b.ptrID) && b.ptrID != "NULLPTR" && opTable.Any(t => t.Key.token == s && t.Key.cast))//&& v.cast)
{
b = SystemState.internalState.Assign(b.value.ToString());
}
else
{
b = SystemState.internalState.Assign(b.value.ToString(), false);
}
if (b == null)
{
b = new NetLogoObject()
{
ptrID = "NULLPTR"
};
}
#if DEBUGOPS
foreach (OpPair c in opTable.Keys)
{
Console.Write(b.GetType()); Console.Write(" "); Console.Write(b.GetType().IsSubclassOf(c.opR) || b.GetType() == c.opR); Console.Write(" ");
Console.Write(a.GetType()); Console.Write(" "); Console.Write(a.GetType().IsSubclassOf(c.opL) || a.GetType() == c.opL); Console.Write(" "); Console.Write(c.token); Console.Write(" "); Console.Write(c.token == s);
Console.WriteLine();
}
#endif
//get delegate and operator types
Delegate d = opTable.First(c => (a.GetType().IsSubclassOf(c.Key.opL) || a.GetType() == c.Key.opL) && (b.GetType().IsSubclassOf(c.Key.opR) || b.GetType() == c.Key.opR) && c.Key.token == s).Value;
OpPair v = opTable.First(c => (a.GetType().IsSubclassOf(c.Key.opL) || a.GetType() == c.Key.opL) && (b.GetType().IsSubclassOf(c.Key.opR) || b.GetType() == c.Key.opR) && c.Key.token == s).Key;
if (d != null)
{
try
{
//call operator
return((t3)d.DynamicInvoke(new[] { a, b }));
}
catch (Exception e)
{
throw new RTException("Error occured during operator evaluation ERROR: " + e.Message);
}
}
return(default(t3));
}
/// <summary>
/// global constructor that
/// </summary>
static OperatorTable()
{
Type t = typeof(OperatorFunctions);
Type methodPtr = typeof(opFunct <, ,>);
var v = t.GetMethods();
foreach (var method in v)
{
if (method.IsStatic)
{
var paramArray = method.GetParameters();
var returnid = method.ReturnParameter;
var operatorAtt = method.GetCustomAttributes().Where(a => a is OperatorName);
foreach (var op in operatorAtt)
{
Type constructedmethodPtr = methodPtr.MakeGenericType(new[] { paramArray[0].ParameterType, paramArray[1].ParameterType, returnid.ParameterType });
OpPair o = new OpPair(paramArray[0].ParameterType, paramArray[1].ParameterType, returnid.ParameterType, ((OperatorName)op).name, ((OperatorName)op).cast);
Delegate created = Delegate.CreateDelegate(constructedmethodPtr, method);
opTable.Add(o, created);
}
}
}
// old global constructer these basically do the same thing just the one abouve is automated the one below is hand written
// Its still here as a monument to my mistakes
/*
* opFunct<NetLogoObject, NetLogoObject, NetLogoObject> temp = OperatorFunctions.let;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(NetLogoObject), "let",false),temp);
* temp = OperatorFunctions.report;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(NetLogoObject), "report", false), temp);
* temp = OperatorFunctions.tick;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(NetLogoObject), "tick", false), temp);
* temp = OperatorFunctions.set;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(NetLogoObject), "set", false), temp);
* temp = OperatorFunctions.show;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(NetLogoObject), "show", true), temp);
* opFunct<Number, Number, NetLogoObject> tempAdd = OperatorFunctions.add;
* opTable.Add(new OpPair(typeof(Number), typeof(Number), typeof(NetLogoObject), "+"), tempAdd);
* tempAdd = OperatorFunctions.sub;
* opTable.Add(new OpPair(typeof(Number), typeof(Number), typeof(NetLogoObject), "-"), tempAdd);
* tempAdd = OperatorFunctions.divide;
* opTable.Add(new OpPair(typeof(Number), typeof(Number), typeof(NetLogoObject), "/"), tempAdd);
* tempAdd = OperatorFunctions.order;
* opTable.Add(new OpPair(typeof(Number), typeof(Number), typeof(NetLogoObject), "*"), tempAdd);
* tempAdd = OperatorFunctions.setxy;
* opTable.Add(new OpPair(typeof(Number), typeof(Number), typeof(NetLogoObject), "setxy"), tempAdd);
* temp = OperatorFunctions.reset;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(NetLogoObject), "clear-all", false), temp);
* temp = OperatorFunctions.reset;
* opFunct<NetLogoObject, NetLogoObject, Number> tempN = OperatorFunctions.random;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(Number), "random-xcor", false), tempN);
* tempN = OperatorFunctions.random;
* opTable.Add(new OpPair(typeof(NetLogoObject), typeof(NetLogoObject), typeof(Number), "random-ycor", false), tempN);
*/
}