public ForStatement(string variableName, ExprNode from, ExprNode to, ExprNode inc, StatementList stmts)
{
FromExpr = from;
ToExpr = to;
StmtList = stmts;
IncExpr = inc;
VarName = variableName;
}
public FunctionDefineStatement(string name, string[] paramNames, StatementList sl)
{
FctName = name;
ParamNames = paramNames;
StatementList = sl;
}
public IfStatement(ExprNode conditional, StatementList tstmts, StatementList fstmts)
{
Conditional = conditional;
TStmtList = tstmts;
FStmtList = fstmts;
}
public WhileStatement(ExprNode conditional, StatementList stmts)
{
Conditional = conditional;
StmtList = stmts;
}
public StatementFunction(string name, string[] paramNames, StatementList sl) : base(name)
{
ParamNames = paramNames;
StmtList = sl;
}
/// <summary>
/// Builds a StatementList from a set of tokens.
/// </summary>
/// <param name="tokens">The array of token arrays to build from.</param>
/// <returns>A statement list from the tokens.</returns>
public static StatementList Build(Token[][] tokens)
{
var sl = new StatementList();
for (int i = 0; i < tokens.Length; i++)
{
//if (tokens[i].Length > 2)
{
if (tokens[i].Length > 2 && tokens[i][0] is IdentifierToken && tokens[i][1] is AssignmentToken)
sl.Add(new AssignmentStatement(tokens[i][0].Text, new Expression(tokens[i].SubArray(2, tokens[i].Length - 2))));
else if (tokens[i].Length > 2 && tokens[i][0] is IdentifierToken && tokens[i][1] is AddAssignmentToken)
sl.Add(new AdditionAssignmentStatement(tokens[i][0].Text, new Expression(tokens[i].SubArray(2, tokens[i].Length - 2))));
else if (tokens[i].Length > 2 && tokens[i][0] is IdentifierToken && tokens[i][1] is SubAssignmentToken)
sl.Add(new SubtractionAssignmentStatement(tokens[i][0].Text, new Expression(tokens[i].SubArray(2, tokens[i].Length - 2))));
if (tokens[i].Length > 2 && tokens[i][0] is IdentifierToken && tokens[i][1] is MulAssignmentToken)
sl.Add(new MultiplicationAssignmentStatement(tokens[i][0].Text, new Expression(tokens[i].SubArray(2, tokens[i].Length - 2))));
if (tokens[i].Length > 2 && tokens[i][0] is IdentifierToken && tokens[i][1] is DivAssignmentToken)
sl.Add(new DivisionAssignmentStatement(tokens[i][0].Text, new Expression(tokens[i].SubArray(2, tokens[i].Length - 2))));
else if (tokens[i].Length > 2 && tokens[i][0] is IdentifierToken && tokens[i][1] is ListStartToken)
sl.Add(new FunctionStatement(new Expression(tokens[i]).RootExpr as FunctionNode));
else if (tokens[i].Length > 1 && tokens[i][0] is ReturnToken)
sl.Add(new ReturnStatement(new Expression(tokens[i].SubArray(1, tokens[i].Length - 1))));
else if (tokens[i].Length > 4 && tokens[i][0] is DefineToken)
{
string name = tokens[i][1].Text;
if (!(tokens[i][2] is ListStartToken))
throw Err("Expected parameter list.", tokens[i][2]);
int ti = 3;
List<string> p = new List<string>();
while (!(tokens[i][ti] is ListEndToken))
{
if (tokens[i][ti] is ListSeperatorToken)
ti++;
p.Add(tokens[i][ti++].Text);
}
if (!(tokens[i][ti + 1] is BodyOpenToken))
throw Err("Expected body open.", tokens[i][ti + 1]);
i++;
List<Token[]> ftl = ReadBody(tokens, ref i);
//i++;
sl.Add(new FunctionDefineStatement(name, p.ToArray(), Build(ftl.ToArray())));
}
else if (tokens[i][0] is WhileToken)
{
var conditional = new Expression(tokens[i].SubArray(1, tokens[i].Length - 2));
if (!(tokens[i][tokens[i].Length - 1] is BodyOpenToken))
throw Err("Expected body open.", tokens[i][tokens[i].Length - 1]);
i++;
List<Token[]> ftl = ReadBody(tokens, ref i);
sl.Add(new WhileStatement(conditional.RootExpr, Build(ftl.ToArray())));
}
else if (tokens[i][0] is ForToken)
{
if (!(tokens[i][1] is IdentifierToken))
throw Err("Variable name must follow for token.", tokens[i][1]);
var vn = tokens[i][1].Text;
if (!(tokens[i][2] is FromToken))
throw Err("From token must follow variable name.", tokens[i][2]);
List<Token> fromTokens = new List<Token>();
int n;
for (n = 3; n < tokens[i].Length; n++)
if (tokens[i][n] is ToToken)
break;
else
fromTokens.Add(tokens[i][n]);
if (n == tokens[i].Length)
throw Err("To token must follow From expression.", tokens[i][n]);
n++;
var fromExpr = new Expression(fromTokens.ToArray());
List<Token> toTokens = new List<Token>();
for (; n < tokens[i].Length; n++)
if (tokens[i][n] is BodyOpenToken || tokens[i][n] is IncToken)
break;
else
toTokens.Add(tokens[i][n]);
if (n == tokens[i].Length)
throw Err("Body Open token or Inc token must follow To expression.", tokens[i][n]);
var toExpr = new Expression(toTokens.ToArray());
Expression incExpr;
if (tokens[i][n] is IncToken)
{
n++;
List<Token> incTokens = new List<Token>();
for (; n < tokens[i].Length; n++)
if (tokens[i][n] is BodyOpenToken)
break;
else
incTokens.Add(tokens[i][n]);
if (n == tokens[i].Length)
throw Err("Body Open token must follow Inc expression.", tokens[i][n]);
incExpr = new Expression(incTokens.ToArray());
}
else
{
incExpr = new Expression(new[] { new NumberToken("1") });
}
if (!(tokens[i][n] is BodyOpenToken))
throw Err("Body Open token expected.", tokens[i][n]);
i++;
List<Token[]> ftl = ReadBody(tokens, ref i);
sl.Add(new ForStatement(vn, fromExpr.RootExpr, toExpr.RootExpr, incExpr.RootExpr, Build(ftl.ToArray())));
}
else if (tokens[i][0] is IfToken)
{
var conditional = new Expression(tokens[i].SubArray(1, tokens[i].Length - 2));
if (!(tokens[i][tokens[i].Length - 1] is BodyOpenToken))
throw Err("Expected body open.", tokens[i][tokens[i].Length - 1]);
i++;
List<Token[]> ftl = ReadBody(tokens, ref i);
var etl = new List<Token[]>();
if (tokens.Length > i + 1)
if (tokens[i + 1].Length > 0 && tokens[i + 1][0] is ElseToken)
{
i += 2;
etl = ReadBody(tokens, ref i);
}
sl.Add(new IfStatement(conditional.RootExpr, Build(ftl.ToArray()), Build(etl.ToArray())));
}
}
}
return sl;
}