编译原理上机实验报告.docx
《编译原理上机实验报告.docx》由会员分享,可在线阅读,更多相关《编译原理上机实验报告.docx(17页珍藏版)》请在冰豆网上搜索。
编译原理上机实验报告
《编译原理》
课内实验报告
学院计算机学院
专业计算机科学与技术
年级班别2012级6班
学号3112006028
学生姓名曾主赐
辅导教师刘添添
成绩
2014年12月
一.完成内容
1.扩充单词:
(1)保留字:
for,step,until,char,real,return;
(2)双字符:
*=,/=;
(3)单字符:
[,],*,/;
2.扩充语句:
vara;
begin
a:
=1;
do
a:
=a+1
whilea<5;
write(a);
end.
二.设计思路
1.扩充单词
1)修改变量定义:
voidinit()
{
inti;
for(i=0;i<=255;i++)
{
ssym[i]=nul;
}
ssym['+']=plus;
ssym['-']=minus;
ssym['*']=times;
ssym['/']=slash;
ssym['(']=lparen;
ssym[')']=rparen;
ssym['=']=eql;
ssym[',']=comma;
ssym['.']=period;
ssym['#']=neq;
ssym[';']=semicolon;
ssym['[']=l1;
ssym[']']=r1;
/*设置保留字名字,按照字母顺序,便于折半查找*/
strcpy(&(word[0][0]),"begin");
strcpy(&(word[1][0]),"call");
strcpy(&(word[2][0]),"char");
strcpy(&(word[3][0]),"const");
strcpy(&(word[4][0]),"do");
strcpy(&(word[5][0]),"end");
strcpy(&(word[6][0]),"for");
strcpy(&(word[7][0]),"if");
strcpy(&(word[8][0]),"odd");
strcpy(&(word[9][0]),"procedure");
strcpy(&(word[10][0]),"read");
strcpy(&(word[11][0]),"real");
strcpy(&(word[12][0]),"return");
strcpy(&(word[13][0]),"step");
strcpy(&(word[14][0]),"then");
strcpy(&(word[15][0]),"until");
strcpy(&(word[16][0]),"var");
strcpy(&(word[17][0]),"while");
strcpy(&(word[18][0]),"write");
/*设置保留字符号*/
wsym[0]=beginsym;
wsym[1]=callsym;
wsym[2]=charsym;
wsym[3]=constsym;
wsym[4]=dosym;
wsym[5]=endsym;
wsym[6]=forsym;
wsym[7]=ifsym;
wsym[8]=oddsym;
wsym[9]=procsym;
wsym[10]=readsym;
wsym[11]=realsym;
wsym[12]=returnsym;
wsym[13]=stepsym;
wsym[14]=thensym;
wsym[15]=untilsym;
wsym[16]=varsym;
wsym[17]=whilesym;
wsym[18]=writesym;
修改pl0.h头文件里定义的全局数据:
#definenorw19/*关键字个数*/
#definetxmax100/*名字表容量*/
#definenmax14/*number的最大位数*/
#defineal10/*符号的最大长度*/
#defineamax2047/*地址上界*/
#definelevmax3/*最大允许过程嵌套声明层数[0,lexmax]*/
#definecxmax200/*最多的虚拟机代码数*/
/*符号*/
enumsymbol{
nul,ident,number,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,forsym,stepsym,untilsym,
charsym,realsym,returnsym,p,q,l1,r1
};
#definesymnum42
/*-------------*/
2)修改GetSym()方法:
/*词法分析,获取一个符号*/
intgetsym()
{
inti,j,k;
while(ch==''||ch==10||ch==9)
{
getchdo;
}
if(ch>='a'&&ch<='z')
{
k=0;
do{
if(k{
a[k]=ch;
k++;
}
getchdo;
}while(ch>='a'&&ch<='z'||ch>='0'&&ch<='9');
a[k]=0;
strcpy(id,a);
i=0;
j=norw-1;
do{
k=(i+j)/2;
if(strcmp(id,word[k])<=0)
{
j=k-1;
}
if(strcmp(id,word[k])>=0)
{
i=k+1;
}
}while(i<=j);
if(i-1>j)
{
sym=wsym[k];
printf("保留字\n");
}
else
{
sym=ident;
printf("标识符\n");
}
}
else
{
if(ch>='0'&&ch<='9')
{
k=0;
num=0;
sym=number;
do{
num=10*num+ch-'0';
k++;
getchdo;
}while(ch>='0'&&ch<='9');/*获取数字的值*/
k--;
if(k>nmax)
{
error(30);
}
}
else
{
if(ch==':
')/*检测赋值符号*/
{
getchdo;
if(ch=='=')
{
sym=becomes;
printf(":
=\n");
getchdo;
}
else
{
sym=nul;/*不能识别的符号*/
printf("\n");
}
}
else
if(ch=='*')/*xiugai*/
{
getchdo;
if(ch=='=')
{
sym=p;
printf("*=\n");
getchdo;
}
else
{
sym=times;
printf("*\n");
getchdo;
}
}
else
if(ch=='/')
{
getchdo;
if(ch=='=')
{
sym=q;
printf("/=\n");
getchdo;
}
else
{
sym=slash;
printf("/\n");
getchdo;
}
}
else
{
if(ch=='<')/*检测小于或小于等于符号*/
{
getchdo;
if(ch=='=')
{
sym=leq;
printf("<=\n");
getchdo;
}
else
{
sym=lss;
printf("<\n");
}
}
else
{
if(ch=='>')/*检测大于或大于等于符号*/
{
getchdo;
if(ch=='=')
{
sym=geq;
printf(">=\n");
getchdo;
}
else
{
sym=gtr;
printf(">\n");
}
}
else
{
sym=ssym[ch];/*当符号不满足上述条件时,全部按照单字符号处理*/
printf("单字符\n");
//getchdo;
//richard
if(sym!
=period)
{
getchdo;
}
//endrichard
}
}
}
}
}
return0;
}
2.扩充语句
1)产生式以及语法描述图:
产生式:
a:
=1doa:
=a+1whilea<5
语法描述图:
2)递归下降子程序:
if(sym==dosym)
{
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
nxtlev[whilesym]=true;
statementdo(fsys,ptx,lev);
if(sym==whilesym)
{
getsymdo;
conditiondo(nxtlev,ptx,lev);
}
else
{
error(18);
}
3)举例设计语句的pcode代码:
vara;
begin
a:
=1;
do
a:
=a+1
whilea<5;
write(a);
end.
1int04
2int01
3sto03
4lod03
5lit01
6opr02
7sto03
8lod03
9lit05
10opr010
11jpc013
12jmp04
13lod03
14opr014
15opr015
16opr00
4)在递归下降子程序中增加语义动作:
if(sym==dosym)
{
cx1=cx;
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
nxtlev[whilesym]=true;
statementdo(fsys,ptx,lev);
if(sym==whilesym)
{
getsymdo;
conditiondo(nxtlev,ptx,lev);
cx2=cx;
gendo(jpc,0,0);
gendo(jmp,0,cx1);
code[cx2].a=cx;
}
else
{
error(18);
}
三.运行测试
1.扩充单词的测试(贴运行结果截图)
ps:
测试情况要全!
图片大小合适!
截图如下所示:
2.语句的测试(贴运行结果截图)
截图如下所示:
四.心得
归纳完成过程的心得: