/*
/*词法分析程序
/*maker:张建波
/*date:2005-10-26
/*
/*************************************************************/
#include "stdio.h"
#include "ctype.h"
#include "string.h"
/*保留字数量*/
#define keywordSum 8
char *keyword[keywordSum]={"if","else","for","while","do","int","read","write"};
/*纯但单分界符*/
#define singlewordSum 10
char singleword[singlewordSum]="+-*(){};,:";
/*双分界符*/
#define doublewordSum 4
char doubleword[doublewordSum]="<>=!";
#define wordlen 40 /*单词最大长度*/
char ScanInFile[300]; /*待分析的源程序文件*/
char ScanOutFile[305]; /*词法分析后的输出文件*/
FILE *fin,*fout; /*输入输出文件的指针*/
int LoadCodeFile()
{
/* 打开待分析的 源代码文件*/
printf("请输入源程序文件名：");
scanf("%s",ScanInFile);
if((fin=fopen(ScanInFile,"r"))==NULL)
{
printf("/n找不到文件：%s/n文件打开失败!/n");
return 0;
}
else
return 1;
}
int CreatWordFile()
{
/*创建次词法分析后结果的输出 文件*/
int len=0;
int i=0;
strcpy(ScanOutFile,ScanInFile);
while(ScanOutFile[i++]!='.');
ScanOutFile[i+1]='s';
ScanOutFile[i+2]='c';
ScanOutFile[i+3]='n';
ScanOutFile[i+4]='/0';
if((fout=fopen(ScanOutFile,"w"))==NULL)
{
/*文件创建失败*/
return 0;
}
else
return 1;
}
/*词法分析程序*/
int TScan()
{
char ch,token[wordlen]; /*ch 为每次读入的字符，token 为识别出来的单词*/
char ch1; /*处理注释时 用的临时变量*/
int err=0; /* 设置错误代码为 0, 表示没有错误 */
int j,n; /*临时变量，控制组合单词时的数组下标*/
if(LoadCodeFile()==0)
return 1; /*源代码文件读取失败*/
if(CreatWordFile()==0)
return 2; /*文件创建失败*/
ch=getc(fin);
while(ch!=EOF)
{
while(ch==' '||ch=='/n'||ch=='/t')
{
ch=getc(fin);
}
if(isalpha(ch))
{
/*输入的是字母，进行 标示符 处理*/
token[0]=ch;
j=1;
while(isalnum(ch))
{
token[j++]=ch;
ch=getc(fin);
}/*如果是字母数字则组合，否则结束*/
token[j]='/0';
/*查找保留字*/
n=0;
while((n<keywordSum) && strcmp(token,keyword[n]))
n++;
if(n>=keywordSum)
{
/*输出标示符*/
fprintf(fout,"%s/t%s/n","ID",token);
printf("%s/t%s/n","ID",token);
}
else
{
/*输出保留字*/
fprintf(fout,"%s/t%s/n",token,token);
printf("%s/t%s/n",token,token);
}
}
else if(isdigit(ch))
{
/*输入的是数字，进行 数字处理*/
token[0]=ch;
j=1;
ch=getc(fin);/*读下一字符*/
while(isdigit(ch))
{/*如果是数字则整合数字*/
token[j++]=ch;
ch=getc(fin);
}
token[j]='/0';/*整数整合结束*/
fprintf(fout,"%s/t%s/n","NUM",token);
printf("%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);
printf("%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);
printf("%s/t%s/n",token,token);
}
else if(ch=='/')
{
/*注释处理*/
ch=getc(fin);
if(ch=='*')
{
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); /*输出单词分界符*/
printf("%s/t%s/n",token,token);
}
}
else
{
/*无法识别的字符 */
token[0]=ch;
token[1]='/0';
ch=getc(fin);
err=3;
fprintf(fout,"%s/t%s/n","ERROR",token); /*输出错误符号*/
printf("%s/t%s/n","ERROR",token);
}
}
return err;
}
void main()
{
int e=0;
e=TScan();
if(e>0)printf("编译错误！");
else
printf("词法分析成功！");
}