没有合适的资源?快使用搜索试试~ 我知道了~
PL0源代码(C语言版) (3).docx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 198 浏览量
2022-10-30
17:48:40
上传
评论
收藏 198KB DOCX 举报
温馨提示
试读
33页
。。。
资源推荐
资源详情
资源评论
/*关键字个数*/
/*名字表容量*/
/*number 的最大位数*/
//max number of digits in numbers
/*符号的最大长度*/
/*地址上界*/
/*最大允许过程嵌套声明层数
/*最多的虚拟机代码数*/
plus,
minus,
rparen, comma,
writesym, readsym, dosym, callsym, constsym,
};
/*-------------*/
};
/*--------------*/
enum fct{ //fct 类型分别标识类 PCODE 的各条指令
};
enum fct f; //功能码
//层次差
//P23
};
FILE * fas; //输出名字表
FILE * fa; //输出虚拟机代码
bool tableswitch;
bool listswitch;
char ch;
//显示名字表与否
//显示虚拟机代码与否
enum symbol sym;
char id[al+1];
int num;
//当前 ident,多出一个字节用于存放 0
//当前 number
//getch 使用的计数器,cc 表示当前字符(ch)的位置
//虚拟机代码指针,取值范围[0,cxmax-1]
//读取行缓冲区
//保留字
//保留字对应的符号值
//单字符的符号值
struct tablestruct
{
char name[al];
/*所处层,仅 const 不使用*/
/*地址,仅 const 不使用*/
/*需要分配的数据区空间,仅 procedure 使
用*/
};
struct tablestruct table[txmax];
/*名字表*/
FILE * fin;
FILE* fout;
char fname[al];
int err;
//fin 文本文件用于指向输入的源程序文件
//fout 文本文件用于指向输出的文件
/*错误计数器*/
#define getchdo
if(-1==getch())return -1
if(-1==test(a,b,c))return -1
if(-1==gen(a,b,c))return -1
if(-1==expression(a,b,c))return -1
if(-1==factor(a,b,c))return -1
if(-1==term(a,b,c))return -1
#define conditiondo(a,b,c)
//A.2
C
版
本
/*编译和运行环境:
*运行后输入 PL/0 源程序文件名
*回答是否输出虚拟机代码
*回答是否输出名字表
*fa.tmp 输出虚拟机代码
*fa1.tmp 输出源文件及其各行对应的首地址
*fa2.tmp 输出结果
#include<stdio.h>
#include"pl0.h"
#include"string.h"
{
printf("Input pl/0 file ?");
scanf("%s",fname);
如果文件打开失败则返回 NULL,并把错误代码存在 errno 中
printf("List object code ?(Y/N)");
scanf("%s",fname);
/*是否输出虚拟机代码*/
/*是否输出名字表*/
/*初始化*/
err=0;
//错误计数器置 0
cc=cx=ll=0;
ch=' ';
addset(nxtlev,declbegsys,statbegsys,symnum);
nxtlev[period]=true;
if(-1==block(0,0,nxtlev))
/*调用编译程序*/
{
}
if(sym!=period)
{
}
{
}
else
{
}
}
else
{
printf("Can't open file! \n");
}
printf("\n");
return 0;
}
/*
*初始化
剩余32页未读,继续阅读
资源评论
G11176593
- 粉丝: 6689
- 资源: 3万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功