資源描述:
《第2章__PL0編譯程序的實現解析ppt課件.ppt》由會員上傳分享,免費在線閱讀,更多相關內容在教育資源-天天文庫。
1、第2章PL/0編譯程序的實現本章目的:以PL/0編譯程序為實例,學習編譯程序實現的基本步驟和相關技術1PL/0編譯程序的結構2PL/0編譯程序的分析工作(詞法,語法和語義)實現3PL/0編譯程序的錯誤處理方法4目標代碼生成和類pcode代碼解釋器1.PL/0編譯程序的結構PL/0編譯程序PL/0語言程序類p-code代碼源語言(PL/0)目標語言(類p-code)實現語言(pascal/C)PL/0類p-codepascal/CPL/0編譯程序類p-code解釋程序類p-code代碼PL/0源程序輸入數據輸出數據PL/0編譯系統的結構框架PL/0語言PL/0語言:PASC
2、AL語言的子集PL/0程序示例PL/0的語法描述圖PL/0語言的EBNF表示PL/0程序示例CONSTA=10;(*常量說明部分*)VARB,C;(*變量說明部分*)PROCEDUREP;(*過程說明部分*)VARD;(*P的局部變量說明部分*)PROCEDUREQ;(*P的局部過程說明部分*)VARX;BEGINREAD(X);D:=X;WHILEX#0DOCALLP;END;BEGINWRITE(D);CALLQ;END;BEGINCALLP;END.Q過程體p過程體主程序體輸入圓柱的半徑和高,計算一些面積、體積等varr,h,len,a1,a2,vo
3、lumn;beginread(r);read(h);len:=2*3*r;a1:=3*r*r;a2:=a1+a1+len*h;volumn:=a1*h;write(len);write(a1);write(a2);write(volumn);end.計算最大公約數varm,n,r,q;{計算m和n的最大公約數}proceduregcd;beginwhiler#0dobeginq:=m/n;r:=m-q*n;m:=n;n:=r;endend;beginread(m);read(n);{為了方便,規(guī)定m>=n}ifm4、beginr:=1;callgcd;write(m);end;end.pl/0程序--遞規(guī)調用varn;procedurerec;beginifn#0thenbeginwrite(n);n:=n-1;callrec;end;end;beginread(n);callrec;end.計算sum=1!+2!+...+n!,n從控制臺讀入varn,m,fact,sum;{遞規(guī)計算fact=m!}procedurefactorial;beginifm>0thenbeginfact:=fact*m;m:=m-1;callfactorial;end;end;begin{讀入n}re
5、ad(n);sum:=0;whilen>0dobeginm:=n;fact:=1;callfactorial;sum:=sum+fact;n:=n-1;end;{輸出n!}write(sum);end.程序分程序.內的文字表示語法成分(短語)或內的文字表示單詞符號程序.內的文字表示語法成分(短語)語法圖constidentnumber=,;varident,;;procedureident;分程序語句分程序PL/0語言的EBNF表示構成EBNF的元素—(非終結符,終結符,開始符,規(guī)則)EBNF的元符號:<>用左右尖括號括起來的內容為非終結符∷=讀做‘定義為’∷=的左部由
6、右部定義→讀做‘定義為’→的左部由右部定義
7、讀做‘或’表示右部候選內容{}表示花括號內的內容可重復任意次或限定次數[]表示方括號內的內容為任選項()表示圓括號內的內容優(yōu)先例:用EBNF描述<整數>的定義:<整數>∷=[+
8、-]<數字>{<數字>}<數字>∷=0
9、1
10、2
11、3
12、4
13、5
14、6
15、7
16、8
17、9或<整數>∷=[+
18、-]<非零數字>{<數字>}
19、0<非零數字>∷=1
20、2
21、3
22、4
23、5
24、6
25、7
26、8
27、9<數字>∷=0
28、<非零數字>PL/0語言是PASCAL語言的子集同PASCAL作用域規(guī)則(內層可引用包圍它的外層定義的標識符),上下文約束,過程可嵌套定義,可遞歸調用子集數
29、據類型,只有整型數據結構,只有簡變和常數數字最多為14位標識符的有效長度是10語句種類過程無參,最多可嵌套三層目標代碼類p-code目標代碼類p-code是一種棧式機的匯編語言。棧式機系統結構:沒有累加器和寄存器,只有存儲棧指針所有運算都在棧頂(零地址機)指令格式:flaf功能碼l層次差(標識符引用層減去定義層)a根據不同的指令有所區(qū)別指令功能表consta=10;varb,c;procedurep;beginc:=b+a;end;beginread(b);whileb#0dobegincallp;write