Source Insight 宏的使用与自定义快捷键

 相信阅读过大型源代码的，都知道Source Insight。

    今天花了点时间，整理了两个宏，使用快捷键生成代码注释。很方便。

    废话少说，进入主题！

 

    ①打开Source Insight > Project > Open Project > Base > OK

    ②打开Utils.em 宏文件

    ③添加以下宏（跟C语言的函数差不多）

 

添加函数注释：

 

macro MyInsertHeader()  
{  
    // Get the owner's name from the environment variable: MYNAME.  
    // If the variable doesn't exist, then the owner field is skipped.  
    szMyName = getenv(MYNAME)  
  
    // Get a handle to the current file buffer and the name  
    // and location of the current symbol where the cursor is.  
    hbuf = GetCurrentBuf()  
    szFunc = GetCurSymbol()  
    ln = GetSymbolLine(szFunc)  
  
    InsBufLine(hbuf, ln, "/************************************************************");  
    ln = ln +1  
  
    // begin assembling the title string  
    sz = "** 函数名称: "   
  
    /* convert symbol name to T E X T   L I K E   T H I S */  
    cch = strlen(szFunc)  
    ich = 0  
    while (ich < cch)  
    {  
        ch = szFunc[ich]  
        if (ich > 0)  
            if (isupper(ch))  
                sz = cat(sz, "   ")  
            else  
                sz = cat(sz, " ")  
        sz = Cat(sz, toupper(ch))  
        ich = ich + 1  
    }   
    InsBufLine(hbuf, ln, sz)  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "** 功能描述: ")  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "** 输入参数:")  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "** 输出参数: ")  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "** 返 回 值    :")  
    ln = ln + 1  
  
    /* if owner variable exists, insert Owner: name */  
    if (strlen(szMyName) > 0)  
    {  
        InsBufLine(hbuf, ln, "** 作    者       :  @szMyName@")                   
    }  
    else  
    {  
        InsBufLine(hbuf, ln, "** 作    者       :  ")                   
    }  
    ln = ln + 1  
  
    // Get current time  
    szTime  = GetSysTime(1)  
    Day      = szTime.Day  
    Month   = szTime.Month  
    Year     = szTime.Year  
    if (Day < 10)  
        szDay = "0@Day@"  
    else  
        szDay = Day    
  
    InsBufLine(hbuf, ln, "** 日    期       :  @Year@年@Month@月@szDay@日")  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "** 版    本       :  1.0")  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "** 修改日期  版本号   修改人  修改内容")  
    ln = ln + 1  
  
    InsBufLine(hbuf, ln, "**************************************************************/")  
} 

[cpp]  view plain  c

添加头文件注释宏：

macro MyInsertFileHeader()  
{  
    szMyName = getenv(MYNAME)  
  
    hbuf = GetCurrentBuf()  
  
    InsBufLine(hbuf, 0, "/***************************************************************************")  
    InsBufLine(hbuf, 1, "** 版权所有:  Desay Copyright (c) 2016-2026  ********************             ")  
    filename = GetBufName(hbuf)  
    InsBufLine(hbuf, 2, "** 文件名称:  @filename@")  
    InsBufLine(hbuf, 3, "** 文件标识: ")  
    InsBufLine(hbuf, 4, "** 内容摘要:  ")  
    InsBufLine(hbuf, 5, "** 当前版本:  v1.0")  
  
    /* if owner variable exists, insert Owner: name */  
    if (strlen(szMyName) > 0)  
    {  
        sz = "** 作      者     :  @szMyName@"  
    }  
    else  
    {  
        sz = "** 作      者     :"  
    }  
  
    InsBufLine(hbuf, 6, sz)  
  
    // Get current time  
    szTime  = GetSysTime(1)  
    Day      = szTime.Day  
    Month   = szTime.Month  
    Year     = szTime.Year  
    if (Day < 10)  
        szDay = "0@Day@"  
    else  
        szDay = Day                 
  
    InsBufLine(hbuf, 7,   "** 完成日期: @Year@年@Month@月@szDay@日")  
    InsBufLine(hbuf, 8,   "** 修改记录: ")  
    InsBufLine(hbuf, 9,   "** 修改记录: ")  
    InsBufLine(hbuf, 10, "** 修改日期: ")  
    InsBufLine(hbuf, 11, "** 版本号      : ")  
    InsBufLine(hbuf, 12, "** 修改人      : ")  
    InsBufLine(hbuf, 13, "** 修改内容: ")  
    InsBu

    ④添加完后 > Ctrl + s 保存

    ⑤打开自己的工程 > Option > Key Assignments 可以找到：

        Macro : MultiLineComment

        Macro : SingleLineComment

    ⑥点击Assign New Key ...，设置完成以后，重启即可

        好了，设置自己习惯的快捷键吧！^^

        可以是Alt Ctrl 等等组合。