COMPORT – Compilador Portugol - Nilo Menezes

char comandos[MAX_ELEM_CJ];
char fimdecomandos[MAX_ELEM_CJ];
char cjfator[MAX_ELEM_CJ];
ComPort – Compilador Portugol
// Função usada para ler um caracter e converte-lo para minuscula
char leiaMinC(FILE *R)
{
return minusculaC(fgetc(R));
}
// Função usada para imprimir mensagens de erro
void
Mark (char *msg)
{
long p;
p = ftell (R);
if (p > errpos)
{
fprintf (W, " Linha: %d Coluna: %d Posição %d %s\n", linha, pcoluna+1,
p, msg);
}
errpos = p;
error = VERDADEIRO;
}
// Função usada para ler e localizar um identificador
void
fIdent (int &sym)
{
int i = 0, k;
do
{
if (i < IdLen)
{
id[i] = ch;
i++;
}
ch = minusculaC(fgetc (R));
}
while ((ch >= '0' && ch = 'a' && ch