編譯原理PL課程設(shè)計(jì)報(bào)告

1、程設(shè)計(jì)班級(jí) 學(xué)號(hào) 姓名21301馬瑞澤百度一. 課程設(shè)計(jì)目的在分析理解一個(gè)教學(xué)型編譯程序(如 PL/0 )的基礎(chǔ)上，對(duì)其詞法分析程序、語法分 析程序和語義處理程序進(jìn)行部分修改擴(kuò)充。達(dá)到進(jìn)一步了解程序編譯過程的基本原理和基 本實(shí)現(xiàn)方法的目的。二. 課程設(shè)計(jì)要求1. 基本內(nèi)容(1 )擴(kuò)充賦值運(yùn)算：+=和-=(2) 擴(kuò)充語句(Pascal的FOF語句)： FOR 變量 := 表達(dá)式 TO 表達(dá)式 DO 語句 FOR 變量 := 表達(dá)式 DOWNTO表達(dá)式 DO 語句其中，語句的循環(huán)變量的步長(zhǎng)為 2,語句的循環(huán)變量的步長(zhǎng)為-2。2. 選做內(nèi)容(1) 增加運(yùn)算：+和-。(2) 增加類型： 字符類型； 實(shí)

2、數(shù)類型。(3) 擴(kuò)充函數(shù)： 有返回值和返回語句； 有參數(shù)函數(shù)。(4) 增加一維數(shù)組類型(可增加指令)。(5) 其他典型語言設(shè)施。3. 本人在課程設(shè)計(jì)中已實(shí)現(xiàn)的功能(1) 增加單詞：保留字 ELSE, FOR TQ DOWNTO, REPEAT, UNTIL, RETURN運(yùn)算符+=+(3) 增加條件語句的ELSE子句(4) 擴(kuò)充賦值運(yùn)算：+=和-=(5) 擴(kuò)充語句 FOR 變量 :=表達(dá)式 TO 表達(dá)式 DO 語句 FOR 變量 :=表達(dá)式 DOWNTO表達(dá)式 DO 語句(6) 增加運(yùn)算：+和-(包括前后+、-運(yùn)算)(7) 增加一維數(shù)組類型(8) 其他典型語言設(shè)施：REPEAT語句UNTIL語

3、句三. 課程設(shè)計(jì)環(huán)境與工具(1) 計(jì)算機(jī)及操作系統(tǒng)：PC機(jī)，Win7(2) 實(shí)現(xiàn)工具：VC+ 6.0, C語言(3) 教學(xué)型編譯程序：PL/0四. 結(jié)構(gòu)設(shè)計(jì)說明1) PL/0編譯程序的結(jié)構(gòu)圖2) PL/0編譯程序的過程或函數(shù)的功能表置初值啟動(dòng)過程或函數(shù)名簡(jiǎn)要功能說明pio主程序error出錯(cuò)處理，打印出錯(cuò)位置和錯(cuò)誤編碼getsym詞法分析，讀取一個(gè)單詞getch漏掉空格，讀取一個(gè)字符gen生成目標(biāo)代碼，并送入目標(biāo)程序區(qū)test測(cè)試當(dāng)前單詞符號(hào)是否合法block分程序分析處理過程en ter登錄名字表positi on（函數(shù)）查找標(biāo)識(shí)符在名字表中的位置con stdeclarati on常量定義

4、處理vardeclarati on變量說明處理listode列出目標(biāo)代碼清單stateme nt語句處理expressi on表達(dá)式處理term項(xiàng)處理factor因子處理con diti on條件處理in terpret對(duì)目標(biāo)代碼的解釋執(zhí)行程序base(函數(shù))通過靜態(tài)鏈求出數(shù)據(jù)區(qū)的基地址3) PL/0編譯程序的總體流程圖4）詞法分析詞法分析是編譯的第一個(gè)階段，它的主要任務(wù)是從左向右逐個(gè)字符地對(duì)源程序進(jìn)行掃 描，產(chǎn)生一個(gè)個(gè)單詞序列用于語法分析。PL/O詞法分析程序GETSY的功能是為語法分析 提供單詞用的，是語法分析的基礎(chǔ)，把輸入的字符串形式的源程序分割成一個(gè)個(gè)單詞符號(hào)。 經(jīng)過詞法分析程序分析出

5、來的單詞，對(duì)語言固有的單詞只給出類別存放在全程變量 SYM中, 而對(duì)用戶定義的單詞（標(biāo)識(shí)符或常數(shù)）既給出類別又給值，其類別放在SYM中，值放在全程變量ID或全程變量NUM中，全部單詞種類由編譯程序定義的純量類型SYMBOLS出，稱為語法詞匯表。詞法分析器的分析過程：調(diào)用 GETSY時(shí)，它通過GETCH過程從源程序中獲得一個(gè)字 符。如果這個(gè)字符是字母，則繼續(xù)獲取字符或數(shù)字，最終可以拼成一個(gè)單詞，查保留字表， 如果查到為保留字，則把SYM變量賦成相應(yīng)的保留字類型值；如果沒有查到，則這個(gè)單詞 應(yīng)是一個(gè)用戶自定義的標(biāo)識(shí)符（可能是變量名、常量名或是過程的名字），把SYMS為IDENT 把這個(gè)單詞存入ID

6、變量。查保留字表時(shí)使用了二分法查找以提高效率。如果Getch獲得的字符是數(shù)字，則繼續(xù)用 Getch獲取數(shù)字，并把它們拼成一個(gè)整數(shù)或?qū)崝?shù)，然后把SYMS為INTEGER并把拼成的數(shù)值放入NUM變量。如果識(shí)別出其它合法的符號(hào)（比如：賦值號(hào)、 大于號(hào)、小于等于號(hào)等），則把SYM則成相應(yīng)的類型。如果遇到不合法的字符，把 SYM置 成NUL詞法分析程序GETSY將完成下列任務(wù)：（1）濾空格（2）識(shí)別保留字（3）識(shí)別標(biāo)識(shí)符（4）拼數(shù)（5）拼復(fù)合詞（6）輸出源程序5）語法分析PL/0編譯程序的語法分析采用了自頂向下的遞歸的子程 序法。語法分析同時(shí)也根據(jù)程序的語義生成相應(yīng)三元代碼， 并提供了出錯(cuò)處理的機(jī)制。語

7、法分析主要由分程序分析過程（BLOC） 常量定義分析過程（ConstDeclaration ）、變量定 義分析過程（Vardeclaration ）、語句分析過程（Statement ）、 表達(dá)式處理過程（Expression ）、項(xiàng)處理過程（Term）、因子 處理過程（Factor、和條件處理過程（Condition、構(gòu)成。這 些過程在結(jié)構(gòu)上構(gòu)成一個(gè)嵌套的層次結(jié)構(gòu)。除此之外，還有 出錯(cuò)報(bào)告過程（Error ）、代碼生成過程（Gen）、測(cè)試單詞合 法性及出錯(cuò)恢復(fù)過程（Test ）、登錄名字表過程（Enter ）、查 詢名字表函數(shù)（Position、以及列出類PCODE代碼過程（Listcode

8、、作過語法分析的輔助過程。由PL/0的語法圖可知：一個(gè)完整的 PL/0程序是由分程 序和句號(hào)構(gòu)成的。因此，本編譯程序在運(yùn)行的時(shí)候，通過主 程序中調(diào)用分程序處理過程 block來分析分程序部分（分程 序分析過程中還可能會(huì)遞歸調(diào)用block過程），然后，判斷最后讀入的符號(hào)是否為句號(hào)。如果是句號(hào)且分程序分析中未出 錯(cuò)，則是一個(gè)合法的PL/0程序，可以運(yùn)行生成的代碼，否則 就說明源PL/0程序是不合法的，輸出出錯(cuò)提示即可。6）語義分析PL/0的語義分析主要進(jìn)行以下檢查：（1）是否存在標(biāo)識(shí)符先引用未聲明的情況；（2）是否存在己聲明的標(biāo)識(shí)符的錯(cuò)誤引用；程序7分 程f語句1r條件1F表達(dá)項(xiàng)1r土子一PL/0

9、語法調(diào)用關(guān)系（3）是否存在一般標(biāo)識(shí)符的多重聲明。7） 中間代碼生成目標(biāo)代碼類 pcode是一種假想棧式計(jì)算機(jī)的匯編語言。自己添加覆蓋了OPR 0 14棧頂值輸出至屏幕（字符型）OPR 0 15棧頂值輸出至屏幕（整數(shù)型）OPR 0 16棧頂值輸出至屏幕（實(shí)數(shù)型）OPR 0 17屏幕輸出換行OPR 0 18從命令行讀入一個(gè)字符輸入置于棧頂OPR 0 19從命令行讀入一個(gè)整數(shù)輸入置于棧頂OPR 0 20從命令行讀入一個(gè)實(shí)數(shù)輸入置于棧頂8） 語法錯(cuò)誤處理PL/0 編譯程序?qū)φZ法錯(cuò)誤的處理采用兩種辦法：（1）對(duì)于一些易于校正的錯(cuò)誤，如丟了逗號(hào)、分號(hào)等，指出出錯(cuò)的位置，加以校正， 繼續(xù)進(jìn)行分析。（2）對(duì)于

10、難于校正的錯(cuò)誤，給出錯(cuò)誤的位置與性質(zhì)，跳過后面一些單詞，直到下一 個(gè)可以進(jìn)行正常語法分析的語法單位。錯(cuò)誤類型如下0 過程開始部分說明不正確1 常數(shù)說明中 = 寫成 :=2 常數(shù)說明中 = 后應(yīng)為整數(shù)或?qū)崝?shù)或字符3 常數(shù)說明中的標(biāo)識(shí)符后應(yīng)是 =4 const, var, procedure 后應(yīng)為標(biāo)識(shí)符5 漏掉了 , 或 ;6 過程說明后的符號(hào)不正確 （應(yīng)該是語句開始符 , 或過程定義符 ）7 應(yīng)是語句開始符8 程序體內(nèi)語句部分的后跟符不正確9 程序結(jié)尾丟了句號(hào) .10 語句間漏了 ;11 標(biāo)識(shí)符未說明12 賦值語句中 , 賦值號(hào)左部標(biāo)識(shí)符屬性應(yīng)是變量13 變量后不能是此符號(hào)14 call 后應(yīng)

11、為標(biāo)識(shí)符15 call 后標(biāo)識(shí)符屬性應(yīng)為過程16 條件語句中丟了 then17 丟了 end或;18 while 型循環(huán)語句丟了 do19 語句后的符號(hào)不正確20應(yīng)為關(guān)系運(yùn)算符21表達(dá)式內(nèi)標(biāo)識(shí)符屬性不能是過程22表達(dá)式中漏掉右括號(hào)(23因子后的非法符號(hào)24表達(dá)式的開始符不能是此符號(hào)31數(shù)越界補(bǔ)充說明了:32 read 或 write語句括號(hào)中的標(biāo)識(shí)符不是變量33 read 或 write34 read 或 write35 read 或 write語句缺少右括號(hào)) 語句缺少左括號(hào)( 括號(hào)里應(yīng)為變量自己增加了：45 +或-后面應(yīng)為變量46 repeat 缺少 until47 for語句錯(cuò)誤48 f

12、or語句缺少do49類型值不匹配50類型無法轉(zhuǎn)換51只有整數(shù)能+或-52類型不正確TEST測(cè)試過程流程圖五. 設(shè)計(jì)過程(一)實(shí)驗(yàn)內(nèi)容1. 增加單詞：保留字 ELSE, FOR, TO, DOWNTO, REPEAT, UNTIL, RETURN運(yùn)算符 +=(PLUSBK), -=(MINUSBK), +(INC), - (DEC)首先要擴(kuò)展SYMBQL在此基礎(chǔ)上再進(jìn)行其它細(xì)節(jié)的修改。要添加的SYMBO為：typedef enum NUL, IDENT, NUMBER, PLUS, MINUS, TIMES,SLASH, ODDSYM, EQL, NEQ, LSS, LEQ, GTR, GEQ,

13、LPAREN, RPAREN, COMMA, SEMICOLON, PERIOD, BECOMES, BEGINSYM, ENDSYM, IFSYM, THENSYM, WHILESYM, WRITESYM, READSYM, DOSYM, CALLSYM, CONSTSYM, VARSYM, PROCSYM, PROGSYM, ELSESYM,FORSYM, TOSYM, DOWNTOSYM, REPEATSYM, UNTILSYM, RETURNSYM, PLUSBK, MINUSBK, INC, DEC SYMBOL;char *SYMOUT = NUL, IDENT, NUMBER,

14、PLUS, MINUS, TIMES, SLASH, ODDSYM, EQL, NEQ, LSS, LEQ, GTR, GEQ, LPAREN, RPAREN, COMMA, SEMICOLON, PERIOD, BECOMES, BEGINSYM, ENDSYM, IFSYM, THENSYM, WHILESYM, WRITESYM, READSYM, DOSYM, CALLSYM, CONSTSYM, VARSYM, PROCSYM, PROGSYM, ELSE,FOR,TO, DOWNTO, REPEAT, UNTIL, RETU RN, PLUSBK, MINUSBK, INC ” D

15、EC ;其中黑斜體為新加入的SY MBQL再將 ELSE,FOR，TO，DOWNTO， REPEAT,UNTIL, RETURN,PLUSBK, MINUSBK, INC,DEC關(guān)鍵字加到KWOR和將相應(yīng)的SYM加到WSYM按字母順序排列。以及修改NEQ后如下void _fastcall TForm1:ButtonRunClick(TObject *Sender) for (CH= ; CHv=a： ch+) SSYMCH=NUL;strcpy(KWORD 1,BEGIN); strcpy(KWORD 2,CALL); strcpy(KWORD 3,CONST); strcpy(KWORD 4

16、,DEC);strcpy(KWORD 5,DO); strcpy(KWORD 6, DOWHILE); strcpy(KWORD 7, DOWNTO ); strcpy(KWORD 8,ELSE);strcpy(KWORD 9,END); strcpy(KWORD 10,FOR); strcpy(KWORD 11,IF); strcpy(KWORD12,INC); strcpy(KWORD13,MINUSBK); strcpy(KWORD14,ODD); strcpy(KWORD15,PLUSBK); strcpy(KWORD16,PROCEDURE); strcpy(KWORD17,PROG

17、RAM); strcpy(KWORD18,READ); strcpy(KWORD19,REPEAT); strcpy(KWORD20,RETURN); strcpy(KWORD21,THEN); strcpy(KWORD22,TO); strcpy(KWORD23,VAR); strcpy(KWORD24,UNTIL);strcpy(KWORD25,WHILE); strcpy(KWORD26,WRITE);WSYM 1=BEGINSYM; WSYM 2=CALLSYM;WSYM 3=CONSTSYM; WSYM 4=DEC;WSYM 5=DOSYM; WSYM 6=DOWHILESYM;WS

18、YM 7=DOWNTOSYMs; WSYM 8=ELSESYM;WSYM 9=ENDSYM; WSYM 10=FORSYM;WSYM 11=IFSYM; WSYM12=INCSYM;WSYM13=MINUSBK; WSYM14=ODDSYM;WSYM15=PLUSBK; WSYM16=PROCSYM;WSYM17=PROGSYM; WSYM18=READSYM;WSYM19=REPEATSYM; WSYM20=RETURNSYM;WSYM21=THENSYM; WSYM 22=TOSYM;WSYM23=VARSYM; WSYM24=UNTILSYM;WSYM25=WHILESYM; WSYM2

19、6=WRITESYM;SSYM+=PLUS; SSYM-=MINUS;SSYM*=TIMES; SSYM/=SLASH;SSYM(=LPAREN; SSYM)=RPAREN;SSYM=EQL; SSYM,=COMMA;SSYM.=PERIOD; SSYM;=SEMICOLON;因?yàn)殛P(guān)鍵字增加到了 26 個(gè)，所以令 const NORW = 26;SYMBO由原來的33個(gè)值擴(kuò)展為目前的44個(gè)值，SYMOU也由原來的33個(gè)元素?cái)U(kuò)展 為目前的44個(gè)元素.我用個(gè)SYMMA來記錄SYMBO值的個(gè)數(shù)， 所以，除了 Error 函數(shù)中可能出現(xiàn)的作為參數(shù)的“3 3”不被替換為“4 4”外，其余的“3 3”均用

20、“ SYMMAX來替換。SY MBO擴(kuò)展完畢。2. 修改單詞：不等號(hào) # 改為 只要修改GetSym()函數(shù)。當(dāng)編譯器檢測(cè)到當(dāng)前字符為“”時(shí)，接著檢測(cè)下一個(gè)字符，如果是“”，則使SYM二NEQ代碼修改如下：if (CH=) SYM=NEQ; GetCh (); /增加 為不等于號(hào)；else SYM=LSS;3. 增加條件語句的ELSE子句該條件語法描述圖如下：語句只要在STATEMENT修改如下代碼：case IFSYM:GetSym();CONDITION(SymSetUnion(SymSetNew(THENSYM,DOSYM),FSYS),LEV,TX);if (SYM=THENSYM)

21、GetSym();else Error(16);CX1=CX; GEN(JPC,O,O);STATEMENT(SymSetUnion(SymSetNew(ELSESYM), FSYS), LEV, TX);if(SYM != ELSESYM) C0DECX1.A=CX;/如果程序中沒有else語句，執(zhí)行JPC時(shí)跳到此地址else /添加ELSE語句GetSym();CX2=CX;GEN(JMP,O,O); /跳過 else 語句CODECX1.A = CX;/如果程序中有else語句，執(zhí)行JPC時(shí)跳到此地址STATEMENT(FSYS ,L EV,TX);C0DECX2.A = CX; /執(zhí)行

22、完then語句后跳出break;ELSE子句擴(kuò)充完畢。(二)課程設(shè)計(jì)內(nèi)容1.增加運(yùn)算符+=，-=，+，-a) 詞法分析1)在GetSym()中完成INC( + + )、PLUSBK( + =)的詞法分析，代碼修改如下:else if(CH = +)GetCh();if(CH = =)/增加 +=SYM = PLUSBK;GetCh();else if(CH = +)/增加 +SYM = INC;GetCh();else SYM = PLUS;2)在GetSym()中完成 DEC( )、MINUSBR =)的詞法分析，代碼修改如下：else if(CH = -)GetCh();if(CH = =

23、)/增加 -=SYM = MINUSBK;GetCh();else if(CH = -)/增加 -SYM = DEC;GetCh(); else SYM = MINUS;b) 擴(kuò)充后+和后-操作存在 INC 和 DEC 操作的語法圖有如下兩個(gè)：根據(jù)以上語法圖，我們只要對(duì)語句處理程序和因子處理程序進(jìn)行修改添加，即可實(shí)現(xiàn)增加 后INC和 后DEC操作，首先對(duì)語句處理程序STATEMEN進(jìn)行如下修改：Case IDENT:i=POSITION (ID,TX);if (i=0) Error(11);elseif (TABLEi.KIND!=VARIABLE) /*ASSIGNMENT TO NON-V

24、ARIABLE*/ Error(12); i=0;GetSym();if (SYM=BECOMES)GetSym ();EXPRESSION (FSYS, LEV, TX);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);else if (SYM=INC) /語句中的 +運(yùn)算 if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN(LIT,0,1);GEN(OPR,0,2);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);

25、GetSym();else if (SYM=DEC) /語句中的 - 運(yùn)算 if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN (LIT,0,1);GEN (OPR,0,3);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GetSym ();在接受到SYM=IDEN后，如果SYM為INC,則主要執(zhí)行這四條指令:GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR)將IDENT的值放到棧頂,GEN(LIT,0,1); 將常數(shù) 1 放到棧頂,GEN

26、(OPR,0,2) 次棧頂加棧頂，GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);將棧頂內(nèi)容保存到IDENT中。這樣就完成了語句中的 +運(yùn)算。如果SYM為DEC則主要執(zhí)行這四條指令:GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR)將IDENT的值放到棧頂,GEN(LIT,0,1); 將常數(shù) 1 放到棧頂,GEN(OPR,0,3) 次棧頂減棧頂,GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);將棧頂內(nèi)容保存到IDENT中。這樣就完成了語句中的 - 運(yùn)算。其次，再對(duì)因子處理程序 FACT

27、O修改如下:if (SYM=IDENT) i=POSITION(ID,TX); if (i=0) Error(11); else switch (TABLEi.KIND) case CONSTANT: GEN(LIT,0,TABLEi.VAL);GetSym(); break; case VARIABLE: GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR); GetSym();if(SYM=INC|SYM=DEC) / GEN(LIT,0,1);因子中的 +和- 運(yùn)算if(SYM=INC) GEN(OPR,0,2);如果為 INC，則加 1else GEN(

28、OPR,0,3);否則減一將棧頂送入變量單元將變量送入棧頂GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR); / GetSym();break;case PROCEDUR: Error(21); break;這樣，對(duì)后INC和后DEC操作就擴(kuò)充完成c）擴(kuò)充前+和前-操作存在 前INC和前DEC操作的語法圖有如下兩個(gè):首先將STATBEGSYSINC=1;STATBEGSYSDEC=1;FACBEGSYSINC =1;FACBEGSYSDEC =1;其次根據(jù)以上語法圖，我們只

29、要對(duì)語句處理程序和因子處理程序進(jìn)行修改添加，即可實(shí)現(xiàn)增加前INC和前DEC操作，首先對(duì)語句處理程序STATEMEN進(jìn)行如下修改：case INC:/前+GetSym();if (SYM = IDENT) i=POSITION(ID,TX);if (i=0) Error(11);else if (TABLEi.KIND!=VARIABLE) /*ASSIGNMENT TO NON-VARIABLE*/Error(12); i=0;if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN(LIT,0,1);GEN(OPR,0,2);if (i

30、!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GetSym();else Error(45);break;case DEC: /前-GetSym();if (SYM = IDENT) i=POSITION(ID,TX);if (i=0) Error(11);else if (TABLEi.KIND!=VARIABLE) /*ASSIGNMENT TO NON-VARIABLE*/Error(12); i=0;if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN (LIT,0,1);GE

31、N (OPR,0,3);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GetSym ();else Error(45);break;再次，再對(duì)因子處理程序 FACTO修改如下:else if(SYM = INC) /前 +GetSym();if (SYM = IDENT) i=POSITION(ID,TX);if (i=0) Error(11);else if (TABLEi.KIND!=VARIABLE) /*ASSIGNMENT TO NON-VARIABLE*/ Error(12); i=0;if (i!=0) GEN(LOD,

32、LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN(LIT,0,1);GEN(OPR,0,2);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR); /將棧頂送入變量單元GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR); /將變量送入棧頂GetSym();else Error(45);else if(SYM = DEC) /前 -GetSym();if (SYM = IDENT) i=POSITION(ID,TX);if (i=0) Error(11);else if (TABL

33、Ei.KIND!=VARIABLE) /*ASSIGNMENT TO NON-VARIABLE*/Error(12); i=0;if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN (LIT,0,1);GEN (OPR,0,3);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR); /將棧頂送入變量單元GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR); /將變量送入棧頂GetSym ();else Error(45);d) 擴(kuò)充+=和-=操作這兩

34、個(gè)操作都是一種對(duì)變量進(jìn)行賦值的形式，其合法的語句形式的語法圖如下所示：根據(jù)圖3,在語句處理STATEMENT，在已經(jīng)處理INC和DEC勺基礎(chǔ)上，添加對(duì)PLUSBK(+ =)運(yùn)算和 MINUSBIK =)運(yùn)算的擴(kuò)充，相關(guān)代碼添加如下：else if (SYM=PLUSBK) / 增加運(yùn)算符 +=if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GetSym();EXPRESSION(FSYS,LEV,TX);GEN(OPR,0,2);if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);e

35、lse if (SYM=MINUSBK) /增加運(yùn)算符 -=if (i!=0) GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GetSym();EXPRESSION(FSYS,LEV,TX);GEN(OPR,0,3); if (i!=0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);這樣就完成了對(duì)+=運(yùn)算和=運(yùn)算的添加。2. 增加Pascal的FOR語句:a) 格式如下：FOR 變量 := 常數(shù)TO(或 DOWNTO)常數(shù) DO 語句b) 添加語句for 語句的語句語法圖如下：首先 ，詞法分析部分增加關(guān)鍵字在 S

36、YMBO里增加 FORSYM, TOSYM, DOWNTQSYM應(yīng) SYMMAX=44 ; NORW = 25;初始化中strcpy(KWORD10,FOR); WSYM 10=IFSYM;strcpy(KWORD22,TO);WSYM22=TOSYM;strcpy(KWORD 7,DOWNTO); WSYM 7=DOWNTOSYM;其次，修改STATEMENT代碼如下：case FORSYM: / 添加 FOR語句。GetSym();if(SYM != IDENT) Error(47);else i=POSITION(ID,TX);if(i = 0) Error(11);else if (T

37、ABLEi.KIND!=VARIABLE) /*ASSIGNMENT TO NON-VARIABLE*/Error(12); i=0;GetSym();if(SYM = BECOMES) GetSym();else Error(13);EXPRESSION(SymSetUnion(SymSetNew(TOSYM,DOWNTOSYM),FSYS),LEV,TX);if(i != 0) GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);if(SYM = TOSYM) / 如果是 to 語句CX1=CX;/ 記錄當(dāng)前地址入口GEN(LOD,LEV-TABLEi.v

38、p.LEVEL,TABLEi.vp.ADR);/ 取 ident 變量值到棧頂GetSym();EXPRESSION(SymSetUnion(SymSetNew(DOSYM),FSYS),LEV,TX);/ 取表達(dá)式值到棧頂GEN(OPR,0,13);/ 判斷變量是否小于或等于棧頂CX2=CX;GEN(JPC,0,0);GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GEN(LIT,0,1);GEN(OPR,0,2);GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);/ 變量加一if(SYM = DOSYM)/執(zhí)行DO后

39、的語句GetSym();STATEMENT(FSYS,LEV,TX);else Error(48);GEN(JMP,0,CX1);CODECX2.A=CX;else if (SYM=DOWNTOSYM) /如果為 down語句CX1=CX;GEN(LOD,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);GetSym();EXPRESSION(SymSetUnion(SymSetNew(DOSYM),FSYS),LEV,TX);GEN(OPR,0,11);/變量大于或等于棧頂CX2=CX;GEN(JPC,0,0);GEN(LOD,LEV-TABLEi.vp.LEVEL,TA

40、BLEi.vp.ADR);GEN(LIT,0,1);GEN(OPR,0,3);GEN(STO,LEV-TABLEi.vp.LEVEL,TABLEi.vp.ADR);/ 變量減一if (SYM=DOSYM)執(zhí)行DO后的語句GetSym();STATEMENT(FSYS,LEV,TX);else Error(48);GEN(JMP,0,CX1); CODECX2.A=CX;else Error(47);break; II添加FOF語句。FOF語句擴(kuò)充完畢。3. 增加一維數(shù)組類型 首先設(shè)置一維數(shù)組的左右括號(hào)： ssym=lepa;II一維數(shù)組的左括號(hào) ssym=ripa;II一維數(shù)組的右括號(hào) 根據(jù)棧

41、頂?shù)钠频刂窂臄?shù)組中取值到新根據(jù)次棧頂?shù)钠频刂钒褩ｍ數(shù)闹荡嫒雽ｍ數(shù)闹迪乱频酱螚ｍ?，棧頂出棧，即出棧頂判斷?shù)組下標(biāo)合法性將數(shù)組的下標(biāo)范圍入棧， gendo(tra,0, 數(shù)增加指令： strcpy(&(mnemonicgar0),gar); II 的棧頂 strcpy(&(mnemonicsar0),sar);II 數(shù)組 strcpy(&(mnemonicshd0),shd);II 次棧頂成為棧頂 strcpy(&(mnemonicdel0),del);II strcpy(&(mnemonicjud0),jud);II strcpy(&(mnemonictra0),tra);II 組下標(biāo)最大

42、值 );增加標(biāo)識(shí)符類型屬性：/*- 標(biāo)識(shí)符的類型屬性 -*/enum objectconstant,variable,procedur,array, / 數(shù)組;在 block ()函數(shù)中添加如下代碼： for(i=tx0+1;iamax)error(31);num=0;table(*ptx).val=num;break;case variable: /*table(*ptx).level=lev;table(*ptx).adr=(*pdx);table(*ptx).size=0;(*pdx)+;break; /*case procedur:table(*ptx).level=lev;break

43、;case array: /*table(*ptx).level=lev;table(*ptx).adr=(*pdx)-arraysize; table(*ptx).size=arraysize; break;變量名字 */過程名字 */數(shù)組名字 */在 Vardeclaration ()函數(shù)中添加數(shù)組的變量聲明，代碼如下： int vardeclaration(int * ptx,int lev,int * pdx)int i;char idtempal+1;/ 臨時(shí)保存數(shù)組名字if(sym=ident)strcpy(idtemp,id);getsymdo;/ 如果是數(shù)組if(sym=lepa)/ 數(shù)組的左中括號(hào)getsymdo;if(sym=number)/a 中的中括號(hào)里是數(shù)字的話*pdx=*pdx+num;/ 為數(shù)組分配空間 arraysize=num;/ 保存數(shù)組的長(zhǎng)度else中的中括號(hào)里是變量的話if(sym=ident)/a查找名字表/ 要檢查是不是以聲明的常量i=position(id,*ptx);/if(i=0)error(11);/ 標(biāo)識(shí)符未說明else標(biāo)識(shí)符的屬性是常量為數(shù)組分配空間保存數(shù)組的長(zhǎng)度if(tablei.kind=constant)/*pdx=*pdx+tablei.val;/arraysize