source insight中的多行注释
我们经常要对一整段代码进行注释，很多代码编辑器都提供了这样的功能：用快捷键“Ctrl + /”来实现“//”的多行注释。
但是在用source insight的时候，发现竟然没有这样的功能。于是在网上搜了一下，source insight里面的多行注释可以用宏来实现。
以下是实现多行注释的宏代码（在别的网站copy过来的，经过测试，还是很好用的）：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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”的宏代码：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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 )
}
|
这份宏的代码可以把光标显示的行注释掉：
|
1
2
3
4
5
6
7
8
9
|
macro CommentSingleLine()
{
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
str = GetBufLine (hbuf, ln)
str = cat(
"/*"
,str)
str = cat(str,
"*/"
)
PutBufLine (hbuf, ln, str)
}
|
将一行中鼠标选中部分注释掉：
|
1
2
3
4
5
6
7
8
9
|
macro CommentSelStr()
{
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
str = GetBufSelText(hbuf)
str = cat(
"/*"
,str)
str = cat(str,
"*/"
)
SetBufSelText (hbuf, str)
}
|
最后是source insight与宏有关的资源：
- source insight官方的宏库
- 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窗口中，我找不到宏名字。
有些电脑可以，有些不行，有时开始还有一些宏名字，再倒入新的宏后就都没有了！！
====
http://topic.csdn.net/u/20120501/22/65f65114-7bc3-4a22-819e-9504c8a41a8b.html