tmp[j++]=string[k-1];
}
tmp[j]=NULL;
if((strcmp(tmp,"GOTO") != 0) && !isdigit(tmp[0]))
{
#ifdef TEST
cprintf("Не определен идентификатор %s.\r\n",tmp);
#endif
ERR1=a;
ERR2=i;
i++;
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];
int j=0;
int i=0;
while(isspace(string[i]) && string[i] != NULL)
i++;
for(;string[i] != NULL;i++)
{
if(islower(string[i]))
string[i]=toupper(string[i]);
str[j++]=string[i];
}
str[j]=NULL;
sprintf(string,"%s",str);
string[j-1]=NULL;
#ifdef TEST
textattr(30);
clreol();
cputs(string);
textattr(78);
cputs("\r\n");
#endif
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Реализация нетерминала <Арифметическое Выражение>.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int AB(void)
{
#ifdef TEST
cprintf("AB - Проверка на Арифметическое Выражение.\r\n");
#endif
fprintf(errors,"AB - Проверка на Арифметическое Выражение.\n");
Scan();
T();
if(nx=='+')
{
AB();
}
else if(nx=='-')
{
AB();
}
if(nx==NULL)
return(OK);
else if(nx!='*' && nx!='/' && nx!=')')
Error(1);
return(YES);
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Реализация нетерминала <Терм>.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int T(void)
{
#ifdef TEST
cprintf("T - Проверка на Терм.\r\n");
#endif
fprintf(errors,"T - Проверка на Терм.\n");
O();
if(nx=='/')
{
Scan();
T();
}
else if(nx=='*')
{
Scan();
if(nx=='*')
{
Scan();
T();
}
else T();
}
if(nx==NULL)
return(OK);
else if(nx!='+' && nx!='-' && nx!=')')
Error(2);
return(OK);
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Реализация нетерминала <Операнд>.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int O(void)
{
#ifdef TEST
cprintf("O - Проверка на Операнд.\r\n");
#endif
fprintf(errors,"O - Проверка на Операнд.\n");
if(nx=='(')
{
AB();
if(nx!=')')
Error(3);
else
{
Scan();
return(OK);
}
}
else
if(IDENT() == NO)
{
if(FLOAT() == NO)
Error(4);
}
return(OK);
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Реализация нетерминала <Идентификатор>.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int IDENT(void)
{
#ifdef TEST
cprintf("IDENT - Проверка на Идентификатор с символа %c.\r\n",nx);
getch();
#endif
fprintf(errors,"IDENT - Проверка на Идентификатор с символа %c.\n",nx);
if(isalpha(nx))
{
while(isalpha(nx) || isdigit(nx))
Scan();
return(YES);
}
return(NO);
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Реализация нетерминала <Дробное Без Знака>.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int FLOAT(void)
{
#ifdef TEST
cprintf("FLOAT - Проверка на Дробное Без Знака с цифры %c.\r\n",nx);
getch();
#endif
fprintf(errors,"FLOAT - Проверка на Дробное Без Знака с цифры %c.\n",nx);
if(isdigit(nx))
{
while(isdigit(nx))
Scan();
if(nx=='.')
{
Scan();
while(isdigit(nx))
Scan();
}
return(YES);
}
return(NO);
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Сканирование следующего символа из строки.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void Scan(void)
{
#ifdef TEST
cprintf("SCAN - Сканирование. Текущий символ '%c' с кодом %d.\r\n",STR[pos],STR[pos]);
getch();
#endif
fprintf(errors,"SCAN - Сканирование. Текущий символ '%c' с кодом
%d.\n",STR[pos],STR[pos]);
nx=STR[pos];
pos++;
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Обработка ошибок.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void Error(int num,char* s)
{
char *E[40]=
{
"Ожидается '+' или '-'",
"Ожидается '*', '/' или '**'",
"Ожидается ')'",
"Ожидается идентификатор или Дробное без знака",
"Не определен идентификатор ",
"Не найден оператор GOTO\r\nСтрока разбору не подлежит",
NULL
};
sprintf(mes[ERR1][ERR2],"%s%s",E[num-1],s);
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
fprintf(errors,"Error - Ошибка строка %d, ошибка # %d.\n",ERR1,ERR2);
#ifdef TEST
cprintf("Error - Ошибка: строка # %d, ошибка # %d.\r\n",ERR1,ERR2);
cprintf("%s\r\n",mes[ERR1][ERR2]);
Beep(1000,200);
getch();
#endif
fprintf(errors,"%s\n",mes[ERR1][ERR2]);
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
ERR2++;
mes[ERR1][ERR2][0]=NULL;
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Подключаемый файл.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
#include"intface.h" // Файл с функциями интерфейса.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Ó 1997 Борзов Андрей Hиколаевич. E-mail: ANDREY@RedHouse.nstu.nsk.su.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
Литература.
1. Курс лекций по системному программированию.
2. Герберт Шилдт «C для профессиональных программистов».