ffffff.rar_pl/0 词法

#include<stdio.h> #include<stdlib.h> #include<conio.h> #include<ctype.h> #include<string.h> #define N 256//每一行的字符数不能超过256个 char buffer[N]; //用作存放一行字符 char word[20]; //用作存放经过分析单词 char *kword[13]={"begin","call","const","do","end","if","odd","procedure","read","then","var","while","write"}; char ktype[13]={'f','g','h','i','j','k','l','m','n','o','p','q','r'}; int len;//记录每一行的长度 int count=0;//用来记录行数 void write(char *wstr,char wc,FILE *wout)//将分析结果按照规则写入到文件 { fputc('(',wout); fputs(wstr,wout); fputc(',',wout); fputc(wc,wout); fputc(')',wout); } int readbuffer(FILE *fp) { char ch; len=0; ch=fgetc(fp); while(!feof(fp) && ch!='\n')//读取字符到缓冲区 { buffer[len]=ch; ch=fgetc(fp); len++; } len--;//用来控制词法分析时行分析中字母的个数 if(feof(fp))//标志文件是否结束 return 0; else return 1; } void error(int type) { if(type==1) printf("为无效字符,第%d行词法出错,标志符不能以数字开头\n",count); else if(type==2) printf("第%d行词法出错，赋值符应为\:\= \n ",count); else printf("为无效字符，第%d行词法出错\n",count); } void check(char *str,FILE *out);//声明函数，此函数用来分类单词 void fenxi(char *row,FILE *op)//此函数用来对每一行的单词进行语法分析 { //printf("%d\n",count); int k=0;//用作控制临时存放单词的变量str0 int i=0;//定义两个变量用作控制每一行是否结束， int ferror=0;//用作出错标志 char str0[20];//临时存放单词的变量 while(i<=len) { k=0;//将k置0 strcpy(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; } else i--; } /*判断是否为数字*/ 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(int j=0;j<k;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(int ch)判断标点符号*/ 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(int j=0;j<k;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++;//使指针后移，取出下一个字母 } } void check(char *str,FILE *out) { if(isdigit(str[0]))/*如果第一个字符是数字那么整个单词都是数字组成的，即为常数*/ { write(str,'d',out);//调用写函数将分好类的单词写入文件 } if(isalpha(str[0]))/*如果第一个字符是字母，那么这个单词是标志符或关键字*/ { int fyiyong=0;//用作标记这个单词是否已被分类 /*以下判别是否是关键字*/ for(int ct=0;ct<13;ct++) { if(!strcmp(str,kword[ct])) { write(str,ktype[ct],out); fyiyong=1; } } /*经过以上判别，可以判别是否是关键字，不是即为标志符*/ if(fyiyong!=1) { write(str,'e',out); } } /*以下对运算符分类*/ if(str[0]=='>') { if(str[1]=='=') { write(str,'b',out); } else { write(str,'>',out); } } if(str[0]=='<') { if(str[1]=='=') { write(str,'c',out); } else { write(str,'<',out); } } if(!strcmp(str,":=")) { write(st