#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"};     //語言所有關鍵字
    char *limit[]={" ","(",")","[","]","->",".","!","++","--","&","~",
                   "*","/","%","+","-","<<",">>","<","<=",">",">=","==","!=","&&","||",
                  "=","+=","-=","*=","/=",",",";","{","}","#","_","''''"};/*運算、限界符*/
 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);       /*將字符轉化為十進制數*/
    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);  /*十進制轉化為二進制*/

}

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;        /*若找到，返回在相應表中的序號*/
        }
        else
          outfile.get(ch);
 }                           //結束外層while循環
     if(command==1)
     {   
      outfile.close( ); 
   return 0;                /*找不到，當只需查表，返回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);           /*先查關鍵字表*/
    outfile.open("output.txt",ios::app);
    if(result!=0)
       outfile<<buffer<<result<<endl;  /*若找到，寫入輸出文件*/
    else
    {
        result=search(buffer,2,2);       /*若找不到，則非關鍵字，查標識符表，還找不到則造入標識符表*/
        outfile<<buffer<<result<<endl;
    }                                 /*寫入輸出文件*/
    outfile.close();
}

void chardeal(char *buffer)
{    fstream outfile;
    int result;
    result=search(buffer,1,1);           /*先查關鍵字表*/
 outfile.open("output.txt",ios::app);
    if(result!=0)
	{
		outfile<<buffer<<result<<endl;
	    //cout<<buffer<<result<<endl;
	}/*若找到，寫入輸出文件*/
    else
    {
        result=search(buffer,2,2);       /*若找不到，則非關鍵字，查標識符表，還找不到則造入標識符表*/
       outfile<<buffer<<result<<endl;
    }                                 /*寫入輸出文件*/
    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("inpu.txt",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)
    {                 /*按字符依次掃描源程序，直至結束*/
        i=0;
        if(((ch>='A')&&(ch<='Z'))||((ch>='a')&&(ch<='z'))||(ch=='_'))
        {           /*以字母開頭*/
            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';
   //cout<<word<<endl;
            //intdeal(word);
   chardeal(word);
            if(ch!=EOF)
    infile.seekg(-1,ios::cur);
        }
        else if(ch>='0'&&ch<='9')
        {          /*以數字開頭*/
            while(ch>='0'&&ch<='9')
            {
                array[i++]=ch;
                infile.get(ch);
            }
            word=new char[i+1];
   memcpy(word,array,i);
   word[i]='\0';
   //cout<<word<<endl;
            intdeal(word);
            if(ch!=EOF)
    infile.seekg(-1,ios::cur);
        }
        else if((ch==' ')||(ch=='\t'))
   ;           /*消除空格符和水平制表符*/
  else if(ch=='\n')
   line++;           /*消除回車并記錄行數*/
  else if(ch=='/')
        {                 /*消除注釋*/
   infile.get(ch);
   if(ch=='=')
   {              /*判斷是否為‘/=’符號*/
    outfile.open("output.txt",ios::noreplace|ios::app);
    outfile<<"/=\t\t\t4\t\t\t32\n";
                outfile.close();
   }
   else if(ch!='*')
            {              /*若為除號，寫入輸出文件*/
                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=='*')
   {              /*若為注釋的開始，消除包含在里面的所有字符*/
    count=0;
   infile.get(ch);
    while(count!=2)
                {          /*當掃描到‘*’且緊接著下一個字符為‘/’才是注釋的結束*/
     count=0;
     while(ch!='*')
      infile.get(ch);
     count++;
      infile.get(ch);
     if(ch=='/')
      count++;
     else
      infile.get(ch);
    }
   }
  }
  else if(ch=='"')
  {                 /*消除包含在雙引號中的字符串常量*/
   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
        {         /*首字符為其它字符,即運算限界符或非法字符*/
            array[0]=ch;
            infile.get(ch);       /*再讀入下一個字符，判斷是否為雙字符運算、限界符*/
            if(ch!=EOF)
            {           /*若該字符非文件結束符*/
                array[1]=ch;
    word=new char[3];
    memcpy(word,array,2);
    word[2]='\0';
                result=search(word,4,1);      /*先檢索是否為雙字符運算、限界符*/
    if(result==0)
    {                           /*若不是*/
                    word=new char[2];
     memcpy(word,array,1);
     word[1]='\0';
     result=search(word,4,1);      /*檢索是否為單字符運算、限界符*/
     if(result==0)
                    {                           /*若還不是，則為非法字符*/
      errordeal(array[0],line);
      errorno++;
      infile.seekg(-1,ios::cur);
                    }
                    else
     {     /*若為單字符運算、限界符，寫入輸出文件并將掃描文件指針回退一個字符*/
      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
    {             /*若為雙字符運算、限界符，寫入輸出文件*/
     outfile.open("output.txt",ios::noreplace|ios::app);
        outfile<<word<<"\t\t\t4\t\t\t"<<result<<endl;;
     outfile.close( );
    }
            }
            else
   {               /*若讀入的下一個字符為文件結束符*/
    word=new char[2];
    memcpy(word,array,1);
    word[1]='\0';
    result=search(word,4,1);       /*只考慮是否為單字符運算、限界符*/
    if(result==0)                /*若不是，轉出錯處理*/
     errordeal(array[0],line);
    else
    {                            /*若是，寫輸出文件*/
     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";         /*報告錯誤字符個數*/
}
void main()
{   char yn;
  
 do{
    init(); /*初始化*/
    scanner();/*掃描源程序*/

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