1词法分析.docVIP

源代码： 1、词法分析 /*cifa fenxi chengxu*/ #include stdio.h #include ctype.h #include alloc.h #include stdlib.h #include string.h #define NULL 0 FILE *fp; char cbuffer; char *key[8]={if,else,for,while,do,return,break,continue}; char *border[6]={,,;,{,},(,)}; char *arithmetic[4]={+,-,*,/}; char *relation[6]={,=,=,,=,}; char *consts[20]; char *label[20]; int constnum=0,labelnum=0; int search(char searchchar[],int wordtype) { int i=0; switch (wordtype) { case 1:for (i=0;i=7;i++) { if (strcmp(key[i],searchchar)==0) return(i+1); } case 2:{for (i=0;i=5;i++) { if (strcmp(border[i],searchchar)==0) return(i+1); } return(0); } case 3:{for (i=0;i=3;i++) { if (strcmp(arithmetic[i],searchchar)==0) { return(i+1); } } return(0); } case 4:{for (i=0;i=5;i++) { if (strcmp(relation[i],searchchar)==0) { return(i+1); } } return(0); } case 5:{for (i=0;i=constnum;i++) { if (strcmp(consts[i],searchchar)==0) { return(i+1); } } consts[i-1]=(char *)malloc(sizeof(searchchar)); strcpy(consts[i-1],searchchar); constnum++; return(i); } case 6:{for (i=0;i=labelnum;i++) { if (strcmp(label[i],searchchar)==0) { return(i+1); } } label[i-1]=(char *)malloc(sizeof(searchchar)); strcpy(label[i-1],searchchar); labelnum++; return(i); } } } char alphaprocess(char buffer) { int atype; int i=-1; char alphatp[20]; while ((isalpha(buffer))||(isdigit(buffer))) { alphatp[++i]=buffer; buffer=fgetc(fp); } alphatp[i+1]=\0; if (atype=search(alphatp,1)) printf(%s (1,%d)\n,alphatp,atype-1); else { atype=search(alphatp,6); printf(%s (6,%d)\n,alphatp,atype-1); } return(buffer); } char digitprocess(char