【正文】 lllll 實(shí)現(xiàn)方法：編程語言、編程方法 系統(tǒng)總圖，各部分的實(shí)現(xiàn)原理、方法、中間結(jié)果、最后輸出 掃描器：各單詞的狀態(tài)轉(zhuǎn)換圖、轉(zhuǎn)換表 分析器：分析表 代碼設(shè)計(jì)說明：程序結(jié)構(gòu)圖，文件和函數(shù)的設(shè)計(jì)說明，關(guān)鍵數(shù)據(jù)結(jié)構(gòu)按文件列出主要程序代碼, 添加必要的注釋。課程設(shè)計(jì)中程序比較復(fù)雜，在調(diào)試時(shí)應(yīng)該仔細(xì)，在程序調(diào)試時(shí)，注意指針，將不必要的命令去除。三、通過該課程設(shè)計(jì)，全面系統(tǒng)的理解了編譯原理程序構(gòu)造的一般原理和基本實(shí)現(xiàn)方法。通過該課程設(shè)計(jì)，收獲頗多。由于此程序的實(shí)現(xiàn)相對(duì)比較復(fù)雜，且不方便調(diào)試，改進(jìn)時(shí)可以把此程序的詞法分析，語法分析和執(zhí)行原代碼作為單獨(dú)的測試程序來測試，這樣也方便大家來調(diào)試。// 保存代碼()。(BEGINSYM),(CALLSYM),(IFSYM),(WHILESYM)。} ： include ”“ void main(){ PL0 cp(”“,”)。l= l1。}//switch end}while(p!=0)。break。break。s[t+2]= b。case STO:s[base(,b,s)+]= s[t]。break。break。break。break。break。break。break。break。s[t]= s[t] / s[t+1]。case 4: t= t1。break。case 1: s[t]=s[t]。case OPR:switch()//operator{ case 0:// return t= b1。}} } }//condition end// 對(duì)目標(biāo)代碼的解釋執(zhí)行程序void PL0::interpret(){ int err1=()。case GTR: gen(OPR,0,12)。case LSS: gen(OPR,0,10)。switch(relop){case EQL: gen(OPR,0,8)。if((sym)==())error(20)。if(sym == ODDSYM){getsym()。}test(fsys,facbegsys,23)。(RPAREN)。}gen(LIT,0,num)。break。break。test(facbegsys,fsys,24)。factor(tmp,tx,lev)。while(sym=TIMES amp。symset tmp=fsys。if(addop ==PLUS)gen(OPR,0,2)。amp。term(tmp,tx,lev)。if(sym=PLUSamp。}//statement end// 表達(dá)式處理void PL0::expression(symset fsys,int tx,int lev){ symbol addop。gen(JPC,0,cx1)。elseerror(34)。statement(temp1,tx,lev)。} else if(sym == REPEATSYM){symset temp1, temp2。elseerror(18)。condition(tmp,tx,lev)。} else if(sym ==WHILESYM){ cx1= cx。if(sym==ENDSYM)break。tmp=fsys。if(sym ==SEMICOLON||sym ==ENDSYM)getsym()。statement(tmp,tx,lev)。} } else if(sym ==BEGINSYM){ getsym()。gen(JMP,0,0)。getsym()。cx1= cx。i((symbol)i)。getsym()。else {i= position(id,tx)。elsegetsym()。expression(tmp,tx,lev)。if(sym==LPAREN){do{getsym()。if(sym!= RPAREN){error(33)。else{gen(OPR,0,16)。elsedo{getsym()。if(sym!= SEMICOLON)error(10)。}getsym()。if(sym ==IDENT){i= position(id,tx)。} // 列出目標(biāo)代碼清單void PL0::listcode(int cx0)//list code generated for this block { int i。getsym()。}elseerror(32)。dx,int lev){int upscript=0,downscript=0。getsym()。} elseerror(4)。if(sym == NUMBER){enter(CONSTANT,tx,dx,lev)。if(sym=EQLamp。return i。} }//enter end// 查找標(biāo)示符在名字表中的位置int PL0::position(alfa id,int tx)//find identifier id in table { int i。case PROCEDURE:table[tx].=lev。case VARIABLE:table[tx].=lev。switch(k){ case CONSTANT:if(numamax){error(31)。tx,int amp。// return symset s2。for(int i=SEMICOLON。// start adr of code table[tx0].=dx。test(tmp,declbegsys,7)。test(tmp,fsys,6)。if(sym == SEMICOLON){getsym()。elseerror(5)。if(sym ==IDENT){enter(PROCEDURE,tx,dx,lev)。}if(sym ==SEMICOLON)getsym()。if(sym == VARSYM)// 處理變量聲明 { getsym()。constdeclaration(tx,dx,lev)。if(levlevmax)error(32)。// initial code indexdx= 3。} }//test end// 分程序分析處理過程void PL0::block(int lev,int tx,symset fsys){ if(sourceEnd)return。for(it=()。cx= cx+1。}// 生成目標(biāo)代碼，并送入目標(biāo)程序區(qū)void PL0::gen(fct x,int y,int z){ if(cx cxmax){coutreturn。ll=strlen(line)。return。} else// end of extra stuff { sym= ssym[ch]。=39。} else if(ch == 39。=39。} else if(ch == 39。k= k+1。num= 0。if(strcmp(id,word[k])=0)i= k+1。i= 1。 39。if(sourceEnd)return。memset(a,0,al+1)。while(ch ==39。(s+errStr[n])。// code line =fopen(source,”r“)。// 行緩沖區(qū)長度ch= 39。// 初始化項(xiàng)開始符號(hào)集合err= 0。strcpy(mnemonic[JPC],” jpc “)。strcpy(mnemonic[STO],” sto “)。]= SEMICOLON。39。// 初始化保留字表中每一個(gè)保// 初始化一些符號(hào)對(duì)應(yīng)的symbolssym[39。]= COMMA。=39。ssym[39。]= SLASH。*39。類型表ssym[39。memset(line,0,sizeof(line))。wsym[16]= WRITESYM。wsym[12]= THENSYM。wsym[8]= ODDSYM。wsym[4]= DOSYM。strcpy(word[16],”write“)。strcpy(word[12],”then“)。strcpy(word[8],”odd“)。strcpy(word[4],”do“)。// PL0構(gòu)造函數(shù)PL0::PL0(char* source,char*destination){ listswitch=true,sourceEnd=false。endif ： include “”// 錯(cuò)誤字符串?dāng)?shù)組string PL0::errStr[]={“,”error 0001: 常數(shù)說明中“=”寫成“：=”“, ”error 0002: 常數(shù)說明中的“=”后應(yīng)為數(shù)字“, ”error 0003: 常數(shù)說明中的標(biāo)識(shí)符后應(yīng)是“=”“, ”error 0004: const,var,procedure后應(yīng)為標(biāo)識(shí)符“, ”error 0005: 漏掉了‘,’或‘。void interpret()。void condition(symset fsys,int tx,int lev)。void statement(symset fsys,int tx,int lev)。void vardeclaration(intamp。int position(alfa id,int tx)。合法void block(int lev,int tx,symset fsys)。位置和出錯(cuò)代碼void getsym()。// 符號(hào)表FILE* fin,*fout。// 保留字表中每一個(gè)保留字對(duì)應(yīng)的symbol類型symbol ssym[100]。// error array alfa a。// code allocation index int codeNo。// last number readint cc。char ch。int val。// 類PCODE指令類型，包含三個(gè)字段：指令f、層差l和另一個(gè)操作數(shù)a/******************************************* * lit 0,a: load constant a* * opr 0,a: execute operation a* * lod l,a: load variable l,a* * sto l,a: store variable l,a* * cal l,a: call procedure a at level l* * int 0,a: increment tregister by a* * jmp 0,a: jump to a* * jpc 0,a: jump conditional to a* *******************************************/typedef struct{ alfa name。// level,cann39。// 三種標(biāo)識(shí)符的類型 typedef enum {LIT,OPR,LOD,STO,CAL,INT,JMP,JPC} fct。// size of code array 類PCODE目標(biāo)代碼數(shù)組長度（可容納代碼行數(shù)）const int lineLength = 82。// length of identifiers 標(biāo)示符的最大長度const int nmax = 14。五、相關(guān)代碼及運(yùn)行結(jié)果實(shí)驗(yàn)代碼； ： include include include include include include ifndef WIRTH_ZYC_ define WIRTH_ZYC_ using namespace std。通過前面記錄下的jpc指令的位置，把它的跳轉(zhuǎn)位置改成當(dāng)前的代碼段指針位置，否則沒遇到else，那么此時(shí)的當(dāng)前代碼段分配指針的位置也是上面jpc指令的轉(zhuǎn)移位置，也是通過前面記錄下的jpc位置指令的位置，把它的跳轉(zhuǎn)到當(dāng)前的代碼段指針位置。ifthenelse語句的處理：按if語句的語法，首先調(diào)用邏輯表達(dá)式處理過程處理if語句的條件，把相應(yīng)的真假值放到數(shù)據(jù)棧頂。除此之外，還有出錯(cuò)報(bào)告過程（Error）、代碼生成過程（Gen）、測試單詞合法性及出錯(cuò)恢復(fù)過程（Test）、登錄名字表過程（Enter）、查詢名字表函數(shù)（Position）以及列出類 PCODE代碼過程（Listcode）作過語法分析的輔助過程。如果遇到不合法的字符，把SYM置成NUL。如果這個(gè)字符是字母，則繼續(xù)獲取字符或數(shù)字，最終可以拼成一個(gè)單詞，查保留字表，如果查到為保留字，則把SYM變量賦成相應(yīng)的保留字類型值；如果沒有查到，則這個(gè)單詞應(yīng)是一個(gè)用戶自定義的標(biāo)識(shí)符（可能是變量名、常量名或是過程的名字），把SYM置為IDENT，把這個(gè)單詞存入ID變量。詞法分析子程序分析：詞法分析子程序名為GETSYM，功能是從源程序中讀出一個(gè)單詞符號(hào)（TOTAKEN），把它的信息放入全局變量 SYM、ID和NUM中，字符變量放入CH中，語法分析器需要單詞時(shí)，直接從這三個(gè)變量中獲得。四、實(shí)驗(yàn)分析PL/0語言編譯程序采用以語法分析為核心、一遍掃描的編譯方法。PL/0的編譯程序和目標(biāo)程序的解釋執(zhí)行程序都是用PASCAL語言書寫的，因此PL/0語言可在配備PASCAL語言的任何機(jī)器上實(shí)現(xiàn)。（2）擴(kuò)充條件語句的功能使其為：IFTHEN[ELSE]（3）增加repeat重復(fù)語句: REPEAT{。使學(xué)生能將編譯理論與實(shí)際應(yīng)用結(jié)合起來，提高學(xué)生軟件開發(fā)的能力。此外，由于在做報(bào)告的時(shí)候，需要描繪DFA和程序流程圖，使得自己初步掌握了使用visio和word畫圖的能力。由于在編寫程序過程中，涉及到了正則表達(dá)式、DFA、提取公共左因子、