编译原理--增加数据类型.doc

/pl0.h/这个文件中的代码与课本的一致/对于使用C+的编译器，这句话可以注释掉，但对于C语言不行/typedef enum FALSE,TRUE, bool;#define norw 16/关键字的个数#define txmax 100/名字表的容量#define nmax 14/数字的最大位数#define al 10/符号的最大长度#define amax 2047/地址上界#define levmax 3/最大允许的嵌套声明层数#define cxmax 200/最多的虚拟机代码数enum symbol /枚举类型： /nul=0，ident=1，number=2，plus=3，minus=4 /times=5，依次类推，procsym=31 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, integersym,charactersym,doubsym, charnum,integercon,doubnum;#define symnum 38enum object constant, variable, procedur,integer,character,doub,;enum fct lit, opr, lod, sto, cal, inte, jmp, jpc, ;#define fctnum 11struct instruction enum fct f;/虚拟机代码指令 int l;/引用层与声明层的层差 double a;/根据f的不同而不同，参考课本;FILE* fas;/输出名字表FILE* fa;/输出虚拟机代码FILE* fa1;/输出源文件及其各行对应的首地址FILE* fa2;/输出结果bool listswitch;bool tableswitch;char ch;/获取字符的缓冲区enum symbol sym;char idal+1;double num;int cc,ll;/cc表示当前字符的位置int cx;/虚拟机代码指针char line81;/读取行缓冲区char aal+1;/临时符号，多出的一个字节用于表示字符串的结尾struct instruction code cxmax;/存放虚拟机代码的数组char wordnorwal;/保留字enum symbol wsymnorw;/保留字对应的符号值enum symbol ssym256;/单符号的符号值char mnemonic fctnum5;/虚拟机代码指令的名称bool declbegsyssymnum;/表示声明开始的符号集合bool statbegsyssymnum;/表示语句开始的符号集合bool facbegsyssymnum;/表示因子开始的符号集合/名字表结构struct tablestruct char nameal;/名字 /enum datatype type;/数据类型：integer,character,doub, enum object kind;/类型：const,var,array,procedure double val;/数值，仅const使用,使用双精度浮点型 int level;/所处层 int adr;/地址 int size;/需分配的数据空间; struct tablestruct tabletxmax;/名字表 FILE* fin; FILE* fout; char fnameal; int err;/错误计数器，每出一次错误，其加一#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_r(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#define integerdeclarationdo(a,b,c) if(-1=integerdeclaration(a,b,c)return -1#define characterdeclarationdo(a,b,c) if(-1=characterdeclaration(a,b,c)return -1#define doubdeclarationdo(a,b,c) if(-1=doubdeclaration(a,b,c)return -1void error(int n);int getsym();int getch();void init();int gen(enum fct x,int y,double 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_r(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 integerdeclaration(int* ptx,int lev, int* pdx);int characterdeclaration(int* ptx,int lev, int* pdx);int doubdeclaration(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);/pl0.cpp#include#includepl0.h#includestring.h/这个宏定义的意思表示是运行时的数据栈大小，这个会在interpret函数中出现，可以先不用管它#define stacksize 500/* * 在看源程序之前，请始终记住 * * sym表示的是当前字符串的类型， * * num表示的数字， * * id中存放的是字符串， * * 记住这点在看源程序的时候非常重要。 * * 另外，还要记住的是nxtlev数组中存放的是后继符号集 */int main() bool nxtlevsymnum;/这个数组表示的是当前语句的后继符号集合，一共有个 printf(Input pl/0 file?);/输入文件的路径 scanf(%s,fname);fin=fopen(fname,r);/以只读打开文件，fin文件指针 if(fin) printf(List object code? (Y/N); scanf(%s,fname); listswitch=(fname0=y|fname0=Y);/listswitch用于列举代码 printf(List symbol table? (Y/N); scanf(%s,fname); tableswitch=(fname0=y|fname0=Y);/tableswitch表示是否输出table表 /该表类似于页的表 fa1=fopen(fa1.tmp,w);/以只读格式打开文件，对于本程序其实是新建一个文件 /fa1文件中存储的是源程序，运行一次，看看这个文件就明白啦 fprintf(fa1,Input pl/0 file?);/将Input pl/0 file?输入文件中 fprintf(fa1,%sn,fname);/同上 init();/初始化 err=0; cc=cx=ll=0; ch= ; if(-1!=getsym() /如果程序开始是对的，则往下执行 /fa存放的是模拟程序的代码 /fas存放的是table表中的数据 /运行一次代码看一下文件即明白 fa=fopen(fa.tmp,w);/以只读形式打开 fas=fopen(fas.tmp,w);/同上 /函数原型：int addset(bool*sr,bool*s1,bool*s2,int n); /bool nxtlev32; /* declbegsysconstsym=true; declbegsysvarsym=true; declbegsysprocsym=true; statbegsysbeginsym=true; statbegsyscallsym=true; statbegsysifsym=true; statbegsyswhilesym=true; 执行该函数的结果为对应的下标在nxtlev中上述值均为true； */ /在分程序开始的时候，其后继符号可以是 /const,var,procedure,begin,call,if,while /所以在nxtlev中将上述这些置为true /当然在整个程序可以只有一个.，即程序是空的也可以，所以会有nxtlevperiod=true; addset(nxtlev,declbegsys,statbegsys,symnum);/symnum=32； nxtlevperiod=true; /block是编译程序的主程序，是分程序的分析处理过程，其里面调用了大部分程序 /耐心看 /请记住在block程序开始的时候，只读取了源程序的一个语句单位 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); /err=0表示源程序没有错误 if(err=0) /在源程序没有错误的前提下，打开fa2文件，依次执行里面的语句，输出源程序结果 fa2=fopen(fa2.tmp,w); /模拟计算机执行源程序 interpret(); fclose(fa2); else /如果远程有错的话，会这样 printf(Errors in pl/0 program); fclose(fin); else printf(Cant open file! n); printf(n); return 0;void init() int i; for (i=0;i=255;i+) ssymi=nul;/nul为，将ssym初始化为 /ssym大小为，可以表示所有的ASCLL码 ssym+=plus; ssym-=minus; ssym*=times; ssym/=slash; ssym(=lparen; ssym)=rparen; ssym=eql; ssym,=comma; ssym.=period; ssym#=neq; ssym;=semicolon; /将保留字输入word数组中，为了使用二分查找，这个设置顺序是按照字母序/* strcpy(&(word00),begin);strcpy(&(word140),character); strcpy(&(word10),call); strcpy(&(word20),const); strcpy(&(word30),do);strcpy(&(word150),doub); strcpy(&(word40),end); strcpy(&(word50),if);strcpy(&(word130),integer); strcpy(&(word60),odd); strcpy(&(word70),procedure); strcpy(&(word80),read); strcpy(&(word90),then); strcpy(&(word100),var); strcpy(&(word110),while); strcpy(&(word120),write);*/strcpy(&(word00),begin); strcpy(&(word10),call);strcpy(&(word20),character); strcpy(&(word30),const); strcpy(&(word40),do);strcpy(&(word50),doub); strcpy(&(word60),end); strcpy(&(word70),if);strcpy(&(word80),integer); strcpy(&(word90),odd); strcpy(&(word100),procedure); strcpy(&(word110),read); strcpy(&(word120),then); strcpy(&(word130),var); strcpy(&(word140),while); strcpy(&(word150),write); /wsym内放有保留字所对应的枚举变量的值 wsym0=beginsym; wsym1=callsym;wsym2=charactersym; wsym3=constsym; wsym4=dosym;wsym5=doubsym; wsym6=endsym; wsym7=ifsym;wsym8=integersym; wsym9=oddsym; wsym10=procsym; wsym11=readsym; wsym12=thensym; wsym13=varsym; wsym14=whilesym; wsym15=writesym; /mnemonic中存放的是模拟程序的命令符 /大小是个，因为只有中命令符 strcpy(&(mnemoniclit0),lit); strcpy(&(mnemonicopr0),opr); strcpy(&(mnemoniclod0),lod); strcpy(&(mnemonicsto0),sto); strcpy(&(mnemoniccal0),cal); strcpy(&(mnemonicinte0),int); strcpy(&(mnemonicjmp0),jmp); strcpy(&(mnemonicjpc0),jpc); /初始化这些数组，全部为false for(i=0;isymnum;i+) declbegsysi=false; statbegsysi=false; facbegsysi=false; /下面的这三块内容的功能在后续的介绍中会有， /分别是声明开始符号集，语句开始符号集，因子开始符号集 declbegsysconstsym=true; declbegsysvarsym=true; declbegsysprocsym=true;declbegsysintegersym=true;declbegsyscharactersym=true;declbegsysdoubsym=true; statbegsysbeginsym=true; statbegsyscallsym=true; statbegsysifsym=true; statbegsyswhilesym=true; facbegsysident=true; facbegsysnumber=true; facbegsyslparen=true;facbegsyscharnum=true;facbegsysdoubnum=true;/该函数的功能是返回符号e是否在符号集s中/是则返回true，否则返回falseint inset(int e,bool* s) return se;/对于下标i，如果s1或s2是true，则sr也是true/这个函数其实是初始化后继符号集，即nxtlev数组int addset(bool* sr,bool* s1,bool* s2,int n) int i; for (i=0;in;i+) sri=s1i|s2i; return 0;/下面的函数不知干什么用，我没找到这两个函数的使用地方，不知道是不是作者弄错啦int subset(bool* sr,bool* s1,bool* s2,int n) int i; for(i=0;in;i+) sri=s1i&(! s2i); return 0;int mulset(bool * sr,bool* s1,bool* s2,int n) int i; for(i=0;i=a&ch=z) k=0; do if (k=a&ch=0&ch=9); ak=0;/单词符号以结尾 strcpy(id,a);/将该单词符号复制到id数组中 i=0; j=norw-1;/norw=13 /执行二分查找，搜索该单词符号是否是保留字 do k=(i+j)/2;/strcmp()比较两个字符串，相同则为，第一个小为负，第一个大为正数 if (strcmp(id,wordk)=0) i=k+1; while(ij) sym=wsymk;/如果是保留字则置为保留字的数字，wsym是保留字对应的符号值 else sym=ident;/如果不是保留字，则置sym为 elseif(int)ch=39)/加入字符类型getchdo;if(ch=A&ch=a&ch=0&ch=0&ch=0&chnmax)/要求数字位数不能超过位，nmax=14，不过我觉得这有错误 error(30);/输出错误码 else if(ch=:) getchdo; if(ch=) sym=becomes;/如果是赋值的话，则置sym=19 getchdo; else sym=n