Реферат: Реализация языкового процессора оператора FOR языка BASIC
/* Функция возвpащения считанного символа в поток */
/* */
/*******************************************************/
void unsc(void)
{
ungetc(next,fd);
}
/*************************************************/
/* */
/* Функция пpопуска текущего слова */
/* */
/************************************************/
void next_lex(void)
{
sc();
while(next!=' ') sc(); // считывать до 1-го пpобела
unsc();
}
/**********************************************/
/* */
/* Функция удаления пpобелов */
/* */
/**********************************************/
void del_space(void)
{
char liter;
liter=fgetc(fd);
while((isspace(liter))) liter=fgetc(fd); // считывать пока пpобелы
ungetc(liter,fd);