private EvaluatorState VisitAssemblyInstruction(AST_Node expression)
{
if (expression is BinaryExpression operatorExpression)
{
return(EvaluateBinaryExpression(operatorExpression));
}
else if (expression is UnaryExpression unaryExpression)
{
return(EvaluateUnaryExpression(unaryExpression));
}
else if (expression is LiteralExpression literalExpression)
{
return(EvaluateLiteralExpression(literalExpression));
}
else if (expression is IdentifierExpression identifierExpression)
{
if (context.IsAssemblyContext)
{
return(registers[identifierExpression.Identifier]);
}
return(enviroment.Variables[identifierExpression.Identifier]);
}
throw new ArgumentException($"Invalid Instruction Expression: '{expression.ToString()}'");
}
//
// Simple Error Handling
// @TODO: This needs to be expanded, and reworked.
//
private EvaluatorState Error(string message, AST_Node node)
{
printer.Print();
printer.Print(Run.Red($"{message}"));
return(new ErrorState()
{
Message = message
});
}
private EvaluatorState EvaluateSource(AST_Node source, bool checkLabels = false)
{
EvaluatorState state = null;
if (source is LiteralExpression literal)
{
state = EvaluateLiteralExpression(literal);
}
else if (source is IdentifierExpression identifier)
{
if (registers.TryGetValue(identifier.Identifier, out var reg))
{
state = reg;
}
else if (enviroment.Variables.TryGetValue(identifier.Identifier, out var variable))
{
state = variable;
}
else if (checkLabels)
{
if (enviroment.Labels.TryGetValue(identifier.Identifier, out var lbl))
{
state = new EvaluatorState()
{
Value = lbl.ToString()
};
}
}
}
else if (source is IndexingExpression indexing)
{
//
// Evaluate.
//
context.IsAssemblyContext = true;
state = VisitAssemblyInstruction(indexing.Expression);
context.IsAssemblyContext = false;
//
// Get the value from the heap.
//
var value = heap.Read((int)long.Parse(state.Value));
state.Value = value.ToString();
}
return(state);
}
private EvaluatorState Visit(AST_Node expression)
{
//
// We either have a tree or a singe AST_Error node here.
// So we need to process the error.
//
if (expression is AST_Error error)
{
printer.Print(Run.Red($" L:{error.Line} P:{error.Possition} {error.ErrorMessage}"));
return(new EvaluatorState());
}
else if (expression is AST_Label label)
{
return(EvaluatorState.Empty());
}
if (expression is BinaryExpression operatorExpression)
{
return(EvaluateBinaryExpression(operatorExpression));
}
else if (expression is UnaryExpression unaryExpression)
{
return(EvaluateUnaryExpression(unaryExpression));
}
else if (expression is LiteralExpression literalExpression)
{
return(EvaluateLiteralExpression(literalExpression));
}
else if (expression is IdentifierExpression identifierExpression)
{
return(EvaluateIdentifierExpression(identifierExpression));
}
else if (expression is VariableAssigmentExpression assigmentExpression)
{
return(EvaluateVariableAssigmentExpression(assigmentExpression));
}
else if (expression is ASM_Instruction assemblyInstruction)
{
return(EvaluateAssemblyInstruction(assemblyInstruction));
}
else if (expression is BlockExpression blockExpression)
{
return(EvaluateBlock(blockExpression));
}
else if (expression is FunctionCallExpression functionCall)
{
return(EvalutateFunctionCallExpression(functionCall));
}
else if (expression is CommandExpression commandExpression)
{
if (commandExpression.CommandName == "explain")
{
printer.Print(Run.White("Explain is ON"));
context.IsExplain = true;
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "explain_on")
{
printer.Print(Run.White("Explain is ON"));
context.IsExplainAll = true;
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "explain_off")
{
printer.Print(Run.White("Explain is OFF"));
context.IsExplainAll = false;
context.IsExplain = false;
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "cls")
{
printer.Clear();
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "code")
{
//
// Should be file path;
//
var path = commandExpression.RightHandSide.ToString();
printer.Clear();
PrintCode(path.Replace("\"", string.Empty));
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "parse")
{
var rhs = commandExpression.RightHandSide;
ASTPrinter ast = new ASTPrinter(printer);
ast.Print(rhs);
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "regs")
{
foreach (var register in registers)
{
printer.PrintInline(Run.White(register.Key + " :"));
PrintAsBitSet((int)long.Parse(register.Value.Value));
}
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "vars")
{
int maxVarName = 8;
foreach (var variable in enviroment.Variables)
{
printer.PrintInline(
Run.White(variable.Key + new string(' ', Math.Abs(maxVarName - variable.Key.Length)) + " :"));
if (variable.Value.Value == null)
{
printer.Print(Run.Yellow("<NA>"));
}
switch (variable.Value.Type)
{
case LiteralType.Number:
case LiteralType.Bool:
case LiteralType.Text:
PrintAsBitSet((int)long.Parse(variable.Value.Value));
break;
case LiteralType.Block:
PrintAsBlock();
break;
}
}
return(new EvaluatorState());
}
else if (commandExpression.CommandName == "mem")
{
var size = heap.Memory.Length / 4;
for (int i = 0; i < size; i++)
{
var value = heap.Read(i * 4);
printer.PrintInline(Run.White(i + " :"));
PrintAsBitSet(value);
}
return(new EvaluatorState());
}
return(Visit(commandExpression.RightHandSide));
}
throw new ArgumentException($"Invalid Expression: '{expression.ToString()}'");
}