巨集檔案如下。

設定快捷鍵後，雙擊高亮要註釋的內容，使用快捷鍵觸發即可。

可自動識別

普通：在頭部新增

巨集：在末尾添加註釋

變數：在末尾新增

函式：在頭部新增，並自動識別函式個數

類：在頭部新增

程式碼如下：儲存為m.em即可加入source insight

macro insert_func_header_comment()
{
 hbuf = GetCurrentBuf()
 if( hbuf == 0 ) stop

 // Get current time
 szTime = GetSysTime(1)
 Day = szTime.Day
 Month = szTime.Month
 Year = szTime.Year

 chTab = CharFromAscii(9)
 chComma = CharFromAscii(44)
 
 ln = GetBufLnCur( hbuf )
 start_ln = ln;
 symbol = GetCurSymbol()
 if( symbol == nil )
 {//沒有找到符號
  InsBufLine(hbuf, ln, "")
  SetBufIns(hbuf, start_ln, 10)
  stop
 }

 text = GetBufLine( hbuf, ln )
 slen = strlen(text)
 
 sbi = GetSymbolLocation( symbol )
 if( sbi == nil )
 {//無法得到符號記錄，直接加一個簡單記錄了事
  PutBufLine( hbuf, ln, cat(text," //!< " )
  SetBufIns( hbuf, ln, slen + 6)
  stop
 }