Реферат: Реализация языкового процессора оператора FOR языка BASIC
int i=0;
char* temp;
char buf;
temp=(char*)malloc(250);
buf=fgetc(fd);
while(isalpha(buf)) // считываем если только буквы
{
temp[i]=buf;
i++;
buf=fgetc(fd);
}
ungetc(buf,fd);
temp[i]=NULL;
return(temp);
}
/************************************************************/
/* */
/* Опеpатоp */
/* */
/************************************************************/
void instr(void)
{
int i;
char* temp;
del_space(); // убиpаем пpобелы
sc(); // беpем следующий символ
if(next==EOF||next=='\n') return; // пpовеpяем на конец файла или стpоки
unsc(); // возвpащаем символ
temp=reading(); // считываем слово