词法分析程序

#include<stdio.h>
#include<string.h>
#include<stdlib.h> 
char TOken[10];//分开进行比较 
char ch;
/*char rwtab[6]={"begin","if","then","while","do","end"};*/
char r1[]={"auto"};
char r2[]={"break"};
char r3[]={"case"};
char r4[]={"char"};
char r5[]={"const"};
char r6[]={"continue"};
char r7[]={"default"};
char r8[]={"do"};
char r9[]={"double"};
char r10[]={"else"};
char r11[]={"enum"};
char r12[]={"extern"};
char r13[]={"float"};
char r14[]={"for"};
char r15[]={"goto"};
char r16[]={"if"};
char r17[]={"int"};
char r18[]={"long"};
char r19[]={"register"};
char r20[]={"return"};
char r21[]={"short"};
char r22[]={"signed"};
char r23[]={"sizeof"};
char r24[]={"static"};
char r25[]={"struct"};
char r26[]={"switch"};
char r27[]={"typedef"};
char r28[]={"union"};
char r29[]={"unsigned"};
char r30[]={"void"};
char r31[]={"volatile"};
char r32[]={"while"};
char r33[]={"end"};
char r34[]={"include"};
char r35[]={"stdio"};
char r36[]={"string"};
char r37[]={"main"};
char r38[]={"stdlib"};//这是我定义的 
char A[10000];//输入的所有值 
int syn,row;
int n,m,p,sum,j;
static int i = 0;
void scaner();
int main()
{ 
row = 0 ;
p = 0 ;
printf("Please input string:(end of ‘@‘)\n");
do
{
scanf("%c",&ch);
A[p]=ch;
p++;
}//输入值到数组A【】中，以@结束 
while(ch!=‘@‘);
do
{
scaner();//进入函数进行判定 
switch(syn)
{
case 40: printf("(%d,%d)\n",syn,sum); break;//如果是40，那么就是数字 
case 0: printf("(%d,%c)\n",syn,TOken[0]);break;//如果是0，那么是@ 结束 
case -2: row=row++;break;
default: printf("(%d,%s)\n",syn,TOken);break;//否则，就是变量名、关键词 
}
}
while (syn!=0);
}
void scaner()
{
/*
共分为三大块，分别是标示符、数字、符号，对应下面的 if else if 和 else 


*/ 
for(n=0;n<7;n++) 
TOken[n]=0;//每次循环完就清零 
ch=A[i];
while(ch==‘ ‘||ch==‘\n‘)//如果字符是空格或者回车，跳过 
{
i++;
ch=A[i];
}
if((ch>=‘a‘&&ch<=‘z‘)||(ch>=‘A‘&&ch<=‘Z‘)) //可能是标示符或者变量名 
{
m=0;
while((ch>=‘0‘&&ch<=‘9‘)||(ch>=‘a‘&&ch<=‘z‘)||(ch>=‘A‘&&ch<=‘Z‘))//找到一个变量名或者关键字，直到遇到空格为止 
{
TOken[m]=ch;m++;
i++;ch=A[i];
}
TOken[m]=‘\0‘;
//将识别出来的字符和已定义的标示符作比较， //因为定义的begin为1，if为2...... 
if(strcmp(TOken,r1)==0){syn=1;}
else if(strcmp(TOken,r2)==0){syn=2; }
else if(strcmp(TOken,r3)==0){syn=3;} 
else if(strcmp(TOken,r4)==0){syn=4;}
else if(strcmp(TOken,r5)==0){syn=5;}
else if(strcmp(TOken,r6)==0){syn=6;}
else if(strcmp(TOken,r7)==0){syn=7;}
else if(strcmp(r8,TOken)==0){syn=8;}
else if(strcmp(r9,TOken)==0){syn=9;}
else if(strcmp(r10,TOken)==0){syn=10;}
else if(strcmp(r11,TOken)==0){syn=11;}
else if(strcmp(r12,TOken)==0){syn=12;}
else if(strcmp(r13,TOken)==0){syn=13;}
else if(strcmp(r14,TOken)==0){syn=14;}
else if(strcmp(r15,TOken)==0){syn=15;}
else if(strcmp(r16,TOken)==0){syn=16;}
else if(strcmp(r17,TOken)==0){syn=17;}
else if(strcmp(r18,TOken)==0){syn=18;}
else if(strcmp(r19,TOken)==0){syn=19;}
else if(strcmp(r20,TOken)==0){syn=20;}
else if(strcmp(r21,TOken)==0){syn=21;}
else if(strcmp(r22,TOken)==0){syn=22;}
else if(strcmp(r23,TOken)==0){syn=23;}
else if(strcmp(r24,TOken)==0){syn=24;}
else if(strcmp(r25,TOken)==0){syn=25;}
else if(strcmp(r26,TOken)==0){syn=26;}
else if(strcmp(r27,TOken)==0){syn=27;}
else if(strcmp(r28,TOken)==0){syn=28;}
else if(strcmp(r29,TOken)==0){syn=29;}
else if(strcmp(r30,TOken)==0){syn=30;}
else if(strcmp(r31,TOken)==0){syn=31;}
else if(strcmp(r32,TOken)==0){syn=32;}
else if(strcmp(r33,TOken)==0){syn=33;}
else if(strcmp(r34,TOken)==0){syn=34;}
else if(strcmp(r35,TOken)==0){syn=35;}
else if(strcmp(r36,TOken)==0){syn=36;}
else if(strcmp(r37,TOken)==0){syn=37;}
else if(strcmp(r38,TOken)==0){syn=38;}
else{syn=100;} //变量名 
}
else if((ch>=‘0‘&&ch<=‘9‘)) //数字 
{
sum=0;
while((ch>=‘0‘&&ch<=‘9‘))
{
sum=sum*10+ch-‘0‘;//显示其数字sum 
i++;
ch=A[i];
}
syn=40;
}
else switch(ch) //其他字符 
{
case‘<‘:m=0;TOken[m]=ch;m++;
i++;ch=A[i];
if(ch==‘=‘)//<>为22 
{
syn=41;
TOken[m]=ch;m++;i++;
}
else
{
syn=46;
}
break;
case‘>‘:m=0;TOken[m]=ch;m++;
i++;ch=A[i];
if(ch==‘=‘)
{
syn=42;
TOken[m]=ch;m++;i++;
}
else
{
syn=47;
}
break;
case‘:‘:m=0;TOken[m]=ch;m++;
i++;ch=A[i];
if(ch==‘=‘)
{
syn=44;
TOken[m]=ch;m++;i++;
}
else
{
syn=49;
}
break; 
case‘@‘:syn=0;TOken[0]=ch;i++;break;
case‘=‘:syn=48;TOken[0]=ch;i++;break; 
case‘#‘:syn=50;TOken[0]=ch;i++;break;
case‘+‘:syn=50;TOken[0]=ch;i++;break;
case‘-‘:syn=51;TOken[0]=ch;i++;break;
case‘*‘:syn=52;TOken[0]=ch;i++;break;
case‘/‘:syn=53;TOken[0]=ch;i++;break; 
case‘(‘:syn=54;TOken[0]=ch;i++;break;
case‘)‘:syn=55;TOken[0]=ch;i++;break;
case‘{‘:syn=56;TOken[0]=ch;i++;break;
case‘}‘:syn=57;TOken[0]=ch;i++;break; 
case‘;‘:syn=58;TOken[0]=ch;i++;break;
case‘.‘:syn=59;TOken[0]=ch;i++;break;
case‘\‘‘:syn=60;TOken[0]=ch;i++;break;
case‘\n‘:syn=-2;break;
default: syn=-1;break;
}
}