source insight 注释

作者：解琛
时间：2020 年 8 月 25 日

Source Insight中的多行注释

打开 source insight base 工程，里面有一个 Utils.em 的文件，在文件的结尾添加以下函数。重新打开工程，在 Options->KeyAssignments 里面搜索 Macro，里面就可以看见这个自定义的宏。

或者，将上面的代码另存为 xc_comment.em 文件，打开 source insight，将该文件添加到工程中，然后在 Options->KeyAssignments 中就可以看到这个宏了，宏的名字是MultiLineComments。

为它分配快捷键 Ctrl + R 即可。

一、多行注释

macro MultiLineComment()
{
    hwnd = GetCurrentWnd()
    selection = GetWndSel(hwnd)
    LnFirst =GetWndSelLnFirst(hwnd)     
    LnLast =GetWndSelLnLast(hwnd)     
    hbuf = GetCurrentBuf()
 
    if(GetBufLine(hbuf, 0) =="//magic-number:tph85666031"){
        stop
    }
 
    Ln = Lnfirst
    buf = GetBufLine(hbuf, Ln)
    len = strlen(buf)
 
    while(Ln <= Lnlast) {
        buf = GetBufLine(hbuf, Ln)  
        if(buf ==""){               
            Ln = Ln + 1
            continue
        }
 
        if(StrMid(buf, 0, 1) == "/"){       
            if(StrMid(buf, 1, 2) == "/"){
                PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))
            }
        }
 
        if(StrMid(buf,0,1) !="/"){          
            PutBufLine(hbuf, Ln, Cat("//", buf))
        }
        Ln = Ln + 1
    }
 
    SetWndSel(hwnd, selection)
}

二、添加“#ifdef 0”和“#endif”

macro AddMacroComment()
{
    hwnd=GetCurrentWnd()
    sel=GetWndSel(hwnd)
    lnFirst=GetWndSelLnFirst(hwnd)
    lnLast=GetWndSelLnLast(hwnd)
    hbuf=GetCurrentBuf()
 
    if (LnFirst == 0) {
            szIfStart = ""
    } else {
            szIfStart = GetBufLine(hbuf, LnFirst-1)
    }
    szIfEnd = GetBufLine(hbuf, lnLast+1)
    if (szIfStart == "#if 0" && szIfEnd =="#endif") {
            DelBufLine(hbuf, lnLast+1)
            DelBufLine(hbuf, lnFirst-1)
            sel.lnFirst = sel.lnFirst – 1
            sel.lnLast = sel.lnLast – 1
    } else {
            InsBufLine(hbuf, lnFirst, "#if 0")
            InsBufLine(hbuf, lnLast+2, "#endif")
            sel.lnFirst = sel.lnFirst + 1
            sel.lnLast = sel.lnLast + 1
    }
 
    SetWndSel( hwnd, sel )
}

三、光标显示的行注释

macro CommentSingleLine()
{
    hbuf = GetCurrentBuf()
    ln = GetBufLnCur(hbuf)
    str = GetBufLine (hbuf, ln)
    str = cat("/*",str)
    str = cat(str,"*/")
    PutBufLine (hbuf, ln, str)
}

四、将一行中鼠标选中部分注释

macro CommentSelStr()
{
    hbuf = GetCurrentBuf()
    ln = GetBufLnCur(hbuf)
    str = GetBufSelText(hbuf)
    str = cat("/*",str)
    str = cat(str,"*/")
    SetBufSelText (hbuf, str)
}