#include <stdio.h>
#include <string.h>
#include <process.h>

void main()
{
     FILE *in,*out;/*存放輸入字符串和輸出單詞串的文件*/
     char arr[1024];/*arr數(shù)組存放單詞符號*/
     int ch;
     char N;/*currentchar存放當前輸入字符*/
     int i=0;/*arr數(shù)組的一個指針*/
      /*以讀方式打開輸入文件*/
     if((in=fopen("infile.txt","r"))==NULL)
	 {
        printf("can not open file\n");
        exit(0);
	 }
      /*以寫方式打開輸出文件*/
     if((out=fopen("outfile.txt","w"))==NULL)
	 {
        printf("cannout open outfile\n");
        exit(1);
	 }
      //去掉開頭空格
     N=fgetc(in);
     while(N==' ')
	 { 
         N=fgetc(in);
	 }



     while(N!='$')
	 {
           /*常數(shù)部分判斷*/
           if((N>='a'&&N<='z')||(N>='A'&&N<='Z')
              ||(N>='0'&&N<='9')||N=='('||N==')'||N=='{'||N=='}'||N=='>'||N=='<'||N==';'||N==':'||N=='+'||N=='-'
              ||N=='*'||N=='/'||N=='='||N=='!'||N=='&'||(ch=N)=='\n'||N==' '||N=='['||N==']')
		   {
               i=0;//清空arr字符數(shù)組
               if(N>='0'&&N<='9')
			   {
                   arr[i++]=N;
                   N=fgetc(in);//再讀入下一個字符
                   while(N>='0'&&N<='9')
				   {
                           arr[i++]=N;
                           N=fgetc(in);
				   }
               if(N!='.')//如果當前讀入的符號不為小數(shù)點，則常數(shù)讀完畢，輸出此常數(shù)
			   {
                   arr[i++]='\0';
                   fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");//格式化輸出到目標文件，15代表種別碼， arr為內(nèi)碼值，規(guī)定用數(shù)字本身代表
			   }
               else//當前字符為小數(shù)點則繼續(xù)向下讀入
			   {
                    arr[i++]=N;
                    N=fgetc(in);
                    while(N>='0'&&N<='9')
					{
                        arr[i++]=N;
                        N=fgetc(in);
					}
                    arr[i++]='\0';
                    fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");
			   }
               while(N==' ')
			   { 
                     N=fgetc(in);
			   }
		}
/*判斷標識符和關(guān)鍵字部分*/
if((N>='a'&&N<='z')||(N>='A'&&N<='Z'))
{
i=0;//清空arr字符數(shù)組
    while((N>='a'&&N<='z')||(N>='0'&&N<='9')||(N>='A'&&N<='Z'))
 {
    arr[i++]=N;
    N=fgetc(in);
 }
//把字符數(shù)組arr和關(guān)鍵字表比較，判斷單詞串是關(guān)鍵字還是標識符
    arr[i++]='\0';
    if(strcmp(arr,"if")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",0,'"',arr,'"',")");
    else if(strcmp(arr,"else")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",1,'"',arr,'"',")");
    else if(strcmp(arr,"while")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",2,'"',arr,'"',")");
    else if(strcmp(arr,"do")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",3,'"',arr,'"',")");
 else
 fprintf(out,"%s%d,%c%s%c%s\n","(",14,'"',arr,'"',")");
}
while(N==' ')
{ 
 N=fgetc(in);
}
//判斷標識符包括：+, -, *, /, (, ), {, }, <, >, ;, :, !=, >=, <=, ==, =.
if(N=='+')
{
    fprintf(out,"%s%d,%c%c%c%s\n","(",9,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='-')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",10,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='*')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",11,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='/')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",12,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='=')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",17,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==';')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",4,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='{')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",5,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='}')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",6,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='[')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",20,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==']')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",21,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='(')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",7,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==')')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",8,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==':')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N==':')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",18,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",16,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='>')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='<')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='!')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='&')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",19,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
while((ch=N)=='\n')
{
 N=fgetc(in);
}
 while(N==' ')
{
 N=fgetc(in);
}
}
else
{
 fprintf(out,"%s,%c%c%c\n","error",'"',N,'"');
    N=fgetc(in);
}

}//結(jié)束開頭while語句
/*關(guān)閉文件退出*/
fclose(in);
fclose(out);
}