Source Insight中文操作支持的宏

以下是Source Insight中文字符串支持的宏的实现，在此做个备份。

代码来自网上，非笔者所写。原有代码有个明显的Bug（Del的时候会导致多删除一个字符和多插入一个空格），已经被笔者fix掉。

使用时请将此部分代码贴到Source Insight的Base project的Utils.em文件末尾，并且在Options / Key Assignments添加相应的宏-键映射。

另外，在页面http://www.sourceinsight.com/public/macros/也有很多宏，可以参考使用。

 /*======================================================================
 1、BackSpace后退键
 ======================================================================*/
 macro SuperBackspace()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
         stop;   // empty buffer
     // get current cursor postion
     ipos = GetWndSelIchFirst(hwnd);
     // get current line number
     ln = GetBufLnCur(hbuf);
     if ((GetBufSelText(hbuf) != "") || (GetWndSelLnFirst(hwnd) != GetWndSelLnLast(hwnd))) {
         // sth. was selected, del selection
         SetBufSelText(hbuf, " ");  // stupid & buggy sourceinsight
         // del the " "
         SuperBackspace();
         stop;
     }
     // copy current line
     text = GetBufLine(hbuf, ln);
     // get string length
     len = strlen(text);
     // if the cursor is at the start of line, combine with prev line
     if (ipos ==  || len == ) {
         if (ln <= )
             stop;   // top of file
         ln = ln - ;    // do not use "ln--" for compatibility with older versions
         prevline = GetBufLine(hbuf, ln);
         prevlen = strlen(prevline);
         // combine two lines
         text = cat(prevline, text);
         // del two lines
         DelBufLine(hbuf, ln);
         DelBufLine(hbuf, ln);
         // insert the combined one
         InsBufLine(hbuf, ln, text);
         // set the cursor position
         SetBufIns(hbuf, ln, prevlen);
         stop;
     }
     num = ; // del one char
     if (ipos >= ) {
         // process Chinese character
         i = ipos;
         count = ;
         while (AsciiFromChar(text[i - ]) >= ) {
             i = i - ;
             count = count + ;
             if (i == )
                 break;
         }
         if (count > ) {
             // I think it might be a two-byte character
             num = ;
             // This idiot does not support mod and bitwise operators
             if ((count /  *  != count) && (ipos < len))
                 ipos = ipos + ;    // adjust cursor position
         }
     }
     // keeping safe
     if (ipos - num < )
         num = ipos;
     // del char(s)
     text = cat(strmid(text, , ipos - num), strmid(text, ipos, len));
     DelBufLine(hbuf, ln);
     InsBufLine(hbuf, ln, text);
     SetBufIns(hbuf, ln, ipos - num);
     stop;
 }
 /*======================================================================
 2、删除键——SuperDelete.em
 ======================================================================*/
 macro SuperDelete()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
         stop;   // empty buffer
     // get current cursor postion
     ipos = GetWndSelIchFirst(hwnd);
     // get current line number
     ln = GetBufLnCur(hbuf);
     if ((GetBufSelText(hbuf) != "") || (GetWndSelLnFirst(hwnd) != GetWndSelLnLast(hwnd))) {
         // sth. was selected, del selection
         SetBufSelText(hbuf, " "); // stupid & buggy sourceinsight
         // del the " "
         SuperBackspace();
         stop;
     }
     // copy current line
     text = GetBufLine(hbuf, ln);
     // get string length
     len = strlen(text);

     if (ipos == len || len == ) {
         totalLn = GetBufLineCount (hbuf);
         lastText = GetBufLine(hBuf, totalLn-);
         lastLen = strlen(lastText);
         if (ipos == lastLen)// end of file
            stop;
         ln = ln + ;    // do not use "ln--" for compatibility with older versions
         nextline = GetBufLine(hbuf, ln);
         nextlen = strlen(nextline);
         // combine two lines
         text = cat(text, nextline);
         // del two lines
         DelBufLine(hbuf, ln-);
         DelBufLine(hbuf, ln-);
         // insert the combined one
         InsBufLine(hbuf, ln-, text);
         // set the cursor position
         SetBufIns(hbuf, ln-, len);
         stop;
     }
     num = ; // del one char
     if (ipos > ) {
         // process Chinese character
         i = ipos;
         count = ;
         while (AsciiFromChar(text[i-]) >= ) {
             i = i - ;
             count = count + ;
             if (i == )
                 break;
         }
         if (count > ) {
             // I think it might be a two-byte character
             num = ;
             // This idiot does not support mod and bitwise operators
             if (((count /  *  != count) || count == ) && (ipos < len-))
                 ipos = ipos + ;    // adjust cursor position
         }
         // keeping safe
         if (ipos - num < )
             num = ipos;
     }
     else {
         i = ipos;
         count = ;
         while(AsciiFromChar(text) >= ) {
             i = i + ;
             count = count + ;
             if(i == len-)
                 break;
         }
         if(count > ) {
              num = ;
         }
     }

     text = cat(strmid(text, , ipos), strmid(text, ipos+num, len));
     DelBufLine(hbuf, ln);
     InsBufLine(hbuf, ln, text);
     SetBufIns(hbuf, ln, ipos);
     stop;
 }
 /*======================================================================
 3、左移键——SuperCursorLeft.em
 ======================================================================*/
 macro IsComplexCharacter()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
        return ;
     //当前位置
     pos = GetWndSelIchFirst(hwnd);
     //当前行数
     ln = GetBufLnCur(hbuf);
     //得到当前行
     text = GetBufLine(hbuf, ln);
     //得到当前行长度
     len = strlen(text);
     //从头计算汉字字符的个数
     if(pos > )
     {
         i=pos;
         count=;
         while(AsciiFromChar(text[i-]) >= )
         {
             i = i - ;
             count = count+;
             if(i == )
                 break;
         }
         if((count/)*==count|| count==)
             return ;
         else
             return ;
     }
     return ;
 }
 macro moveleft()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
         stop;   // empty buffer

     ln = GetBufLnCur(hbuf);
     ipos = GetWndSelIchFirst(hwnd);
     if(GetBufSelText(hbuf) != "" || (ipos ==  && ln == ))   // 第0行或者是选中文字,则不移动
     {
        SetBufIns(hbuf, ln, ipos);
        stop;
     }
     if(ipos == )
     {
        preLine = GetBufLine(hbuf, ln-);
        SetBufIns(hBuf, ln-, strlen(preLine)-);
     }
     else
     {
        SetBufIns(hBuf, ln, ipos-);
     }
 }
 macro SuperCursorLeft()
 {
     moveleft();
     if(IsComplexCharacter())
        moveleft();
 }
 /*======================================================================
 4、右移键——SuperCursorRight.em
 ======================================================================*/
 macro moveRight()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
             stop;   // empty buffer
     ln = GetBufLnCur(hbuf);
     ipos = GetWndSelIchFirst(hwnd);
     totalLn = GetBufLineCount(hbuf);
     text = GetBufLine(hbuf, ln);
     if(GetBufSelText(hbuf) != "")   //选中文字
     {
        ipos = GetWndSelIchLim(hwnd);
        ln = GetWndSelLnLast(hwnd);
        SetBufIns(hbuf, ln, ipos);
        stop;
     }
     if(ipos == strlen(text)- && ln == totalLn-) // 末行
        stop;
     if(ipos == strlen(text))
     {
        SetBufIns(hBuf, ln+, );
     }
     else
     {
        SetBufIns(hBuf, ln, ipos+);
     }
 }
 macro SuperCursorRight()
 {
     moveRight();
     if(IsComplexCharacter()) // defined in SuperCursorLeft.em
        moveRight();
 }
 /*======================================================================
 5、shift+右移键——ShiftCursorRight.em
 ======================================================================*/
 macro IsShiftRightComplexCharacter()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
         return ;
     selRec = GetWndSel(hwnd);
     pos = selRec.ichLim;
     ln = selRec.lnLast;
     text = GetBufLine(hbuf, ln);
     len = strlen(text);
     if(len ==  || len < pos)
         return ;
     //Msg("@len@;@pos@;");
     if(pos > )
     {
         i=pos;
         count=;
         while(AsciiFromChar(text[i-]) >= )
         {
             i = i - ;
             count = count+;
             if(i == )
                 break;
         }
         if((count/)*==count|| count==)
             return ;
         else
             return ;
     }
     return ;
 }
 macro shiftMoveRight()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
             stop; 

     ln = GetBufLnCur(hbuf);
     ipos = GetWndSelIchFirst(hwnd);
     totalLn = GetBufLineCount(hbuf);
     text = GetBufLine(hbuf, ln);
     selRec = GetWndSel(hwnd);
     curLen = GetBufLineLength(hbuf, selRec.lnLast);
     if(selRec.ichLim == curLen+ || curLen == )
     {
         if(selRec.lnLast == totalLn -)
             stop;
         selRec.lnLast = selRec.lnLast + ;
         selRec.ichLim = ;
         SetWndSel(hwnd, selRec);
         if(IsShiftRightComplexCharacter())
             shiftMoveRight();
         stop;
     }
     selRec.ichLim = selRec.ichLim+;
     SetWndSel(hwnd, selRec);
 }
 macro SuperShiftCursorRight()
 {
     if(IsComplexCharacter())
         SuperCursorRight();
     shiftMoveRight();
     if(IsShiftRightComplexCharacter())
         shiftMoveRight();
 }
 /*======================================================================
 6、shift+左移键——ShiftCursorLeft.em
 ======================================================================*/
 macro IsShiftLeftComplexCharacter()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
         return ;
     selRec = GetWndSel(hwnd);
     pos = selRec.ichFirst;
     ln = selRec.lnFirst;
     text = GetBufLine(hbuf, ln);
     len = strlen(text);
     if(len ==  || len < pos)
         return ;
     //Msg("@len@;@pos@;");
     if(pos > )
     {
         i=pos;
         count=;
         while(AsciiFromChar(text[i-]) >= )
         {
             i = i - ;
             count = count+;
             if(i == )
                 break;
         }
         if((count/)*==count|| count==)
             return ;
         else
             return ;
     }
     return ;
 }
 macro shiftMoveLeft()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == )
         stop; 

     ln = GetBufLnCur(hbuf);
     ipos = GetWndSelIchFirst(hwnd);
     totalLn = GetBufLineCount(hbuf);
     text = GetBufLine(hbuf, ln);
     selRec = GetWndSel(hwnd);
     //curLen = GetBufLineLength(hbuf, selRec.lnFirst);
     //Msg("@curLen@;@selRec@");
     if(selRec.ichFirst == )
     {
         if(selRec.lnFirst == )
             stop;
         selRec.lnFirst = selRec.lnFirst - ;
         selRec.ichFirst = GetBufLineLength(hbuf, selRec.lnFirst)-;
         SetWndSel(hwnd, selRec);
         if(IsShiftLeftComplexCharacter())
             shiftMoveLeft();
         stop;
     }
     selRec.ichFirst = selRec.ichFirst-;
     SetWndSel(hwnd, selRec);
 }
 macro SuperShiftCursorLeft()
 {
     if(IsComplexCharacter())
        SuperCursorLeft();
     shiftMoveLeft();
     if(IsShiftLeftComplexCharacter())
        shiftMoveLeft();
 }
 /*---END---*/