编译原理实验报告实验名称：分析调试语义分析程序TEST抽象机模拟器完整程序保证能用！！！！！一、实验目的通过分析调试TEST语言的语义分析和中间代码生成程序，加深对语法制导翻译思想的理解，掌握将语法分析所识别的语法范畴变换为中间代码的语义翻译方法。

二、实验设计程序流程图extern int TESTScan(FILE *fin,FILE *fout);FILE *fin,*fout; //用于指定输入输出文件的指针int main(){char szFinName[300];char szFoutName[300];printf("请输入源程序文件名（包括路径）:");scanf("%s",szFinName);printf("请输入词法分析输出文件名（包括路径）：");scanf("%s",szFoutName);if( (fin = fopen(szFinName,"r")) == NULL){printf("\n打开词法分析输入文件出错！\n");return 0;}if( (fout = fopen(szFoutName,"w")) == NULL){printf("\n创建词法分析输出文件出错！\n");return 0;}int es = TESTScan(fin,fout);fclose(fin);fclose(fout);if(es > 0)printf("词法分析有错，编译停止！共有%d个错误！\n",es);else if(es == 0){printf("词法分析成功！\n");int es = 0;es = TESTparse(szFoutName); //调语法分析if(es== true) printf("语法分析成功！\n");else printf("语法分析错误！\n");}elseprintf("词法分析出现未知错误!\n");}Parse.cpp#include<stdio.h>#include<string.h>#include<ctype.h>#include<conio.h>#include<vector>// functionbool TESTparse();bool compound_Stat();bool program();bool statement();bool expression_stat();bool expression();bool bool_expr();bool additive_expr();bool term();bool factor();bool if_stat();bool while_stat();bool for_stat();bool write_stat();bool read_stat();bool declaration_stat();bool declaration_list();bool statement_list();bool compound_stat();char token[20],token1[40]; //token保存单词符号，token1保存单词值FILE *fp; //用于指向输入文件的指针int EsLine = 0;typedef struct{int es;int line;}EsInf;std::vector<EsInf> StackEs;//语法分析程序void ProcessError(int es){EsInf temp;temp.es = es;temp.line = EsLine;StackEs.push_back(temp);}bool ReadFile(char *tok, char *tok1){if(feof(fp))return false;fscanf(fp,"%s\t%s\n",tok,tok1);printf("%s\t%s\n",tok,tok1);EsLine++;return true;}bool TESTparse(char *pFileName){bool es = true;if((fp=fopen(pFileName,"r"))==NULL){printf("\n打开%s错误!\n",pFileName);return false;}elseprogram();if(!feof(fp))ProcessError(9);fclose(fp);printf("=====语法分析结果！=====\n");if(StackEs.size() == 0){printf("语法分析成功！\n");return true;}else{int i;for(i = 0; i < StackEs.size(); i++){printf("在第%d行",StackEs[i].line);switch(StackEs[i].es){case 1:printf("缺少{！\n");break;case 2:printf("缺少}！\n");break;case 3:printf("缺少标识符！\n");break;case 4:printf("缺少分号！\n");break;case 5:printf("缺少(！\n");break;case 6:printf("缺少)！\n");break;case 7:printf("缺少操作数！\n");break;case 8:printf("文件为空！\n");break;case 9:printf("文件尾有多余字符！\n");break;case 10:printf("\n打开%s错误!\n",pFileName);break;}}return false;}}//《程序》::={<声明序列><语句序列>}//program::={<declaration_;list><statement_list>}bool program(){bool es = true;if( ReadFile(token,token1) == false ){ProcessError(8); // 文件结束return false;}if(strcmp(token,"{")) //判断是否为‘{’ProcessError(1);if( ReadFile(token,token1) == false ) // 文件中仅有｛ProcessError(2);es = declaration_list();if(es == false)return false;es = statement_list();if(es == false)return false;if(strcmp(token,"}")) //判断是否为‘}’ProcessError(2);return true;}//<声明序列>::=<声明序列><声明语句>|<声明语句>//<declaration>::=//<declaration_list><declaration_stat>|ε//改成<declaration_list>::={<declaration_stat>}bool declaration_list(){bool es = true;while (strcmp(token,"int")==0){es = declaration_stat();if(es == false)return false;}return es;}//<声明语句>::=int<变量>;//<declaration_stat>::=int ID;bool declaration_stat(){bool es = true;if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token,"ID"))ProcessError(3); //不是标识符if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token,";"))ProcessError(4);if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}return(es);}//<语句序列>::=<语句序列><语句>|ε//<statement_list>::=<statement_list><statement>|ε//改成<statement_list>::={<statement>}bool statement_list(){bool es = true;if(feof(fp))return false;while(strcmp(token,"}")){es = statement();if(es == false)return(es);}return(es);}//<语句>::=<if语句>|<while语句>|<for语句>|<read语句>// |<write语句>|<复合语句>|<表达式语句>//<statement>::=<if_sttat>|<while_stat>|<for_stat>// |<compound_stat>|<expression_stat>bool statement(){bool es = true;if(strcmp(token,"if")==0 )es=if_stat(); //<if语句>else if(strcmp(token,"while")==0 )es=while_stat(); //<while语句>else if(strcmp(token,"for")==0 )es=for_stat(); //<for语句>else if(strcmp(token,"read")==0 )es=read_stat(); //<read语句>else if(strcmp(token,"write")==0 )es=write_stat(); //<write语句>else if(strcmp(token,"{")==0 )es=compound_stat(); //<复合语句>else if(strcmp(token,"ID")==0 || strcmp(token,"NUM")==0 || strcmp(token,"(")==0 ) es=expression_stat(); //<表达式语句>return(es);}//<if语句>::=if(<表达式>)<语句>[else<语句>]//<if_stat>::=if(<expressiion>)<statement>[else<statement>] bool if_stat(){bool es = true; //ifif( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token,"("))ProcessError(5); //少左括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es = expression();if(es == false)return(es);if(strcmp(token,")"))ProcessError(6); //少右括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=statement();if(es == false)return(es);if(strcmp(token,"else")==0) //else部分处理{if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=statement();if(es == false)return(es);}return(es);}//<while语句>::=while(<表达式>)<语句>//<while_stat>::=while<espr><statement>bool while_stat(){bool es = true;if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token,"("))ProcessError(5); //少左括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es = expression();if(es == false)return(es);if(strcmp(token,")"))ProcessError(6); //少右括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es = statement();if(es == false)return es;return(es);}//<for语句>::=for(<表达式>；<表达式>;<表达式>)<语句>//<for_stat>::=for(<expression>;<expression>;<expression>)<statement> bool for_stat(){bool es = true;if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token,"(")) ProcessError(5); //少左括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=expression();if(es == false) return (es);if(strcmp(token,";")) ProcessError(4); //少分号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=expression();if(es == false) return (es);if(strcmp(token,";")) ProcessError(4); //少分号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=expression();if(es == false) return (es);if(strcmp(token,")")) ProcessError(6); //少右括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=statement();if(es == false) return (es);return es;}//<write_语句>::=write<表达式>;//<write_stat>::=write<expression>bool write_stat(){bool es = true;if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=expression();if(es == false) return (es);if(strcmp(token,";")) ProcessError(4); //少分号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}return es;}//<read_语句>::=read<变量>//<read_stat>::=read Id;bool read_stat(){bool es = true;if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token,"ID")) ProcessError(3); //少标识符if(strcmp(token,";")) ProcessError(4); //少分号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}return es;}//<复合语句>::{<语句序列>}//<compound_stat>::={<statement_list>}bool compound_stat() //复合语句函数{bool es = true;if( ReadFile(token,token1) == false )ProcessError(2); // 缺少}return false; // 文件结束}es = statement_list();if(es == false)return es;// -------------- new----------if(strcmp(token1,"}") != 0)ProcessError(2);else{if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}}// --------------- new ----------return es;}//<表达式语句>::=<<表达式>；|;//<expression_stat>::=<expression>;|;bool expression_stat(){bool es = true;if(strcmp(token,";")==0){if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}return es;es=expression();if(es == false) return es;if(strcmp(token,";")==0){if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}return es;}else{ProcessError(4); //少分号}return es;}//<表达式>::=<标识符>=<布尔表达式>|<布尔表达式>//<expression>::=ID=<bool_expr>|<bool_expr>bool expression(){bool es = true;int fileadd;char token2[20],token3[40];if(strcmp(token,"ID")==0){fileadd=ftell(fp); //记住当前文件位置if( ReadFile(token2,token3) == false ){ProcessError(2); // 缺少}return false; // 文件结束}if(strcmp(token2,"=")==0) //'='{if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=bool_expr();if(es == false) return es;}else{fseek(fp,fileadd,0); //若非‘=’，则文件指针回到‘=’前的标识符EsLine--;es=bool_expr();if(es == false) return es;}}else{es=bool_expr();if(es == false) return es;}return es;}//<布尔表达式>::= <算术表达式>[(>|<|>=|<=|==|!=)<算数表达式>]//<bool_expr>::= <additive_expr> [(>|<|>=|<=|==|!=)<additive_expr>]bool bool_expr(){bool es = true;es=additive_expr();if(es == false) return es;if(strcmp(token,">")==0||strcmp(token,">=")==0||strcmp(token,"<")==0||strcmp(token,"<=")==0||strcmp(token,"!=")==0||strcmp(token,"==")==0){if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=additive_expr();if(es == false) return es;}return es;}//<算数表达式>::=<项>{(+|-)<项>}//<additive_expr>::=<term>{(+|-)<term>}bool additive_expr(){bool es = true;es=term();if(es == false) return es;while(strcmp(token,"+")==0||strcmp(token,"-")==0) {if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=term();if(es== false) return es;}return es;}//<项>::=<因子>{(*|/)<因子>}//<term>::=<factor>{(*|/)<factor>}bool term(){bool es = true;es=factor();if(es == false) return es;while(strcmp(token,"*")==0||strcmp(token,"/")==0){if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=factor();if(es == false) return es;}return es;}//<因子>::=(<表达式>)|<标识符>|<无符号整数>//<factor>::=(<expression>)|ID|NUMbool factor(){bool es = true;if(strcmp(token,"(")==0){if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}es=expression();if(es==false) return es;if(strcmp(token,")")) ProcessError(6); //少右括号if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}}else{if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0){if( ReadFile(token,token1) == false ){ProcessError(2); // 缺少}return false; // 文件结束}return es;}else{ProcessError(7); //缺少操作数}}return es;}Scan.cpp#include<ctype.h>#include<cstring>#include<stdio.h>// 保留字#define KEYWORDNUM 8char *pKeyword[KEYWORDNUM] = {"if", "else", "for", "while", "do", "int", "read", "write"};// 单分界符char szSingleWord[50] = "+-(){};,:";// 双分界符char szDoubleWord[10] = "<>!";// 其他符char *szDivide = "/";char *szStar = "*";char *szEqual = "=";#define STATUSNUM 16 //状态个数#define DATANUM 10 // 数据流个数// 数据流类型typedef unsigned int DATA;#define OTHER 0 // wrong input#define LETTER 1 // 字母#define DIGIT 2 // 数字#define SINGLEWORD 3 // 单分界符#define DOUBLEWORD 4 // 双分界符#define DIVIDE 5 // /#define EQUAL 6 // =#define STAR 7 // *#define SPACE 8 // 空白#define FILEOVER 9// 状态类型typedef unsigned int STA TUS;#define NOSTATUS 0 // wrong input#define START 1#define CASE_ID 2#define END_ID 3#define CASE_NUM 4#define END_NUM 5#define CASE_SINGLE 6#define END_SINGLE 7#define CASE_DOUBLE 8#define CASE_DOUBLE2 9#define END_DOUBLE 10#define CASE_DIVIDE 11#define CASE_NOTE 12#define END_NOTE 13#define CASE_ERROR 14#define END_ERROR 15// 状态转换表// :到达终结状态的数据不保存在输出串中int reflect[STATUSNUM][DA TANUM] ={ //OTHER LETTER DIGIT SINGLEWORDDOUBLEWORD DIVIDE EQUAL STAR SPACE FILEOVER /*NOSTATUS*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTATUS, NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS},/*START*/ {CASE_ERROR,CASE_ID, CASE_NUM,CASE_SINGLE,CASE_DOUBLE,CASE_DIVIDE,CASE_DOUBLE,CASE_SINGLE,STA RT, START},/*CADE_ID*/ {END_ID, CASE_ID, CASE_ID, END_ID, END_ID, END_ID, END_ID, END_ID, END_ID, END_ID},/*END_ID*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTATUS, NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS},/*CASE_NUM*/ {END_NUM, END_NUM, CASE_NUM, END_NUM, END_NUM, END_NUM, END_NUM, END_NUM, END_NUM, END_NUM},/*END_NUM*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS,NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS}, /*CASE_SINGLE*/ {END_SINGLE,END_SINGLE, END_SINGLE, END_SINGLE, END_SINGLE, END_SINGLE, END_SINGLE, END_SINGLE,END_SINGLE, END_SINGLE},/*END_SINGLE*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTATUS, NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS},/*CASE_DOUBLE*/ {END_SINGLE,END_SINGLE, END_SINGLE,END_SINGLE, END_SINGLE, END_SINGLE,CASE_DOUBLE2,END_SINGLE,END_SINGLE, END_SINGLE},/*CASE_DOUBLE2*/{END_DOUBLE,END_DOUBLE, END_DOUBLE,END_DOUBLE, END_DOUBLE, END_DOUBLE, END_DOUBLE,END_DOUBLE, END_DOUBLE, END_DOUBLE},/*END_DOUBLE*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS},/*CASE_DIVIDE*/ {END_SINGLE,END_SINGLE, END_SINGLE,END_SINGLE, END_SINGLE, END_SINGLE, END_SINGLE,CASE_NOTE, E ND_SINGLE, END_SINGLE},/*CASE_NOTE*/ {END_NOTE, E ND_NOTE, END_NOTE, END_NOTE, END_NOTE, END_NOTE, END_NOTE, END_NOTE, END_NOTE, END_NOTE},/*END_NOTE*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTATUS, NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS},/*CASE_ERROR*/ {END_ERROR, END_ERROR, END_ERROR,END_ERROR, END_ERROR, END_ERROR, END_ERROR,END_ERROR, END_ERROR, END_ERROR},/*END_ERROR*/ {NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTATUS, NOSTATUS, NOSTA TUS, NOSTA TUS, NOSTA TUS, NOSTA TUS}};// 若在pString中找到word 则返回true，否则，返回falsebool SearchChar(char word,const char *pString){int n = strlen(pString);for(int i = 0; i < n; i++){if( word == pString[i])return true;}return false;}// 得到word的数据流类型DA TA GetDataByword(char word){if(word == EOF)return FILEOVER;if(isalpha(word))return LETTER;if(isdigit(word))return DIGIT;if(SearchChar(word,szSingleWord))return SINGLEWORD;if(SearchChar(word,szDoubleWord))return DOUBLEWORD;if(SearchChar(word,szDivide))return DIVIDE;if(SearchChar(word,szEqual))return EQUAL;if(SearchChar(word,szStar))return STAR;if(isspace(word))return SPACE;return OTHER;}// 得到从status状态输入word后到达的状态STA TUS GetNextStatus(STATUS status, DA TA word){return reflect[status][word];}// 返回值表示错误个数。