词法分析程序<二>

#include "conio.h"
#include "string.h"
#include "ctype.h"
#include <stdlib.h>
char save[20];/*定义暂存函数*/
char *p;
char count[200];
int total;
char *sum[13]={"const","var","procedure","begin","end","odd","if","then","call","while","do","read","write"};/*定义13个关键字*/

char alpha()/*分析标识符*/
{ int i,j;
  char *opp;
  i=0;
  j=0;/*j=0是标识符，j=1是关键字*/
  while(isalnum(*p))/*检查是字母还是数字，如果是字母返回1，是数字返回2*/
	 { save[i]=*p;
	   p++;i++; 
}
  opp=save;
  for(i=0;i<=12;i++)/*把字母与关键字表核对，如果是关键字就设置j=1*/
    if(!(strcmp(opp,sum[i])))/*比较两个字符串*/
    { printf(" %d  keyword  %s\n",total,opp); /*识别关键字*/
	  j=1;
    }
  if(j==0) printf(" %d  captionsign  %s\n",total,opp); /*识别标识符*/
  p--; /*回退多读进的字符*/
  return 0;
}

char digit()/*分析数字*/
{ int i;
  i=0;
  while(isdigit(*p))/*检查是否数字（0－9）*/
	{ save[i]=*p;
	  i++;p++;
	 }
  printf(" %d  digit  %s\n",total,save);
  p--;
  return 0;
}
int main()

{ int i,j;
  total=1;/*计数器等于一*/
  memset(count,0,200);/*把count所指内存区域的前200个字节设置成字符0*/
  system("cls");
  strcpy(count,"const a=10;var b,c;procedure p; begin c:=b+a end;begin read(b);while b#0 do begin call p;write(2*c);read(b) end end.");
  printf("The source program is:\n");
  puts(count);
  printf("\n");
  p=count;
  while(*p!='\0')/*检查源程序是否结束*/
    { memset(save,0,20);
   while(*p==' '||*p=='\n'||*p=='\t')p++;/*检查是否是空白字符，如果是直接跳过*/
      if(isalpha(*p)) alpha();/*识别关键字或标识符*/
      else if(*p==';')//识别分号
           printf(" %d  boundarysign   %c\n",total,*p);
          else if(*p==',')//识别逗号
               printf(" %d  boundarysign  %c\n",total,*p);
				else if(*p=='>')//识别大于号
                    printf(" %d  boundarysign  %c\n",total,*p);
				else if(*p=='<')//识别小于号
					 printf(" %d  boundarysign  %c\n",total,*p);
				else if(*p=='>=')//识别大于等于号
					printf(" %d  boundarysign  %s\n",total,*p);
				else if(*p=='<=')//识别小于等于号
                 printf(" %d  boundarysign  %s\n",total,*p);
				   else if(*p=='*')//识别乘号
					 printf(" %d  boundarysign  %c\n",total,*p);
				   else if(*p=='/')//识别除号
               printf(" %d  boundarysign  %c\n",total,*p);
				   else if(*p=='#')//识别井号
               printf(" %d  boundarysign  %c\n",total,*p);
             else if(*p==':')//识别冒号
			    	{p++;
				     if(*p=='=')//识别等号
				  printf(" %d  airthmeticsign  %s\n",total,":=");/*识别赋值号*/
		           else
					  { printf(" %d airthmeticsign %s\n",total,":");/*识别冒号*/
                     p--; /*回退多读进字符*/
					  }
				    }
				   else if(*p=='+')//识别加号
                      printf(" %d  arithmeticsign  %c\n",total,*p);
                     else if(*p=='.')//识别减号
                         printf(" %d  boundarysign  %c\n",total,*p);
                         else if(*p=='(')//识别左括号
                              printf(" %d  boundarysign  %c\n",total,*p);
                             else if(*p==')')//识别右括号
                                printf(" %d  boundarysign  %c\n",total,*p);
						            else if(isdigit(*p))/*识别整数*/
                                     digit();
    total=total+1;p++;  /*准备识别下一个单词*/
  }
  printf("\npress any key to return");
  getch();
  return 0;
}