COMPORT – Compilador Portugol - Nilo Menezes

ComPort – Compilador Portugol
{
Object obj, first;
Item x;
Type tp;
long L;
if (sym != DECLARE && sym != DEFINA)
{
Mark ("declaração?");
do // Pula o código até a próxima declaração de bloco
{
Get (sym);
}
while (EInicioDeDeclaracaoDefinicaoOuFim(sym));
}
do
{
switch (sym) {
case DEFINA:
{
Get (sym);
while (sym == IDENTIFICADOR)
{
NewObj (obj, Const);
Get (sym);
if (sym == IGUAL)
Get (sym);
else
Mark ("= ?");
expression (x);
fprintf(stderr, "Constante %s definida como %d", id, x.a);
if (x.mode == Const)
{
obj->val = x.a;
obj->type = x.type;
}
else
Mark ("A expressão não é uma constante!");
if (sym == NOVALINHA)
Get (sym);
else
Mark ("?");
}
break;
}
/* TODO: não há no portugol sintaxe para declaração de tipo */
case TIPO:
{
Get (sym);
while (sym == IDENTIFICADOR)
{
NewObj (obj, Typ);
Get (sym);
if (sym == IGUAL)
Get (sym);
else
Mark ("=?");
fType (obj->type);
if (sym == NOVALINHA)
Get (sym);
else
Mark ("?");
77