www.pudn.com > cifa.rar > TESTscan.c

#include  
#include  
//下面定义保留，为简化程序，使用字符指针数组保存所有保留字。 
//如果想增加保留字，可继续添加，并修改保留字数目 
#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()//词法分析函数 
{ 
   char ch,token[40]; //ch为每次读入的字符，token用于保存识别出的单词 
   int es=0,j,n; //es错误代码，0表示没有错误。j,n为临时变量，控制组合单词时的下标等 
   printf("请输入源程序文件名（包括路径）："); 
   scanf("%s",Scanin); 
  // gets(Scanin); 
   printf("请输入词法分析输出文件名（包括路径）："); 
   scanf("%s",Scanout); 
  // gets(Scanout); 
   if ((fin=fopen(Scanin,"r"))==NULL) //判断输入文件名是否正确 
   { 
      printf("\n打开词法分析输入文件出错!\n"); 
      return(1);//输入文件出错返回错误代码1 
   } 
   if ((fout=fopen(Scanout,"w"))==NULL) //判断输出文件名是否正确 
   { 
      printf("\n创建词法分析输出文件出错!\n"); 
      return(2); //输出文件出错返回错误代码2 
   } 
   ch=getc(fin); 
   while(ch!=EOF) 
   { 
      while (ch==' '||ch=='\n'||ch=='\t') ch=getc(fin); 
	  if (ch==EOF) break; 
      if (isalpha(ch))   //如果是字母，则进行标识符处理 
      { 
		 token[0]=ch; j=1; 
		 ch=getc(fin); 
		 while(isalnum(ch))  //如果是字母数字则组合标识符；如果不是则标识符组合结束 
		 { 
			token[j++]=ch;  //组合的标识符保存在token中 
			ch=getc(fin);  //读下一个字符 
		 } 
		 token[j]='\0';  //标识符组合结束	  
		 //查保留字 
		 n=0; 
		 while ((n=keywordSum)  //不是保留字，输出标识符 
			fprintf(fout,"%s\t%s\n","ID",token);  //输出标识符符号 
		else//是保留字，输出保留字 
			fprintf(fout,"%s\t%s\n",token,token);  //输出保留字符号 
	  } else if (isdigit(ch))//数字处理 
      { 
		 token[0]=ch; j=1; 
		 ch=getc(fin);  //读下一个字符 
		 while (isdigit(ch))  //如果是数字则组合整数；如果不是则整数组合结束 
		 { 
			token[j++]=ch;  //组合整数保存在token中 
			ch=getc(fin);  //读下一个字符 
		 } 
		 token[j]='\0';  //整数组合结束		  
		 fprintf(fout,"%s\t%s\n","NUM",token);  //输出整数符号 
      } else if (strchr(singleword,ch)>0)  //单分符处理 
      { 
		 token[0]=ch; token[1]='\0'; 
		 ch=getc(fin);//读下一个符号以便识别下一个单词 
		 fprintf(fout,"%s\t%s\n",token,token);  //输出单分界符符号 
      }else if (strchr(doubleword,ch)>0)  //双分界符处理 
      { 
		 token[0]=ch; 
		 ch=getc(fin);  //读下一个字符判断是否为双分界符 
		 if (ch=='=')  //如果是=，组合双分界符 
		 { 
			token[1]=ch;token[2]='\0';  //组合双分界符结束 
		   	ch=getc(fin);  //读下一个符号以便识别下一个单词 
		 } else//不是=则为单分界符 
			token[1]='\0'; 
		 fprintf(fout,"%s\t%s\n",token,token);  //输出单或双分界符符号 
      } else if (ch=='/')  //注释处理 
      { 
		 ch=getc(fin);  //读下一个字符 
		 if (ch=='*')  //如果是*，则开始处理注释 
		 {  char ch1; 
			ch1=getc(fin);  //读下一个字符 
			do 
			{  ch=ch1;ch1=getc(fin);}  //删除注释 
			while ((ch!='*' || ch1!='/')&&ch1!=EOF);  //直到遇到注释结束符*/或文件尾 
			ch=getc(fin);//读下一个符号以便识别下一个单词 
		 } else  //不是*则处理单分界符/ 
		 { 
			 token[0]='/'; token[1]='\0'; 
			 fprintf(fout,"%s\t%s\n",token,token);  //输出单分界符/ 
		 } 
	} else//错误处理 
	  { 
		 token[0]=ch;token[1]='\0'; 
		 ch=getc(fin);  //读下一个符号以便识别下一个单词 
		 es=3;  //设置错误代码 
		 fprintf(fout,"%s\t%s\n","ERROR",token);  //输出错误符号 
      } 
   } 
   fclose(fin);//关闭输入输出文件 
   fclose(fout); 
   return(es);  //返回主程序 
} 
 
/* 
//主程序 
//#include  
//#include  
//extern int TESTscan(); 
char Scanin[300],Scanout[300]; //用于接收输入输出文件名 
FILE *fin,*fout; //用于指向输入输出文件的指针 
void main(){ 
	int es=0; 
	es=TESTscan();//调词法分析 
    if (es>0) printf("词法分析有错,编译停止!"); 
	else printf("词法分析成功!\n"); 
} 
*/