#include <stdio.h>
#include <ctype.h>
//下面定義保留，為簡(jiǎn)化程序，使用字符指針數(shù)組保存所有保留字。
//如果想增加保留字，可繼續(xù)添加，并修改保留字?jǐn)?shù)目
#define keywordSum  8
char *keyword[keywordSum]={ "if","else","for","while","do","int","read","
write"};
//下面定義純單分界符，如需要可添加
char singleword[50]="+-*(){};,:[];'!\"";
//下面定義雙分界符的首字符
char doubleword[10]="><=!&|";

extern char Scanin[300], Scanout[300]; //用于接收輸入輸出文件名,在TEST_main.c中定義
extern FILE *fin,*fout; //用于指向輸入輸出文件的指針,在TEST_main.c中定義
int TESTscan()//詞法分析函數(shù)
{
   char ch,token[40]; //ch為每次讀入的字符，token用于保存識(shí)別出的單詞
   int es=0,j,n; //es錯(cuò)誤代碼，0表示沒(méi)有錯(cuò)誤。j,n為臨時(shí)變量，控制組合單詞時(shí)的下標(biāo)等
   printf("請(qǐng)輸入源程序文件名（包括路徑）：");
   scanf("%s",Scanin);
   printf("請(qǐng)輸入詞法分析輸出文件名（包括路徑）：");
   scanf("%s",Scanout);
   if ((fin=fopen(Scanin,"r"))==NULL) //判斷輸入文件名是否正確
   {
      printf("\n打開(kāi)詞法分析輸入文件出錯(cuò)!\n");
      return(1);//輸入文件出錯(cuò)返回錯(cuò)誤代碼1
   }
   if ((fout=fopen(Scanout,"w"))==NULL) //判斷輸出文件名是否正確
   {
      printf("\n創(chuàng)建詞法分析輸出文件出錯(cuò)!\n");
      return(2); //輸出文件出錯(cuò)返回錯(cuò)誤代碼2
   }
   ch=getc(fin);
   while(ch!=EOF)
   {
      while (ch==' '||ch=='\n'||ch=='\t') ch=getc(fin);
      if (isalpha(ch))   //如果是字母，則進(jìn)行標(biāo)識(shí)符處理
      {
		 token[0]=ch; j=1;
		 ch=getc(fin);
		 while(isalnum(ch))  //如果是字母數(shù)字則組合標(biāo)識(shí)符；如果不是則標(biāo)識(shí)符組合結(jié)束
		 {
			token[j++]=ch;  //組合的標(biāo)識(shí)符保存在token中
			ch=getc(fin);  //讀下一個(gè)字符
		 }
		 token[j]='\0';  //標(biāo)識(shí)符組合結(jié)束	 
		 //查保留字
		 n=0;
		 while ((n<keywordSum) && strcmp(token,keyword[n])) n++;
		 if (n>=keywordSum)  //不是保留字，輸出標(biāo)識(shí)符
			fprintf(fout,"%s\t%s\n","ID",token);  //輸出標(biāo)識(shí)符符號(hào)
		else//是保留字，輸出保留字
			fprintf(fout,"%s\t%s\n",token,token);  //輸出保留字符號(hào)
	  } else if (isdigit(ch))//數(shù)字處理
      {
		 token[0]=ch; j=1;
		 ch=getc(fin);  //讀下一個(gè)字符
		 while (isdigit(ch))  //如果是數(shù)字則組合整數(shù)；如果不是則整數(shù)組合結(jié)束
		 {
			token[j++]=ch;  //組合整數(shù)保存在token中
			ch=getc(fin);  //讀下一個(gè)字符
		 }
		 token[j]='\0';  //整數(shù)組合結(jié)束		 
		 fprintf(fout,"%s\t%s\n","NUM",token);  //輸出整數(shù)符號(hào)
      } else if (strchr(singleword,ch)>0)  //單分符處理
      {
		 token[0]=ch; token[1]='\0';
		 ch=getc(fin);//讀下一個(gè)符號(hào)以便識(shí)別下一個(gè)單詞
		 fprintf(fout,"%s\t%s\n",token,token);  //輸出單分界符符號(hào)
      } else if (strchr(doubleword,ch)>0)  //雙分界符處理
      {  
		 token[0]=ch;
		 ch=getc(fin);  //讀下一個(gè)字符判斷是否為雙分界符
		 if (token[0]=='&' && ch=='&')  //如果是&，組合雙分界符
		 {
			token[1]=ch;token[2]='\0';  //組合雙分界符結(jié)束
		   	ch=getc(fin);  //讀下一個(gè)符號(hào)以便識(shí)別下一個(gè)單詞
		 } else if(token[0]=='|' && ch=='|')//如果是|,組合雙分界符.
		 {token[1]=ch;token[2]='\0';  //組合雙分界符結(jié)束
		 ch=getc(fin);
		 }else if(ch=='=')
		 {token[1]=ch;token[2]='\0';  //組合雙分界符結(jié)束
		   	ch=getc(fin);
		 }else token[1]='\0';//則為單分界符
         if(!(token[0]=='&'&&(token[1]=='\0'||token[1]=='=')||token[0]=='|'&&(token[1]=='\0'||token[1]=='=')))//防止&,|,&=,|=被分析 		 
		 fprintf(fout,"%s\t%s\n",token,token);  //輸出單或雙分界符符號(hào)
      }
else if (ch=='/')  //注釋處理
      {
		 ch=getc(fin);  //讀下一個(gè)字符
		 if (ch=='*')  //如果是*，則開(kāi)始處理注釋
		 {  char ch1;
			ch1=getc(fin);  //讀下一個(gè)字符
			do
			{  ch=ch1;ch1=getc(fin);}  //刪除注釋
			while ((ch!='*' || ch1!='/')&&ch1!=EOF);  //直到遇到注釋結(jié)束符*/或文件尾
			ch=getc(fin);//讀下一個(gè)符號(hào)以便識(shí)別下一個(gè)單詞
		 } else  //不是*則處理單分界符/
		 {
			 token[0]='/'; token[1]='\0';
			 fprintf(fout,"%s\t%s\n",token,token);  //輸出單分界符/
		 }
	} else//錯(cuò)誤處理
	  {
		 token[0]=ch;token[1]='\0';
		 ch=getc(fin);  //讀下一個(gè)符號(hào)以便識(shí)別下一個(gè)單詞
		 es=3;  //設(shè)置錯(cuò)誤代碼
		 fprintf(fout,"%s\t%s\n","ERROR",token);  //輸出錯(cuò)誤符號(hào)
      }
   }
   fclose(fin);//關(guān)閉輸入輸出文件
   fclose(fout);
   return(es);  //返回主程序
}