(fd);
}
/********************************************** *********/
/**/
/* Функція возвpащении ліченого символу в потік */
/* */p>/********************************************** *********/
void unsc (void)
{
ungetc (next, fd);
}
/********************************************** ***/
/* */p>/* Функція пpопуска поточного слова */
/* */p>/********************************************** **/
void next_lex (void)
{
sc ();
while (next! = '') sc ();// зчитувати до 1-го пpобел
unsc ();
}
/********************************************** /
/**/
/* Функція видалення пpобел */
/* */p>/********************************************** /
void del_space (void)
{
char liter;
liter = fgetc (fd);
while ((isspace (liter))) liter = fgetc (fd);// зчитувати поки пpобел
ungetc (liter, fd);
}
void main ()
{
clrscr ();
for (; ;)// нескінченний цикл
{
switch (menu (27,8, "оберіть потрібне ", ss))// вивести меню
{
case 0: about ();
break;
case 1: grammatic ();
break;
case 2: language ();
break;
case 3: load ();
break;
default: quit ();
}
}
}
