《编译原理》课程
实验报告
题目 PL/0编译程序的C语言扩充 专业 化学工程与工艺 班级 学号 姓名 任课教师
华东理工大学信息学院
一．实验题目
PL/0编译程序的C语言扩充
二．实验目的
在分析理解PL/0编译程序的基础上，对其词法分析程序、语法分析程序和语义处理程序进行部分修改扩充。
三．实验内容
在PL/0语言的基础上增加对整型一维数组的支持、扩充IF-THEN-ELSE条件语句、增加REPEAT语句、支持带参数的过程和增加注释等，如下所示： (1)整型一维数组，数组的定义格式为： VAR<数组标识名>(<下界>:<上界>)
其中上界和下界可以是整数或者常量标识名。
访问数组元素的时候，数组下表是整型的表达式，包括整数、常量或者变量和他们的组合。 (2)扩充条件语句，格式为：
<条件语句> ::= EF<条件>THEN<语句> [ELSE<语句>] (3)增加REPEAT语句，格式为：
<复合语句> ::= REPEAT<语句>UNTL<条件>
四．实验过程
（1）PL/0编译程序的C语言源代码输入
（2）运行PL/0编译程序的C语言源代码，调试运行PL/0编译程序 （3）对PL/0编译程序进行功能扩充
（4）PL/0编译程序功能扩充部分的分析与设计 （5）对PL/0编译程序进行功能扩充，即编写代码 （6）进行PL/0编译程序功能扩充部分的运行调试 （7）完成实验报告总结
五．PL/0编译程序的功能扩充程序说明
（1）扩充赋值运算:+=,-=.此功能扩充只需在语句分析里面进行增加如下程序：
if(SYM==BECOMES||SYM==PLUSBECOMES||SYM==MINUSBECOMES){ if (SYM==BECOMES) {
GetSym();
EXPRESSION(FSYS,LEV,TX); } else
if(SYM==PLUSBECOMES||SYM==MINUSBECOMES) {
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); if(SYM==PLUSBECOMES){ GetSym();
FACTOR(FSYS,LEV,TX); GEN(OPR,0,2);
} else
if(SYM==MINUSBECOMES){ GetSym();
FACTOR(FSYS,LEV,TX); GEN(OPR,0,3); } } if (i!=0)
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); }
（2）扩充FOR TO和FOR DOWNTO语句,此功能的关键是如何判断条件是否成立,并如何进行程序跳转.在这里用到了几条指令,和地址回填技术.扩充程序如下:
case FORSYM:
GetSym();
if(SYM!=IDENT)Error(31); //FOR后面要标识符 i=POSITION(ID,TX); if (i==0) Error(11); else
if (TABLE[i].KIND!=VARIABLE) { /*ASSIGNMENT TO NON-VARIABLE*/ Error(12); //变量 }
GetSym();
if(SYM!=BECOMES)
Error(13); GetSym();
EXPRESSION(SymSetUnion(SymSetNew(TOSYM,DOWNTOSYM,DOSYM),FSYS),LEV,TX);//表达式 if(SYM==DOWNTOSYM)
CX1=CX;
GetSym();
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//保存结果至变量单元
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//重新调入栈顶
EXPRESSION(SymSetAdd(DOSYM,FSYS),LEV,TX);//表达式 GEN(OPR,0,11);//判断运算 CX2=CX;
GEN(JPC,0,0);//如果栈顶非真跳转
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);///重新调入栈顶
GEN(LIT,0,1) ;//送1到栈顶 GEN(OPR,0,3); //减运算 if(SYM==DOSYM){ GetSym();
STATEMENT(FSYS,LEV,TX);
}
GEN(JMP,0,CX1); CODE[CX2].A=CX; }
else if(SYM==TOSYM) {
CX1=CX;GetSym();
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //保存结果至变量单元
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); /重新调入栈顶 EXPRESSION(SymSetAdd(DOSYM,FSYS),LEV,TX);//表达式分析 GEN(OPR,0,13);//判断运算 CX2=CX;
GEN(JPC,0,0);//如果栈顶非真跳转
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); GEN(LIT,0,1); GEN(OPR,0,2); if(SYM==DOSYM){ GetSym();
STATEMENT(FSYS,LEV,TX);
}
GEN(JMP,0,CX1);
CODE[CX2].A=CX;//回填地址 }
else Error(35);
break;
(3) 增加条件语句的ELSE子
ELSE语句的语法语义分析程序：
case IFSYM:
GetSym();
CONDITION(SymSetUnion(SymSetNew(THENSYM,DOSYM),FSYS),LEV,TX); if (SYM==THENSYM) GetSym(); else Error(16);
CX1=CX; GEN(JPC,0,0); STATEMENT(FSYS,LEV,TX);
CX2=CX; GEN(JMP,0,CX+1); CODE[CX1].A=CX;
if (SYM==SEMICOLON) GetSym(); if(SYM==ELSESYM) {
GetSym();
STATEMENT(FSYS,LEV,TX);