source: dev/trunk/ab5.0/abdev/abdev/CodeFormatter.cpp @ 681

#include "stdafx.h"

#include "common.h"

// インデント関連

int IsIndentAdditionCommand_FromBuffer(char *buffer);
int IsIndentDecreaseCommand_FromBuffer(char *buffer);

char *CodeFormatter(char *lpszReadBuffer){
    int WndNum;
    WndNum=GetNowWndNum();

    if(MdiInfo[WndNum]->DocType!=WNDTYPE_BASIC){
        goto NonFormater;
    }

    char *lpszTempReadBuffer;
    lpszTempReadBuffer=(char *)HeapAlloc(hHeap,0,lstrlen(lpszReadBuffer)+1);
    lstrcpy(lpszTempReadBuffer,lpszReadBuffer);

    //CRLFをLFに変換
    ChangeReturnCode(lpszTempReadBuffer);

    DeleteComment(lpszTempReadBuffer);

    //カッコの相互関係をチェック
    if(!CheckParenthesis(lpszTempReadBuffer)){
        HeapDefaultFree(lpszTempReadBuffer);
        goto NonFormater;
    }



    ////////////////////////////////////
    // インデントの初期TAB文字数を取得
    ////////////////////////////////////

    char *pBuf;
    pBuf=MdiInfo[WndNum]->pMdiTextEdit->buffer;

    //カーソルバッファ位置を取得
    int i,i2;
    i=GetBufferIndexFromCaretPos(pBuf,
        MdiInfo[WndNum]->pMdiTextEdit->StartCaretPos.x,
        MdiInfo[WndNum]->pMdiTextEdit->StartCaretPos.y);
    int StartX=MdiInfo[WndNum]->pMdiTextEdit->StartCaretPos.x;

    //現在の行のインデントをコピー（iFirstIndent_Speciallyにタブ数を格納）
    int iFirstIndent_Specially=0;
    for(i2=i;i2>0;i2--){
        if(pBuf[i2-1]=='\r'&&pBuf[i2]=='\n'){

            i=i2-1;

            i2++;

            int x=0;
            while(pBuf[i2]=='\t'&&x<StartX){
                i2++;
                x++;
                iFirstIndent_Specially++;
            }

            break;
        }
    }

    //前の行のインデントをコピー（iIndentにタブ数を格納）
    for(;i>0;i--){
        if(
            pBuf[i-1]=='\r'&&pBuf[i]=='\n'&&
            (!(pBuf[i+1]=='\r'&&pBuf[i+2]=='\n'))
            ){
            i++;
            break;
        }
    }

    int iIndent;
    for(iIndent=0;;iIndent++){
        if(pBuf[i+iIndent]!='\t') break;
    }

    if(MdiInfo[WndNum]->DocType==WNDTYPE_BASIC){
        //インデント追加のコマンドかどうかを判断
        if(IsIndentAdditionCommand_FromBuffer(pBuf+i+iIndent)) iIndent++;
    }



    //////////////////////////////
    // 各行のTAB文字数を計算
    //////////////////////////////

    int *pTabs,LineCount=0;
    pTabs=(int *)HeapAlloc(hHeap,0,(lstrlen(lpszTempReadBuffer)+1)*sizeof(int));

    char *pTemp;
    pTemp=(char *)HeapAlloc(hHeap,0,lstrlen(lpszTempReadBuffer)+1);

    i=0;
    BOOL bInterface=0;
    while(1){
        while(lpszTempReadBuffer[i]=='\t'||lpszTempReadBuffer[i]==' ') i++;

        int PareNum,BracketNum;
        PareNum=0,BracketNum=0;

        pTabs[LineCount]=0;

        int MultiLine=0;
        for(i2=0;;i++,i2++){

            if(lpszTempReadBuffer[i-1]=='('||lpszTempReadBuffer[i-1]=='[') PareNum++;
            else if(lpszTempReadBuffer[i-1]==')'||lpszTempReadBuffer[i-1]==']') PareNum--;

            if(lpszTempReadBuffer[i]=='\n'||lpszTempReadBuffer[i]=='\0'){
                if((lpszTempReadBuffer[i-1]=='('||lpszTempReadBuffer[i-1]==',')&&lpszTempReadBuffer[i]){
                    //パラメータ改行

                    i++;
                    MultiLine++;

                    pTabs[LineCount+MultiLine]=PareNum;

                    while(lpszTempReadBuffer[i]=='\n'){
                        i++;
                        MultiLine++;

                        pTabs[LineCount+MultiLine]=PareNum;
                    }
                    continue;
                }
                if(lpszTempReadBuffer[i-1]=='_'&&lpszTempReadBuffer[i]){
                    //任意改行
                    i++;
                    i2--;

                    MultiLine++;

                    pTabs[LineCount+MultiLine]=1;
                    continue;
                }

                pTemp[i2]=0;
                break;
            }
            pTemp[i2]=lpszTempReadBuffer[i];
        }


        //インデント減少コマンドかどうかを判定
        int f;
        if(f=IsIndentDecreaseCommand_FromBuffer(pTemp)){
            if(iIndent>0) iIndent--;
            if(f==2){
                if(iIndent>0) iIndent--;
            }

            if(f==3) bInterface=0;
        }

        if(iFirstIndent_Specially!=-1){
            if(iIndent-iFirstIndent_Specially<0) iFirstIndent_Specially=iIndent;

            pTabs[LineCount]+=iIndent-iFirstIndent_Specially;

            iFirstIndent_Specially=-1;
        }
        else pTabs[LineCount]+=iIndent;
        LineCount++;

        while(MultiLine){
            pTabs[LineCount]+=iIndent;
            LineCount++;

            MultiLine--;
        }



        //インデント増加コマンドかどうかを判定
        if((f=IsIndentAdditionCommand_FromBuffer(pTemp))&&bInterface==0){
            iIndent++;
            if(f==2) iIndent++;

            if(f==3) bInterface=1;
        }


        if(lpszTempReadBuffer[i]=='\0') break;
        i++;
    }



    //////////////////////////
    // インデント整形
    //////////////////////////

    char *lpszNewBuffer,temp2[1024];
    lpszNewBuffer=(char *)HeapAlloc(hHeap,0,lstrlen(lpszReadBuffer)+8192);
    lpszNewBuffer[0]=0;

    i=0;
    bInterface=0;
    LineCount=0;
    while(1){
        while(lpszReadBuffer[i]=='\t'||lpszReadBuffer[i]==' ') i++;

        for(i2=0;;i++,i2++){

            if(IS_RETURN(lpszReadBuffer,i)||lpszReadBuffer[i]=='\0'){
                pTemp[i2]=0;
                break;
            }
            pTemp[i2]=lpszReadBuffer[i];
        }


        memset(temp2,'\t',pTabs[LineCount]);
        temp2[pTabs[LineCount]]=0;
        LineCount++;

        lstrcat(lpszNewBuffer,temp2);
        lstrcat(lpszNewBuffer,pTemp);



        if(lpszReadBuffer[i]=='\0') break;
        i+=2;

        lstrcat(lpszNewBuffer,"\r\n");
    }

    HeapDefaultFree(pTemp);
    HeapDefaultFree(lpszTempReadBuffer);

    HeapDefaultFree(pTabs);

    return lpszNewBuffer;



NonFormater:
    //インデント整形は行わない
    lpszNewBuffer=(char *)HeapAlloc(hHeap,0,lstrlen(lpszReadBuffer)+1);
    lstrcpy(lpszNewBuffer,lpszReadBuffer);
    return lpszNewBuffer;
}