简单词法分析

#include<stdio.h> #include<stdlib.h> #include<string.h> #include<ctype.h> #include<conio.h> char *prog,token[8];//指针prog指向一列代码 char ch;//当前读入的字符 int syn,sum;//syn单词种别码,token单词,sum整型常量 int p,m;//p是缓冲区prog的指针,m是token的指针 char *rwtab[6]={"begin","if","then","while","do","end"};//关键字 char *sytab[4]={":=","<>","<=",">="};//双符号 int ctype(char c) { if(isalpha(c)) return 1;//字母 else if(c>='0'&&c<='9') return 2;//数字 else if(c==32) return 32;//空格 else return 3;//符号 return 0; } void token_cls() { int i; for(i=0;i<8;i++) token[i]=0; m=0; } //得到单词或符号的种别码 int getsyn(char *s,int type) { if(type==0)//type=0表示计算单词 { if(!strcmp(s,rwtab[0])) return 1; if(!strcmp(s,rwtab[1])) return 2; if(!strcmp(s,rwtab[2])) return 3; if(!strcmp(s,rwtab[3])) return 4; if(!strcmp(s,rwtab[4])) return 5; if(!strcmp(s,rwtab[5])) return 6; return 10; } else if(type==1)//type=1表示计算单符号 { switch(s[0]) { case'+':return 13; case'-':return 14; case'*':return 15; case'/':return 16; case':':return 17; case'<':return 19; case'>':return 20; case'=':return 25; case';':return 26; case'(':return 27; case')':return 28; case'#':return 0; default:return -1; } } else//type=2表示计算双符号 { if(!strcmp(s,sytab[0])) return 18; if(!strcmp(s,sytab[1])) return 21; if(!strcmp(s,sytab[2])) return 22; if(!strcmp(s,sytab[3])) return 24; return -1; } } int wtype() { int i,t1=0,t2=0,t3=0; for(i=0;i<m;i++) if(ctype(token[i])==1) t1++; else if(ctype(token[i])==2) t2++; else if(ctype(token[i])==3) t3++; if(t2==m) return 2;//全数字字符段 if(t3==m) if(m==1) return 3;//单符号字符段 else return 4;//多符号字符段 return 5;//一般单词 } void output(int type)//单项输出结果 { switch(type) { case 1:printf("(%d,%s)\n",getsyn(token,0),token);break;//输出单词 case 2:printf("(11,%s)\n",token);break; //输出数据 case 3:printf("(%d,%s)\n",getsyn(token,1),token);break;//输出单符号 case 4:printf("(%d,%s)\n",getsyn(token,2),token);break;//输出多符号 } } void scaner()//扫描字符串 { int bp,cline=0; while(32==*(prog+p)) p++;//忽略开始的空格 bp=p; while(*(prog+p)!='#') { ch=*(prog+p); if(ctype(ch)==1||ctype(ch)==2)//读入的是字母或是数字 { if(ctype(*(prog+p-1))==3&&p!=bp) { output(wtype());//输出符号 token_cls(); } token[m++]=ch; } else if(ctype(ch)==3)//读入的是符号 { if(ctype(*(prog+p-1))==1||ctype(*(prog+p-1))==2)//前一个读入的是字母，则输出单词 { if(wtype()==2) output(2); else if(wtype()==5) output(1); token_cls(); } token[m++]=ch; } else if(ch==32)//读入的是空格 { switch(wtype()) { case 2:output(2);break;//输出数字 case 3:output(3);break;//输出单符号 case 4:output(4);break;//输出多符号 case 5:output(1);break;//输出单词 } token_cls(); } p++; } token[0]='#'; output(3); } void main() { m=0; prog="begin x1:=9; if x1>0 then x2:=2*x1+1/3; end #"; scaner(); getch(); }