public void AddVars(StructCode code)
{
if (code == null)
{
return;
}
foreach (var l in code.Lines)
{
if (l is StructForEach)
{
var sfe = l as StructForEach;
AddVars(sfe.Code);
}
if (l is StructAssign)
{
var sa = l as StructAssign;
Vars.Add(sa.Vars[0].Name);
}
if (l is StructWhile)
{
var sw = l as StructWhile;
AddVars(sw.Code);
}
if (l is StructIf)
{
var sif = l as StructIf;
AddVars(sif.TrueCode);
AddVars(sif.ElseCode);
foreach (var eif in sif.ElseIfCode)
{
AddVars(eif);
}
}
}
}
public StructCode ParseCodeBody(ref int i)
{
Log("Begun parsing code body", i);
var code = new StructCode();
for (i = i; i < toks.Len; i++)
{
if (Get(i).Token == Token.End)
{
return(code);
}
if (Get(i).Token == Token.Else)
{
return(code);
}
var st = Predict(i);
Console.WriteLine("PCD:" + st);
switch (st)
{
case StrandType.Return:
//Console.WriteLine("RET:");
i = NextToken(i, Token.Return);
var cl_return = new StructReturn();
if (Get(i + 1).Token != Token.EndLine)
{
i++;
cl_return.ReturnExp = ParseExp(ref i);
}
code.Lines.Add(cl_return);
break;
case StrandType.For:
i = NextToken(i, Token.For);
i += 2;
var cl_for = new StructFor();
cl_for.Initial = ParseAssign(ref i);
i++;
cl_for.Condition = ParseExp(ref i);
i++;
cl_for.Inc = ParseAssign(ref i);
i++;
cl_for.Code = ParseCodeBody(ref i);
code.Lines.Add(cl_for);
break;
case StrandType.While:
i = NextToken(i, Token.While);
i += 2;
var cl_while = new StructWhile();
cl_while.Condition = ParseExp(ref i);
cl_while.Code = ParseCodeBody(ref i);
code.Lines.Add(cl_while);
break;
case StrandType.If:
i = NextToken(i, Token.If);
var cl_if = new StructIf();
i += 2;
cl_if.Condition = ParseExp(ref i);
cl_if.TrueCode = ParseCodeBody(ref i);
// i++;
while (true)
{
if (Get(i).Token == Token.Else)
{
i++;
if (Get(i).Token == Token.If)
{
i = i + 2;
cl_if.ElseIf.Add(ParseExp(ref i));
cl_if.ElseIfCode.Add(ParseCodeBody(ref i));
}
else
{
cl_if.ElseCode = ParseCodeBody(ref i);
break;
}
}
else
{
break;
}
}
//else
//Console.WriteLine("Else");
//}
//}/
code.Lines.Add(cl_if);
//Console.WriteLine("IF");
break;
case StrandType.Assignment:
Log("Parsing assignment.", i);
i = NextToken(i, Token.Id);
var assign = ParseAssign(ref i);
code.Lines.Add(assign);
break;
case StrandType.ClassStatement:
Log("Parsing class-statement.", i);
i = NextToken(i, Token.Id);
var class_state = ParseClassStatement(ref i);
code.Lines.Add(class_state);
break;
case StrandType.FlatStatement:
Log("Parsing flat-statement.", i);
i = NextToken(i, Token.Id);
if (Get(i).Text == "stop")
{
code.Lines.Add(new StructStop());
i++;
continue;
}
var flat_state = ParseFlatStatement(ref i);
code.Lines.Add(flat_state);
break;
}
}
return(code);
}
public StructCode ParseCodeBody(ref int i)
{
Log("Begun parsing code body", i);
var code = new StructCode();
for (i = i; i < toks.Len; i++)
{
if (Get(i).Token == Token.End)
{
return(code);
}
if (Get(i).Token == Token.Else)
{
return(code);
}
var tok = Get(i);
var st = Predict(i);
// Console.WriteLine("PCD:" + st);
switch (st)
{
case StrandType.ForEach:
var fe = new StructForEach();
i = i + 2;
fe.Enumer = ParseExp(ref i);
fe.Code = ParseCodeBody(ref i);
code.Lines.Add(fe);
break;
case StrandType.Stop:
code.Lines.Add(new StructStop());
break;
case StrandType.Break:
var str_break = new StructBreak();
i = NextToken(i, Token.Break);
i++;
code.Lines.Add(str_break);
break;
case StrandType.Call:
var cb_call = new StructCall();
i++;
string call_id = Get(i).Text;
cb_call.CallName = call_id;
foreach (var sub in code.Subs)
{
if (sub.Name == call_id)
{
cb_call.SubLU = sub;
}
}
code.Lines.Add(cb_call);
break;
case StrandType.Sub:
var cb_sub = new StructSub();
i++;
string sub_name = Get(i).Text;
bool thr = false;
bool loop = false;
cb_sub.Name = sub_name;
if (Get(i + 1).Token == Token.Thread)
{
thr = true;
i++;
}
if (Get(i + 1).Token == Token.Loop)
{
loop = true;
i++;
}
cb_sub.Name = sub_name;
cb_sub.Threaded = thr;
cb_sub.Loop = loop;
var code2 = ParseCodeBody(ref i);
cb_sub.Code = code2;
code.Subs.Add(cb_sub);
break;
case StrandType.Return:
//Console.WriteLine("RET:");
i = NextToken(i, Token.Return);
var cl_return = new StructReturn();
if (Get(i + 1).Token != Token.EndLine)
{
i++;
cl_return.ReturnExp = ParseExp(ref i);
}
code.Lines.Add(cl_return);
break;
case StrandType.For:
i = NextToken(i, Token.For);
i += 2;
var cl_for = new StructFor();
cl_for.Initial = ParseAssign(ref i);
i++;
cl_for.Condition = ParseExp(ref i);
i++;
cl_for.Inc = ParseAssign(ref i);
i++;
cl_for.Code = ParseCodeBody(ref i);
code.Lines.Add(cl_for);
break;
case StrandType.While:
i = NextToken(i, Token.While);
i += 2;
var cl_while = new StructWhile();
if (Get(i).Token == Token.LeftPara)
{
i++;
}
cl_while.Condition = ParseExp(ref i);
if (Get(i).Token == Token.RightPara)
{
i++;
}
cl_while.Code = ParseCodeBody(ref i);
code.Lines.Add(cl_while);
break;
case StrandType.If:
i = NextToken(i, Token.If);
var cl_if = new StructIf();
i += 2;
cl_if.Condition = ParseExp(ref i);
cl_if.TrueCode = ParseCodeBody(ref i);
// i++;
while (true)
{
if (Get(i).Token == Token.Else)
{
i++;
if (Get(i).Token == Token.If)
{
i = i + 2;
cl_if.ElseIf.Add(ParseExp(ref i));
cl_if.ElseIfCode.Add(ParseCodeBody(ref i));
}
else
{
cl_if.ElseCode = ParseCodeBody(ref i);
break;
}
}
else
{
break;
}
}
//else
//Console.WriteLine("Else");
//}
//}/
code.Lines.Add(cl_if);
//Console.WriteLine("IF");
break;
case StrandType.Assignment:
Console.WriteLine("Parsing Assign");
Log("Parsing assignment.", i);
i = NextToken(i, Token.Id);
var assign = ParseAssign(ref i);
code.Lines.Add(assign);
break;
case StrandType.ClassStatement:
Log("Parsing class-statement.", i);
i = NextToken(i, Token.Id);
var class_state = ParseClassStatement(ref i);
code.Lines.Add(class_state);
break;
case StrandType.FlatStatement:
Log("Parsing flat-statement.", i);
i = NextToken(i, Token.Id);
if (Get(i).Text == "stop")
{
code.Lines.Add(new StructStop());
i++;
continue;
}
var flat_state = ParseFlatStatement(ref i);
code.Lines.Add(flat_state);
break;
}
}
return(code);
}