COMPORT – Compilador Portugol - Nilo Menezes

PARSER.CPP
ComPort – Compilador Portugol
/*
* Módulo OSP - Parser Universidade do Amazonas Comport - Compilador
* Portugol Aluno: Nilo Ney Coutinho Menezes
*
* Baseado no compilador Oberon-0 de Niklaus Wirth
*
*/
#include
#include
#include
#define PARSER
#include "parser.h"
#include "codegenerator.h"
int sym, loaded;
Object topScope, universe, guard;
void
NewObj (Object & obj, int Class)
{
Object nova, x;
x = topScope;
strcpy(guard->name, id);
while (strcmp(x->next->name, id)!=0)
x = x->next;
if (x->next==guard)
{
nova = new ObjDesc;
strcpy(nova->name, id);
nova->Class = Class;
nova->next = guard;
x->next = nova;
obj = nova;
}
else
{
obj = x->next;
Mark ("Definição múltipla !");
}
}
void
find (Object & obj)
{
Object s, x;
s = topScope;
strcpy(guard->name, id);
do
{
x = s->next;
while (!strcmp (x->name, id))
67