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:leftparenthesisrparen,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,多出一个字节用于存放0intnum;//当前numberintcc,ll;//getch使用的计数器,cc表示当前字符(ch)的位置intcx;//虚拟机代码指针，取值范围[0,cxmax-1]charline[81];//读取行缓冲区chara[al+1];//临时符号，多出的一个字节用于存放0structinstructioncode[cxmax];//存放虚拟机代码的数组charword[norw][al];//保留字enumsymbolwsym[norw];//保留字对应的符号值enumsymbolssym[256];//单字符的符号值charmnemonic[fctnum][5];//虚拟机代码指令名称booldeclbegsys[symnum];//表示声明开始的符号集合,declaringbeginsymbolsetboolstatbegsys[symnum];//表示语句开始的符号集,statementboolfacbegsys[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-1voiderror(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输出名字表*/#includestdio.h#includepl0.h#includestring.h/*解释执行时使用的栈*/#definestacksize500intmain(){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;//错误计数器置0cc=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);return0;}fclose(fa);fclose(fa1);fclose(fas);if(sym!=period){error(9);}if(err==0){fa2=fopen(fa2.tmp,w);interpret();fclose(fa2);}else{printf(Errorsinpl/0program);}}fclose(fin);}else{printf(Can'topenfile!\n);}printf(\n);return0;}/**初始化*/voidinit(){inti;for(i=0;i=255;i++){ssym[i]=nul;//ssym：单字符的符号值}ssym['+']=plus;ssym['-']=minus;ssym['*']=times;ssym['/']=slash;ssym['(']=lparen;ssym[')']=rparen;ssym['=']=eql;ssym[',']=comma;ssym['.']=period;ssym['#']=neq;ssym[';']=semicolon;/*设置保留字名字,按照字母顺序,便于折半查找*/strcpy(&(word[0][0]),begin);strcpy(&(word[1][0]),call);strcpy(&(word[2][0]),const);strcpy(&(word[3][0]),do);strcpy(&(word[4][0]),end);strcpy(&(word[5][0]),if);str