//#include<stdio>
//#include<stdlib>
#include<string>
//#include<malloc>
//#include<ctype>
using namespace std;


#define  MAXBUF 32
char ch=' ';   /*當前的字符，初始化為空*/
int lineno;  /*行號*/
int rowno;/*列號*/


/*33個關鍵字*/
string keyword[33]={"and","array","begin","bool","call","case","char","constant","do","else",
              "end","false","for","if","input","integer","not","of","or","output","procedure",
              "program","read","real","repeat","set","then","to","true","until","var","while",
			  "write", };

int token;


int search(string *word) /*用來查關鍵字*/
{
  int i;
  for( i=0; i<33; i++)
  {
     if(word==(keyword[i])
     {
        return i;
     }
  }
  return 0;
}    
 

void scanner(FILE *fpin,FILE *fpout) /*掃描字符*/
{
    
	
	char arr[MAXBUF];/*讀出的最長的字符串不超過MAXBUF*/
    int i=0;/*分析含字母的字符串用*/
    int j=0;/*分析純數字的字符串用*/
    
    string *num;
     
    ch=fgetc(fpin);
    while(ch!=EOF)
    {
        //putchar(ch); 
        if( ch=' ')  /*空格*/
             rowno++;

        else if(ch='\t')  /*tab */
             rowno+=12;

        else if( ch='\n')  /*回車換行符*/
             lineno++;

        if(isalpha(ch))  /*讀入的是字母*/
        {
            arr[i] =ch;
            i++;
           
            ch=fgetc(fpin); /*讀入下一個字符*/
            rowno++;
            while(isalpha(ch) || isdigit(ch))
            {
               arr[i] =ch;
               i++;
               ch=fgetc(fpin);
               rowno++;
            }
            fseek(fpin,-1L,SEEK_CUR); /*文件指針后退一個字節*/
            rowno--;
            string *word = (char*)malloc(i+1) ;
			memcpy(word,arr,i);
			//word[i] =''\0'';


            if(search(word))/*在關鍵字表中查找和word字符串相同的，找到就返回種別碼*/
            {
                 printf("%s\t\t&d\n",word,search(word));
                 fprintf(fpout,"%s\t%d \n",word,search(word));
            }
            else
            {
                fprintf(fpout,"%s\t%d\n",word,34);/*標示符號*/
            }
            i=0;
        }

        else if( isdigit(ch))/*讀入的是數字*/
        {
            arr[i] =ch;
            i++;
            ch=fgetc(fpin);/*讀入下一個字符*/
            rowno++;
            while(isdigit(ch))
            {
             arr[j] = ch;
             j++;
             fscanf(fpin,"%c",&ch);
            }
            
            fseek(fpin,-1L,SEEK_CUR);/*文件指針后退一個字節*/

            num =(char*) malloc(j+1);
            memcpy(num,arr,j); /*把數組里面的內容拷貝到鏈外一個數組里面*/
            /*num[j] =''\0''; */
                        

            j=0;/*恢復初始狀態*/
            fprintf(fpout,"%s\t\t%d\n",num,35);/*常數*/
        
            free(num);/*釋放內存*/
        }


    
        
                else if(ch==':')
                {
                        ch=fgetc(fpin);
                        if(ch=='=') 
                        {
                           fprintf(fpout,"%s\t%d\n",":=",51);    /*如果是 := */
                        }
                        else
                        {
                           fprintf(fpout,"%s\t%d\n",":",50);   /* 如果是 :  */
                           fseek(fpin,-1L,SEEK_CUR);/* 文件指針后退一個字節*/
                        }
               }
               else if (ch=='>')
               {
                        ch=fgetc(fpin);
                        if(ch=='=')    /*如果是 >= */
                        {
                           fprintf(fpout,"%s\t%d\n",">=",58);
                        }
                        else
                        {
                           fprintf(fpout,"%s\t%d\n",">",57);  /*如果是 > */
                           fseek(fpin,-1L,SEEK_CUR);/*文件指針后退一個字節 */
                        }
               }
               else if(ch=='<')
               { 
                        ch=fgetc(fpin);
                        if(ch=='>')
                        {
                            fprintf(fpout,"%s\t%d\n","<>",55);  /* 如果是 <> */
                        }
                        else if(ch=='=')
                        {
                            fprintf(fpout,"%s\t%d\n","<=",54);   /* 如果是 <= */
                        }
                        else 
                        {
                            fprintf(fpout,"%s\t%d\n","<",53);   /* 如果是 < */
                            fseek(fpin,-1L,SEEK_CUR);/*文件指針后退一個字節*/
                        }
               }
               else if(ch=='/')
               { 
                        ch=fgetc(fpin);
                        if(ch=='*')
                        {
                           ch=fgetc(fpin);
              s:
                           while(ch!='*')
                           {
                              ch=fgetc(fpin);
                           }
                           while(ch=='*')
                           {
                              ch=fgetc(fpin);
                              while(ch!='/')
                              {
                                 goto s;   /*如果是注釋*/
                              }
                           }
                       }
                       else if(ch=='/')
                       {
                           ch=fgetc(fpin);
                           while(ch!='\n')
                           {
                              ch=fgetc(fpin);   /* 如果是注釋 */
                           }
                       }
                       else 
                       {  
                           fprintf(fpout,"%s\t%d\n","/",48);
                           fseek(fpin,-1L,SEEK_CUR);/*文件指針后退一個字節*/
                       }
               }
               else if(ch=='\''){fprintf(fpout,"%s\t%d\n","'",38);}
               else if(ch=='+'){fprintf(fpout,"%s\t%d\n","+",43);}
               else if(ch=='-'){fprintf(fpout,"%s\t%d\n","-",45);}
               else if(ch=='*'){fprintf(fpout,"%s\t%d\n","*",41);}
               else if(ch=='('){fprintf(fpout,"%s\t%d\n","(",39);}
               else if(ch==')'){fprintf(fpout,"%s\t%d\n",")",40);}
               else if(ch=='['){fprintf(fpout,"%s\t%d\n","[",59);}
               else if(ch==']'){fprintf(fpout,"%s\t%d\n","]",60);}
               else if(ch=='.'){fprintf(fpout,"%s\t%d\n",".",46);}
               else if(ch==';'){fprintf(fpout,"%s\t%d\n",";",52);}
               else if(ch=='='){fprintf(fpout,"%s\t%d\n","=",56);}
               else if(ch==','){fprintf(fpout,"%s\t%d\n",",",44);}
               else 
                      fprintf(fpout,"無法識別的字符 %c\n",ch)  ;

               ch=fgetc(fpin);
        }
        printf("\nScan end.") ;
}




 void main()
{

       char filenamein[10];
       char filenameout[10];
       FILE* fpin;
       FILE* fpout;
       char sour;
       char option;
       printf("***********************     SCANNER      ***********************\n\n\n");

 a:    printf("Please enter sourse file name:\n");
       scanf("%s",filenamein);
       fpin=fopen(filenamein,"r");
       while (fpin==NULL)
       {
            printf("cannot open this file!!!\n\n\n");
            goto a;

       }
       printf("The sourse programe is:\n\n");
       sour=fgetc(fpin); /*將原程序顯示到屏幕上*/
       while (sour!=EOF)
       {
           putchar(sour);
           sour=fgetc(fpin);
        }
       fseek(fpin,0L,0);/*文件指針回到開始位置，以備掃描*/

       printf("\n\nReady to Scan!!!\n");
 b:    printf("Please enter a file name for save result:\n");
       scanf("%s",filenameout);
       fpout=fopen(filenameout,"w");
       if (fpout==NULL)
       {
           printf("cannot open this file!!!\n\n\n");
           goto b;
       }

       scanner(fpin,fpout); /*開始掃描*/
       fclose(fpin);
       fclose(fpout);

   

}