2023年TEST语言语法分析词法分析实验报告

编译原理实验报告实验名称:分析调试语义分析程序ＴEST抽象机模拟器完整程序保证能用！！!！!一、实验目的通过度析调试TEST语言的语义分析和中间代码生成程序,加深对语法制导翻译思想的理解,掌握将语法分析所辨认的语法范畴变换为中间代码的语义翻译方法。二、实验设计程序流程图语法分析程序代码:Main.cpp＃incluｄe＜stｄｉｏ.h>#inｃlude<ctyｐe．h>exteｒnboｏlTESTpａrse（ｃｈar＊ｐFileＮａme）;eｘternintTESTScａn（FILE*ｆin,FIＬE＊fout)；FILE*ｆｉｎ，*fouｔ;//用于指定输入输出文献的指针iｎtmaｉn(){ﻩcharszFinNａme［３0０]；ﻩｃharsｚFoｕtＮamｅ[３00］;ﻩprinｔf(＂请输入源程序文献名(涉及途径）:"); scａnf（"%s",szFinName)； ｐrintf("请输入词法分析输出文献名(涉及途径）:");ﻩscanｆ（"%s",ｓzFoutＮａmｅ); if（(fin=ｆｏpen(ｓzFinNamｅ,＂r＂）)==ＮUＬL）ﻩ{ pｒintf("\n打开词法分析输入文献犯错！＼ｎ"）；ﻩﻩreturn0; }ﻩiｆ((ｆout=fｏｐeｎ(szFoutＮａme,＂ｗ"）)==NＵLL) { printf("\n创建词法分析输出文献犯错!＼n"); ｒeturn0; } iｎtes=TESTScan(ｆiｎ,fout)；ﻩｆcloｓe(fin);ﻩfｃlose（fout）； iｆ（es>０) pｒiｎtf("词法分析有错，编译停止！共有%d个错误!＼n",es)；ﻩｅlｓeif(ｅs==0)ﻩ{ ﻩprintf(＂词法分析成功！\ｎ");ﻩ inｔesﻩ＝ﻩ0; ｅs =ﻩＴEＳTｐarｓe(szFouｔNａme);//调语法分析 iｆ(ｅｓ＝=trｕe）ｐrintf（"语法分析成功！\n＂）； elｓｅｐｒinｔf(＂语法分析错误!\n")； }ﻩｅlse prｉnｔf("词法分析出现未知错误!＼n＂);}Parsｅ.cpp#includｅ<ｓｔdiｏ．h>#ｉncｌude<striｎg.h>#includｅ<ctypｅ.h>#inｃlude<coｎｉo.h>#ｉnclude＜ｖector＞／/ｆuｎctiｏｎbooｌTESTparse（);booｌｃoｍpｏund_Stat();boolprogram（)；boｏlstatement()；ｂoolexｐression_ｓｔaｔ（)；ｂoolexpｒession()；bｏolbool_expr()；ｂoｏｌａdｄitivｅ_expr();bｏｏｌteｒm();ｂｏolfacｔor（);booliｆ＿staｔ（);boolwｈｉlｅ_stat（);bｏoｌfoｒ＿ｓｔaｔ();boｏｌwriｔe_stａｔ(）；bｏolreaｄ＿ｓtat()；bｏoldｅclaration＿stａt(）;ｂoｏｌdeclaration_list(）；ｂｏoｌsｔａtemｅnt_ｌisｔ()；boｏｌcｏｍpouｎd_stat（)；chartｏken[２0],token1[40］;ﻩﻩ //token保存单词符号，tｏｋen1保存单词值FILE＊fp;ﻩ ﻩ ﻩﻩ//用于指向输入文献的指针inｔEｓLiｎe = 0;typedefstｒuct{ inｔes; intline；}EｓIｎf;sｔd::vｅctor<ＥsInf>ﻩStacｋEs;//语法分析程序vｏｉdPｒocessError(intｅs){ﻩEsＩnf temp;ﻩｔeｍp.eｓﻩﻩ＝ es; tｅmp.line =ﻩEｓLiｎe;ﻩStackEs．pusｈ_back（temp);}boolRｅａdFiｌe（char*toｋ,char＊tok1){ﻩif(feｏf(ｆｐ)) ｒeturｎfalsｅ;ﻩfsｃａnf(ｆp,＂％ｓ＼t%s＼n＂,tok，tok1);ﻩprintｆ（＂%s\ｔ％s\n",tok,tok1);ﻩEsLine++； retuｒntｒue；}boolTESＴparse(char*pＦｉlｅName){ﻩbooleｓﻩ＝ tｒｕe; if((fp=fopen(pFileName,"ｒ")）==ＮULL) {ﻩﻩpｒiｎtf("＼n打开％ｓ错误!＼n＂,ｐFilｅName); retuｒｎfalsｅ; }ﻩelseﻩﻩｐroｇｒam()； ｉf(!ｆeｏｆ(fｐ)) ﻩProcessErｒor(９);ﻩｆclｏse(fｐ); pｒiｎｔf("＝===＝语法分析结果!=＝===\n"）;ﻩif(ＳtaｃｋEs.siｚe（)==0)ﻩ｛ﻩﻩｐｒiｎtf（"语法分析成功!\n");ﻩﻩrｅｔurntrue;ﻩ｝ﻩeｌseﻩ{ ﻩinti; ｆoｒ(ｉ=0;i<SｔａｃkEs.siｚe();ｉ++)ﻩﻩ{ﻩﻩ prｉntf("在第%d行",ＳtacｋEs［i］.linｅ)； swｉtｃh（StａcｋEs［i］.es) ﻩ｛ﻩﻩ ﻩcase1:pｒｉｎtf("缺少{！\n");ｂreak； ﻩ ﻩcase2：ｐrintｆ（"缺少}!\n")；break; ﻩ casｅ３:pｒｉｎｔf（"缺少标记符！\n"）；breaｋ; ﻩ case4:ｐrintｆ（"缺少分号!＼n"）;breaｋ; ﻩﻩﻩｃａsｅ5:printf("缺少(！\n");break;ﻩ ﻩﻩcａｓｅ６:prinｔf("缺少)!＼n"）;bｒｅak;ﻩﻩﻩ ｃase7:prinｔｆ("缺少操作数!\n");ｂreak;ﻩﻩ caｓe8:printf（＂文献为空！\ｎ")；break; ﻩ caｓe9:pｒiｎtf("文献尾有多余字符!\ｎ");ｂreａk; ﻩ case10:prｉｎtｆ(＂\ｎ打开％s错误!\n",pFileＮａme);bｒeak; ｝ﻩ }ﻩ reｔｕrｎfａlse;ﻩ}}//《程序》::={＜声明序列＞<语句序列>}//pｒogｒam::=｛＜declaｒａtion_;liｓt><statｅmenｔ＿liｓｔ>}boolproｇrａｍ(){ booleｓ=true;ﻩｉｆ(RｅadFile（tokｅn,toｋｅｎ1）==false) ｛ PｒｏcesｓEｒror(８); ﻩ ／/文献结束ﻩ retｕrｎｆalse; } if(stｒcmp(tokeｎ,"{＂）) ﻩﻩ//判断是否为‘{’ ﻩPrｏcessErroｒ(１);ﻩif(RｅadＦiｌe(toｋeｎ,token1）==false)ﻩ／/文献中仅有{ﻩ PｒｏceｓsErrｏｒ(２）; ﻩ ﻩ es ＝ dｅcｌaraｔioｎ_lｉst（）; if（es=＝fａlsｅ)ﻩ reｔurnfaｌse; es ＝ﻩstaｔemenｔ_lｉｓｔ（);ﻩｉｆ(es=＝fａlse) ｒeｔurｎfaｌｓe；ﻩif(strcｍp(tokeｎ,"}"))ﻩﻩ //判断是否为‘}’ﻩﻩProceｓsError(２)；ﻩreturntrue;｝／／＜声明序列>::=<声明序列>＜声明语句>｜<声明语句＞//<dｅclaratiｏn>：:＝/／＜declaｒation_ｌｉsｔ>＜ｄeclaration＿stat＞|ε//改成＜deｃlａrａtiｏn＿liｓt>：:={<dｅclaraｔiｏｎ_stａt>}ｂｏoldecｌａratiｏn_lｉst(){ﻩｂｏolｅs=tｒue;ﻩwhｉle(sｔrｃmp(ｔｏｋen,"ｉnt"）=＝０)ﻩ{ ﻩeｓ ＝ﻩdeclaration_stat(); ﻩif(ｅs==faｌse） ﻩretｕrnｆalse； } returnes;｝／/<声明语句>::=int<变量>;／/<declarａtioｎ_staｔ＞:：=intID;ｂoｏｌdeclarａtion＿staｔ(){ booｌes=tｒue; if(ＲｅadFile(token,tokｅn1)==false)ﻩ{ ﻩProcessErｒor(２); ﻩ/／缺少} returnｆalsｅ; ﻩﻩ ／／文献结束 }ﻩif（sｔrcｍp(token,"ID＂)） ﻩPｒoｃessErroｒ（3);／／不是标记符 if(ReadFｉle(token,token1）=＝false) {ﻩ ProcessErroｒ(2）； /／缺少}ﻩﻩreturnfalsｅ； ﻩ //文献结束ﻩ}ﻩif(sｔrcmp（token,＂;＂)) ProcessErrｏr(4); if（ＲeadFilｅ(tokｅn,tｏkｅｎ1)＝=faｌse) { ﻩＰrｏcessErｒoｒ（２); //缺少} returnｆalse; ﻩ／/文献结束 } return(es);}／/＜语句序列＞:：=＜语句序列><语句>|ε/／<statemeｎｔ_liｓt＞::＝＜ｓｔatｅment_ｌist><staｔeｍent>|ε／/改成<ｓｔateｍeｎt＿list＞::={<staｔement>}booｌstａtemenｔ_lｉst(){ﻩboolｅｓ =ﻩtrue; if(ｆｅof(fｐ)) ﻩｒeturnfａlsｅ; while(stｒcmp(ｔoken,"}＂)) { ﻩｅｓ =ﻩｓtatemｅnt（)； ﻩｉf（ｅs＝=fａlｓｅ)ﻩ retuｒn(ｅs）; } ｒeｔｕrn(es);}//<语句＞::＝＜iｆ语句>｜＜while语句＞|＜for语句＞｜<reａd语句>/／|＜writｅ语句>｜＜复合语句>|<表达式语句＞/／<ｓtａtｅment＞::=＜if＿ｓｔtat>|<whilｅ＿stａt>|＜for＿sｔａt＞//|<ｃomｐｏｕnd_stat>|＜eｘｐｒeｓsｉoｎ＿stａｔ＞boｏlstａtemeｎt(){ booｌeｓﻩ= true; if(strcmp(token,"iｆ")==0) ﻩes=ｉｆ_stat(); ﻩ ﻩﻩ//<if语句>ﻩelseif(strcmp(tokeｎ，"while＂)＝=0）ﻩﻩes=whilｅ＿staｔ()；ﻩﻩ ／/<ｗｈile语句>ﻩｅlseif（ｓｔrcmp(tｏken,"fｏr"）=＝0) ﻩes＝ｆｏr_ｓtat();ﻩﻩ ﻩﻩ／／<foｒ语句> elｓeiｆ（strcmｐ(token,"reaｄ")==0) ｅs＝ｒead_stat（)；ﻩ ﻩ ﻩ ／/＜read语句> elseif(ｓtrcmp（toｋen，"ｗrite"）＝=0)ﻩﻩｅs＝wriｔｅ_ｓtat();ﻩ ﻩ //<writｅ语句> elsｅif（ｓtrcｍp（ｔoken,"{")=＝０） eｓ=cｏｍpound_stat(); ﻩ ﻩﻩ//<复合语句> elsｅif(strcｍp(ｔｏｋｅn,"ID")==0｜｜ｓtｒcmp(tｏｋen,"ＮＵＭ＂）＝＝0||ｓtrcmp(ｔoken,"(＂）＝＝０) ﻩes=eｘpressｉon＿stａt();ﻩﻩ ﻩ//<表达式语句> returｎ(es);}//＜if语句>：:=ｉf(<表达式>）＜语句>[elｓｅ<语句>]//<ｉｆ_stat＞::=if(<eｘprｅｓsiion>)<ｓtatｅment>[else<stａtement>]boolif_stat(）｛ ｂooleｓ = true；ﻩ ﻩ //if if(ＲeadFiｌｅ(token,ｔoken1)==faｌsｅ)ﻩ{ ﻩPｒｏcesｓErｒor(2);ﻩ ﻩ//缺少} ﻩｒetuｒnｆalse;ﻩﻩ //文献结束 }ﻩif(strcmp(tｏkeｎ，"(＂）)ﻩ ProcｅssＥrrｏr(5）;ﻩ ﻩ ／/少左括号 if(ReａdFｉle(toｋen,token1）==ｆａlse）ﻩ｛ﻩ ProcｅsｓErｒｏr(2);ﻩﻩ //缺少} ﻩreturnfａlｓe;ﻩ ﻩﻩ//文献结束ﻩ} eｓ=eｘｐressｉon()；ﻩif(es=＝faｌse)ﻩ reｔuｒｎ(eｓ）;ﻩｉf(strcｍp(tｏｋen,＂)")) ﻩＰrocesｓErroｒ(6);ﻩﻩ ／/少右括号ﻩif（ＲｅaｄFiｌe(tｏken,ｔoken1)==faｌse） { ﻩPｒocessErｒor(2）； ﻩﻩ／／缺少}ﻩ reｔuｒnfalsｅ; ﻩﻩﻩ//文献结束ﻩ} eｓ＝sｔatemｅnt(）； if(es=＝faｌse） ﻩreｔurn（es); if(strcmp（token,＂elｓｅ"）==0) ／/elsｅ部分解决 {ﻩﻩｉf（RｅadFｉｌe(token，token1)＝=false)ﻩ { ﻩ PｒｏｃessＥrｒor(2); ／/缺少}ﻩﻩﻩrｅtｕrnｆalｓe;ﻩﻩﻩﻩ//文献结束ﻩ }ﻩ ｅｓ=stａteｍent(); ﻩiｆ（es==false)ﻩ reｔurn（es）;ﻩ} retｕｒn(ｅs);｝//<whｉｌｅ语句>::＝ｗhile(<表达式>)＜语句>／/＜whilｅ＿stat＞::=while<esｐr><ｓtatemｅnt＞boolwhile_ｓtat()｛ﻩboｏｌes=ｔrｕe; iｆ(ＲeａdＦｉle(ｔoken,ｔｏkｅn1)==ｆａｌｓe) { ﻩProcｅssErｒor(2)；ﻩﻩ //缺少}ﻩﻩretuｒnｆａlse;ﻩﻩﻩﻩ／/文献结束 }ﻩif（strcmp（toｋｅn,"（"）） ProcessEｒｒor(5); ﻩﻩ ／／少左括号ﻩif(ＲeaｄFile(tokｅn,toｋｅn１)==faｌsｅ)ﻩ{ﻩ PrｏcessErrｏr(２); ﻩﻩ/／缺少} ｒｅｔｕrnfalsｅ； ﻩ/／文献结束ﻩ} eｓﻩ=ﻩeｘｐresｓiｏｎ()；ﻩif(eｓ==ｆalse)ﻩﻩreｔurn（es);ﻩｉf(sｔrcmp（tｏkeｎ,"）")）ﻩ ＰrocessError(6); //少右括号 if(ReａdＦilｅ(token,tｏkeｎ1)=＝falsｅ)ﻩ{ ProcesｓErｒｏr(2)；ﻩﻩ //缺少} ﻩretｕrｎｆａｌｓe;ﻩ ﻩﻩ/／文献结束 ｝ﻩes=statｅment(); iｆ(es==falｓe）ﻩﻩreturneｓ； return(eｓ);｝//<ｆoｒ语句>::=ｆｏr(<表达式>；<表达式＞；<表达式>)<语句＞//<fｏr_staｔ>::=for(<ｅxｐressｉon>;＜expｒeｓｓion>；<expｒｅｓsioｎ>)<ｓtaｔement>bｏoｌfｏｒ_ｓtaｔ（)｛ﻩboolesﻩ= true； if(ReadFile(ｔｏｋen,tｏkｅn１）＝=falsｅ) { ProceｓsError(2);ﻩﻩﻩ//缺少} ﻩrｅｔuｒｎfalse;ﻩ ﻩ／／文献结束ﻩ} ｉf(strcmp(ｔoｋｅｎ,＂("))ProｃessErｒor(5);/／少左括号ﻩif（ＲeａdＦile(toｋen,tokｅn1）==fａlse)ﻩ｛ ProｃeｓsError(2);ﻩﻩﻩ//缺少} rｅturnｆａlｓe； ﻩ //文献结束 } es=exｐresｓion(); if（es＝=ｆaｌse)retuｒn(es); ｉf（stｒｃｍp(token,";"))ＰｒｏcesｓError(4)；/／少分号ﻩif(ReadFile(ｔoken,tｏｋen1)==falsｅ）ﻩ｛ ﻩPrｏcessErｒoｒ(2);ﻩﻩﻩ//缺少}ﻩﻩretｕｒnfalse;ﻩﻩ ／/文献结束 } eｓ=eｘpresｓｉon(）; if(ｅs==false)reｔｕｒｎ(eｓ); if(strcmｐ(tｏkｅn,＂;"))ＰrｏcessErｒor(4）;//少分号ﻩif（ＲeadＦile（tｏｋen,ｔoken1)==faｌｓe)ﻩ{ ProcessEｒｒｏr(２）; ﻩ ／/缺少} ﻩrｅｔｕrｎｆaｌse;ﻩ ﻩ／／文献结束ﻩ}ﻩes＝expressiｏn(）; if(es==faｌse)ｒｅtuｒn(ｅs）;ﻩif(stｒcmp（tokeｎ,＂)"))ＰrocｅｓｓError(6);//少右括号ﻩif(RｅadFiｌe(token,token1)==fａlse)ﻩ｛ﻩﻩProceｓsＥrror(2)； ／/缺少}ﻩﻩrｅtuｒnfａｌｓe;ﻩﻩﻩﻩ//文献结束 }ﻩｅs=stａｔement（); if(eｓ=＝false)retuｒn（es)；ﻩｒetｕｒｎes;}／／<writｅ_语句＞::=write<表达式>;/／＜wriｔe_stａｔ>::=wｒｉte<expreｓsｉon>boolｗritｅ_ｓｔaｔ(){ bｏｏles=true;ﻩif(ReａｄFｉlｅ(ｔoken,token１)==false)ﻩ｛ PｒoｃｅsｓＥrｒｏr(２）; ﻩ//缺少} ﻩｒetuｒｎfａlse;ﻩ ﻩﻩ／/文献结束 }ﻩｅs＝expression(); ｉｆ(es==ｆａlｓe)ｒeturｎ(ｅs); iｆ(strcmp(tｏｋｅn,";"))ProｃｅｓｓErｒｏr(4);／/少分号 ｉf(ReａｄFile(token,ｔoken1)==fａlse）ﻩ｛ﻩﻩPrｏceｓｓErroｒ（2）；ﻩ ／／缺少}ﻩ reｔurｎｆａlｓｅ;ﻩ ﻩﻩ/／文献结束ﻩ} retｕrnes;｝／/＜reａd_语句>::＝ｒead＜变量>/／<ｒead_ｓtat>：:＝ｒｅaｄId；boｏlｒead_staｔ（){ boolｅsﻩ= trｕｅ;ﻩif(ReadFｉle(ｔｏｋeｎ,ｔoｋen１)==false) {ﻩﻩPrｏcessError(2)；ﻩﻩﻩ//缺少}ﻩ rｅturnfalse; ﻩ/／文献结束 }ﻩif(strcｍp(tｏkeｎ,"ＩD"）) PrｏcesｓErｒor（3)；//少标记符ｉf(sｔｒcｍp(tｏｋen,＂;")) ProcessErrｏr(4);//少分号 if(ReadFile(toｋeｎ，token1)==ｆalse） { ＰrｏcesｓErrｏr(2); ﻩ //缺少} ｒｅturｎfａlse； ﻩﻩ //文献结束ﻩ}ﻩreｔurｎes;}/／<复合语句>::{<语句序列>｝//<ｃompouｎd_sｔat>::={<ｓｔaｔｅmeｎt_lisｔ>}ｂooｌｃomｐoｕnｄ＿stat()//复合语句函数{ ｂoｏｌesﻩ= truｅ； if(ReadFｉlｅ(tokｅｎ,ｔokｅｎ1)==false）ﻩ{ﻩﻩPｒoceｓsErrｏr（２）; ﻩﻩ//缺少}ﻩﻩreturnfaｌsｅ；ﻩﻩﻩ /／文献结束ﻩ} eｓ =ﻩｓｔａｔement_ｌiｓt()；ﻩｉｆ（es==falsｅ)ﻩ returｎes； //－－-－－-－-－－－---neｗ-----－--－-ﻩｉf(ｓtｒcmp(tokｅn1,"}")!=0） ﻩﻩProｃessError(2); ｅｌsｅﻩ｛ﻩﻩiｆ(ReａｄFile(tｏkeｎ,tｏkeｎ1）＝=ｆalse)ﻩﻩ｛ﻩ ﻩProceｓsError(２);ﻩﻩﻩ／/缺少}ﻩ returnｆalｓe; ﻩﻩﻩ／/文献结束ﻩﻩ} }ﻩ//---－-－-----－--－nｅw-----－－-－- returnｅｓ；｝／／＜表达式语句>：:＝<＜表达式＞；｜;//<eｘpｒeｓｓiｏｎ＿ｓtat>::＝<exｐressioｎ>；|；boolexｐreｓsｉon_ｓtａt（){ﻩboolesﻩ= true;ﻩｉf（stｒｃmp(token，";")＝=0） ｛ if(RｅａdＦilｅ(token，token1)＝＝falsｅ) ﻩ{ ProcｅｓｓError(２)；ﻩ //缺少} ﻩﻩｒｅturnｆａlsｅ; ﻩ//文献结束ﻩﻩ}ﻩ ｒetuｒｎes;ﻩ｝ eｓ=eｘｐｒｅssiｏn（)； iｆ(ｅs==fａｌse)returneｓ; iｆ(stｒcmp(tｏｋeｎ,";")==0) ｛ﻩﻩiｆ(ReadFｉle(toｋeｎ，ｔokｅn1)＝=false) ﻩ{ﻩﻩﻩPｒｏｃeｓｓEｒror(２); ﻩﻩ//缺少}ﻩ reｔurnｆaｌse;ﻩ ﻩﻩ/／文献结束ﻩﻩ}ﻩ rｅtｕｒnes； }ﻩelsｅ ｛ﻩﻩＰrocｅsｓError（４);//少分号 } returnes;｝／/<表达式>:：=<标记符>=<布尔表达式>|<布尔表达式>//<expreｓsｉon>::=ＩＤ=<bool＿ｅxpr>｜<bool_ｅxpr>bｏoleｘpreｓsiｏn（)｛ﻩｂoolｅs = tｒue；ﻩintｆｉlｅadd;ﻩchartoken2[20］，ｔoken３[40]； if(strｃmp(ｔoken,＂ID"）==0)ﻩ{ ﻩfiｌeａdd=fteｌl(fp);／/记住当前文献位置 ﻩif（ReadFｉle（ｔoken2,ｔoken３)＝=falｓe）ﻩﻩ{ﻩ ＰrｏcessEｒｒor(2)； ﻩﻩ//缺少}ﻩﻩﻩｒｅturnfaｌsｅ; ﻩﻩ /／文献结束 }ﻩﻩｉf（strcmp（tｏken2，＂=")=＝０)／/＇＝'ﻩ { ﻩｉf（ReaｄFｉlｅ(tokeｎ,tokeｎ１)=＝ｆａlse)ﻩﻩ ｛ﻩﻩﻩﻩＰrocessＥｒroｒ(２）；ﻩﻩ ／/缺少}ﻩﻩ ｒetｕｒnfalsｅ; ﻩﻩﻩ／／文献结束ﻩ ﻩ} ﻩ eｓ=bool＿eｘpｒ（); iｆ(es=＝faｌse)reｔuｒｎes;ﻩﻩ｝ﻩﻩelseﻩﻩ｛ﻩﻩﻩfseek(fp，ｆileadｄ,０);//若非‘=’,则文献指针回到‘=’前的标记符 ﻩ EsLine--; ﻩes=bｏol_ｅxpｒ();ﻩ if(es==false）retuｒneｓ; ﻩ}ﻩ}ﻩelｓeﻩ{ es=boｏl＿expr();ﻩﻩｉｆ(es＝=fａlse)reｔurnｅs；ﻩ｝ ｒetuｒneｓ;}//<布尔表达式>::= <算术表达式>[（＞|<|>=|＜=｜=＝|！=)<算数表达式>］ﻩ //<bｏol＿expr>:：=ﻩ<adｄitivｅ＿expr>[(>｜<｜>=|＜＝｜==|!=）＜ａddｉtiｖe＿ｅxpr>]bｏｏlbooｌ＿expr()｛ booｌes =ﻩｔrｕe;ﻩes=addｉtivｅ＿expｒ()； ｉｆ(es==faｌｓe）retｕrneｓ;ﻩif(strcmp(toｋeｎ，＂>")==0||strｃmp（tｏken,"＞=")=＝０ ﻩ||strcｍp(tｏken,"<＂)=＝0｜｜strｃmp(token,＂<="）＝＝0ﻩﻩ||ｓｔrcmp（token，"!=")==0｜|ｓtrcmｐ(token,"==")==０)ﻩ{ ﻩiｆ(ＲeadFｉlｅ(token，token1)==faｌse) ｛ﻩﻩﻩＰｒocessＥrroｒ（2)； ﻩ ／／缺少｝ ﻩﻩreｔurnfalse;ﻩﻩ ／/文献结束ﻩ }ﻩﻩes＝addｉｔive_ｅxpr()； ﻩｉf（es==false)ｒeturnes；ﻩ}ﻩretｕrnes;}//＜算数表达式>::＝<项>｛（＋|－)<项>}／/＜adｄｉｔiｖe_ｅxｐr＞::＝<tｅrm＞{（+|-）<tｅrm>}booladditiｖe_expr(){ﻩboｏles ＝ﻩtｒue; ｅs=term(); if（ｅs=＝false）reｔurnes;ﻩwhile(stｒｃmp(tokeｎ,＂+＂)＝=０|｜ｓｔrcmp(toｋen,"-＂)=＝0) { if(RｅadＦile(toｋen,token1)=＝falｓe) { PrｏcesｓEｒrｏr(2）;ﻩﻩ //缺少}ﻩ reｔｕｒnfaｌse; ﻩ ﻩ//文献结束 ﻩ｝ ﻩｅｓ=teｒｍ()； ﻩｉf（es=＝fａｌsｅ)retｕｒnes； ｝ﻩｒeturnes;}//<项>::=<因子>{(＊|/)<因子＞}／/<terｍ＞::=＜ｆacｔor＞｛(＊|/)<ｆactoｒ>｝bｏoltｅrm(){ boolesﻩ= trｕe;ﻩeｓ=factor()；ﻩif(ｅs==false)returnes; while（ｓtrcｍp(toｋen,"＊")＝=０|｜strcmｐ(tｏｋｅn，"／")==0)ﻩ{ ﻩｉf(ＲｅadＦile（token,toｋｅn１)==ｆaｌse)ﻩﻩ{ﻩ ProcｅｓsＥｒroｒ（2); ﻩﻩ／/缺少} ﻩｒｅturnfaｌse; ﻩ //文献结束 } es=faｃtｏｒ（); if(es＝=fａlse)returnｅｓ； } ｒeturnes;}/／<因子>::=(<表达式>）|<标记符>｜<无符号整数>//＜fａｃtｏr>：：=（<ｅｘprｅｓsioｎ>)|ID｜NUＭboolfａｃtｏｒ(）{ﻩboｏｌes =ﻩｔｒue；ﻩif（stｒcmp(toｋen,"(＂)＝=0) { ﻩｉf(ReadFiｌｅ（tokeｎ,token１)==falsｅ）ﻩﻩ{ﻩﻩ ProcｅssError（2);ﻩﻩﻩ/／缺少｝ ﻩﻩrｅｔurnfalse; ﻩﻩ／/文献结束ﻩﻩ} eｓ=exprｅsｓion();ﻩﻩif（eｓ==ｆalsｅ)reｔurｎes;ﻩ if(ｓtrｃｍp(token,")"))PｒｏcｅsｓErrｏｒ(6);//少右括号 ｉf(RｅadFｉle(tｏｋｅｎ,ｔokｅn１）==faｌsｅ) { ﻩ PｒｏcesｓEｒｒｏr(２)；ﻩﻩﻩ//缺少} ﻩﻩｒｅturnfaｌsｅ; ﻩ ﻩ/／文献结束 }ﻩ}ﻩelse { ﻩｉf(ｓtｒcmp(toｋen，"ＩD")＝=０||strcmp(toｋen,"NＵM")==0) {ﻩ if(ReadFｉle（token,ｔｏken1)==false)ﻩﻩﻩ｛ ﻩ PｒocｅｓsEｒroｒ(2）;ﻩﻩ //缺少} ﻩﻩreturｎfａｌse；ﻩﻩ ﻩ//文献结束ﻩ ﻩ}ﻩﻩﻩrｅtuｒneｓ;ﻩﻩ｝ﻩ elｓｅﻩ { PrｏceｓsＥrｒor(7）；//缺少操作数 ﻩ}ﻩ}ﻩｒeturnes;}Scaｎ.cpp#ｉnｃlude<ctypｅ.h>＃ｉnｃlｕdｅ＜cstring>#ｉncluｄe<ｓtdｉｏ．h>//保存字＃defineﻩKEYWＯRDNＵM 8cｈar *ｐKeyｗｏrd[ＫEYWORDNＵM]ﻩ=ﻩ{"if"，"eｌse","ｆｏr","whｉle"，"dｏ＂，"iｎt",＂reａd"，"ｗrｉte"};//单分界符cｈarﻩszSingleWoｒd[50]ﻩ=ﻩ"+-(){｝；,:＂;//双分界符cｈａr szＤoublｅWord［1０] = "<>！";／/其他符chａｒ ＊szDiｖiｄeﻩ ﻩ= ＂/";cｈar ＊szStaｒ ﻩ ＝ﻩ＂*";chaｒﻩ*szEquａｌﻩﻩ ＝ ＂="；＃ｄefineSTATUSＮＵMﻩ 1６ ﻩ／/状态个数#defineDＡＴＡＮUM 1０ ／/数据流个数//数据流类型tyｐｅdefuｎｓｉgnediｎtＤＡTA;#defｉneOTHERﻩ ﻩ0ﻩ ／/wｒoｎgｉnpuｔ#ｄefiｎeLEＴTER ﻩ 1 ﻩ／/字母#deｆｉｎeDIGIT ﻩ 2 /／数字#defｉnｅSIＮＧＬＥＷＯRDﻩ ３ ﻩ//单分界符#definｅDOUBLEWORD 4ﻩ //双分界符#deｆineDIVIＤEﻩ ﻩ5 ﻩ/／/#ｄｅfineEQUAL ﻩﻩ6ﻩﻩ//=#defineSTＡRﻩﻩ 7ﻩﻩ//*#deｆｉneSＰＡCE ﻩ8 ﻩ/／空白＃dｅfineFＩLEOVERﻩﻩ9ﻩ ／/状态类型tｙｐｅdeｆuｎsｉgneｄiｎtSＴATUS;#dｅfｉnｅNOＳＴＡＴUＳﻩﻩ０ //ｗrongiｎpuｔ＃dｅｆｉnｅSTAＲT 1#defineＣASE_IＤﻩ ﻩ2ﻩ＃dｅfｉneEND＿ID ﻩ 3 #defiｎｅＣＡSＥ＿NUＭ ４ #deｆｉneEND_NＵMﻩﻩ 5#defineＣASE_ＳIＮGLE ﻩ６＃defｉneEND＿SINGLEﻩ 7 ＃deｆineＣASE_DOUＢLEﻩﻩ8#dｅｆｉｎeＣASE_DOUBLE2 ９#defineＥNＤ＿DOＵBLＥ ﻩ10 ＃defineCＡSE_ＤIVIDＥﻩﻩ11＃defｉneＣASE＿NOTＥ 12#defineENＤ＿ＮＯTE 13#defineＣASE_EＲRＯRﻩﻩ14#deｆiｎeEND＿ERＲOR ﻩ１５ //状态转换表// :到达终结状态的数据不保存在输出串中ｉntﻩreflect[STATUSNUM][DAＴANUM] ={ ﻩ ﻩ／/OTHＥRﻩ LETTER DIＧIＴ ﻩSINGLEＷOＲD DＯUBLEWORD ＤＩVIＤE ﻩEQUＡLﻩ ＳTＡR SPAＣE FILEOVER/＊NOＳTAＴUS*/ﻩ{NOSＴATＵS,ﻩＮOSTATＵS,ﻩNＯSTＡTUS, NＯSTAＴUS,ﻩNOSＴATUS,ﻩＮOSTATUS， NOSTＡＴUＳ, NＯＳTATUS, NOSＴATＵS, NＯSTATUS｝，/＊STAＲT*／ﻩﻩ{CＡSE_ERＲＯR,CASE_IＤ,ﻩCAＳＥ＿NＵM, CＡSE_ＳＩＮGLＥ,ＣASE_DOUBLE,ＣASE_DIVIDE，CASE_DＯUBLＥ,CASE_ＳINＧLＥ,START,ﻩﻩSTART｝,／*CAＤE_ID*／ ﻩ{END_IＤ,ﻩCASE_ID，ﻩＣASE＿ID, END_ID,ﻩ EＮD＿ID,ﻩﻩＥND_ID, ﻩEＮD_ID， ＥND_ID,ﻩ ＥＮＤ_ＩD，ﻩﻩEND_ID}，/*EＮD_ID*／ﻩﻩ{NOSTATＵS，ﻩＮOＳTATUＳ, NOSTATUS, ＮＯＳTＡTＵＳ,ﻩNOSTATUS，ﻩNOSＴAＴUS， ＮOSTATUS, ＮOSTATUS，ﻩＮOSTATUS， NＯSTAＴUS},/＊ＣASＥ＿ＮUM＊／ﻩ{EＮＤ_NUM,ﻩEＮD_NＵＭ,ﻩCASE_NUＭ,ﻩEＮD_NUＭ, END_NUM,ﻩＥND＿NUM, EＮD＿NＵM,ﻩEＮＤ_ＮUM, EＮD_NUM, END_ＮUM｝,/*ENＤ＿NＵM*/ﻩﻩ{ＮOSTＡTUS, NＯＳTATUS, NＯＳＴATUＳ， NOSTATUS,ﻩＮOＳTＡTUＳ, NOSＴATＵＳ, ＮＯSTATUS，ﻩNOSTAＴUS， ＮOSTATUS,ﻩＮOSTATUS},/*CASE＿SINGLＥ＊/{END_SINＧLE,ＥND＿ＳＩNGLE,ﻩEND_SINGLE, ＥND_SINGＬE, EＮD_SINGLE,ﻩＥND_SＩNGLＥ，ﻩＥNＤ_SIＮＧLE， ENＤ_SIＮGLE， EＮＤ＿SＩＮGLE, ＥND＿ＳINGＬE｝，/*END_SＩＮGLＥ*/ ｛NOSＴATUS,ﻩNＯSＴATUS, NＯSＴATUＳ, ＮOSＴＡTUS, ＮOSTＡTUS， ＮOSTＡTＵS, NＯＳTATUS,ﻩＮOSＴＡTUS,ﻩNOＳTATＵS,ﻩNOＳTATＵS},/*ＣASＥ＿DOUBＬE*/ ｛EＮD_ＳINGLE,END_SINＧLE，ﻩＥND_SINＧLE,ﻩEND＿SINGＬE， EＮD_SINGＬE,ﻩＥND_SINＧLE, CASE_ＤOUＢＬＥ2,EＮD_SＩNGＬE,END_SINGＬE, ENＤ_ＳINGＬE｝，/*CASE_DOＵBＬE2*/{ＥND_DＯＵBLＥ,END_DOUBLE, END＿DOＵBLＥ,ﻩENＤ_DOUBＬE,ﻩＥＮD_DOUBLE, ＥNＤ_DOＵBLE, END_DOUＢLE,ﻩＥND_ＤＯUBLE，ﻩEND_DＯUBLE,ﻩＥＮＤ_ＤOUBLＥ｝,/*END_DOUＢLE*/ {ＮOＳTATUＳ, NＯSＴATUS, NOＳＴＡTUS, NOSTATＵS, NOＳＴAＴUS， ＮOSTAＴUS,ﻩNOＳTATUS, NOSTATUS,ﻩＮOSTATUS,ﻩＮOSTATUS},／＊CASE_ＤＩVＩＤE*/ {END＿SINGLE,ＥND_SINGLE， END_SINGLE, EＮD_SIＮGLＥ,ﻩEND_ＳＩNGLE,ﻩEＮＤ_SＩＮＧLE, END_SINＧLE,ﻩＣＡSE＿NOＴE,ﻩENＤ_SINGLＥ, EＮD＿ＳINＧＬE｝,/*ＣASE_ＮOTE*／ {END＿NOTE, END_NOTＥ,ﻩEND_NOTE, ENＤ_NOＴE, END_NOＴＥ, EＮＤ_NOTE,ﻩEND_NOTE, END_NOTＥ,ﻩEＮD_NＯTE, ENＤ_NOＴＥ},/*END_NＯTE*／ﻩ{ＮOＳTATＵS,ﻩNOＳＴATUS,ﻩＮOＳTＡTUS, NＯＳTATUS, NOSTATUS， ＮOSTＡTＵS, NOSTATUS, NＯSTＡTUS,ﻩＮOＳTATUＳ，ﻩＮOＳＴATＵS}，/*CASE＿ERRＯR＊/ {EＮD_EＲROＲ,ﻩEＮD_EＲRＯR,ﻩＥＮD_ERROR,ﻩＥND_ERROＲ,ﻩEND＿EＲROＲ，ﻩEＮD_ERROR,ﻩＥNＤ＿ERROR, ENＤ_ERROR, ENＤ_ERROR, EＮＤ_ERROR｝，/＊ENＤ＿ＥＲROＲ*／ ｛NOＳTATＵＳ,ﻩNOSTATUS，ﻩＮＯSTAＴUS,ﻩNOＳTATUS,ﻩNOSTATUS,ﻩNOSＴＡTＵＳ,ﻩNOSTAＴUS,ﻩＮOSＴATUS, ＮOＳTAＴUS,ﻩＮＯSTAＴUS}};／/若在pSｔriｎｇ中找到ｗｏrｄ则返回ｔrue，否则,返回falseboｏlSearcｈChar(chａrｗｏrd,constchar*ｐString){ﻩintn ＝ﻩｓｔrlen（pStｒing）; for（inti=0;i<ｎ;i＋＋）ﻩ{ﻩ if(ｗｏrd==pＳtｒing［i])ﻩ returｎtrｕe;ﻩ｝ﻩreturｎfalse；｝//得到word的数据流类型ＤATAGetDataBywｏrd(cｈarｗord)｛ iｆ(word==ＥOＦ) ｒeｔurnFＩＬEOVER；ﻩif（isalpｈa(wｏｒｄ）)ﻩ reｔurｎLＥTＴER； if(iｓdiｇｉt(woｒd)） rｅｔurnＤIGIＴ;ﻩif(SｅaｒchChar(wｏｒd,szSingｌeWｏrｄ))ﻩ ｒeｔurnSIＮＧLＥWORＤ;ﻩif（SeａrchChar(word，ｓｚDoubleＷｏrd))ﻩ returｎDOUBLEWORＤ; iｆ（SearchChar(wｏrｄ,ｓｚDiviｄｅ)) returｎＤIVIDE;ﻩif(ＳearchChar(word,szEqｕａl))ﻩ rｅturnEQＵAL;ﻩif(SearchChar(word，szＳtar))ﻩ returnSTAR； iｆ（ｉｓｓｐａｃｅ（worｄ)) ﻩｒeturnSPAＣE； rｅtｕｒnOＴHEＲ;}//得到从statｕｓ状态输入worｄ后到达的状态ＳTＡTUSGｅtNextSｔatus(STATＵSsｔａtuｓ,DATAworｄ){ returｎｒeflect[ｓtatuｓ］［ｗord]；}//返回值表达错误个数。当返回值为-１时，表达出现未知错误iｎtTEＳTScan（ＦILE*fin,ＦILE＊fout）｛ﻩiｆ（ｆin==ＮUＬＬ||ｆoｕt＝=NULL) ／/若fｉn或fout为空，则此法分析失败 reｔｕrｎ0; ﻩintes＝0; ﻩ//记录结果中错误的个数ﻩchaｒﻩｓｚSｃanout[40];ﻩ//存放要写入文献的内容ﻩＤＡTA ｄaｔa； //初始化ﻩSTATＵS ｓtaｔus =ﻩSTART;ﻩint i=0; chａrw