没有合适的资源?快使用搜索试试~ 我知道了~
PL0源代码(C语言版) (2).pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 158 浏览量
2022-11-14
21:35:07
上传
评论
收藏 772KB PDF 举报
温馨提示
试读
33页
。。。
资源推荐
资源详情
资源评论
.
/*PL/0 编译系统 C 版本头文件 pl0.h*/
# define norw 13 //a number of reserved word /*关键字个数*/
# define txmax 100 //length of identifier table /*名字表容量*/
# define nmax 14 //max number of digits in numbers /*number 的最大位
数*/
# define al 10 //length of identifier /*符号的最大长度*/
# define amax 2047 //maximum address /*地址上界*/
# define levmax 3 //max depth of block nesting /*最大允许过程嵌套声明
层数[0,lexmax]*/
# define cxmax 200 //size of code array /*最多的虚拟机代码数*/
/*符号*/
enum symbol{
nul, ident, number, plus, minus,
times, slash, oddsym, eql, neq, //slash 斜线
lss, leq, gtr, geq, lparen, //leq :less than or equal to; gtr: great
than;lparen:left parenthesis
rparen, comma, semicolon,period, becomes,//comma 逗号 semicolon 分号 period 句
号 becomes 赋值号
beginsym, endsym, ifsym, thensym, whilesym,
writesym, readsym, dosym, callsym, constsym,
varsym, procsym,
};
#define symnum 32
/*-------------*/
enum object{ //object 为三种标识符的类型
constant,
variable,
procedur,
};
/*--------------*/
enum fct{ //fct 类型分别标识类 PCODE 的各条指令
lit, opr, lod, sto, cal, inte, jmp, jpc, //书本 P23
};
#define fctnum 8
/*--------------*/
struct instruction //指令
{
enum fct f; //功能码
int l; //层次差
int a; //P23
};
.
.
FILE * fas; //输出名字表
FILE * fa; //输出虚拟机代码
FILE * fa1; //输出源文件及其各行对应的首地址
FILE * fa2; //输出结果
bool tableswitch; //显示名字表与否
bool listswitch; //显示虚拟机代码与否
char ch; //获取字符的缓冲区,getch 使用
enum symbol sym; //当前符号
char id[al+1]; //当前 ident,多出一个字节用于存放 0
int num; //当前 number
int cc,ll; //getch 使用的计数器,cc 表示当前字符(ch)的位置
int cx; //虚拟机代码指针,取值范围[0,cxmax-1]
char line[81]; //读取行缓冲区
char a[al+1]; //临时符号,多出的一个字节用于存放 0
struct instruction code[cxmax]; //存放虚拟机代码的数组
char word[norw][al]; //保留字
enum symbol wsym[norw]; //保留字对应的符号值
enum symbol ssym[256]; //单字符的符号值
char mnemonic[fctnum][5]; //虚拟机代码指令名称
bool declbegsys[symnum]; //表示声明开始的符号集合 ,declaring begin symbol
set
bool statbegsys[symnum]; //表示语句开始的符号集 , statement
bool facbegsys[symnum]; //表示因子开始的符号集合 ,factor
/*------------------------------*/
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; //fin 文本文件用于指向输入的源程序文件
FILE* fout; //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);
.
.
//A.2 C 版 本
/*编译和运行环境:
*1Visual C++6.0,VisualC++.NET and Visual C++.NET 2003
*WinNT, Win 200, WinXP and Win2003
*2 gcc version 3.3.2 20031022(Red Hat Linux 3.3.2-1)
*Redhat Fedora core 1
*Intel 32 platform
*使用方法:
*运行后输入 PL/0 源程序文件名
*回答是否输出虚拟机代码
*回答是否输出名字表
*fa.tmp 输出虚拟机代码
*fa1.tmp 输出源文件及其各行对应的首地址
*fa2.tmp 输出结果
*fas.tmp 输出名字表
*/
#include<stdio.h>
#include"pl0.h"
#include"string.h"
/*解释执行时使用的栈*/
#define stacksize 500
int main()
{
bool nxtlev[symnum];
printf("Input pl/0 file ?");
scanf("%s",fname); /*输入文件名*/
fin=fopen(fname,"r"); //返回值:文件顺利打开后,指向该流的文件指针就会被返回。
如果文件打开失败则返回 NULL,并把错误代码存在 errno 中
if(fin)
{
printf("List object code ?(Y/N)"); /*是否输出虚拟机代码*/
scanf("%s",fname);
listswitch=(fname[0]=='y'||fname[0]=='Y');
printf("List symbol table ? (Y/N)"); /*是否输出名字表*/
scanf("%s",fname);
tableswitch=(fname[0]=='y'||fname[0]=='Y');
fa1=fopen("fa1.tmp","w");
fprintf(fa1,"Iput pl/0 file ?");
fprintf(fa1,"%s\n", fname);
init(); /*初始化*/
err=0; //错误计数器置 0
.
.
}
cc=cx=ll=0;
ch=' ';
if(-1!=getsym())
{
fa=fopen("fa.tmp","w");
fas=fopen("fas.tmp","w");
addset(nxtlev,declbegsys,statbegsys,symnum);
nxtlev[period]=true;
if(-1==block(0,0,nxtlev)) /*调用编译程序*/
{
fclose(fa);
fclose(fa1);
fclose(fas);
fclose(fin);
printf("\n");
return 0;
}
fclose(fa);
fclose(fa1);
fclose(fas);
if(sym!=period)
{
error(9);
}
if(err==0)
{
fa2=fopen("fa2.tmp", "w");
interpret();
fclose(fa2);
}
else
{
printf("Errors in pl/0 program");
}
}
fclose(fin);
}
else
{
printf("Can't open file! \n");
}
printf("\n");
return 0;
.
剩余32页未读,继续阅读
资源评论
G11176593
- 粉丝: 6674
- 资源: 3万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功