語(yǔ)法分析實(shí)驗(yàn)-2

實(shí)驗(yàn)?zāi)康募皟?nèi)容實(shí)現(xiàn)下述我們定義的語(yǔ)言的語(yǔ)法分析器這種語(yǔ)言的程序結(jié)構(gòu)很簡(jiǎn)單，語(yǔ)法相當(dāng)于c的函數(shù)體，即由一對(duì)大括號(hào)括起來(lái)的語(yǔ)句序列，沒(méi)有過(guò)程或函數(shù)。聲明語(yǔ)句、表達(dá)式語(yǔ)句及控制語(yǔ)句的寫法都與c類似，但規(guī)定：一條聲明語(yǔ)句只能聲明一個(gè)整型變量，沒(méi)有數(shù)組；控制語(yǔ)句只是if、for和while三個(gè)語(yǔ)句，這三個(gè)語(yǔ)句本身也可以包含語(yǔ)句序列；表達(dá)式僅局限于布爾表達(dá)式和整型算術(shù)表達(dá)式，布爾表達(dá)式由對(duì)兩個(gè)算術(shù)表達(dá)式的比較組成，該比較使用<,>,<=,>=,==,!=比較運(yùn)算符；算術(shù)表達(dá)式可以包括整型常數(shù)、變量以及+,－,*,/這四個(gè)運(yùn)算符。另外，還可以有復(fù)合語(yǔ)句。用read和write語(yǔ)句實(shí)現(xiàn)輸入輸出。注釋用/*和*/括起來(lái)，但注釋不能嵌套。實(shí)驗(yàn)原理及基本技術(shù)路線圖（方框原理圖或程序流程圖）實(shí)驗(yàn)所用的產(chǎn)生式：<程序>→‘{’<聲明序列><語(yǔ)句序列>‘}’<聲明序列>→<聲明語(yǔ)句>{<聲明語(yǔ)句>}<聲明語(yǔ)句>→int<標(biāo)志符>;<語(yǔ)句序列>→<語(yǔ)句>{<語(yǔ)句>}<語(yǔ)句>→<if語(yǔ)句>|<while語(yǔ)句>|<for語(yǔ)句>|<read語(yǔ)句>|<write語(yǔ)句>|<復(fù)合語(yǔ)句>|<表達(dá)式語(yǔ)句><if語(yǔ)句>→if(<表達(dá)式>)<語(yǔ)句>[else<語(yǔ)句>]<while語(yǔ)句>→while(<表達(dá)式>)<語(yǔ)句><for語(yǔ)句>→for(<表達(dá)式>;<表達(dá)式>;<表達(dá)式>)<語(yǔ)句><read語(yǔ)句>→read<標(biāo)識(shí)符>;<write語(yǔ)句>→write<表達(dá)式>;<復(fù)合語(yǔ)句>→‘{’<語(yǔ)句序列>‘}’<表達(dá)式語(yǔ)句>→<表達(dá)式>;|;<表達(dá)式>→<布爾表達(dá)式>|<標(biāo)志符>=<布爾表達(dá)式><布爾表達(dá)式>→<算術(shù)表達(dá)式>|<算術(shù)表達(dá)式>(>|<|>=|<=|==|!=)<算術(shù)表達(dá)式><算術(shù)表達(dá)式>→<項(xiàng)>{(+|-)<項(xiàng)>}<項(xiàng)>→<因子>{(*|/)<因子>}<因子>→(<算術(shù)表達(dá)式>)|<標(biāo)識(shí)符>|<無(wú)符號(hào)整數(shù)>實(shí)驗(yàn)中自定義的函數(shù)：intparse();語(yǔ)法分析主函數(shù)intprogram();<程序>intstatement();<語(yǔ)句>intexpression_stat();<表達(dá)式語(yǔ)句>intexpression();<表達(dá)式>intbool_expr();<布爾表達(dá)式>intadditive_expr();<算術(shù)表達(dá)式>intterm();<項(xiàng)>intfactor();<因子>intif_stat();<if語(yǔ)句>intwhile_stat();<while語(yǔ)句>intfor_stat();<for語(yǔ)句>intwrite_stat();<write語(yǔ)句>intread_stat();<read語(yǔ)句>intdeclaration_stat();<聲明語(yǔ)句>intdeclaration_list();<聲明序列>intstatement_list();<語(yǔ)句序列>intcompound_stat();<復(fù)合語(yǔ)句>所用儀器、材料（設(shè)備名稱、型號(hào)、規(guī)格等或使用軟件）開發(fā)環(huán)境/平臺(tái)：vc++6.0實(shí)驗(yàn)器材：兼容計(jì)算機(jī)一臺(tái)實(shí)驗(yàn)方法、步驟（或：程序代碼或操作過(guò)程）實(shí)驗(yàn)源代碼：#include<stdio.h>#include<ctype.h>#include<conio.h>#include<string.h>intparse();intprogram();intstatement();intexpression_stat();intexpression();intbool_expr();intadditive_expr();intterm();intfactor();intif_stat();intwhile_stat();intfor_stat();intwrite_stat();intread_stat();intdeclaration_stat();intdeclaration_list();intstatement_list();intcompound_stat();chartoken[20],token1[40];//token保存單詞符號(hào)，token1保存單詞值charScanout[300];//保存詞法分析輸出文件名longcount=0;FILE*fp;//用于指向輸入輸出文件的指針voidmain(){strcpy(Scanout,"輸出.txt");parse();}//語(yǔ)法分析程序intparse(){ intes=0; if((fp=fopen(Scanout,"r"))==NULL) {printf("\n打開%s錯(cuò)誤!\n",Scanout); es=10; } if(es==0)es=program(); printf("=====語(yǔ)法分析結(jié)果!======\n"); switch(es) { case0:printf("語(yǔ)法分析成功!\n");break; case10:printf("打開文件%s失敗!\n",Scanout);break; case1:printf("缺少{!\n");break; case2:printf("缺少}!\n");break; case3:printf("缺少標(biāo)識(shí)符!\n");break; case4:printf("少分號(hào)!\n");break; case5:printf("缺少(!\n");break; case6:printf("缺少)!\n");break; case7:printf("缺少操作數(shù)!\n");break; case8:printf("缺少運(yùn)算符!\n");break; } fclose(fp); return(es);}voidget(){ fscanf(fp,"%s%s\n",&token,&token1); printf("%s%s\n",token,token1); count++;}voidback(intj)//文件指針回退一位{ inti; printf("文件指針回退%d位!\n",j); rewind(fp); for(i=0;i<count;i++) { fscanf(fp,"%s%s\n",&token,&token1); }}//<程序>::={<聲明序列><語(yǔ)句序列>}//program::='{'<declaration_list><statement_list>'}'intprogram(){intes=0; get();if(strcmp(token,"{"))//判斷是否'{'{ es=1; return(es);}es=declaration_list();if(es>0)return(es);es=statement_list();if(es>0)return(es);if(strcmp(token,"}"))//判斷是否'}'{ es=2; return(es);}return(es);}//<聲明序列>::=<聲明序列><聲明語(yǔ)句>|<聲明語(yǔ)句>//<declaration_list>::=//<declaration_list><declaration_stat>|<declaration_stat>//改成<declaration_list>::={<declaration_stat>}intdeclaration_list(){ intes=0; get(); while(strcmp(token,"int")==0) { es=declaration_stat(); if(es>0)return(es); } return(es);}//<聲明語(yǔ)句>::=int<變量>；//<declaration_stat>::=intID;intdeclaration_stat(){ intes=0; get(); if(strcmp(token,"ID")) return(es=3);//不是標(biāo)識(shí)符 get(); if(strcmp(token,";")) return(es=4); get(); return(es);}//<語(yǔ)句序列>::=<語(yǔ)句序列><語(yǔ)句>|<語(yǔ)句>//<statement_list>::=<statement_list><statement>|<statement>//改成<statement_list>::={<statement>}intstatement_list(){ intes=0; while(strcmp(token,"(")==0||strcmp(token,"NUM")==0||strcmp(token,"ID")==0||strcmp(token,"if")==0||strcmp(token,"while")==0||strcmp(token,"for")==0||strcmp(token,"read")==0||strcmp(token,"write")==0||strcmp(token,"{")==0) { es=statement(); if(es>0)return(es); get(); } returnes;}//<語(yǔ)句>::=<if語(yǔ)句>|<while語(yǔ)句>|<for語(yǔ)句>|<read語(yǔ)句>//|<write語(yǔ)句>|<復(fù)合語(yǔ)句>|<表達(dá)式語(yǔ)句>//<statement>::=<if_stat>|<while_stat>|<for_stat>//|<compound_stat>|<expression_stat>intstatement()//error；；；；；；{ intes=0; if(strcmp(token,"if")==0) { es=if_stat(); returnes; } if(strcmp(token,"while")==0) { es=while_stat(); returnes; } if(strcmp(token,"for")==0) { es=for_stat(); returnes; } if(strcmp(token,"read")==0) { es=read_stat(); returnes; } if(strcmp(token,"write")==0) { es=write_stat(); returnes; } if(strcmp(token,"{")==0) { es=compound_stat(); returnes; } else { es=expression_stat(); returnes; } returnes; }//<IF語(yǔ)句>::=if(<表達(dá)式>)<語(yǔ)句>[else<語(yǔ)句>]//<IF_stat>::=if(<expr>)<statement>[else<statement>]intif_stat(){ intes=0; inttemp=0; get(); if(strcmp(token,"(")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); } else if(strcmp(token,"ID")) return(es=3); else if(strcmp(token,"NUM")) return(es=7); get(); if(strcmp(token,")")==0) { get(); es=statement(); temp=es; if(es>0)returnes; get(); if(strcmp(token,"else")==0) { get(); es=statement();} else { count-=1; back(1); es=temp; }//需要做回退操作 } else { es=6; returnes; } } else es=5; returnes;}//<while語(yǔ)句>::=while(<表達(dá)式>)<語(yǔ)句>//<while_stat>::=while(<expr>)<statement>intwhile_stat(){ intes=0; get(); if(strcmp(token,"(")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); } else if(strcmp(token,"ID")) return(es=3); else if(strcmp(token,"NUM")) return(es=7); get(); if(strcmp(token,")")==0) { get(); es=statement(); returnes; } } else { es=5; returnes; } returnes;}//<for語(yǔ)句>::=for(<表達(dá)式>;<表達(dá)式>;<表達(dá)式>)<語(yǔ)句>//<for_stat>::=for(<expr>,<expr>,<expr>)<statement>intfor_stat(){ intes=0; get(); if(strcmp(token,"(")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); if(es>0)returnes; } else if(strcmp(token,"ID")) return(es=3); else if(strcmp(token,"NUM")) return(es=7); get(); if(strcmp(token,";")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); if(es>0)returnes; } else if(strcmp(token,"ID")) return(es=3); else if(strcmp(token,"NUM")) return(es=7); get(); if(strcmp(token,";")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); if(es>0)returnes; } else if(strcmp(token,"ID")) return(es=3); else if(strcmp(token,"NUM")) return(es=7); get(); if(strcmp(token,")")==0) { get(); es=statement(); returnes; } else { es=6; returnes; } } else { es=4; returnes; } } else { es=4; returnes; } } else { es=5; returnes; } returnes; }//<write_語(yǔ)句>::=write<表達(dá)式>;//<write_stat>::=write<expression>;intwrite_stat(){ intes=0; get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); if(es>0)returnes; get(); if(strcmp(token,";"))return4; } else if(strcmp(token,"ID")) return(es=3); else if(strcmp(token,"NUM")) return(es=7); returnes;}//<read_語(yǔ)句>::=read<變量>;//<read_stat>::=readID;intread_stat(){ intes=0; get(); if(strcmp(token,"ID")) return(es=3);//不是標(biāo)識(shí)符 get(); if(strcmp(token,";"))return4; returnes;}//<復(fù)合語(yǔ)句>::={<語(yǔ)句序列>}//<compound_stat>::='{'<statement_list>'}'intcompound_stat(){//復(fù)合語(yǔ)句函數(shù) intes=0; get(); es=statement_list(); if(es>0)returnes; if(strcmp(token,"}"))return(es=2); returnes;}//<表達(dá)式語(yǔ)句>::=<表達(dá)式>;|;//<expression_stat>::=<expression>;|;intexpression_stat(){ intes=0; if(strcmp(token,";")==0)returnes; else { if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) { es=expression(); if(es>0)returnes; } get(); if(strcmp(token,";"))return4; } returnes;}//<表達(dá)式>::=<標(biāo)識(shí)符>=<布爾表達(dá)式>|<布爾表達(dá)式>//<expr>::=ID=<bool_expr>|<bool_expr>intexpression(){ intes=0; if(strcmp(token,"ID")==0) { get(); if(strcmp(token,"=")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) es=bool_expr(); if(es>0)returnes; } else { count-=2; back(2); get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) es=bool_expr(); } } returnes;}//<布爾表達(dá)式>::=<算術(shù)表達(dá)式>|<算術(shù)表達(dá)式>(>|<|>=|<=|==|!=)<算術(shù)表達(dá)式>//<bool_expr>::=<additive_expr>//|<additive_expr>(>|<|>=|<=|==|!=)<additive_expr>intbool_expr(){ intes=0; es=additive_expr(); if(es>0)returnes; get(); if(strcmp(token,">")==0||strcmp(token,"<")==0||strcmp(token,">=")==0||strcmp(token,"<=")==0||strcmp(token,"==")==0||strcmp(token,"!=")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) es=additive_expr(); if(es>0)returnes; } else//keystep { count--; back(1); } returnes;}//<算術(shù)表達(dá)式>::=<項(xiàng)>{(+|-)<項(xiàng)>}//<additive_expr>::=<term>{(+|-)<term>}intadditive_expr(){ intes=0; es=term(); if(es>0)returnes; get(); if(strcmp(token,"+")==0||strcmp(token,"-")==0) { get(); if(strcmp(token,"ID")==0||strcmp(token,"NUM")==0||strcmp(token,"(")==0) es=term(); if(es>0)returnes; } else//keystep { count--; back(1); } r