搜索
编写PL/0语言的词法分析程序要求：1、读入用PL/0语言编写的源程序，正确的进行词法分析，并输出二元式序列。2、若源程序有词法错误，能够给出出错的准确位置。3、词法代号如下(+，+);(-，-);(*，*);(/，/);((，();()，));(,，,);(;，;);(.，.);(#，#);(=，=);(，);(，);(:=,a);(=,b);(=,c);(数字,d);(标识符,e);关键字代号：(begin，f);(call，g);(const，h);(do，i);(end，j);(if，k);(odd，l);(procedure，m);(read，n);(then，o);(var，p);(while，q);(write，r);4、等于运算符号为一个=测试程序：A.C======================CONSTA=10;VARB,C;PROCEDUREP;VARD;PROCEDUREQ;VARX;BEGINREAD(X);D:=X;WHILEX0DOCALLP;END;BEGINWRITE(D);CALLQ;END;BEGINCALLP;END.*//*programname:chifufenxi*//*作者：小万qq:421404493*//*date:2004.10.11*/#includestdio.h#includestdlib.h#includeconio.h#includectype.h#includestring.h#defineN256//每一行的字符数不能超过256个charbuffer[N];//用作存放一行字符charword[20];//用作存放经过分析单词char*kword[13]={begin,call,const,do,end,if,odd,procedure,read,then,var,while,write};charktype[13]={'f','g','h','i','j','k','l','m','n','o','p','q','r'};intlen;//记录每一行的长度intcount=0;//用来记录行数voidwrite(char*wstr,charwc,FILE*wout)//将分析结果按照规则写入到文件{fputc('(',wout);fputs(wstr,wout);fputc(',',wout);fputc(wc,wout);fputc(')',wout);}intreadbuffer(FILE*fp){charch;len=0;ch=fgetc(fp);while(!feof(fp)&&ch!='\n')//读取字符到缓冲区{buffer[len]=ch;ch=fgetc(fp);len++;}len--;//用来控制词法分析时行分析中字母的个数if(feof(fp))//标志文件是否结束return0;elsereturn1;}voiderror(inttype){if(type==1)printf(为无效字符,第%d行词法出错,标志符不能以数字开头\n,count);elseif(type==2)printf(第%d行词法出错，赋值符应为\:\=\n,count);elseprintf(为无效字符，第%d行词法出错\n,count);}voidcheck(char*str,FILE*out);//声明函数，此函数用来分类单词voidfenxi(char*row,FILE*op)//此函数用来对每一行的单词进行语法分析{//printf(%d\n,count);intk=0;//用作控制临时存放单词的变量str0inti=0;//定义两个变量用作控制每一行是否结束，intferror=0;//用作出错标志charstr0[20];//临时存放单词的变量while(i=len){k=0;//将k置0strcpy(word,\0);//将存放单词的变量清空/*去除空格*/if(isspace(row[i]))//去出空格，跳格符，换行符{i++;continue;}/*去出无效字符*/while(!isalpha(row[i])&&!isdigit(row[i])&&i=len&&!isspace(row[i])&&!(row[i]=='\0'||row[i]==':'||row[i]==''||row[i]==''||row[i]=='+'||row[i]=='-'||row[i]=='*'||row[i]=='/'||row[i]=='('||row[i]==')'||row[i]==','||row[i]==';'||row[i]=='.'||row[i]=='#'||row[i]=='=')){putchar(row[i]);i++;ferror=1;//设置错误标志符}if(ferror==1){error(3);//调用出错处理函数ferror=0;}/*对注释进行处理,假设此语言的注释只能单行注释以双斜杠“//”为注释开始标志*/if(row[i]=='/'){i++;if(row[i]=='/'){i=len+1;//忽略注释符后面的单词continue;}elsei--;}/*判断是否为数字*/if(isdigit(row[i])){while(i=len&&!isspace(row[i])&&!(row[i]=='\0'||row[i]==':'||row[i]==''||row[i]==''||row[i]=='+'||row[i]=='-'||row[i]=='*'||row[i]=='/'||row[i]=='('||row[i]==')'||row[i]==','||row[i]==';'||row[i]=='.'||row[i]=='#'||row[i]=='='))//当不到行尾，是数字或字母当然有可能是无效字符{if(isdigit(row[i]))//是数字则将字符逐个存入临时数组{str0[k]=row[i];i++;k++;//putchar('e');}else//数字中加有字母或无效字符则报错{//putchar('x');ferror=1;break;//已经出错设置标志并退出循环}}if(ferror==1)//检测是否出错{/*将刚刚的那个单词后面的数字和字母清空，如123abc123或则123$$23等，当出现错误后，需要消除abc123和$$23以免误作为下一个标志符*/for(intj=0;jk;j++)putchar(str0[j]);while(i=len&&!isspace(row[i])&&!(row[i]=='\0'||row[i]==':'||row[i]==''||row[i]==''||row[i]=='+'||row[i]=='-'||row[i]=='*'||row[i]=='/'||row[i]=='('||row[i]==')'||row[i]==','||row[i]==';'||row[i]=='.'||row[i]=='#'||row[i]=='=')){putchar(row[i]);i++;}error(1);//putchar('e');//调用出错处理函数ferror=0;//重新设置错误标志位//i--;//strcpy(word,);}else//未出错照常处理{str0[k]='\0';strcpy(word,str0);i--;//减一是为了使最后取出的那个字符不在被下面的程序判断//str0[0]='\0';}}/*判断是否为标志符和关键字即由字母开头并且不含标点符号用ispunct(intch)判断标点符号*/if(isalpha(row[i]))//标志符或关键字由字母开头{k=0;while(i=len&&row[i]!=32&&!(row[i]=='\0'||row[i]==':'||row[i]==''||row[i]==''||row[i]=='+'||row[i]=='-'||row[i]=='*'||row[i]=='/'||row[i]=='('||row[i]==')'||row[i]==','||row[i]==';'||row[i]=='.'||row[i]=='#'||row[i]=='='))//关键字和标志符由数字和字母组成{if(isalpha(row[i])||isdigit(row[i]))//由数字和字母组成{str0[k]=row[i];i++;k++;}else//出错，原因可能是出现了不可识别的字符{ferror=1;break;}}if(ferror){for(intj=0;jk;j++)putchar(str0[j]);while(i=len&&!isspace(row[i])&&!(row[i]=='\0'||row[i]==':'||row[i]==''||row[i]==''||row[i]=='+'||row[i]=='-'||row[i]=='*'||row[i]=='/'||row[i]=='('||row[i]==')'||row[i]==','||row[i]==';'||row[i]=='.'||row[i]=='#'||row[i]=='=')){putchar(row[i]);//消除整个非法单词i++;}ferror=0;error(3);//i--;}else{str0[k]='\0';strcpy(word,str0);str0[0]='\0';i--;}}/*判断运算符*/if(row[i]=='+'||row[i]=='-'||row[i]=='*'||row[i]=='/'||row[i]=='('||row[i]==')'||row[i]==','||row[i]==';'||row[i]=='.'||row[i]=='#'||row[i]=='='){str0[0]=row[i];str0[1]='\0';strcpy(word,str0);str0[0]='\0';}//要先判断单个字符的运算符，以避免诸如=的运算符后面的=再次被判断if(row[i]==':'){i++;if(row[i]=='='){//word[0]=':';//word[1]='=';//word[2]='\0';strcpy(word,=);}else{error(2);//出错后调用处理函数i--;}}if(row[i]==''){i++;if(row[i]=='='){strcpy(word,=);}else{strcpy(word,);i--;}}if(row[i]==''){i++;if(row[i]=='='){strcpy(word,=);}else{strcpy(word,);i--;}}//puts(word);check(word,op);/*调用分类函数，辨别每一个单词的类别要求输入的每一个单词必须符合词法规则*///word[0]='\0';i++;//使指针后移，取出下一个字母}}voidcheck(char*str,FILE*out){if(isdigit(str[0]))/*如果第一个字符是数字那么整个单词都是数字组成的，即为常数*/{write(str,'d',out);//调用写函数将分好类的单词写入文件}if(isalpha(str[0]))/*如果第一个字符是字母，那么这个单词是标志符或关键字*/{intfyiyong=0;//用作标记这个单词是否已被分类/*以下判别是否是关键字*/for(intct=0;ct13;ct++){if(!strcmp(str,kword[ct])){write(str,ktype[ct],out);fyiyong=1;}}/*经过以上判别，可以判别是否是关键字，不是即为标志符*/if(fyiyong!=1){write(s