/*
程序版本: 專業的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 { "的特別處理