#include <stdio.h>
#include <string.h>
#include <process.h>
#define MAX 50
void main()
{
FILE *in,*out;/*存放輸入字符串和輸出單詞串的文件*/
char arr[MAX];/*arr數組存放單詞符號*/
int ch;
char currentchar;/*currentchar存放當前輸入字符*/
int i=0;/*arr數組的一個指針*/
/*以讀方式打開輸入文件*/
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);
}
//去掉開頭空格
currentchar=fgetc(in);
while(currentchar==' ')
{ 
 currentchar=fgetc(in);
}



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

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