// Piece ::= Atom [ Repeat ]
Instruction* ParsePiece(const char **ppc, ParseInfo &info)
{
Instruction *i = ParseAtom(ppc, info);
if (i)
{
bool failed = false;
Repeat *r = ParseRepeat(ppc, failed, info);
if (r)
{
r->setInstruction(i);
i = r;
}
else if (failed)
{
delete i;
return 0;
}
}
return i;
}
NodeStatement* Parser::ParseElement()
{
if (t.GetValue() == "begin")
return ParseBlock();
if (t.GetValue() == "if")
return ParseIf();
if (t.GetValue() == "while")
return ParseWhile();
if (t.GetValue() == "repeat")
return ParseRepeat();
if (t.GetValue() == "for")
return ParseFor();
if (t.GetValue() == "write")
return ParseWrite(true, false);
if (t.GetValue() == "writeln")
return ParseWrite(true, true);
if (t.GetValue() == "exit")
{
t = sc.GetNextToken();
return new StatementExit(true);
}
if (t.GetType() == identifier)
{
bool found = false;
_Table::iterator it = TableStack.Find(t.GetValue(), found);
if (found)
{
if (it->second->IsProc() || it->second->IsFunc())
{
t = sc.GetNextToken();
return ParseSub((SymProc*)it->second);
}
}
return ParseAssignment();
}
if (t.GetValue() == "(")
{
return ParseAssignment();
}
throw Error("Statement error", t);
}
static int ReadRepsPass2(FILE *f, RepData *Reps)
{
rewind(f);
GFFLineNr = 0;
int RepCount = 0;
GFFRecord Rec;
while (GetNextGFFRecord(f, Rec))
{
if (0 != strcmp(Rec.Feature, "repeat"))
continue;
static char *Repeat = GetRepeat(Rec);
RepData &Rep = Reps[RepCount];
ParseRepeat(Repeat, Rep);
if (Rec.Start <= 0 || Rec.End <= 0 || Rec.Start > Rec.End)
Warning("GFF line %d: invalid start %d / end %d",
GFFLineNr, Rec.Start, Rec.End);
const int Length = Rec.End - Rec.Start + 1;
Rep.ContigLabel = strsave(Rec.SeqName);
Rep.ContigFrom = Rec.Start - 1;
Rep.ContigTo = Rep.ContigFrom + Length - 1;
if (Rec.Strand == '+')
Rep.Rev = false;
else if (Rec.Strand == '-')
Rep.Rev = true;
else
Quit("GFF line %d, Invalid strand %c", GFFLineNr, Rec.Strand);
++RepCount;
}
return RepCount;
}
