PL0源代码C语言版.docx
- 文档编号:1741237
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:47
- 大小:28.44KB
PL0源代码C语言版.docx
《PL0源代码C语言版.docx》由会员分享,可在线阅读,更多相关《PL0源代码C语言版.docx(47页珍藏版)》请在冰豆网上搜索。
PL0源代码C语言版
/*PL/0编译系统C版本头文件pl0.h*/
#definenorw13//anumberofreservedword/*关键字个数*/
#definetxmax100//lengthofidentifiertable/*名字表容量*/
#definenmax14//maxnumberofdigitsinnumbers/*number的最大位数*/
#defineal10//lengthofidentifier/*符号的最大长度*/
#defineamax2047//maximumaddress/*地址上界*/
#definelevmax3//maxdepthofblocknesting/*最大允许过程嵌套声明层数[0,lexmax]*/
#definecxmax200//sizeofcodearray/*最多的虚拟机代码数*/
/*符号*/
enumsymbol{
nul,ident,number,plus,minus,
times,slash,oddsym,eql,neq,//slash斜线
lss,leq,gtr,geq,lparen,//leq:
lessthanorequalto;gtr:
greatthan;lparen:
leftparenthesis
rparen,comma,semicolon,period,becomes,//comma逗号semicolon分号period句号becomes赋值号
beginsym,endsym,ifsym,thensym,whilesym,
writesym,readsym,dosym,callsym,constsym,
varsym,procsym,
};
#definesymnum32
/*-------------*/
enumobject{//object为三种标识符的类型
constant,
variable,
procedur,
};
/*--------------*/
enumfct{//fct类型分别标识类PCODE的各条指令
lit,opr,lod,sto,cal,inte,jmp,jpc,//书本P23
};
#definefctnum8
/*--------------*/
structinstruction//指令
{
enumfctf;//功能码
intl;//层次差
inta;//P23
};
FILE*fas;//输出名字表
FILE*fa;//输出虚拟机代码
FILE*fa1;//输出源文件及其各行对应的首地址
FILE*fa2;//输出结果
booltableswitch;//显示名字表与否
boollistswitch;//显示虚拟机代码与否
charch;//获取字符的缓冲区,getch使用
enumsymbolsym;//当前符号
charid[al+1];//当前ident,多出一个字节用于存放0
intnum;//当前number
intcc,ll;//getch使用的计数器,cc表示当前字符(ch)的位置
intcx;//虚拟机代码指针,取值范围[0,cxmax-1]
charline[81];//读取行缓冲区
chara[al+1];//临时符号,多出的一个字节用于存放0
structinstructioncode[cxmax];//存放虚拟机代码的数组
charword[norw][al];//保留字
enumsymbolwsym[norw];//保留字对应的符号值
enumsymbolssym[256];//单字符的符号值
charmnemonic[fctnum][5];//虚拟机代码指令名称
booldeclbegsys[symnum];//表示声明开始的符号集合,declaringbeginsymbolset
boolstatbegsys[symnum];//表示语句开始的符号集,statement
boolfacbegsys[symnum];//表示因子开始的符号集合,factor
/*------------------------------*/
structtablestruct
{
charname[al];/*名字*/
enumobjectkind;/*类型:
const,var,arrayorprocedure*/
intval;/*数值,仅const使用*/
intlevel;/*所处层,仅const不使用*/
intadr;/*地址,仅const不使用*/
intsize;/*需要分配的数据区空间,仅procedure使用*/
};
structtablestructtable[txmax];/*名字表*/
FILE*fin;//fin文本文件用于指向输入的源程序文件
FILE*fout;//fout文本文件用于指向输出的文件
charfname[al];
interr;/*错误计数器*/
/*当函数中会发生fatalerror时,返回-1告知调用它的函数,最终退出程序*/
#definegetsymdoif(-1==getsym())return-1
#definegetchdoif(-1==getch())return-1
#definetestdo(a,b,c)if(-1==test(a,b,c))return-1
#definegendo(a,b,c)if(-1==gen(a,b,c))return-1
#defineexpressiondo(a,b,c)if(-1==expression(a,b,c))return-1
#definefactordo(a,b,c)if(-1==factor(a,b,c))return-1
#definetermdo(a,b,c)if(-1==term(a,b,c))return-1
#defineconditiondo(a,b,c)if(-1==condition(a,b,c))return-1
#definestatementdo(a,b,c)if(-1==statement(a,b,c))return-1
#defineconstdeclarationdo(a,b,c)if(-1==constdeclaration(a,b,c))return-1
#definevardeclarationdo(a,b,c)if(-1==vardeclaration(a,b,c))return-1
voiderror(intn);
intgetsym();
intgetch();
voidinit();
intgen(enumfctx,inty,intz);
inttest(bool*s1,bool*s2,intn);
intinset(inte,bool*s);
intaddset(bool*sr,bool*s1,bool*s2,intn);
intsubset(bool*sr,bool*s1,bool*s2,intn);
intmulset(bool*sr,bool*s1,bool*s2,intn);
intblock(intlev,inttx,bool*fsys);
voidinterpret();
intfactor(bool*fsys,int*ptx,intlev);
intterm(bool*fsys,int*ptx,intlev);
intcondition(bool*fsys,int*ptx,intlev);
intexpression(bool*fsys,int*ptx,intlev);
intstatement(bool*fsys,int*ptx,intlev);
voidlistcode(intcx0);
intvardeclaration(int*ptx,intlev,int*pdx);
intconstdeclaration(int*ptx,intlev,int*pdx);
intposition(char*idt,inttx);
voidenter(enumobjectk,int*ptx,intlev,int*pdx);
intbase(intl,int*s,intb);
//A.2C版本
/*编译和运行环境:
*1VisualC++6.0,VisualC++.NETandVisualC++.NET2003
*WinNT,Win200,WinXPandWin2003
*2gccversion3.3.220031022(RedHatLinux3.3.2-1)
*RedhatFedoracore1
*Intel32platform
*使用方法:
*运行后输入PL/0源程序文件名
*回答是否输出虚拟机代码
*回答是否输出名字表
*fa.tmp输出虚拟机代码
*fa1.tmp输出源文件及其各行对应的首地址
*fa2.tmp输出结果
*fas.tmp输出名字表
*/
#include
#include"pl0.h"
#include"string.h"
/*解释执行时使用的栈*/
#definestacksize500
intmain()
{
boolnxtlev[symnum];
printf("Inputpl/0file?
");
scanf("%s",fname);/*输入文件名*/
fin=fopen(fname,"r");//返回值:
文件顺利打开后,指向该流的文件指针就会被返回。
如果文件打开失败则返回NULL,并把错误代码存在errno中
if(fin)
{
printf("Listobjectcode?
(Y/N)");/*是否输出虚拟机代码*/
scanf("%s",fname);
listswitch=(fname[0]=='y'||fname[0]=='Y');
printf("Listsymboltable?
(Y/N)");/*是否输出名字表*/
scanf("%s",fname);
tableswitch=(fname[0]=='y'||fname[0]=='Y');
fa1=fopen("fa1.tmp","w");
fprintf(fa1,"Iputpl/0file?
");
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,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- PL0 源代码 语言版