cde.rar.rar_math.h

#include <stdio.h> #include "pl0c.h" #include "string.h" #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; typedef enum {false,true} bool; /* 符号 */ enum symbol {nul,ident,number,plus,minus,times,slash,oddsym,eql,neq,lss,leq,gtr,geq,lparen,rparen,comma,semicolon,period,becomes,beginsym,endsym,ifsym,thensym,whilesym,writesym,readsym,dosym,callsym,constsym,varsym,procsym}; #define symnum 32 /* 名字表中的类型 */ enum object {constant,variable,procedur}; /* 虚拟机代码 */ enum fct {lit,opr,lod,sto,cal,inte,jmp,jpc}; #define fctnum 8 /* 虚拟机代码结构 */ struct instruction { enum fct f; int l; int a; }; FILE* fas; FILE* fa; FILE* fa1; FILE* fa2; bool listswitch; bool tableswitch; char ch; enum symbol sym; char id[al]; int num; int cc,ll,kk; int cx; char line[81]; char a[al]; struct instruction code[cxmaxadd1]; char word[norw][al]; nrow=13 enum symbol wsym[norw]; enum symbol ssym[256]; char mnemonic[fctnum][5]; bool declbegsys[symnum]; bool statbegsys[symnum]; bool facbegsys[symnum]; struct tablestruct { char name[al]; enum object kind; int val; int level; int adr; int size; }; struct tablestruct table[txmaxadd1]; FILE* fin; FILE* fout; char fname[al]; int err; 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 postion(char* idt,int tx); void enter(enum object k,int* ptx,int lev,int* pdx); int base(int l,int* s,int b); #define stacksize 500 int main() { bool nxtlev[symnum]; init(); fas=fopen("fas.tmp","w"); fa1=fopen("fa1.tmp","w"); printf("Input file? "); fprintf(fa1,"Input file? "); scanf("%s",fname); fin=fopen(fname,"r"); if(fin) { fprintf(fa1,"%s\n",fname); 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'); err=0; cc=cx=ll=0; ch=' '; kk=al-1; if(-1!=getsym()) { fa=fopen("fa.tmp","w"); fa2=fopen("fa2.tmp","w"); addset(nxtlev,declbegsys,statbegsys,symnum); nxtlev[period]=true; //nxtlev[‘.’]=true; if(-1==block(0,0,nxtlev)) { fclose(fa); fclose(fa1); fclose(fin); printf("\n"); return 0; } fclose(fa); fclose(fa1); if(sym!=period)error(9); if(err==0)interpret(); else { printf("Errors in pl/0 program"); } } fclose(fin); } else { printf("Can't open file!\n"); fprintf(fa1,"Can't open file!\n"); fclose(fa1); } fclose(fas); printf("\n"); return 0; } void error(int n) { char space[81]; memset(space,32,81); space[cc-1]=0; /* 出错时当前符号已经读完，所以cc-1 */ printf("****%s!%d\n",space,n); fprintf(fa1,"****%s!%d\n",space,n); err++; } /* 词法分析，获取一个符号 */ int getsym() { int i,j,k; while(ch==' '||ch==10||ch==9) /* 忽略空格、换行和TAB */ { getchdo; } if(ch>='a'&&ch<='z') { k=0; do { if(k<al) { a[k]=ch; k++; } getchdo; } while(ch>='a'&&ch<='z'||ch>='0'&&ch<='9'); a[k]=0; strcpy(id,a); i=0; j=norw-1; do { k=(i+j)/2; if(strcmp(id,word[k])<=0)j=k-1; if(strcmp(id,word[k])>=0)i=k+1; } while(i<=j); if(i-1>j)sym=wsym[k]; else sym=ident; } else { if(ch>='0'&&ch<='9') { /* 检测是否为数字：以0..9开头 */ k=0; num=0; sym=number; do { num=10*num+ch-'0'; k++; getchdo; } while(ch>='0'&&ch<='9'); k--; if(k>nmax)error(30); } else { if(ch==':') { getchdo; if(ch=='=') { sym=becomes; getchdo; } else { sym=nul; / } } else { if(ch=='<') { getchdo; if(ch=='=') { sym=leq; getchdo; } else { sym=lss; } } else { if(ch=='>') { getchdo; if(ch=='=') { sym=geq; getchdo; } else { sym=gtr; } } else { sym=ssym[ch]; getchdo; } } } } } return 0; } int gen(enum fct x, /* f */ int y, /* l */ int z /* a */ ) { if(cx>cxmax) { printf("Program too long"); return -1; } code[cx].f=x; code[cx].l=y; code[cx].a=z; cx++; return 0; } /* 在某一部分（如一条语句，一个表达式）将要结束时时我们希望下一个符号属于某集合（该部分的后跟符号），test负责这项监测，并且负责当监测不通过时的补救措施，程序在需要检测时指定当前需要的符 号集合和补救用的集合（如之前未完成部分的后跟符号），以及检测不通过时的错误号 */ 调用示例: testdo(nxtlev,declbegsys,7); testdo(facbegsys,fsys,24); testdo(fsys,nxtlev,8); int test(bool* s1, /* 我们需要的符号 */ bool* s2, /* 如果不是我们需要的，则需要一个补救用的集合 */ int n) /* 错误号 */ { if(!inset(sym,s1)) //s1[sym] { error(n); /* 当检测不通过时，不停获取符号，直到它属于需要的集合或补救的集合 */ while((!inset(sym,s1))&&(!inset(sym,s2))) { getsymdo; } } return 0; } Main函数调用为:block(0,0,nxtlev) 再次调用为: block(lev+1,tx,nxtlev) /* 编译程序主体 */ int block(int lev, /* 当前分程序所在层 */ int tx, /* 名字表当前尾指针 */ bool* fsys /* 当前模块后跟符号集合 */ ) { int i; int dx; /* 名字分配到的相对地址 */ int tx0; /* 保留初始tx */ int cx0; /* 保留初始cx */ bool nxtlev[symnum]; /* 在下级函数的参数中，符号集合均为值参，但由于使用数租实现， 传递进来的是指针，为防止下级函数改变上级函数的集合，开辟新的空间 传递给下级函数，之后所有的nxtlev都是这样 */ dx=3; tx0=tx; /* 记录本层名字的初始位置 */ table[tx].adr=cx; gendo(jmp,0,0); if(lev>levmax)error(32); do { if(sym==constsym) /* 收到常量声明符号，开始处理常量声明 */ { getsymdo; do { constdeclarationdo(&tx,lev,&dx); /* dx的值会被constdeclaration改变，使用指针 */ while(sym==comma) { getsymdo; constdeclarationdo(&tx,lev,&dx); } if(sym==semicolon) { getsymdo; } else error(5); } while(sym==ident); } if(sym==varsym) /* 收到变量声明符号，开始处理变量声明 */ { getsymdo; do { vardeclarationdo(&tx,lev,&dx); while(sym==comma) { getsymdo; vardeclarationdo(&tx,lev,&dx); } if(sym==semicolon) { getsymdo; } else error(5); } while(sym==ident); } while(sym==procsym) /* 收到过程声明符号，开始处理过程声明 */ { getsymdo; if(sym==ident) { enter(procedur,&tx,lev,&dx); /* 记录过程名字 */ getsymdo; } else error(4); /* procedure后应为标�