主题：哪位帅哥帮帮忙啊，做pl/0的此法扩充啊(有源码）
xiaodog
[专家分：0] 发布于 2007-12-21 02:12:00
目的：在分析理解一个教学型编译程序（如PL/0）的基础上，对其词法分析程序、语法分析程序和语义处理程序进行部分修改扩充。达到进一步了解程序编译过程的基本原理和基本实现方法的目的。
要求：对PL/0作以下修改扩充：
基本内容：
（1）增加单词：保留字 ELSE，FOR，TO, DOWNTO；运算符
+=，-=
（2）修改单词：不等号# 改为 <>
（3）增加条件语句的ELSE子句
还有一个是：
基本内容（成绩范围：“中”、“及格”或“不及格”）
（1）扩充赋值运算：+= 和 -=
（2）扩充语句（Pascal的FOR语句）:
① FOR <变量>:=<表达式> TO <表达式> DO <语句>
② FOR <变量>:=<表达式> DOWNTO <表达式> DO <语句>
其中，语句①的循环变量的步长为1，
语句②的循环变量的步长为-1。
上面2个分开做，谢谢了！！！！！！
下面是PL/O源码;
最后更新于：2007-12-21 02:19:00
21 楼
xiaodog [专家分：0] 发布于 2007-12-21 02:46:00
struct tablestruct
{
char name[al]; /*名字*/
enum object kind; /*类型：const，var，array or procedure*/
int val; /*数值，仅const使用*/
int level; /*所处层，仅const不使用*/
int adr; /*地址，仅const不使用*/
int size; /*需要分配的数据区空间，仅procedure使用*/
};
struct tablestruct table[txmax]; /*名字表*/
FILE * fin;
FILE* fout;
char fname[al];
int err; /*错误计数器*/
/*当函数中会发生fatal error时，返回－1告知调用它的函数，最终退出程序*/
#define getsymdo if(-1==getsym())return -1
#define getchdo if(-1==getch())return -1
#define testdo(a,b,c) if(-1==test(a,b,c))return -1
#define gendo(a,b,c) if(-1==gen(a,b,c))return -1
#define expressiondo(a,b,c) if(-1==expression(a,b,c))return -1
#define factordo(a,b,c) if(-1==factor(a,b,c))return -1
#define termdo(a,b,c) if(-1==term(a,b,c))return -1
#define conditiondo(a,b,c) if(-1==condition(a,b,c))return -1
#define statementdo(a,b,c) if(-1==statement(a,b,c))return -1
#define constdeclarationdo(a,b,c) if(-1==constdeclaration(a,b,c))return -1
#define vardeclarationdo(a,b,c) if(-1==vardeclaration(a,b,c))return -1
void error(int n);
int getsym();
int getch();
void init();
int gen(enum fct x,int y,int z);
int test(bool*s1,bool*s2,int n);
int inset(int e,bool*s);
int addset(bool*sr,bool*s1,bool*s2,int n);
int subset(bool*sr,bool*s1,bool*s2,int n);
int mulset(bool*sr,bool*s1,bool*s2,int n);
int block(int lev,int tx,bool* fsys);
void interpret();
int factor(bool* fsys,int* ptx,int lev);
int term(bool*fsys,int*ptx,int lev);
int condition(bool*fsys,int*ptx,int lev);
int expression(bool*fsys,int*ptx,int lev);
int statement(bool*fsys,int*ptx,int lev);
void listcode(int cx0);
int vardeclaration(int* ptx,int lev, int* pdx);
int constdeclaration(int* ptx,int lev, int* pdx);
int position(char* idt,int tx);
void enter(enum object k,int* ptx,int lev,int* pdx);
int base(int l,int* s,int b);
您所在位置：