Разработка синтаксического распознавателя вычисляемого оператора перехода языка FORTRAN — страница 6

  • Просмотров 2084
  • Скачиваний 165
  • Размер файла 23
    Кб

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 - Дробное без