2023年TEST語言語法分析詞法分析實驗報告

編譯原理實驗報告實驗名稱:分析調(diào)試語義分析程序ＴEST抽象機模擬器完整程序保證能用??！!！!一、實驗?zāi)康耐ㄟ^度析調(diào)試TEST語言的語義分析和中間代碼生成程序,加深對語法制導(dǎo)翻譯思想的理解,掌握將語法分析所辨認的語法范疇變換為中間代碼的語義翻譯方法。二、實驗設(shè)計程序流程圖語法分析程序代碼: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創(chuàng)建詞法分析輸出文獻犯錯!＼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);//調(diào)語法分析 iｆ(ｅｓ＝=trｕe）ｐrintf（"語法分析成功！\n＂）； elｓｅｐｒinｔf(＂語法分析錯誤!\n")； }?ｅlse prｉnｔf("詞法分析出現(xiàn)未知錯誤!＼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(yī)(）;ｂoｏｌdeclaration_list(）；ｂｏoｌsｔａt(yī)emｅ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("＝===＝語法分析結(jié)果!=＝===\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（"缺少標(biāo)記符！\n"）；breaｋ; ? case4:ｐrintｆ（"缺少分號!＼n"）;breaｋ; ???ｃａsｅ5:printf("缺少(！\n");break;? ??cａｓｅ６:prinｔf("缺少)!＼n"）;bｒｅak;??? ｃase7:prinｔｆ("缺少操作數(shù)!\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ｒａt(yī)ion_;liｓt><statｅmenｔ＿liｓｔ>}boolproｇrａｍ(){ booleｓ=true;?ｉｆ(RｅadFile（tokｅn,toｋｅｎ1）==false) ｛ PｒｏcesｓEｒror(８); ? ／/文獻結(jié)束? 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ａt(yī)iｏn＿liｓt>：:={<dｅclaraｔiｏｎ_stａt(yī)>}ｂｏ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ａt(yī)ioｎ_staｔ＞:：=intID;ｂoｏｌdeclarａt(yī)ion＿staｔ(){ booｌes=tｒue; if(ＲｅadFile(token,tokｅn1)==false)?{ ?ProcessErｒor(２); ?/／缺少} returnｆalsｅ; ?? ／／文獻結(jié)束 }?if（sｔrcｍp(token,"ID＂)） ?PｒoｃessErroｒ（3);／／不是標(biāo)記符 if(ReadFｉle(token,token1）=＝false) {? ProcessErroｒ(2）； /／缺少}??returnfalsｅ； ? //文獻結(jié)束?}?if(sｔrcmp（token,＂;＂)) ProcessErrｏr(4); if（ＲeadFilｅ(tokｅn,tｏkｅｎ1)＝=faｌse) { ?ＰrｏcessErｒoｒ（２); //缺少} returnｆalse; ?／/文獻結(jié)束 } return(es);}／/＜語句序列＞:：=＜語句序列><語句>|ε/／<statemeｎｔ_liｓt＞::＝＜ｓｔatｅment_ｌist><staｔeｍent>|ε／/改成<ｓｔateｍeｎt＿list＞::={<staｔement>}booｌstａt(yī)emenｔ_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ｅ語句>｜＜復(fù)合語句>|<表達式語句＞/／<ｓtａt(yī)ｅment＞::=＜if＿ｓｔtat>|<whilｅ＿stａt(yī)>|＜for＿sｔａt(yī)＞//|<ｃomｐｏｕnd_stat>|＜eｘｐｒeｓsｉoｎ＿stａｔ＞boｏlstａt(yī)emeｎ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(); ? ??//<復(fù)合語句> elsｅif(strcｍp(ｔｏｋｅn,"ID")==0｜｜ｓtｒcmp(tｏｋen,"ＮＵＭ＂）＝＝0||ｓtrcmp(ｔoken,"(＂）＝＝０) ?es=eｘpressｉon＿stａt(yī)();?? ?//<表達式語句> returｎ(es);}//＜if語句>：:=ｉf(<表達式>）＜語句>[elｓｅ<語句>]//<ｉｆ_stat＞::=if(<eｘprｅｓsiion>)<ｓtatｅment>[else<stａt(yī)ement>]boolif_stat(）｛ ｂooleｓ = true；? ? //if if(ＲeadFiｌｅ(token,ｔoken1)==faｌsｅ)?{ ?PｒｏcesｓErｒor(2);? ?//缺少} ?ｒetuｒnｆalse;?? //文獻結(jié)束 }?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;? ??//文獻結(jié)束?} 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ｅ; ???//文獻結(jié)束?} 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;????//文獻結(jié)束? }? ｅｓ=stａt(yī)eｍ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;????／/文獻結(jié)束 }?if（strcmp（toｋｅn,"（"）） ProcessEｒｒor(5); ?? ／／少左括號?if(ＲeaｄFile(tokｅn,toｋｅn１)==faｌsｅ)?{? PrｏcessErrｏr(２); ??/／缺少} ｒｅｔｕrnfalsｅ； ?/／文獻結(jié)束?} 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;? ??/／文獻結(jié)束 ｝?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;? ?／／文獻結(jié)束?} ｉ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； ? //文獻結(jié)束 } 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;?? ／/文獻結(jié)束 } 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;? ?／／文獻結(jié)束?}?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;????//文獻結(jié)束 }?ｅ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;? ??／/文獻結(jié)束 }?ｅ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ｓｅ;? ??/／文獻結(jié)束?} 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; ?/／文獻結(jié)束 }?if(strcｍp(tｏkeｎ,"ＩD"）) PrｏcesｓErｒor（3)；//少標(biāo)記符ｉf(sｔｒcｍp(tｏｋen,＂;")) ProcessErrｏr(4);//少分號 if(ReadFile(toｋeｎ，token1)==ｆalse） { ＰrｏcesｓErrｏr(2); ? //缺少} ｒｅturｎfａlse； ?? //文獻結(jié)束?}?reｔurｎes;}/／<復(fù)合語句>::{<語句序列>｝//<ｃompouｎd_sｔat>::={<ｓｔaｔｅmeｎt_lisｔ>}ｂooｌｃomｐoｕnｄ＿stat()//復(fù)合語句函數(shù){ ｂoｏｌes?= truｅ； if(ReadFｉlｅ(tokｅｎ,ｔokｅｎ1)==false）?{??PｒoceｓsErrｏr（２）; ??//缺少}??returnfaｌsｅ；??? /／文獻結(jié)束?} 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; ???／/文獻結(jié)束??} }?//---－-－-----－--－nｅw-----－－-－- returnｅｓ；｝／／＜表達式語句>：:＝<＜表達式＞；｜;//<eｘpｒeｓｓiｏｎ＿ｓtat>::＝<exｐressioｎ>；|；boolexｐreｓsｉon_ｓtａt(yī)（){?booles?= true;?ｉf（stｒｃmp(token，";")＝=0） ｛ if(RｅａdＦilｅ(token，token1)＝＝falsｅ) ?{ ProcｅｓｓError(２)；? //缺少} ??ｒｅturnｆａlsｅ; ?//文獻結(jié)束??}? ｒ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;? ??/／文獻結(jié)束??}? rｅtｕｒnes； }?elsｅ ｛??ＰrocｅsｓError（４);//少分號 } returnes;｝／/<表達式>:：=<標(biāo)記符>=<布爾表達式>|<布爾表達式>//<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);／/記住當(dāng)前文獻位置 ?if（ReadFｉle（ｔoken2,ｔoken３)＝=falｓe）??{? ＰrｏcessEｒｒor(2)； ??//缺少}???ｒｅturnfaｌsｅ; ?? /／文獻結(jié)束 }??ｉf（strcmp（tｏken2，＂=")=＝０)／/＇＝'? { ?ｉf（ReaｄFｉlｅ(tokeｎ,tokeｎ１)=＝ｆａlse)?? ｛????ＰrocessＥｒroｒ(２）；?? ／/缺少}?? ｒetｕｒnfalsｅ; ???／／文獻結(jié)束? ?} ? eｓ=bool＿eｘpｒ（); iｆ(es=＝faｌse)reｔuｒｎes;??｝??else??｛???fseek(fp，ｆileadｄ,０);//若非‘=’,則文獻指針回到‘=’前的標(biāo)記符 ? EsLine--; ?es=bｏol_ｅxpｒ();? if(es==false）retuｒneｓ; ?}?}?elｓe?{ es=boｏl＿expr();??ｉｆ(es＝=fａlse)reｔurnｅs；?｝ ｒetuｒneｓ;}//<布爾表達式>::= <算術(shù)表達式>[（＞|<|>=|＜=｜=＝|！=)<算數(shù)表達式>］? //<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;?? ／/文獻結(jié)束? }??es＝addｉｔive_ｅxpr()； ?ｉf（es==false)ｒeturnes；?}?retｕrnes;}//＜算數(shù)表達式>::＝<項>｛（＋|－)<項>}／/＜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; ? ?//文獻結(jié)束 ?｝ ?ｅｓ=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; ? //文獻結(jié)束 } es=faｃtｏｒ（); if(es＝=fａlse)returnｅｓ； } ｒeturnes;}/／<因子>::=(<表達式>）|<標(biāo)記符>｜<無符號整數(shù)>//＜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; ??／/文獻結(jié)束??} 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ｅ; ? ?/／文獻結(jié)束 }?}?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；?? ?//文獻結(jié)束? ?}???rｅtuｒneｓ;??｝? elｓｅ? { PrｏceｓsＥrｒor(7）；//缺少操作數(shù) ?}?}?ｒ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６ ?／/狀態(tài)個數(shù)#defineDＡＴＡＮUM 1０ ／/數(shù)據(jù)流個數(shù)//數(shù)據(jù)流類型tyｐｅdefuｎｓｉgnediｎtＤＡTA;#defｉneOTHER? ?0? ／/wｒoｎgｉnpuｔ#ｄefiｎeLEＴTER ? 1 ?／/字母#deｆｉｎeDIGIT ? 2 /／數(shù)字#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ài)類型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 ?１５ //狀態(tài)轉(zhuǎn)換表// :到達終結(jié)狀態(tài)的數(shù)據(jù)不保存在輸出串中ｉ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的數(shù)據(jù)流類型Ｄ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ｕｓ狀態(tài)輸入worｄ后到達的狀態(tài)ＳTＡTUSGｅtNextSｔatus(STATＵSsｔａt(yī)uｓ,DATAworｄ){ returｎｒeflect[ｓtatuｓ］［ｗord]；}//返回值表達錯誤個數(shù)。當(dāng)返回值為-１時，表達出現(xiàn)未知錯誤iｎtTEＳTScan（ＦILE*fin,ＦILE＊fout）｛?iｆ（ｆin==ＮUＬＬ||ｆoｕt＝=NULL) ／/若fｉn或fout為空，則此法分析失敗 reｔｕrｎ0; ?intes＝0; ?//記錄結(jié)果中錯誤的個數(shù)?chaｒ?ｓｚSｃanout[40];?//存放要寫入文獻的內(nèi)容?ＤＡTA ｄaｔa； //初始化?STATＵS ｓtaｔus =?START;?int i=0; chａrw