private List <CTFAssignmentExpression> ParseAEList(TokParser tp)
{
tp.Next();
tp.MustBe(Token.EnumId.LCURL);
List <CTFAssignmentExpression> lcae = CTFAssignmentExpression.ParseList(scope, tp);
if (lcae == null)
{
throw new CTFException();
}
tp.MustBe(Token.EnumId.RCURL);
return(lcae);
}
internal static CTFTypeSpecifier Parse(CTFScope scope, TokParser tp)
{
tp.MustBe(Token.EnumId.VARIANT);
tp.MustBe(Token.EnumId.LT);
CTFUnaryExpression cue = CTFUnaryExpression.Parse(tp);
if (cue == null)
{
throw new CTFException();
}
tp.MustBe(Token.EnumId.GT);
tp.MustBe(Token.EnumId.LCURL);
List <CTFStructOrVariantDeclaration> list = CTFStructOrVariantDeclaration.ParseList(scope, tp);
tp.MustBe(Token.EnumId.RCURL);
return(new CTFVaraintSpecifier(Token.EnumId.VARIANT, cue, list));
}
private CTFFile Parse(TokParser tp)
{
for (;;)
{
switch (tp.Token.Id)
{
case Token.EnumId.CLOCK:
Clock = new CTFTClock(ParseAEList(tp));
break;
case Token.EnumId.EVENT:
CTFTEvent ce = new CTFTEvent(scope, ParseAEList(tp));
Events.Add(ce.Id, ce);
break;
case Token.EnumId.STREAM:
stream = new CTFTStream(scope, ParseAEList(tp));
break;
case Token.EnumId.ENV:
env = new CTFTEnv(ParseAEList(tp));
break;
case Token.EnumId.TRACE:
trace = new CTFTTrace(scope, ParseAEList(tp));
break;
case Token.EnumId.TYPEALIAS:
tp.Next();
List <CTFTypeSpecifier> cds = CTFITypeSpecifier.ParseList(scope, tp);
if (cds == null)
{
throw new CTFException();
}
tp.MustBe(Token.EnumId.TYPE_ASSIGNMENT);
List <CTFTypeSpecifier> cds2 = CTFITypeSpecifier.ParseList(scope, tp);
CTFDeclarator cd = CTFDeclarator.Parse(tp);
CTFType.AddType(scope, cds, cds2, cd);
break;
case Token.EnumId.STRUCT:
CTFITypeSpecifier.ParseTypeSpecifier(scope, tp);
break;
case Token.EnumId.EOF:
return(this);
case Token.EnumId.TERM:
tp.Next(); // Skip it
break;
default:
throw new CTFException();
}
}
}
internal static CTFEnumElem Parse(TokParser tp)
{
string name = tp.GetIden();
tp.MustBe(Token.EnumId.ASSIGNMENT);
CTFUnaryExpression first = CTFUnaryExpression.Parse(tp);
CTFEnumElem ce = new CTFEnumElem(name, first.Calculate());
if (tp.Match(Token.EnumId.ELIPSES))
{
ce.Second = CTFUnaryExpression.Parse(tp).Calculate();
}
return(ce);
}
internal static CTFTypeSpecifier Parse(CTFScope scope, TokParser tp)
{
string name = null;
List <CTFStructOrVariantDeclaration> list = null;
if (!tp.Match(Token.EnumId.STRUCT))
{
return(null);
}
if (tp.Token.Id == Token.EnumId.IDEN)
{
name = tp.Token.Buffer;
tp.Next();
}
if (tp.Match(Token.EnumId.LCURL))
{
list = CTFStructOrVariantDeclaration.ParseList(scope, tp);
tp.MustBe(Token.EnumId.RCURL);
}
int align = 0;
if (tp.Match(Token.EnumId.ALIGN))
{
tp.MustBe(Token.EnumId.LPAREN);
CTFUnaryExpression cue = CTFUnaryExpression.Parse(tp);
tp.MustBe(Token.EnumId.RPAREN);
align = cue.Calculate();
}
CTFType ct = CTFType.GetStructType(scope, name, list, align);
return(new CTFStructSpecifier(ct));
}
internal static List <CTFAssignmentExpression> ParseList(CTFScope scope, TokParser tp)
{
List <CTFAssignmentExpression> cael = new List <CTFAssignmentExpression>();
while (true)
{
CTFAssignmentExpression cae = Parse(scope, tp);
if (cae == null)
{
break;
}
tp.MustBe(Token.EnumId.TERM);
cael.Add(cae);
}
if (cael.Count == 0)
{
return(null);
}
return(cael);
}
internal static List <CTFStructOrVariantDeclaration> ParseList(CTFScope scope, TokParser tp)
{
List <CTFStructOrVariantDeclaration> list = new List <CTFStructOrVariantDeclaration>();
for (;;)
{
CTFStructOrVariantDeclaration item = Parse(scope, tp);
if (item == null)
{
break;
}
tp.MustBe(Token.EnumId.TERM);
list.Add(item);
}
if (list.Count == 0)
{
return(null);
}
return(list);
}
