編譯原理PL課程設(shè)計報告

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

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

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

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

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

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

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

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

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

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

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

12、or語句缺少do49類型值不匹配50類型無法轉(zhuǎn)換51只有整數(shù)能+或-52類型不正確TEST測試過程流程圖五. 設(shè)計過程(一)實驗內(nèi)容1. 增加單詞：保留字 ELSE, FOR, TO, DOWNTO, REPEAT, UNTIL, RETURN運算符 +=(PLUSBK), -=(MINUSBK), +(INC), - (DEC)首先要擴展SYMBQL在此基礎(chǔ)上再進行其它細節(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和將相應的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;因為關(guān)鍵字增加到了 26 個，所以令 const NORW = 26;SYMBO由原來的33個值擴展為目前的44個值，SYMOU也由原來的33個元素擴展 為目前的44個元素.我用個SYMMA來記錄SYMBO值的個數(shù)， 所以，除了 Error 函數(shù)中可能出現(xiàn)的作為參數(shù)的“3 3”不被替換為“4 4”外，其余的“3 3”均用

20、“ SYMMAX來替換。SY MBO擴展完畢。2. 修改單詞：不等號 # 改為 只要修改GetSym()函數(shù)。當編譯器檢測到當前字符為“”時，接著檢測下一個字符，如果是“”，則使SYM二NEQ代碼修改如下：if (CH=) SYM=NEQ; GetCh (); /增加 為不等于號；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時跳到此地址else /添加ELSE語句GetSym();CX2=CX;GEN(JMP,O,O); /跳過 else 語句CODECX1.A = CX;/如果程序中有else語句，執(zhí)行JPC時跳到此地址STATEMENT(FSYS ,L EV,TX);C0DECX2.A = CX; /執(zhí)行

22、完then語句后跳出break;ELSE子句擴充完畢。(二)課程設(shè)計內(nèi)容1.增加運算符+=，-=，+，-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) 擴充后+和后-操作存在 INC 和 DEC 操作的語法圖有如下兩個：根據(jù)以上語法圖，我們只要對語句處理程序和因子處理程序進行修改添加，即可實現(xiàn)增加 后INC和 后DEC操作，首先對語句處理程序STATEMEN進行如下修改：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) /語句中的 +運算 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) /語句中的 - 運算 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中。這樣就完成了語句中的 +運算。如果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中。這樣就完成了語句中的 - 運算。其次，再對因子處理程序 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);因子中的 +和- 運算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;這樣，對后INC和后DEC操作就擴充完成c）擴充前+和前-操作存在 前INC和前DEC操作的語法圖有如下兩個:首先將STATBEGSYSINC=1;STATBEGSYSDEC=1;FACBEGSYSINC =1;FACBEGSYSDEC =1;其次根據(jù)以上語法圖，我們只

29、要對語句處理程序和因子處理程序進行修改添加，即可實現(xiàn)增加前INC和前DEC操作，首先對語句處理程序STATEMEN進行如下修改：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;再次，再對因子處理程序 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) 擴充+=和-=操作這兩

34、個操作都是一種對變量進行賦值的形式，其合法的語句形式的語法圖如下所示：根據(jù)圖3,在語句處理STATEMENT，在已經(jīng)處理INC和DEC勺基礎(chǔ)上，添加對PLUSBK(+ =)運算和 MINUSBIK =)運算的擴充，相關(guān)代碼添加如下：else if (SYM=PLUSBK) / 增加運算符 +=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) /增加運算符 -=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);這樣就完成了對+=運算和=運算的添加。2. 增加Pascal的FOR語句:a) 格式如下：FOR 變量 := 常數(shù)TO(或 DOWNTO)常數(shù) DO 語句b) 添加語句for 語句的語句語法圖如下：首先 ，詞法分析部分增加關(guān)鍵字在 S

36、YMBO里增加 FORSYM, TOSYM, DOWNTQSYM應 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;/ 記錄當前地址入口GEN(LOD,LEV-TABLEi.v

38、p.LEVEL,TABLEi.vp.ADR);/ 取 ident 變量值到棧頂GetSym();EXPRESSION(SymSetUnion(SymSetNew(DOSYM),FSYS),LEV,TX);/ 取表達式值到棧頂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語句擴充完畢。3. 增加一維數(shù)組類型 首先設(shè)置一維數(shù)組的左右括號： ssym=lepa;II一維數(shù)組的左括號 ssym=ripa;II一維數(shù)組的右括號 根據(jù)棧

41、頂?shù)钠频刂窂臄?shù)組中取值到新根據(jù)次棧頂?shù)钠频刂钒褩ｍ數(shù)闹荡嫒雽ｍ數(shù)闹迪乱频酱螚ｍ?，棧頂出棧，即出棧頂判斷?shù)組下標合法性將數(shù)組的下標范圍入棧， 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 組下標最大

42、值 );增加標識符類型屬性：/*- 標識符的類型屬性 -*/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ù)組名字if(sym=ident)strcpy(idtemp,id);getsymdo;/ 如果是數(shù)組if(sym=lepa)/ 數(shù)組的左中括號getsymdo;if(sym=number)/a 中的中括號里是數(shù)字的話*pdx=*pdx+num;/ 為數(shù)組分配空間 arraysize=num;/ 保存數(shù)組的長度else中的中括號里是變量的話if(sym=ident)/a查找名字表/ 要檢查是不是以聲明的常量i=position(id,*ptx);/if(i=0)error(11);/ 標識符未說明else標識符的屬性是常量為數(shù)組分配空間保存數(shù)組的長度if(tablei.kind=constant)/*pdx=*pdx+tablei.val;/arraysize