将下面的代码保存为codecomm.em并添加到工程,在Options->Menu Assignments中就可以看到这个宏macro CodeComments,给这个宏添加热键.
执行一次Ctrl+q,就会把选中的代码用//注释掉,再执行一次,又会把//取消掉。
macro CodeComments(){//多行注释 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 ) }
在使用SourceInsight过程中,根据自己的使用习惯修改它的默认快捷键,并且在配置文件中添加了一些人性化功能:
修改快捷键:Options->Key Assignments...
1.main window:Esc 2.Hight light:Middle Mouse
3.Go Back:Alt+z 4.Go Forward:Alt+x
5.Caller:Alt+c 6.Reference:Alt+r
7.Previous Link:Alt+a 8.Next Link:Alt+s
9.First Link:Alt+d
10.Go Line:Alt+g 11.Select Line:Alt+l
12.Symbol Win:Alt+q 13.Activate SW:Alt+w
14.Projcet Win:Alt+[ 15.Activate PW:Alt+]
16.Contex Win:Alt+, 17.Activate CW:Alt+.
18.Relation Win:Alt+; 19.Activate RW:Alt+'
20.Select All:Ctrl+a 21.Save All:Ctrl+Shift+a
22.Browse Project Symbols:Alt+b
添加一些配置文件宏,比如:注释掉代码:单行注释、多行注释,将选中内容注释掉;在一行代码的前、后添加注释性文字等。
打开Projcet->Open project,选择base,可以看到utils.em文件,将下列宏添加到该文件中,并在其他工程里加入该文件,
在上面介绍的快捷键添加方式里找到该宏并自定义快捷键。
单行、多行注释:
[plain] view plaincopy 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) }
将上面的代码保存到utils.em文件,打开source insight,将该文件添加到工程中,然后在Options->Key Assignments中你就可以看到这个宏了,宏的名字是MultiLineComments,然后我们为它分配快捷键“Ctrl + /”,然后就可以了。
这是一份添加“#ifdef 0”和“#endif”的宏代码,定义快捷键为Ctrl+#:
[plain] view plaincopy 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 ) }
这份宏的代码可以把光标所在的行注释掉,定义快捷键为Ctrl+*:
[plain] view plaincopy macro CommentSingleLine() { hbuf = GetCurrentBuf() ln = GetBufLnCur(hbuf) str = GetBufLine (hbuf, ln) str = cat("/*",str) str = cat(str,"*/") PutBufLine (hbuf, ln, str) } 将一行中鼠标选中部分注释掉,定义快捷键为Ctrl+shift+*: [plain] view plaincopy macro CommentSelStr() { hbuf = GetCurrentBuf() ln = GetBufLnCur(hbuf) str = GetBufSelText(hbuf) str = cat("/*",str) str = cat(str,"*/") SetBufSelText (hbuf, str) }
在一行代码前添加注释性文字,定义快捷键为Alt+/:
在一行代码前添加注释性文字,定义快捷键为Alt+\: