/*
程序版本: 專業的C文件格式化源碼 1.0

安全性能: 只對行首的空格和Tab操作，不添加空行，
          不操作單行注釋語句/多行注釋段，不修改任何執行語句

程序功能:
	
	 僅對C源文件行首空格及Tab進行整理，不拖拽大括號改變原有風格:
	 1).格式對齊, 刪除行首的Tab或空格
	 2).格式縮進, 以Tab或空格填充行首

命令行參數:
		 參數1       參數2     參數3    參數4    參數5    參數6 
	 inorder.exe   source.c  temp1.c  temp2.c  temp3.c  object.c  

命令行參數說明:
	 參數1:  執行的程序名
	 參數2:  縮進不規范的C程序
	 參數3:  臨時文件1
	 參數4:  臨時文件2
	 參數5:  臨時文件3
	 參數6:  格式化后的C程序

格式整理規則:
	
1). 規則1: 通過檢查'{'和'}', 層次縮進c程序. 

2). 規則2: 當前行出現"if", "else", "else if", "for", "do",  "while",  "switch"時,  
	 要求下一段復合語句或相關語句層次縮進.
	 
3). 規則3: 當前行出現"if", "else", "else if", "for", "do",  "while",  "switch"時,  
	 要求下一行執行語句縮進
	 
4). 執行以上步驟時跳過\* *\及\\的注釋段.

5). 其它規則

通過上述3個規則，一般C程序的整理都可以完成，因此可以放心使用。

另外，因為規則2、3的實現比較復雜，所以給出源碼，希望眾多網友

能發揮集體智慧，改進或代替我笨拙的實現思路。

*/

#if 0

下列注釋類型將會引起程序出錯:
 
   1./*/-------------------------------------------------*/
   2./*----------------------------//--------------------*/
   3./*----------------------------
     * if(*str==0){
     *    return 1;
     * }
     *--------------------*/if(*str==0){
        return 1;
     }
下列字符串將會引起程序出錯:

/*
   1. char str[]="abcdefg
               efghiklmnopqrstuvwxyz123";
   
   2. char str[]="//abcdefghijklmn";
   
   3. char str[]="/*abcdefghijklmn";
   
   4. char str[]="*/abcdefghijklmn";

#endif


#include <conio.h>
#include <stdio.h>

/* 將p所指字符串跟一個字符串常量比較，相等返回1 */
unsigned char str_cmp(const char *str,char *p1)
{
   char *p=p1;
   while(1){
      if(*str==0){
         return 1;
      }
      if(*str==*p){
         ++str;
         ++p;
      }
      else return 0;
   }
}

/* 判斷此行是否存在地址標號，存在返回1 */
unsigned char label_chr(char *str)
{
   char *p=str;
   unsigned char i=0;
   if(str_cmp("default",p))return 0;	// default:是特例, 不作為地址標號
   while(1){
      if(*p==0x20){ // 空格
         return i;
      }
      if(*p==0x0D){ // 回車
         return i;
      }
      if(*p==0x09){ // Tab
         return i;
      }
      if(*p==0x22){ // 雙引號
         return i;
      }
      if(*p==0x3F){ // 問號
         return i;
      }
      if(*p==0x27){ // 分號'
         return i;
      }
      if(*p==':'){
         i=1;
      }
      ++p;
   }
}

void main(char argc, char* argv[])
{
   /*
     程序執行時, 命令行參數的個數記錄在 argc 里
     命令行第一個參數(字符串)的地址被賦給argv[0]
     命令行第二個參數(字符串)的地址被賦給argv[1]
     命令行第三個參數(字符串)的地址被賦給argv[2]
     ...
   */
   FILE *fp1,*fp2,*fp3,*fp4,*fp5;           // 定義文件指針
   int i,j,k;
   int /*flag_k1,*/flag_k2,flag_k3,flag_d,flag_t1,flag_t2,inorder_f1,inorder_f2,inorder_f3,flag_zhushi,flag_zhushi_e,flag_zhushi_f;
   
   int case_flag1,case_flag2,case_flag3,case_end;
   char m,str[255],*p;
   
   if(argc != 6)
   {  printf("\n USAGE: INORDER.EXE TEMP1.C TEMP2.C TEMP3.C OBJECT.C");
      getch();
      return;
   }
   if((fp1=fopen(argv[1],"rb"))==NULL)      // 讀取一個指定名稱的文件, 文件名決定于argv[1]所指字符串
   {
      printf("\n 讀取的文件不存在");
      getch();
      return;
   }
   if((fp2=fopen(argv[2],"wb"))==NULL)      // 新建一個文件, 文件名決定于argv[2]所指字符串, 文件若存在則內容被清空
   {
      printf("\n 不能建立目標文件");
      getch();
      return;
   }
   if((fp3=fopen(argv[3],"wb"))==NULL)      // 新建一個文件, 文件名決定于argv[3]所指字符串, 文件若存在則內容被清空
   {
      printf("\n 不能建立目標文件");
      getch();
      return;
   }
   if((fp4=fopen(argv[4],"wb"))==NULL)      // 新建一個文件, 文件名決定于argv[4]所指字符串, 文件若存在則內容被清空
   {
      printf("\n 不能建立目標文件");
      getch();
      return;
   }
   if((fp5=fopen(argv[5],"wb"))==NULL)      // 新建一個文件, 文件名決定于argv[5]所指字符串, 文件若存在則內容被清空
   {
      printf("\n 不能建立目標文件");
      getch();
      return;
   }
/*
	if((fp6=fopen(argv[6],"wb"))==NULL)      // 新建一個文件, 文件名決定于argv[6]所指字符串, 文件若存在則內容被清空
	{
	  printf("\n 不能建立目標文件");
	  getch();
	  return;
	}
*/
   
   //************************************************************************************************************
   // 第一步處理：去掉行首的空格及Tab，執行后生成的臨時文件所有行的行首都沒有了空格和Tab
   do {
      //----------------------------------------------------
      // 字符串緩存清0
      for(i=0;i<255;++i){
         str[i]=0;
      }
      //----------------------------------------------------
      // 取一行字符
      if(fgets(str,255,fp1)==NULL){
         if(!feof(fp1)){
            printf("fgets() error!\n");
            getch();
         }
         break;
      }
      //----------------------------------------------------
      // 檢測此行有無跨行的注釋，有則標志j置1
      for(j=0,i=0,k=0;i<255;++i){
         if(str[i]==0x22){
            if(k==0)k=1;
            else k=0;
         }
         // 在檢測注釋標志時跳過"字符串常量"
         if(k==0){
            if((str[i]=='/') && (str[i+1]=='/')){
               break;
            }
            if((str[i]=='/') && (str[i+1]=='*')){
               j=1;
            }
            if((str[i]=='*') && (str[i+1]=='/')){
               j=0;
            }
         }
         if(str[i]==0){
            break;
         }
      }
      //----------------------------------------------------
      if (j==0){
         // 將行字符串寫入臨時文件，忽略行首的空格以及Tab
         for(i=0,p=str; i<255; ++p,++i){
            if((*p!=0x20) && (*p!=0x09)){
               break;
            }
         }
         if(fputs(p,fp2)==EOF){
            printf("write error. \n");
         }
      }
      else {
         // 跨行的/* */注釋不縮進，直接寫入臨時文件
         if(fputs(str,fp2)==EOF){
            printf("write error. \n");
         }
         do {
            for(i=0;i<255;++i){
               str[i]=0;
            }
            if(fgets(str,255,fp1)==NULL){
               if(!feof(fp1)){
                  printf("fgets() error!\n");
                  getch();
               }
               break;
            }
            for(j=0,i=0;i<255;++i){
               if((str[i]=='*') && (str[i+1]=='/')){
                  j=2;
               }
               if(str[i]==0){
                  break;
               }
            }
            if(fputs(str,fp2)==EOF){
               printf("write error. \n");
            }
            if(j==2){
               break;
            }
         } while(1);
      }
   } while(1);
   fclose(fp2);
   
   //************************************************************************************************************
   // 第二部處理，依照規則1，通過對'{'和'}'的檢查，在各行首添加空格進行層次縮進，此規則比較簡單
   
   if((fp2=fopen(argv[2],"rb"))==NULL)      // 讀取一個指定名稱的文件, 文件名決定于argv[2]所指字符串
   {
      printf("\n 讀取的文件不存在");
      getch();
      return;
   }
   flag_zhushi=0;
   flag_zhushi_e=0;
   k=0;           // 當前語句行首空格數目為N*k個
   do {
      for(i=0;i<255;++i){
         str[i]=0;
      }
      // 取一行字符
      if(fgets(str,255,fp2)==NULL){
         if(!feof(fp2)){
            printf("fgets() error2!\n");
            getch();
         }
         break;
      }
      p=str;
      for(flag_t1=0,flag_t2=0,inorder_f1=0,inorder_f2=0,/*flag_k1=0,*/flag_k2=0,flag_k3=0; ; ++p){
         if((*p=='"') && (*(p+1) != 0x27)){        // 檢測雙引號奇偶數,引用的雙引號忽略不計
            if(inorder_f2==0)inorder_f2=1;
            else inorder_f2=0;   
         }
         else if(*p==0){
            break;
         }
         if(inorder_f2==0){                        // 檢測注釋標志時跳過字符串常量
            if((*p=='/')&&(*(p+1)=='*')){
               flag_zhushi=1;
               flag_zhushi_e=1;
               ++inorder_f1;
            }
            else if((*p=='*')&&(*(p+1)=='/')){
               if(flag_zhushi==1){
                  flag_zhushi=0;
                  ++inorder_f1;
               }
            }
            if((*p=='/')&&(*(p+1)=='/')){
               break;
            }
         }
         
         if(*p != 0x20){
            ++flag_k3;
         }
         
         if(flag_k3==1){                           // 從非空白字符的開始處, 只檢測一次
            m=label_chr(p);                        // 檢測是否存在地址標號
            if(str_cmp("#if",p) || str_cmp("#elif",p) || str_cmp("#else",p) || str_cmp("#endif",p)){
               break;                              // 遇到編譯預處理指令則退出
            }
         }
         
         if(flag_zhushi==0){                       // 檢測'}'時跳過/* */注釋
            if((*p=='{') && (*(p+1) !=0x27)){      // 引用的'}'忽略不計
               //if(flag_t2==0)flag_k1=1;
               ++flag_t1;      //'{'出現次數
            }
            if((*p=='}') && (*(p+1) !=0x27)){
               if(flag_t1==0)flag_k2=1;
               ++flag_t2;      //'}'出現次數
            }
         }
      }
      // --------------------------------------------------------------------
      // '}'出現次數多于'{', 則此行縮進數減
      if(flag_t1<flag_t2){
         k-=(flag_t2-flag_t1);
      }
      // --------------------------------------------------------------------
      // 對于特殊寫法" } else { "的特別處理
      
      if(flag_t1==flag_t2){
         if(flag_t1==1)
            if(flag_k2==1)
               --k;
      }
      //----------------------------------------------------------------------
      // 每次讀入一行語句, 分析后寫入另一文件, 寫文件操作只有兩部分:
      // 1.寫入空格縮進 2.寫入省略行首空格的代碼部分
      // 不影響原來的風格或更改原來的程序結果, 因此雖然功能單一, 但足夠安全.
      
      if(m==1){                              // 單獨的地址標號行不縮進
         ;  
      }
      else if(flag_k3==1){                   // 編譯預處理暫不縮進
         ;
      }
      else if(flag_zhushi_e==0 || inorder_f1==2)
         for(i=0;i<k;++i)
            if(fputs("   ",fp3)==EOF)       // 在此更改每層縮進幾個空格
            {   
               printf("write error. \n");
               printf("write error. \n");
            }
      if(fputs(str,fp3)==EOF)
         printf("write error. \n");
      // --------------------------------------------------------------------
      // 含有/* */的多行注釋段段不縮進,直到注釋結束為止
      if(flag_zhushi==0)
         flag_zhushi_e=0;
      // --------------------------------------------------------------------
      // '{'的個數多于'}'的個數,則下一行縮進數加
      if(flag_t1>flag_t2){        // '{'出現次數多于'}',增加空格個數
         k+=(flag_t1-flag_t2);
      }
      // --------------------------------------------------------------------
      // 對于特殊寫法" } else { "的特別處理