编译原理(PL0编译程序源代码).docxVIP

/*PL/0编译程序（C语言版）*编译和运行环境：*Visual C++6.0*WinXP/7*使用方法：*运行后输入PL/0源程序文件名*回答是否将虚拟机代码写入文件*回答是否将符号表写入文件*执行成功会产生四个文件（词法分析结果.txt符号表.txt虚拟代码.txt源程序和地址.txt）*/ #include stdio.h#includepl0.h#includestring#define stacksize 500//解释执行时使用的栈int main(){bool nxtlev[symnum];printf(请输入源程序文件名:);scanf(%s,fname);fin=fopen(fname,r);//以只读方式打开pl0源程序文件cifa=fopen(词法分析结果.txt,w);fa1=fopen(源程序和地址.txt,w);//输出源文件及各行对应的首地址fprintf(fa1,输入pl0源程序文件名：);fprintf(fa1,%s\n,fname);if(fin){printf(是否将虚拟机代码写入文件?(Y/N));//是否输出虚拟机代码scanf(%s,fname);listswitch=(fname[0]==y||fname[0]==Y); printf(是否将符号表写入文件?(Y/N));//是否输出符号表scanf(%s,fname);tableswitch=(fname[0]==y||fname[0]==Y);init();//初始化err=0;cc=cx=ll=0;ch= ;if(-1!=getsym()){fa=fopen(虚拟代码.txt,w);fas=fopen(符号表.txt,w);addset(nxtlev,declbegsys,statbegsys,symnum);nxtlev[period]=true;if(-1==block(0,0,nxtlev)){//调用编译程序fclose(fa);fclose(fa1);fclose(fas);fclose(fin);return 0;}if(sym!=period){error(9);//结尾丢失了句号}if(err!=0){printf(pl0源程序出现错误，退出编译!!!请从第一个错误处开始修改.\n\n);fprintf(cifa,源程序出现错误，请检查!!!);fprintf(fa1,源程序出现错误，请检查!!!);fprintf(fa,源程序出现错误，请检查!!!);fprintf(fas,源程序出现错误，请检查!!!);}fclose(fa);fclose(fa1); fclose(fas);}fclose(fin);}else{printf(Cant open file!\n);} fclose(cifa);//printf(\n);return 0;}void init(){//初始化int i;for(i=0;i=255;i++)ssym[i]=nul;//设置单字符符号ssym[+]=plus;ssym[-]=minus;ssym[*]=times;ssym[/]=slash;ssym[(]=lparen;ssym[)]=rparen;ssym[=]=eql;ssym[,]=comma;ssym[.]=period;ssym[#]=neq;ssym[;]=semicolon;strcpy((word[0][0]),begin);//保留字设置，以字母顺序排列便于折半查找strcpy((word[1][0]),call);strcpy((word[2][0]),const);strcpy((word[3][0]),do);strcpy((word[4][0]),end);strcpy((word[5][0]),if);strcpy((word[6][0]),odd);strcpy((word[7][0]),procedure);strcpy((word[8][0]),read);strcpy((word[9][0]),then);strcpy((word[10][0]),var);strcpy((word[11][0]),while);strcpy((word[12][0]),write);wsym[0]=beginsym;//设置保留字类别一字即一类wsym[1]=callsym;wsym[2]=constsym;wsym[3]=dosym;wsym[4]=endsym;wsym[5]=ifsym;wsym[6]=oddsym;wsym[7]=procsym;wsym[8]=readsym;wsym[9]=thensym;wsym[10]=varsym;wsym[11]=whilesym;wsym[12]=writ