private bool AddNode(PiAstNode piAst, IList <object> objects)
{
switch (piAst.Type)
{
case EPiAst.None:
break;
case EPiAst.TokenType:
AddToken(piAst, objects);
break;
case EPiAst.Array:
return(TranslateArray(piAst, objects));
case EPiAst.Map:
return(TranslateMap(piAst, objects));
case EPiAst.Continuation:
return(TranslateContinuation(piAst, objects));
default:
objects.Add(piAst.Value);
break;
}
return(true);
}
private bool TranslateContinuation(PiAstNode piAstNode, IList <object> objects)
{
var cont = Continuation.New(_reg);
if (!TranslateNode(piAstNode, cont.Code))
{
return(Fail($"Failed to translate ${piAstNode}"));
}
objects.Add(cont);
return(true);
}
private bool TranslateArray(PiAstNode piAstNode, IList <object> objects)
{
var array = new List <object>();
if (!TranslateNode(piAstNode, array))
{
return(Fail($"Failed to translate ${piAstNode}"));
}
objects.Add(array);
return(true);
}
private static void AddToken(PiAstNode node, ICollection <object> objects)
{
var token = node.PiToken;
// TODO: use a map or even have the Executor execute Pi tokens to avoid this pointless duplication.
// There just ended up being a huge amount of pi tokens that simply map directly to operations.
// This wasn't obvious at first, and is not true in most languages!
switch (token.Type)
{
case EPiToken.Assign:
objects.Add(EOperation.Assign);
break;
case EPiToken.NotEquiv:
objects.Add(EOperation.NotEquiv);
break;
case EPiToken.Less:
objects.Add(EOperation.Less);
break;
case EPiToken.LessEquiv:
objects.Add(EOperation.LessOrEquiv);
break;
case EPiToken.Greater:
objects.Add(EOperation.Greater);
break;
case EPiToken.GreaterEquiv:
objects.Add(EOperation.GreaterOrEquiv);
break;
case EPiToken.GetMember:
objects.Add(EOperation.GetMember);
break;
case EPiToken.Plus:
objects.Add(EOperation.Plus);
break;
case EPiToken.Minus:
objects.Add(EOperation.Minus);
break;
case EPiToken.Multiply:
objects.Add(EOperation.Multiply);
break;
case EPiToken.Divide:
objects.Add(EOperation.Divide);
break;
case EPiToken.Store:
objects.Add(EOperation.Store);
break;
case EPiToken.Retrieve:
objects.Add(EOperation.Retrieve);
break;
case EPiToken.Dup:
objects.Add(EOperation.Dup);
break;
case EPiToken.Drop:
objects.Add(EOperation.Drop);
break;
case EPiToken.DropN:
objects.Add(EOperation.DropN);
break;
case EPiToken.Rot:
objects.Add(EOperation.Rot);
break;
case EPiToken.Pick:
objects.Add(EOperation.Pick);
break;
case EPiToken.Over:
objects.Add(EOperation.Over);
break;
case EPiToken.Clear:
objects.Add(EOperation.Clear);
break;
case EPiToken.GetType:
objects.Add(EOperation.GetType);
break;
case EPiToken.Swap:
objects.Add(EOperation.Swap);
break;
case EPiToken.Break:
objects.Add(EOperation.Break);
break;
case EPiToken.Assert:
objects.Add(EOperation.Assert);
break;
case EPiToken.True:
objects.Add(true);
break;
case EPiToken.Not:
objects.Add(EOperation.Not);
break;
case EPiToken.False:
objects.Add(false);
break;
case EPiToken.Equiv:
objects.Add(EOperation.Equiv);
break;
case EPiToken.And:
objects.Add(EOperation.LogicalAnd);
break;
case EPiToken.Or:
objects.Add(EOperation.LogicalOr);
break;
case EPiToken.Xor:
objects.Add(EOperation.LogicalXor);
break;
case EPiToken.Size:
objects.Add(EOperation.Size);
break;
case EPiToken.ToList:
objects.Add(EOperation.ToList);
break;
case EPiToken.ToArray:
objects.Add(EOperation.ToArray);
break;
case EPiToken.ToMap:
objects.Add(EOperation.ToMap);
break;
case EPiToken.ToSet:
objects.Add(EOperation.ToSet);
break;
case EPiToken.Expand:
objects.Add(EOperation.Expand);
break;
case EPiToken.Insert:
objects.Add(EOperation.Insert);
break;
case EPiToken.New:
objects.Add(EOperation.New);
break;
case EPiToken.Remove:
objects.Add(EOperation.Remove);
break;
case EPiToken.PushFront:
objects.Add(EOperation.PushFront);
break;
case EPiToken.PushBack:
objects.Add(EOperation.PushBack);
break;
case EPiToken.GetBack:
objects.Add(EOperation.GetBack);
break;
case EPiToken.Has:
objects.Add(EOperation.Has);
break;
case EPiToken.At:
objects.Add(EOperation.At);
break;
case EPiToken.DebugPrintDataStack:
objects.Add(EOperation.DebugPrintDataStack);
break;
case EPiToken.DebugPrintContinuation:
objects.Add(EOperation.DebugPrintContinuation);
break;
case EPiToken.DebugPrintContextStack:
objects.Add(EOperation.DebugPrintContextStack);
break;
case EPiToken.DebugPrint:
objects.Add(EOperation.DebugPrint);
break;
case EPiToken.Depth:
objects.Add(EOperation.Depth);
break;
case EPiToken.Write:
objects.Add(EOperation.Write);
break;
case EPiToken.WriteLine:
objects.Add(EOperation.WriteLine);
break;
case EPiToken.Suspend:
objects.Add(EOperation.Suspend);
break;
case EPiToken.Replace:
objects.Add(EOperation.Replace);
break;
case EPiToken.Resume:
objects.Add(EOperation.Resume);
break;
case EPiToken.If:
objects.Add(EOperation.If);
break;
case EPiToken.IfElse:
objects.Add(EOperation.IfElse);
break;
case EPiToken.SetFloatPrecision:
objects.Add(EOperation.SetFloatPrecision);
break;
case EPiToken.Exists:
objects.Add(EOperation.Exists);
break;
default:
objects.Add(node.Value);
break;
}
}
public bool TranslateNode(PiAstNode node, IList <object> objects)
=> node?.Children.All(ast => AddNode(ast, objects)) ?? Fail("Null Ast Node");
private static bool TranslateMap(PiAstNode piAst, IList <object> objects)
{
throw new NotImplementedException("TranslateMap");
}