Реферат: Построение формального языка L

/*Если найден идентификатор,*/ if(f==0) mistake_number[12]=1;

/*начинающийся с цифры, */ else mistake_number[9]=1;

/*то ошибка: */ while(isalpha(TEXT[x][y]) || isdigit(TEXT[x][y]))

/*если f=0 то в идентификаторе*/ y++;

/*если f=1 то в параметре */ return(1);

/* функции */ }

if((isdigit(TEXT[x][y])) == NULL) break;

y++;

}

return(1);

}

else return(0);

}

//----------------------------------------------------------------------------

// Обработка функции

//----------------------------------------------------------------------------

int FUNC()

{

f=1;

fprintf(fl_t,"Проверка на FUNC, текущий символ - %c\n",TEXT[x][y]);

for(;;y++)

if(TEXT[x][y] != ' ') break;

if(IDENT()==0)

{

mistake_number[6]=1;

while(isalpha(TEXT[x][y]) || isdigit(TEXT[x][y]))

y++;

}

if(mistake_number[6] ==0)