source insight中的多行注释

最新推荐文章于 2024-03-04 15:08:23 发布

Alan0521

最新推荐文章于 2024-03-04 15:08:23 发布

阅读量9.4k

点赞数

分类专栏： vim 文章标签：文档编程语言 menu command 测试

vim 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

我们经常要对一整段代码进行注释，很多代码编辑器都提供了这样的功能：用快捷键“Ctrl + /”来实现“//”的多行注释。

但是在用source insight的时候，发现竟然没有这样的功能。于是在网上搜了一下，source insight里面的多行注释可以用宏来实现。

以下是实现多行注释的宏代码（在别的网站copy过来的，经过测试，还是很好用的）：

 
        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)  
        //取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) 
       
        }

将上面的代码另存为xxx.em文件，打开source insight，将该文件添加到工程中，然后在Options->Key Assignments中你就可以看到这个宏了，宏的名字是MultiLineComments，然后我们为它分配快捷键“Ctrl + /”，然后就可以了。

(my config: comment(ctrl+shift+c) uncomment(ctrl+shift+u))

这里还有一份添加“#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) 
       
        }

最后是source insight与宏有关的资源：

====

http://www.2eggs.org/?p=147

--------

宏的导入和使用。source insight可以导入.em文件，即实现自定义的宏功能。找了很多帖子，下了很多.em文件，但是最后都没成功。操作方法：打开一个SI工程，添加.em文件，options，Key Assignment，输入macro，但是找不到.em文件里的宏函数。

别人一般都这么写：
SI中的宏语言
我始终认为这是SI中最有趣的部分，这是一种功能强大的编程语言，几乎可以实现在编程过程可能使用到的各种功能。
这里不准备对如何使用宏语言进行编程作介绍(可参阅SI帮助文档)，只介绍如何使用已编好程序。为方便使用，我已把这些程序都集中放在utils.em文件中，下文就此文件进行论述。
该宏文件实现了一些在编码过程中可能会用到的功能, 如添加文件头、函数说明(使用时能自动添加文件名、函数名和当前日期)和宏定义，代码补全等。
使用说明：
Project/Open Project...
打开Base工程(该工程一般在"我的文档/Source Insight/Projects/Base"中)；


Project/Add and Remove Project Files...
加入宏文件(即utils.em)；


Options/Menu Assignments
打开Menu Assignments窗口，在Command中输入Macro，选中要使用的宏，添加到合适的菜单中.

---------
但是此时，在Menu Assignments窗口中，我找不到宏名字。

有些电脑可以，有些不行，有时开始还有一些宏名字，再倒入新的宏后就都没有了！！