Реферат: Разработка синтаксического распознавателя вычисляемого оператора перехода языка FORTRAN

Error(5,tmp);

}

else if(!isdigit(tmp[0]))

{

label=YES;

ERR1=a;

ERR2=i;

pos=k;

while(AB()!=OK);

break;

}

}

while(string[k] != NULL);

if(label==NO)

{

#ifdef TEST

cprintf("Не найден оператор GOTO.\r\nСтрока разбору не подлежит.\r\n");

#endif

Error(6);

}

a++;

return(OK);

}

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾

// Удаление в строке пробелов.

//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾

void Delspace(char* string)

{

char str[STR_LEN];