// Кафедра: АСУ.
// Группа: А-513.
// Студент: Борзов Андрей Hиколаевич.
// Преподаватели: кандидат технических наук, доцент Шорников Юрий Владимирович,
// ассистент Панова Вера Борисовна.
// Дата: 29 апреля 1997г.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Подключаемые файлы.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
#include<string.h>
#include<conio.h>
#include<stdio.h>
#include<dos.h>
#include<stdlib.h>
#include<ctype.h>
#include<time.h>
#include"keyboard.h"
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Макроопределения.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
#define ERROR 0 // Код ошибки.
#define COL_STR 20 // Максимальное количество строк.
#define STR_LEN 35 // Длина строки.
#define MAX_STR_LEN 255 // Максимальная длина строки.
#define FILENAME "TEST.TXT" // Имя файла, открываемого по умолчанию.
#define YES 1
#define NO 2
#define OK 3
//#define TEST // Определено, если включен отладочный режим.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Прототипы функций.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int I_ReadKey(void); // Опрос клавиатуры.
void Welcome(void); // Экран при старте программы.
void Menu(void); // Меню.
void Help(void); // Помощь.
void MyExit(int=0); // Корректный выход из программы.
void Beep(int=500,int=100); // Звуковой сигнал.
void Usage(void); // Использование программы.
int OpenFile(void); // Открытие файла.
void DrawBox(int,int,int,int,char*); // Рисует рамку с заголовком.
void PrintText(void); // Печатает основной текст.
void Screen(void); // Перерисовка экрана.
void Compile(void); // Компиляция.
void Message(int); // Вывод сообщений об ошибках.
void MyPuts(char*,int); // Аналог puts(char*);.
void Language(void); // Язык оператора.
void Grammar(void); // Грамматика языка.
void GetFilename(void); // Запрос имени файла для открытия.
int ScanStr(char*); // Поиск GOTO.
int Scaner(char*); // Обработка строки.
void Scan(void); // Сканирование следующего символа.
void Delspace(char*); // Удаление ненужных пробелов в строке.
int AB(void); // Реализация нетерминала <АВ>.
int T(void); // Реализация нетерминала <Т>.
int O(void); // Реализация нетерминала <О>.
int IDENT(void); // Реализация нетерминала <IDENT>.
int FLOAT(void); // Реализация нетерминала <FLOAT>.
void Error(int=0,char* =""); // Обработка ошибки.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Глобальные переменные.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
char filename[MAX_STR_LEN]; // Имя файла.
char *text[COL_STR+1]; // Массив указателей на строки текста.
char screen[4096]; // Буфер под копию экрана.
char mes[21][20][80]; // Массив под сообщения об ошибках.
char nx; // Текущий символ.
int pos; // Текущая позиция в строке.
char STR[80]; // Сканируемая строка.
int ERR1; // Счетчик страниц в массиве ошибок.
int ERR2; // Счетчик строк в массиве ошибок.
FILE *errors; // Дескриптор файла.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Функция MAIN.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void main(int argc,char* argv[])
{
textcolor(LIGHTGRAY);
textbackground(BLACK);
_setcursortype(_NOCURSOR);
clrscr();
if(argc>2)
{
Usage();
MyExit();
}
if(argc==2)
strcpy(filename,argv[1]);
else
{
Welcome();
gettext(20,7,60,17,screen);
GetFilename();
}
while(OpenFile())
{
puttext(20,7,60,17,screen);
GetFilename();
}
Menu();
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Вывод сообщений об ошибках.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void Message(int j)
{
window(42,3,79,23);
textcolor(BLUE);
textbackground(CYAN);
clrscr();
for(int i=0;i<COL_STR && mes[j][i][0]!=NULL;i++)
cprintf("%-30s\r\n",mes[j][i]);
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Гpамматика языка.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void Grammar(void)
{
window(1,25,80,25);
textattr(112);
MyPuts(" ~F1~ Help ~F2~ Grammar ~F3~ Language ~F9~ Compile ~F10~ Quit ~Alt-X~
Quit ~Esc~ Quit",DARKGRAY);
window(10,5,70,20);
textcolor(WHITE);
textbackground(MAGENTA);
clrscr();
DrawBox(2,1,60,16,"Гpамматика языка");
window(12,6,78,19);
textcolor(YELLOW);
cputs("\r\n");
cputs(" 1. <Опеpатоp> -> GOTO <Выpажение>\r\n");
cputs(" 2. <Выpажение> -> T | <Выpажение>+T | <Выpажение>-T\r\n");
cputs(" 3. T -> O | T*O | T/O | T**O\r\n");
cputs(" 4. O -> (<Выpажение>) | <Идентификатоp> | <ДБЗ>\r\n");
cputs(" 5. <Идентификатоp> -> Б{Б|Ц}[L]\r\n");
cputs(" 6. <ДБЗ> -> Ц{Ц}[.Ц{Ц}][L]\r\n\n");
cputs(" T - Теpм;\r\n");
cputs(" O - Опеpанд;\r\n");
cputs(" Б - Буква;\r\n");
cputs(" Ц - Цифpа;\r\n");
cputs(" ДБЗ - Дробное Без Знака;\r\n");
cputs(" ** - возведение в степень.");
I_ReadKey();
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Язык оператора.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void Language(void)
{
window(1,25,80,25);
textattr(112);
MyPuts(" ~F1~ Help ~F2~ Grammar ~F3~ Language ~F9~ Compile ~F10~ Quit ~Alt-X~
Quit ~Esc~ Quit",DARKGRAY);
window(20,8,60,18);
textcolor(WHITE);
textbackground(GREEN);
clrscr();
DrawBox(2,1,40,11,"Язык оператора");
window(22,9,58,17);
textcolor(BLACK);
cputs("\r\n");
cputs(" GOTO CONST | VAR | АВ\r\n\n");
cputs(" CONST - Дробное без знака,\r\n");
cputs(" VAR - идентификатоp,\r\n");
cputs(" АВ - аpифметическое выpажение.");
I_ReadKey();
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Компиляция.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
void Compile(void)
{
static int compile=0;
window(1,25,80,25);
textattr(112);
MyPuts(" ~F1~ Help ~F2~ Grammar ~F3~ Language ~F9~ Compile ~F10~ Quit ~Alt-X~
Quit ~Esc~ Quit",DARKGRAY);
window(20,8,60,18);
textcolor(WHITE);
textbackground(RED);
clrscr();
DrawBox(2,1,40,11,"Компиляция");
window(22,9,58,17);
textcolor(YELLOW);
cputs("\r\n");
if(compile>0)
{
cputs(" Текст УЖЕ откомпилирован!!!");
Beep(900,1000);
return;
}
errors=fopen("PROTOCOL.TXT","wt");
cputs(" Идет компиляция.\r\n\n Пожалуйста, подождите...");
#ifdef TEST
window(1,1,80,25);
textattr(78);
clrscr();
#endif
fprintf(errors,"/*******************************************************\n");
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
fprintf(errors,"ç Протокол работы синтаксического распознавателя вычисляемого ç\n");
fprintf(errors,"ç оператора перехода языка FORTRAN. ç\n");
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
for(int i=0;text[i] != NULL;i++)
Scaner(text[i]);
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
fprintf(errors,"ç КОНЕЦ. ç\n");
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
fprintf(errors,"*******************************************************/\n");
Beep(900,100);
compile++;
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Обработка строки.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int Scaner(char* string)
{
char tmpstr[STR_LEN];
strcpy(tmpstr,string);
Delspace(tmpstr);
ScanStr(tmpstr);
return 0;
}
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
// Поиск в строке оператора GOTO.
//¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
int ScanStr(char* string)
{
int j;
int i=0;
int k=0;
static int a=0;
char tmp[80];
char label=NO;
strcpy(STR,string);
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
fprintf(errors,"%s\n",string);
fprintf(errors,"––––––––––––––––––––––––––––––––––––––––––––––––––––––––\n");
do
{
tmp[0]=NULL;
j=0;
while(!isspace(string[k++]) && string[k-1]!=NULL)
{