課程設(shè)計(jì)---pl0功能擴(kuò)充

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：26 大?。?42.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩25頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　課程設(shè) 計(jì)　　課程名稱_____編譯原理_____ 　　題目名稱 PL/0功能擴(kuò)充 　　學(xué)生學(xué)院計(jì)算機(jī)學(xué)院 　　專業(yè)班級計(jì)科一班 </p&

2、gt;　　學(xué) 號_____ ______　　2012年 1 月 1 日　　課程設(shè)計(jì)目的　　在分析理解一個(gè)教學(xué)型編譯程序（如PL/0）的基礎(chǔ)上，對其詞法分析程序、語法分析程序和語義處理程序進(jìn)行部分修改擴(kuò)充。達(dá)到進(jìn)一步了解程序編譯過程的基本

3、原理和基本實(shí)現(xiàn)方法的目的。　　課程設(shè)計(jì)要求　　基本內(nèi)容　　（1）擴(kuò)充賦值運(yùn)算：+= 和 -= 　?。?）擴(kuò)充語句（Pascal的FOR語句）:　　①FOR

4、 <變量>:=<表達(dá)式> TO <表達(dá)式> DO <語句>　　②FOR <變量>:=<表達(dá)式> DOWNTO <表達(dá)式> DO <語句>　　其中，語句①的循環(huán)變量的步長為1，　　語句②的循環(huán)變量的步長為-1。</

5、p>　?。?）增加運(yùn)算：++ 和 --。　　課程設(shè)計(jì)環(huán)境與工具　?。?）計(jì)算機(jī)及操作系統(tǒng)：PC機(jī)，Windows7　?。?）實(shí)現(xiàn)工具：C++Builder6　?。?）教學(xué)型編譯程序：PL/0 </p&

6、gt;　　說明　　1、PL/0編譯程序的結(jié)構(gòu)圖　　2、PL/0編譯程序的總體流程圖：　　3、PL/0編譯程序的過程或函數(shù)的功能表　　4、詞法分析<

7、;p>　　詞法分析是編譯的第一個(gè)階段，它的主要任務(wù)是從左向右逐個(gè)字符地對源程序進(jìn)行掃描，產(chǎn)生一個(gè)個(gè)單詞序列用于語法分析。PL/0詞法分析程序GETSYM的功能是為語法分析提供單詞用的，是語法分析的基礎(chǔ)，把輸入的字符串形式的源程序分割成一個(gè)個(gè)單詞符號。經(jīng)過詞法分析程序分析出來的單詞，對語言固有的單詞只給出類別存放在全程變量SYM中，而對用戶定義的單詞（標(biāo)識符或常數(shù)）既給出類別又給值，其類別放在SYM中，值放在全程變量ID或全程變量N

8、UM中，全部單詞種類由編譯程序定義的純量類型SYMBOL給出，稱為語法詞匯表。　　5、語法分析　　PL/0編譯程序的語法分析采用了自頂向下的遞歸的子程序法。語法分析同時(shí)也根據(jù)程序的語義生成相應(yīng)三元代碼，并提供了出錯(cuò)處理的機(jī)制。語法分析主要由分程序分析過程（BLOCK）、常量定義分析過程（ConstDeclaratio

9、n）、變量定義分析過程（Vardeclaration）、語句分析過程（Statement）、表達(dá)式處理過程（Expression）、項(xiàng)處理過程（Term）、因子處理過程（Factor）和條件處理過程（Condition）構(gòu)成。這些過程在結(jié)構(gòu)上構(gòu)成一個(gè)嵌套的層次結(jié)構(gòu)。詳細(xì)見作圖　　6、語義分析　　PL/0 的語義分析主

10、要進(jìn)行以下檢查：　?。?）是否存在標(biāo)識符先引用未聲明的情況；　?。?）是否存在己聲明的標(biāo)識符的錯(cuò)誤引用；　?。?）是否存在一般標(biāo)識符的多重聲明。　　7、中間代碼生成　　目標(biāo)代碼類pcod

11、e是一種假想棧式計(jì)算機(jī)的匯編語言。　　添加覆蓋：　　OPR L 14棧頂值輸出至屏幕（L=1:字符型；L=0：整型）　　OPR 0 15輸出回車　　OPR L 16從命令行讀入一個(gè)字符輸入置于棧頂（L=1:字符型；L

12、=0：整型）　　STP L A將棧頂置入暫存數(shù)組TMP[A]里，L=1退一棧，否則不退　　GTP 0 A 將暫存數(shù)組TMP[A]的值放到棧頂　　以下3個(gè)為數(shù)組新增：　　ACP L AL=1則將當(dāng)前離棧頂偏移A的值復(fù)制到新棧頂；L=0不操作<

13、/p>　　AST L A 將棧頂?shù)闹祵懭肱cA偏移量等于次棧頂?shù)牡刂?，棧?　　ALD L A 從與A偏移量等于棧頂?shù)玫刂返闹捣旁谠摋ｍ斏?lt;/p>　　8、語法錯(cuò)誤處理　　PL/0編譯程序?qū)φZ法錯(cuò)誤的處理采用兩種辦法：

14、　　（1）對于一些易于校正的錯(cuò)誤，如丟了逗號、分號等，指出出錯(cuò)的位置，加以校正，繼續(xù)進(jìn)行分析。 　?。?）對于難于校正的錯(cuò)誤，給出錯(cuò)誤的位置與性質(zhì)，跳過后面一些單詞，直到下一個(gè)可以進(jìn)行正常語法分析的語法單位。　　錯(cuò)誤類型如下

15、　　0 過程開始部分說明不正確　　1 常數(shù)說明中"="寫成":="　　2 常數(shù)說明中"="后應(yīng)為整數(shù)或?qū)崝?shù)或字符　　3 常數(shù)說明中的標(biāo)識符后應(yīng)是"="<p

16、>　　4 const, var, procedure后應(yīng)為標(biāo)識符　　5 漏掉了","或";"　　6 過程說明后的符號不正確(應(yīng)該是語句開始符,或過程定義符)　　7 應(yīng)是語句開始符　　8 程序體內(nèi)語句部分的后跟符不正確

17、　　9 程序結(jié)尾丟了句號"."　　10 語句間漏了";"　　11 標(biāo)識符未說明　　12 賦值語句中,賦值號左部標(biāo)識符屬性應(yīng)是變量　　13 變量后不能是

18、此符號　　14 call后應(yīng)為標(biāo)識符　　15 call后標(biāo)識符屬性應(yīng)為過程　　16 條件語句中丟了"then"　　17 丟了"end"或";"　　18 while型循環(huán)語

19、句丟了"do"　　19 語句后的符號不正確　　20 應(yīng)為關(guān)系運(yùn)算符　　21 表達(dá)式內(nèi)標(biāo)識符屬性不能是過程　　22 表達(dá)式中漏掉右括號"("　　23 因子后的非法符號&

20、lt;p>　　24 表達(dá)式的開始符不能是此符號　　31 數(shù)越界　　32 read語句中的標(biāo)識符不是變量　　33 后接符號應(yīng)該是“'”　　34 未知的類型<

21、;p>　　35 缺少“]”　　36 運(yùn)行?？臻g不足，無法申請?jiān)摂?shù)組　　37數(shù)組的下標(biāo)不合法　　38 后接符號應(yīng)該是“DO”　　39 應(yīng)為TO或者DOWNTO　　五、設(shè)計(jì)

22、過程：　　A、增加運(yùn)算+=，-=，++，--　　1、代碼：　　詞法分析：　　case '+': GetCh();　　i

23、f(CH=='+'){SYM=INC;GetCh();}　　else if(CH=='='){SYM=APPEND;GetCh();}　　else SYM= PLUS;　　break;　　case &#

24、39;-': GetCh();　　if(CH=='-'){SYM=DEC;GetCh();}　　else if(CH=='='){SYM=REDUCE;GetCh();}　　else SYM= MINUS;　　語法

25、分析：　　1、在因子處理程序里：　　case CONSTANT:　　if(SYM==INC||SYM==DEC){Error(23);break;}　　GEN(LIT,0,TABLE[i].VAL); break;<p&g

26、t;　　case VARIABLE:　　if(SYM==LMPAREN)　　{　　GetSym();　　set=AST;lod=ALD;　　EXPRESS

27、ION(SymSetAdd(RMPAREN,FSYS),LEV,TX);　　if(RMPAREN==SYM) GetSym();　　else Error(35);　　}　　if(SYM==INC||SYM==DEC){</p&g

28、t;　　GEN(ACP,AST==set,0);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　if(SYM==INC)　　GEN(LIT,0,1);　　else GEN(LIT,0,-1)

29、;　　GEN(OPR,0,2);　　GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(ACP,AST==set,-1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR)

30、;　　if(SYM==INC)　　GEN(LIT,0,-1);　　else GEN(LIT,0,1);　　GEN(OPR,0,2);　　GetSym();<

31、p>　　}　　else GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　break;　　case INC:<p&g

32、t;　　case DEC:　　GetSym();　　if(SYM==IDENT){　　i=POSITION(ID,TX);　　if(i!=0)</p&g

33、t;　　{ VSTYLE=TABLE[i].STYLE;　　GetSym();　　if(SYM==LMPAREN)　　{　　GetSym();</

34、b>　　set=AST;lod=ALD;　　EXPRESSION(SymSetAdd(RMPAREN,FSYS),LEV,TX);　　if(RMPAREN==SYM) GetSym();　　else Error(35);&l

35、t;b>　　}　　if(CurSym==INC)　　GEN(LIT,0,1);　　else　　GEN(LIT,0,-1);　　GEN(ACP,set==AST,1);

36、　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(OPR,0,2);　　GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(ACP,set==AST,-1);

37、　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　}　　else Error(11);　　} //if(SYM==IDENT)　　else

38、Error(23);　　2、在語句處理分程序：　　case IDENT:　　i=POSITION(ID,TX);　　GetSym();　　if (i==0) Error(11);</p&

39、gt;　　else　　if (TABLE[i].KIND!=VARIABLE) { /*ASSIGNMENT TO NON-VARIABLE*/　　Error(12); i=0;　　}<

40、p>　　else {VSTYLE=TABLE[i].STYLE;　　if(SYM==LMPAREN)　　{　　GetSym();　　set=AST;lod=ALD;&

41、lt;p>　　EXPRESSION(SymSetAdd(RMPAREN,FSYS),LEV,TX);　　if(RMPAREN==SYM) GetSym();　　else Error(35);　　}　　}<

42、/b>　　switch(SYM)　　{　　case BECOMES:　　GetSym();　　EXPRESSION(FSYS,LEV,TX);<

43、;/p>　　if (i==0) Error(11);//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　break;　　case APPEND:　　GetSym();</b&

44、gt;　　EXPRESSION(FSYS,LEV,TX);　　if (i!=0){　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　G

45、EN(OPR,0,2);　　//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　}　　break;　　case REDUCE:

46、　　GetSym();　　EXPRESSION(FSYS,LEV,TX);　　if (i!=0){　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TAB

47、LE[i].vp.ADR);　　GEN(OPR,0,3);　　GEN(OPR,0,1);　　//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　}<p&g

48、t;　　break;　　case INC:　　GetSym();　　if (i!=0){　　GEN(LIT,0,1);

49、;　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(OPR,0,2);　　//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);<p&g

50、t;　　}　　break;　　case DEC:　　GetSym();　　if (i!=0){&

51、lt;p>　　GEN(LIT,0,-1);　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(OPR,0,2);　　//GEN(set,LEV-TABLE[i].v

52、p.LEVEL,TABLE[i].vp.ADR);　　}　　break;　　default: Error(13);break;　　}&

53、lt;p>　　GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　break;　　測試程序：　　INCDEC程序：<p

54、>　　PROGRAM TESTELSE;　　VAR A,B,C,D,E,F,G;　　BEGIN　　A:=5;　　F:=0;<

55、;p>　　G:=0;　　B:=A++;　　C:=++A;　　D:=A--;　　E:=--A;&l

56、t;/b>　　F+=A;　　G-=A;　　PRINTLN(A,B,C,D,E,F,G);　　END.<b

57、>　　測試結(jié)果：　　=== COMPILE PL0 ===　　0 PROGRAM TESTELSE; 　　0 VAR A,B,C,D,E,F,G; 　　1 BEGIN

58、;　　2 A:=5; 　　4 F:=0; 　　6 G:=0; 　　8 B:=A++; 　　18 C:=++A;

59、26 D:=A--; 　　36 E:=--A; 　　44 F+=A; 　　49 G-=A; 　　55 PRINTLN(A,B,C,D,E,F,G); &l

60、t;b>　　70 END. 　　0 JMP 0 1　　1 INI 0 10　　2 LIT 0 5　　3 STO 0 3　　4 LIT 0 0</p&g

61、t;　　5 STO 0 8　　6 LIT 0 0　　7 STO 0 9　　8 ACP 0 0　　9 LOD 0 3　　10 LIT 0 1</

62、p>　　11 OPR 0 2　　12 STO 0 3　　13 ACP 0 -1　　14 LOD 0 3　　15 LIT 0 -1　　16 OPR 0

63、 2　　17 STO 0 4　　18 LIT 0 1　　19 ACP 0 1　　20 LOD 0 3　　21 OPR 0 2　　22

64、STO 0 3　　23 ACP 0 -1　　24 LOD 0 3　　25 STO 0 5　　26 ACP 0 0　　27 LOD 0 3<p&g

65、t;　　28 LIT 0 -1　　29 OPR 0 2　　30 STO 0 3　　31 ACP 0 -1　　32 LOD 0 3　　33 LIT 0 1

66、　　34 OPR 0 2　　35 STO 0 6　　36 LIT 0 -1　　37 ACP 0 1　　38 LOD 0 3　　39 OPR 0 2<

67、;/p>　　40 STO 0 3　　41 ACP 0 -1　　42 LOD 0 3　　43 STO 0 7　　44 LOD 0 3　　45 ACP

68、0 1　　46 LOD 0 8　　47 OPR 0 2　　48 STO 0 8　　49 LOD 0 3　　50 ACP 0 1　　51

69、 LOD 0 9　　52 OPR 0 3　　53 OPR 0 1　　54 STO 0 9　　55 LOD 0 3　　56 OPR 0 14<p

70、>　　57 LOD 0 4　　58 OPR 0 14　　59 LOD 0 5　　60 OPR 0 14　　61 LOD 0 6　　62 OPR 0 14

71、;　　63 LOD 0 7　　64 OPR 0 14　　65 LOD 0 8　　66 OPR 0 14　　67 LOD 0 9　　68 OPR 0 14&

72、lt;/p>　　69 OPR 0 15　　70 OPR 0 0　　~~~ RUN PL0 ~~~　　5 5 7 7 5 5 -5 　　~~~ END PL0 ~~~<p

73、>　　B、FOR語句:　　修改STATEMENT就能實(shí)現(xiàn)FOR語句的擴(kuò)充，代碼如下：　　case FORSYM:　　// FOR <變量>:=<表達(dá)式> TO <表達(dá)式> DO <語句>

74、　　// FOR <變量>:=<表達(dá)式> DOWNTO <表達(dá)式> DO <語句>　　GetSym();　　FSYS=SymSetUnion(SymSetNew(DOSYM,TOSYM,DOWNTOSYM),FSYS);<

75、;/p>　　if(SYM==IDENT)　　{　　i=POSITION(ID,TX);　　if( i!=0)　　{</p&g

76、t;　　GetSym();　　if(BECOMES==SYM)　　{　　GetSym();　　EXPRESSION(FSYS,LEV,T

77、X);　　GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　if(TOSYM==SYM||DOWNTOSYM==SYM)　　{　　TmpSYM=SYM;<p

78、>　　GetSym();　　EXPRESSION(FSYS,LEV,TX);　　if(DOSYM==SYM)　　{ GetSym();　　TMPADDR=1;　　GEN(STP,1

79、,TMPADDR);　　//循環(huán)體無條件回跳到這里重新判斷循環(huán)條件　　CX1=CX;　　//循環(huán)體條件判斷碼的生成　　switch(TmpSYM)　　{&

80、lt;/p>　　case TOSYM:　　GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(GTP,0,TMPADDR);　　Step=1;<b

81、>　　break;　　case DOWNTOSYM:　　GEN(GTP,0,TMPADDR);　　GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　Step=-1;</b&g

82、t;　　break;　　default: Error(8);　　}　　GEN(OPR,0,10); // 棧頂：原(次棧頂<棧頂?shù)慕Y(jié)果)<b&

83、gt;　　//條件碼結(jié)束　　CX2=CX; //CX2用于記錄產(chǎn)生跳轉(zhuǎn)位置的 GEN(JPC,0,0)的位置　　//便于回填時(shí)找到該跳轉(zhuǎn)命令 GEN(JPC,0,0)　　GEN(JPC,0,0);　　//循環(huán)語句 ></b

84、>　　STATEMENT(FSYS,LEV,TX);　　//<循環(huán)語句完　　//步長+1或者-1操作 >　　GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);</p

85、>　　GEN(LIT,0,Step);　　GEN(OPR,0,2);　　GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　//<步長+1或者-1操作結(jié)束　　GEN(JMP,0,CX1);/

86、/無條件跳回CX1，至此循環(huán)體結(jié)束　　CODE[CX2].A=CX; //將跳出循環(huán)體的位置回填　　}　　else Error(38);　　}　　else

87、 Error(39);　　}　　else Error(11);　　}　　else Error(8);　　}</

88、p>　　測試程序：　　FORSYM.PL0;　　PROGRAM EX01;　　VAR A,B,C;　　BEGIN<b&g

89、t;　　C:=0;　　B:=5;　　A:=11;　　FOR A:=0 DOWNTO -5 DO　　BEGIN<

90、;p>　　PRINTLN(A);　　END;　　FOR A:=0 TO 5 DO　　BEGIN　　PRINTLN(A);　　END

91、　　END.　　測試結(jié)果：　　***** PL/0 Compiler Demo *****　　=== COMPILE PL0 ===

92、　0 PROGRAM EX01; 　　0 VAR A,B,C; 　　1 BEGIN 　　2 C:=0; 　　4 B:=5; <

93、;p>　　6 A:=11; 　　8 FOR A:=0 DOWNTO -5 DO 　　12 BEGIN 　　17 PRINTLN(A); 　　20 END;

94、;　　25 　　25 FOR A:=0 TO 5 DO 　　28 BEGIN 　　33 PRINTLN(A); 　　36 END 　　36

95、 　　36 END. 　　0 JMP 0 1　　1 INI 0 6　　2 LIT 0 0　　3 STO 0 5

96、;　　4 LIT 0 5　　5 STO 0 4　　6 LIT 0 11　　7 STO 0 3　　8 LIT 0 0　　9 STO 0 3</p&

97、gt;　　10 LIT 0 5　　11 OPR 0 1　　12 STP 1 1　　13 GTP 0 1　　14 LOD 0 3　　15 OPR 0 1

98、0　　16 JPC 0 25　　17 LOD 0 3　　18 OPR 0 14　　19 OPR 0 15　　20 LOD 0 3　　21 LI

99、T 0 -1　　22 OPR 0 2　　23 STO 0 3　　24 JMP 0 13　　25 LIT 0 0　　26 STO 0 3

100、　　27 LIT 0 5　　28 STP 1 1　　29 LOD 0 3　　30 GTP 0 1　　31 OPR 0 10　　32 JPC 0 41&

101、lt;p>　　33 LOD 0 3　　34 OPR 0 14　　35 OPR 0 15　　36 LOD 0 3　　37 LIT 0 1　　38 OPR 0 2</

102、p>　　39 STO 0 3　　40 JMP 0 29　　41 OPR 0 0　　~~~ RUN PL0 ~~~　　0 <b&

103、gt;　　-1 　　-2 　　-3 　　-4 　　0 &

104、lt;p>　　1 　　2 　　3 　　4 　　~~~ END PL0 ~~~

105、　　C、字符類型：　　聲明、因子、語句（變量、輸入、輸出）、解釋等分程序都有涉及，這里不貼代碼，主要處理字符變量的賦值，增加'x'為ACHAR，參加運(yùn)算以及類型轉(zhuǎn)換：表達(dá)式中如果有char型，則輸出為char型，其它運(yùn)算int型和char型其實(shí)是相通的，只需要處理表達(dá)形式和變量的類型，我用了一個(gè)全局變量VSTYLE來跟蹤當(dāng)

106、前棧頂?shù)闹祽?yīng)該為何種類型。　　測試程序：　　PROGRAM EX01;　　VAR CHAR B;　　VAR A;　　BEGIN</

107、b>　　A:=5;　　READ(B);　　PRINTLN(A,A+B,'A'+1,'H');　　END.</p&g

108、t;　　測試結(jié)果：　　=== COMPILE PL0 ===　　0 PROGRAM EX01; 　　0 VAR CHAR B; 　　1 VAR A;

109、　　1 BEGIN 　　2 A:=5; 　　4 READ(B); 　　6 PRINTLN(A,A+B,'A'+1,'H'); <b&g

110、t;　　19 END. 　　0 JMP 0 1　　1 INI 0 5　　2 LIT 0 5　　3 STO 0 4　　4 OPR 1 16&

111、lt;p>　　5 STO 0 3　　6 LOD 0 4　　7 OPR 0 14　　8 LOD 0 4　　9 LOD 0 3　　10 OPR 0 2

112、　　11 OPR 1 14　　12 LIT 0 65　　13 LIT 0 1　　14 OPR 0 2　　15 OPR 1 14　　16 LIT 0 72&l

113、t;/p>　　17 OPR 1 14　　18 OPR 0 15　　19 OPR 0 0　　~~~ RUN PL0 ~~~　　Input: 8

114、;　　5 = B H 　　~~~ END PL0 ~~~　　D、一維數(shù)組：　　初始化：　　void ENTER(OBJECTS K, int LEV, int &TX, i

115、nt &DX) { /*ENTER OBJECT INTO TABLE*/　　TX++;　　strcpy(TABLE[TX].NAME,ID); TABLE[TX].KIND=K;　　TABLE[TX].STYLE=VSTYLE;<p&g

116、t;　　switch (K) {　　case CONSTANT:　　GetSym();　　if(CHCH==VSTYLE)　　{　　TABLE[TX].c

117、CHAR=VALUE;　　}　　else if(INTINT==VSTYLE)　　{　　if (NUM>IMAX) { Error(31); NUM=0; }<

118、;p>　　TABLE[TX].VAL=NUM;　　} else Error(34);　　break;　　case VARIABLE:　　GetSym();<p&

119、gt;　　if(LMPAREN==SYM)　　{　　GetSym();　　if(SYM==NUMBER&&NUM+DX<AMAX)　　{

120、　　TABLE[TX].vp.SIZE=NUM;　　TABLE[TX].vp.ADR=DX;　　DX+=NUM;　　// NEWARRAY(NUM,DX);　　GetSym(

121、);　　if(RMPAREN!=SYM)Error(35);　　else GetSym();　　}　　//數(shù)組的處理　　else Er

122、ror(36);　　}　　else {　　TABLE[TX].vp.LEVEL=LEV; TABLE[TX].vp.ADR=DX;　　TABLE[TX].vp.SIZE=0; //0在這里只是用來

123、標(biāo)識變量A和數(shù)組A[1]的差別　　DX++;　　}　　break;　　case PROCEDUR:　　TABLE[T

124、X].vp.LEVEL=LEV;　　break;　　}　　} /*ENTER*/　　其它代碼大部分也有涉及，為了能夠使數(shù)組和一般變量一樣參加運(yùn)算，需要對其偏移地址進(jìn)行計(jì)算，一般偏移地址計(jì)算后都會(huì)放

125、在棧頂，處理這個(gè)偏移量成了一個(gè)問題，主要有：如何讓賦值左邊的數(shù)組的偏移量不被先計(jì)算的賦值式右邊的數(shù)組偏移量所替代，因此在存儲(chǔ)上我的思路是：將偏移量放在棧頂先不處理，等到要賦值到數(shù)組元素的地址時(shí)，有兩種操作：ALD和AST，ALD根據(jù)棧頂這個(gè)便宜量+數(shù)組基址取得值放在這個(gè)頂上，此時(shí)偏移量被沖走；AST是棧頂為表達(dá)式算出的值，次棧頂為偏移量，將棧頂?shù)闹蹈鶕?jù)次棧頂?shù)钠屏抠x到正確的位置（有一個(gè)操作用于協(xié)助這兩個(gè)操作：ACP）。下面是這三個(gè)操作

126、的具體代碼：　　case ACP: if(I.L!=0){　　S[T+1]=S[T-I.A]; T++;　　}　　break;　　case ALD: S[

127、T]=S[BASE(I.L,B,S)+I.A+S[T]];　　break;　　case AST: S[BASE(I.L,B,S)+I.A+S[T-1]]=S[T];　　T-=2;

128、　　break;　　對這三個(gè)操作的應(yīng)用在因子，語句中的輸入，變量中；因?yàn)闀r(shí)間不足，沒有實(shí)現(xiàn)數(shù)組的總體賦值A(chǔ)[2]={1，2}這種形式，只能單個(gè)賦值。沒有邊界判斷。　　測試程序：　　PROGRAM EX01;　　VA

129、R A,B[2],C;　　VAR D[10];　　BEGIN 　　B[0]:=1;　　B[1]:=2;　　FOR A

130、:=0 TO 10 DO　　BEGIN　　D[A]:=B[A/2]++;　　PRINTLN(D[A]);　　END;　　PRINTLN(B[0],B[1]

131、);　　END.　　測試結(jié)果：　　=== COMPILE PL0 ===　　0 PROGRAM EX01; 　　0 VAR A,B[2],C; </

132、p>　　1 VAR D[10]; 　　1 BEGIN 　　2 B[0]:=1; 　　5 B[1]:=2; 　　8 FOR A:=0 TO 10 DO 　　1

133、1 BEGIN 　　16 D[A]:=B[A/2]++; 　　30 PRINTLN(D[A]); 　　34 END; 　　39 PRINTLN(B[0],B[1]); &

134、lt;b>　　46 END. 　　0 JMP 0 1　　1 INI 0 17　　2 LIT 0 0　　3 LIT 0 1　　4 AST 0 4</p&

135、gt;　　5 LIT 0 1　　6 LIT 0 2　　7 AST 0 4　　8 LIT 0 0　　9 STO 0 3　　10 LIT 0 10<

136、/p>　　11 STP 1 1　　12 LOD 0 3　　13 GTP 0 1　　14 OPR 0 10　　15 JPC 0 39　　16 LOD 0

137、 3　　17 LOD 0 3　　18 LIT 0 2　　19 OPR 0 5　　20 ACP 1 0　　21 ALD 0 4　　22

138、 LIT 0 1　　23 OPR 0 2　　24 AST 0 4　　25 ACP 1 -1　　26 ALD 0 4　　27 LIT 0 -1<p&

139、gt;　　28 OPR 0 2　　29 AST 0 7　　30 LOD 0 3　　31 ALD 0 7　　32 OPR 0 14　　33 OPR 0 15

140、　　34 LOD 0 3　　35 LIT 0 1　　36 OPR 0 2　　37 STO 0 3　　38 JMP 0 12　　39 LIT 0 0&l

141、t;/p>　　40 ALD 0 4　　41 OPR 0 14　　42 LIT 0 1　　43 ALD 0 4　　44 OPR 0 14　　45 OPR

142、 0 15　　46 OPR 0 0　　~~~ RUN PL0 ~~~　　1 　　2 　　2

143、　　3 　　3 　　4 　　4 　　5

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

課程設(shè)計(jì)---pl0功能擴(kuò)充

文檔簡介

溫馨提示

最新文檔

評論

課程設(shè)計(jì)---pl0功能擴(kuò)充

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載