編譯原理實(shí)驗(yàn)三

1、編譯原理實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)三 語義分析 班 級： 學(xué) 號： 姓 名： 任課教師： 計(jì)算機(jī)科學(xué)與工程系2016年 6 月 20 日 一、 實(shí)驗(yàn)?zāi)康耐ㄟ^上機(jī)實(shí)習(xí)，加深對語法制導(dǎo)翻譯原理的理解，掌握將語法分析所識別的語法成分變換為中間代碼的語義翻譯方法。二、 實(shí)驗(yàn)要求實(shí)驗(yàn)的輸入和輸出:輸入是語法分析后提供的正確的單詞串，輸出為三地址指令形式的四元式序列。例如：對于語句串begin a：2+3*4；x：(a+b)/c end#輸出的三地址指令如下：(1) t1=3* 4 (4) t3a+b(2) t22+t1 (5) t4t3/c(3) a=t2 (6) x=t4三、 實(shí)驗(yàn)內(nèi)容采用遞歸下降語法制導(dǎo)翻譯法，

2、對算術(shù)表達(dá)式、賦值語句進(jìn)行語義分析并生成四元式序列。四、 算法設(shè)計(jì)和源程序#include "stdio.h"#include "string.h"#include "stdlib.h"char prog100,token8,ch;char *rwtab6="begin","if","then","while","do","end"int syn,p,m,n,sum,q;int kk;struct char resu

3、lt18; char ag118; char op18; char ag218; quad20;char *factor();char *expression();int yucu();char *term();int statement();int lrparser();char *newtemp();scaner();emit(char *result,char *ag1,char *op,char *ag2);main() int j;q=p=kk=0;printf("nplease input a string (end with '#'): ");

4、do scanf("%c",&ch); progp+=ch; while(ch!='#');p=0;scaner();lrparser();if(q>19)printf(" to long sentense!n");else for(j=0;j<q;j+)printf("%s=%s%s%snn",quadj.result1,quadj.ag11,quadj.op1,quadj.ag21);/getch();int lrparser() int schain=0; kk=0; if (syn=1) s

5、caner(); /讀下一個(gè)單詞符號schain=yucu(); /調(diào)用語句串分析函數(shù)進(jìn)行分析if(syn=6) scaner(); /讀下一個(gè)單詞符號 if(syn=0)&&(kk=0) printf("Success!n"); /輸出（“success”）else if(kk!=1)printf("short of 'end' !n");/輸出 缺end 錯(cuò)誤 kk=1;/ getch(); exit(0); else printf("short of 'begin' !n"); /

6、輸出begin錯(cuò)誤 kk=1;/ getch(); exit(0); return (schain);int yucu() int schain=0;schain=statement(); /調(diào)用語句分析函數(shù)進(jìn)行分析while(syn=26) scaner(); /讀下一個(gè)單詞符號 schain=statement(); /調(diào)用語句分析函數(shù)進(jìn)行分析 return (schain);int statement() char tt8,eplace8;int schain=0;if (syn=10) strcpy(tt,token); scaner(); if(syn=18) scaner(); /

7、讀下一個(gè)單詞符號 strcpy(eplace,expression();emit(tt,eplace,"","");schain=0; else printf("short of sign ':=' !n"); /輸出缺少賦值號的錯(cuò)誤 kk=1;/ getch(); exit(0); return (schain); char *expression() char *tp,*ep2,*eplace,*tt;tp=(char *)malloc(12); /分配空間ep2=(char *)malloc(12);eplace

8、=(char *)malloc(12);tt=(char *)malloc(12);strcpy(eplace,term(); /調(diào)用term分析產(chǎn)生表達(dá)式計(jì)算的第一項(xiàng)eplacewhile(syn=13)|(syn=14) if (syn=13)strcpy(tt,"+"); /操作符 tt= +或者 else strcpy(tt,"-"); scaner(); /讀下一個(gè)單詞符號 strcpy(ep2,term(); /調(diào)用term分析產(chǎn)生表達(dá)式計(jì)算的第二項(xiàng)ep2 strcpy(tp,newtemp(); /調(diào)用newtemp產(chǎn)生臨時(shí)變量tp存儲計(jì)算

9、結(jié)果 emit(tp,eplace,tt,ep2); /生成四元式送入四元式表 strcpy(eplace,tp); return (eplace);char *term() /仿照函數(shù)expression編寫 char *tp,*ep2,*eplace,*tt;tp=(char *)malloc(12);ep2=(char *)malloc(12);eplace=(char *)malloc(12);tt=(char *)malloc(12);strcpy(eplace,factor();while(syn=15)|(syn=16) if (syn=15)strcpy(tt,"*&

10、quot;); else strcpy(tt,"/"); scaner(); /讀下一個(gè)單詞符號 strcpy(ep2,factor(); strcpy(tp,newtemp(); emit(tp,eplace,tt,ep2); strcpy(eplace,tp); return (eplace);char *factor() char *fplace;fplace=(char *)malloc(12);strcpy(fplace,"");if(syn=10) strcpy(fplace,token); scaner(); /讀下一個(gè)單詞符號 else

11、if(syn=11) itoa(sum,fplace,10); scaner(); /讀下一個(gè)單詞符號 else if(syn=27) scaner(); /讀下一個(gè)單詞符號 fplace=expression(); /調(diào)用expression分析返回表達(dá)式的值 if(syn=28) scaner(); /讀下一個(gè)單詞符號 else printf("error on ')' !n"); kk=1;/ getch(); exit(0); else printf("error on '(' !n");kk=1;/ getch(

12、);exit(0); return (fplace);char *newtemp() char *p;char m8;p=(char *)malloc(8);kk+;itoa(kk,m,10);strcpy(p+1,m);p0='t'return(p);scaner() sum=0; for(m=0;m<8;m+)tokenm+=NULL; m=0; ch=progp+; while(ch=' ')ch=progp+; if(ch<='z')&&(ch>='a')|(ch<='Z&#

13、39;)&&(ch>='A') while(ch<='z')&&(ch>='a')|(ch<='Z')&&(ch>='A')|(ch>='0')&&(ch<='9') tokenm+=ch; ch=progp+; p-; syn=10; tokenm+='0' for(n=0;n<6;n+)if(strcmp(token,rwtabn)=0) syn=n+1

14、; break; else if(ch>='0')&&(ch<='9') while(ch>='0')&&(ch<='9') sum=sum*10+ch-'0' ch=progp+;p-;syn=11; else switch(ch) case '<':m=0; ch=progp+; if(ch='>') syn=21; else if(ch='=') syn=22; else syn=20; p-;

15、 break;case '>':m=0; ch=progp+; if(ch='=') syn=24; else syn=23; p-; break;case ':':m=0; ch=progp+; if(ch='=') syn=18; else syn=17; p-; break;case '+': syn=13; break;case '-': syn=14; break;case '*': syn=15;break;case '/': syn=16;break;case '(': syn=27;break;case ')': syn=28;break;case '=': syn=25;break;case '': syn=26;break;case '#': syn=0;break;default: syn=-1;break; emit(char *result,char *ag1,char *op,char *ag2) strcpy(quadq.result1,result);strcpy(quadq.ag11,ag1);strcpy(quadq.op1,o