#include<iostream.h> 
#include<fstream.h> 
#include<stdlib.h> 
#include<stdio.h> 
#include<string.h> 
#include<conio.h> 
#include<process.h> /*頭文件*/ 

void init(); 
char *DchangeB(char *buf); 
int search(char *buf,int type,int command); 
void intdeal(char *buffer); 
void chardeal(char *buffer); 
void errordeal(char error,int lineno); 
void scanner(); 

void init() 
{ char *key[]={"","auto","break","case","char","const","continue","default","do","double", 
"else","enum","extern","float","for","goto","if","int","long","register", 
"return","short","signed","sizeof","static","struct","switch","typedef", 
"union","unsigned","void","volatile","while"}; /*C語(yǔ)言所有關(guān)鍵字/ 
char *limit[]={" ","(",")","[","]","->",".","!","++","--","&","~", 
"*","/","%","+","-","<<",">>","<","<=",">",">=","==","!=","&&","||", 
"=","+=","-=","*=","/=",",",";","{","}","#","_","'"};/*運(yùn)算、限界符*/ 
fstream outfile; 
int i,j; 
char *c; 
outfile.open("key.txt",ios::out); 
for(i=0;i<32;i++) 
outfile<<key[i]<<endl; 
outfile.close(); 
outfile.open("Limit.txt",ios::out); 
for(j=0;j<38;j++) 
outfile<<limit[j]<<endl; 
c=""; 
outfile<<c; 
outfile.close(); 
outfile.open("bsf.txt",ios::out); 
outfile.close(); 
outfile.open("cs.txt",ios::out); 
outfile.close(); 
outfile.open("output.txt",ios::out); 
outfile.close(); 
} 

char *DchangeB(char *buf) 
{ 

int temp[20]; 
char *binary; 
int value=0,i=0,j; 
for(i=0;buf[i]!='\0';i++) 
value=value*10+(buf[i]-48); /*將字符轉(zhuǎn)化為十進(jìn)制數(shù)*/ 
if(value==0) 
{ 
binary=new char[2]; 
binary[0]='0'; 
binary[1]='\0'; 
return(binary); 
} 
i=0; 
while(value!=0) 
{ 
temp[i++]=value%2; 
value/=2; 
} 
temp[i]='\0'; 
binary=new char[i+1]; 
for(j=0;j<=i-1;j++) 
binary[j]=(char)(temp[i-j-1]+48); 
binary[i]='\0'; 
return(binary); /*十進(jìn)制轉(zhuǎn)化為二進(jìn)制*/ 

} 

int search(char *buf,int type,int command) 
{ int number=0; 
fstream outfile; 
char ch; 
char temp[30]; 
int i=0; 
switch(type) 
{ 
case 1: outfile.open("key.txt",ios::in);break; 
case 2: outfile.open("bsf.txt",ios::in);break; 
case 3: outfile.open("cs.txt",ios::in);break; 
case 4: outfile.open("limit.txt",ios::in);break; 
} 
outfile.get(ch); 
while(ch!=EOF){ 
while(ch!='\n') 
{ 
temp[i++]=ch; 
outfile.get(ch); 
} 
temp[i]='\0'; 
i=0; 
number++; 
if(strcmp(temp,buf)==0) 
{ 
outfile.close(); 
return number; /*若找到，返回在相應(yīng)表中的序號(hào)*/ 
} 
else 
outfile.get(ch); 
} //結(jié)束外層while循環(huán) 
if(command==1) 
{ 
outfile.close( ); 
return 0; /*找不到，當(dāng)只需查表，返回0，否則還需造表*/ 

} 
switch(type) 
{ 
case 1: outfile.open("key.txt",ios::in);break; 
case 2: outfile.open("bsf.txt",ios::in);break; 
case 3: outfile.open("cs.txt",ios::in);break; 
case 4: outfile.open("limit.txt",ios::in);break; 
} 
outfile<<buf; 
outfile.close(); 
return number+1; 
} 


void intdeal(char *buffer){ 

fstream outfile; 
int result; 
result=search(buffer,1,1); /*先查關(guān)鍵字表*/ 
outfile.open("output.txt",ios::app); 
if(result!=0) 
outfile<<buffer<<result<<endl; /*若找到，寫(xiě)入輸出文件*/ 
else 
{ 
result=search(buffer,2,2); /*若找不到，則非關(guān)鍵字，查標(biāo)識(shí)符表，還找不到則造入標(biāo)識(shí)符表*/ 
outfile<<buffer<<result<<endl; 
} /*寫(xiě)入輸出文件*/ 
outfile.close(); 
} 

void chardeal(char *buffer) 
{ fstream outfile; 
int result; 
result=search(buffer,1,1); /*先查關(guān)鍵字表*/ 
outfile.open("output.txt",ios::app); 
if(result!=0) 
outfile<<buffer<<result<<endl; /*若找到，寫(xiě)入輸出文件*/ 
else 
{ 
result=search(buffer,2,2); /*若找不到，則非關(guān)鍵字，查標(biāo)識(shí)符表，還找不到則造入標(biāo)識(shí)符表*/ 
outfile<<buffer<<result<<endl; 
} /*寫(xiě)入輸出文件*/ 
outfile.close(); 
} 

void errordeal(char error,int lineno) 
{ cout<<"\nerror: "<<error<<" ,line"<<lineno; 
} 

void scanner() 
{ fstream infile,outfile; 
char filename[20]; 
char ch; 
int err=0; 
int i=0,line=1; 
int count,result,errorno=0; 
char array[30]; 
char *word; 
printf("\n please input the file scanner name:"); 
scanf("%s",filename); 
err=1; 
infile.open(filename,ios::nocreate|ios::in); 
while(! infile) 
{ 
cout<<"cannot open file"<<endl; 
printf("please input the file name again:\n"); 
scanf("%s",filename); 
infile.open(filename,ios::nocreate|ios::in); 
err++; 
if(err==3) 
{cout<<"SORROY YOU CAN'T VUEW THE PRGARME\n"; 
cout<<"TANKE YOU VIEW"<<endl; 
exit(0);} 
} 
infile.get(ch); 
while(ch!=EOF) 
{ /*按字符依次掃描源程序，直至結(jié)束*/ 
i=0; 
if(((ch>='A')&&(ch<='Z'))||((ch>='a')&&(ch<='z'))||(ch=='_')) 
{ /*以字母開(kāi)頭*/ 
while(((ch>='A')&&(ch<='Z'))||((ch>='a')&&(ch<='z'))||(ch=='_')||((ch>='0')&&(ch<='9'))) 
{ 
array[i++]=ch; 
infile.get(ch); 
} 
word=new char[i+1]; 
memcpy(word,array,i); 
word[i]='\0'; 
intdeal(word); 
if(ch!=EOF) 
infile.seekg(-1,ios::cur); 
} 
else if(ch>='0'&&ch<='9') 
{ /*以數(shù)字開(kāi)頭*/ 
while(ch>='0'&&ch<='9') 
{ 
array[i++]=ch; 
infile.get(ch); 
} 
word=new char[i+1]; 
memcpy(word,array,i); 
word[i]='\0'; 
intdeal(word); 
if(ch!=EOF) 
infile.seekg(-1,ios::cur); 
} 
else if((ch==' ')||(ch=='\t')) 
; /*消除空格符和水平制表符*/ 
else if(ch=='\n') 
line++; /*消除回車(chē)并記錄行數(shù)*/ 
else if(ch=='/') 
{ /*消除注釋*/ 
infile.get(ch); 
if(ch=='=') 
{ /*判斷是否為‘/=’符號(hào)*/ 
outfile.open("output.txt",ios::noreplace|ios::app); 
outfile<<"/=\t\t\t4\t\t\t32\n"; 
outfile.close(); 
} 
else if(ch!='*') 
{ /*若為除號(hào)，寫(xiě)入輸出文件*/ 
outfile.open("output.txt",ios::noreplace|ios::app); 
outfile<<"/\t\t\t4\t\t\t13\n"; 
outfile.close(); 
outfile.seekg(-1,ios::cur); 
} 
else if(ch=='*') 
{ /*若為注釋的開(kāi)始，消除包含在里面的所有字符*/ 
count=0; 
infile.get(ch); 
while(count!=2) 
{ /*當(dāng)掃描到‘*’且緊接著下一個(gè)字符為‘/’才是注釋的結(jié)束*/ 
count=0; 
while(ch!='*') 
infile.get(ch); 
count++; 
infile.get(ch); 
if(ch=='/') 
count++; 
else 
infile.get(ch); 
} 
} 
} 
else if(ch=='"') 
{ /*消除包含在雙引號(hào)中的字符串常量*/ 
outfile.open("output.txt",ios::noreplace|ios::app); 
outfile<<ch<<"\t\t\t4\t\t\t37\n"; 
outfile.close(); 
while(ch!='"') 
infile.get(ch); 
infile<<ch<<"\t\t\t4\t\t\t37\n"; 
infile.close(); 
} 
else 
{ /*首字符為其它字符,即運(yùn)算限界符或非法字符*/ 
array[0]=ch; 
infile.get(ch); /*再讀入下一個(gè)字符，判斷是否為雙字符運(yùn)算、限界符*/ 
if(ch!=EOF) 
{ /*若該字符非文件結(jié)束符*/ 
array[1]=ch; 
word=new char[3]; 
memcpy(word,array,2); 
word[2]='\0'; 
result=search(word,4,1); /*先檢索是否為雙字符運(yùn)算、限界符*/ 
if(result==0) 
{ /*若不是*/ 
word=new char[2]; 
memcpy(word,array,1); 
word[1]='\0'; 
result=search(word,4,1); /*檢索是否為單字符運(yùn)算、限界符*/ 
if(result==0) 
{ /*若還不是，則為非法字符*/ 
errordeal(array[0],line); 
errorno++; 
infile.seekg(-1,ios::cur); 
} 
else 
{ /*若為單字符運(yùn)算、限界符，寫(xiě)入輸出文件并將掃描文件指針回退一個(gè)字符*/ 
outfile.open("output.txt",ios::noreplace|ios::app); 
outfile<<word<<"\t\t\t4\t\t\t"<<result<<"\t"<<endl; 
outfile.close(); 
infile.seekg(-1,ios::cur); 
} 
} 
else 
{ /*若為雙字符運(yùn)算、限界符，寫(xiě)入輸出文件*/ 
outfile.open("output.txt",ios::noreplace|ios::app); 
outfile<<word<<"\t\t\t4\t\t\t"<<result<<endl;; 
outfile.close( ); 
} 
} 
else 
{ /*若讀入的下一個(gè)字符為文件結(jié)束符*/ 
word=new char[2]; 
memcpy(word,array,1); 
word[1]='\0'; 
result=search(word,4,1); /*只考慮是否為單字符運(yùn)算、限界符*/ 
if(result==0) /*若不是，轉(zhuǎn)出錯(cuò)處理*/ 
errordeal(array[0],line); 
else 
{ /*若是，寫(xiě)輸出文件*/ 
outfile.open("output.txt",ios::noreplace|ios::app); 
outfile<<word<<"\t\t\t4\t\t\t"<<result<<"\t"<<endl; 
outfile.close(); 
} 
} 
} 
infile.get(ch); 
} 
infile.close(); 
cout<<"\nThere are "<<errorno<<" error(s).\n"; /*報(bào)告錯(cuò)誤字符個(gè)數(shù)*/ 
} 
void main() 
{ char yn; 

do{ 
init(); /*初始化*/ 
scanner();/*掃描源程序*/ 

printf("Are You continue(y/n)\n"); //判斷是否繼續(xù)？ 
yn=getch(); 
}while(yn=='y'||yn=='Y'); 
}