macro InsertFileComment()

{

    hbuf = GetCurrentBuf()

    ln =

    szName = "pengchao"

    szContent = "";

    SysTime = GetSysTime()

    szYear=SysTime.Year

    InsBufLine(hbuf, ln + ,  "/********************************************************************************")

    InsBufLine(hbuf, ln + ,  "")

    InsBufLine(hbuf, ln + ,  " **** Copyright (C), @szYear@, xx xx xx xx info&tech Co., Ltd.                ****")

    InsBufLine(hbuf, ln + ,  "")

    InsBufLine(hbuf, ln + ,  " ********************************************************************************")

    sz = GetFileName(GetBufName (hbuf))

    InsBufLine(hbuf, ln + ,  " * File Name     : @sz@")

    InsBufLine(hbuf, ln + ,  " * Author        : @szName@")

    SysTime = GetSysTime()

    sz=SysTime.Year

    sz1=SysTime.month

    sz3=SysTime.day

    if (sz1 < )

        {

            szMonth = "0@sz1@"

           }

           else

           {

               szMonth = sz1

           }

           if (sz3 < )

        {

            szDay = "0@sz3@"

           }

           else

           {

               szDay = sz3

           }

    InsBufLine(hbuf, ln + ,  " * Date          : @sz@-@szMonth@-@szDay@")

    szTmp = " * Description   : "

    nlnDesc = ln

    iLen = strlen (szContent)

    InsBufLine(hbuf, ln + , " * Description   : @szContent@")

    InsBufLine(hbuf, ln + , " * Version       : 1.0")

    InsBufLine(hbuf, ln + ," * Function List :")

    InsBufLine(hbuf, ln + ," * ")

    //插入函数列表

    InsBufLine(hbuf, ln + , " * Record        :")

    InsBufLine(hbuf, ln + , " * 1.Date        : @sz@-@szMonth@-@szDay@")

    InsBufLine(hbuf, ln + , " *   Author      : @szName@")

    InsBufLine(hbuf, ln + , " *   Modification: Created file")

    InsBufLine(hbuf, ln + , "")

    InsBufLine(hbuf, ln + , "*************************************************************************************************************/")

    InsBufLine(hbuf, ln + , "")

    if(iLen != )

    {

        return

    }

    //如果没有功能描述内容则提示输入

    //szContent = Ask("Description")

    SetBufIns(hbuf,nlnDesc + ,)

    DelBufLine(hbuf,nlnDesc +)

    //注释输出处理,自动换行

    CommentContent(hbuf,nlnDesc + ,"  Description   : ",szContent,)

}

macro InsertFuncComment()

//macro FuncHeadCommentEN(hbuf, ln, szFunc, szMyName,newFunc)

{

    hbuf = GetCurrentBuf()

    hwnd = GetCurrentWnd()

    ln  = GetWndSelLnFirst(hwnd)

    szMyName =  "pengchao"

    szFunc = GetCurSymbol()

    newFunc =

    iIns =

    if(newFunc != )

    {

        symbol = GetSymbolLocationFromLn(hbuf, ln)

        if(strlen(symbol) > )

        {

            hTmpBuf = NewBuf("Tempbuf")

            //将文件参数头整理成一行并去掉了注释

            szLine = GetFunctionDef(hbuf,symbol)

            iBegin = symbol.ichName

            //取出返回值定义

            szTemp = strmid(szLine,,iBegin)

            szTemp = TrimString(szTemp)

            szRet =  GetFirstWord(szTemp)

            if(symbol.Type == "Method")

            {

                szTemp = strmid(szTemp,strlen(szRet),strlen(szTemp))

                szTemp = TrimString(szTemp)

                if(szTemp == "::")

                {

                    szRet = ""

                }

            }

            if(toupper (szRet) == "MACRO")

            {

                //对于宏返回值特殊处理

                szRet = ""

            }

            //从函数头分离出函数参数

            nMaxParamSize = GetWordFromString(hTmpBuf,szLine,iBegin,strlen(szLine),"(",",",")")

            lnMax = GetBufLineCount(hTmpBuf)

            ln = symbol.lnFirst

            SetBufIns (hbuf, ln, )

        }

    }

    else

    {

        lnMax =

        szRet = ""

        szLine = ""

    }

    InsBufLine(hbuf, ln, "/*****************************************************************************")

    InsBufLine(hbuf, ln+, " * Function      : @szFunc@")

    InsBufLine(hbuf, ln+, " * Description   : ")

    oldln  = ln

    szIns = " * Input         : "

    if(newFunc != )

    {

        //对于已经存在的函数输出输入参数表

        i =

        while ( i < lnMax)

        {

            szTmp = GetBufLine(hTmpBuf, i)

            nLen = strlen(szTmp);

            //对齐参数后面的空格，实际是对齐后面的参数的说明

            szBlank = CreateBlankString(nMaxParamSize - nLen + )

            szTmp = cat(szTmp,szBlank)

            ln = ln +

            szTmp = cat(szIns,szTmp)

            InsBufLine(hbuf, ln+, "@szTmp@")

            iIns =

            szIns = "                   "

            i = i +

        }

        closebuf(hTmpBuf)

    }

    if(iIns == )

    {

            ln = ln +

            InsBufLine(hbuf, ln+, " * Input          : None")

    }

    InsBufLine(hbuf, ln+, " * Output        : None")

    InsBufLine(hbuf, ln+, " * Return        : @szRet@")

    /*InsBufLine(hbuf, ln+5, " Calls        : ")

    InsBufLine(hbuf, ln+6, " Called By    : ")*/

    InsbufLIne(hbuf, ln+, " * Others        : ");

    SysTime = GetSysTime();

    sz1=SysTime.Year

    sz2=SysTime.month

    sz3=SysTime.day

    if (sz2 < )

    {

        szMonth = "0@sz2@"

       }

       else

       {

           szMonth = sz2

       }

       if (sz3 < )

    {

        szDay = "0@sz3@"

       }

       else

       {

           szDay = sz3

       }

    InsBufLine(hbuf, ln + , " * Record")

    InsBufLine(hbuf, ln + , " * 1.Date        : @sz1@@szMonth@@szDay@")

    InsBufLine(hbuf, ln + , " *   Author      : @szMyName@")

    InsBufLine(hbuf, ln + , " *   Modification: Created function")

    InsBufLine(hbuf, ln + , "")

    InsBufLine(hbuf, ln + , "*****************************************************************************/")

    if ((newFunc == ) && (strlen(szFunc)>))

    {

        InsBufLine(hbuf, ln+, "VOS_UINT32  @szFunc@( # )")

        InsBufLine(hbuf, ln+, "{");

        InsBufLine(hbuf, ln+, "    #");

        InsBufLine(hbuf, ln+, "}");

        SearchForward()

    }

    hwnd = GetCurrentWnd()

    if (hwnd == )

        stop

    sel = GetWndSel(hwnd)

    sel.ichFirst =

    sel.ichLim = sel.ichFirst

    sel.lnFirst = ln +

    sel.lnLast = ln +

    //szContent = Ask("Description")

    DelBufLine(hbuf,oldln + )

    setWndSel(hwnd,sel)

    newln = CommentContent(hbuf,oldln + ," * Description   : ",szContent,) -

    ln = ln + newln - oldln

    if ((newFunc == ) && (strlen(szFunc)>))

    {

        //提示输入函数返回值名

        szRet = Ask("Please input return value type")

        if(strlen(szRet) > )

        {

            PutBufLine(hbuf, ln+, " * Return        : @szRet@")

            PutBufLine(hbuf, ln+, "@szRet@ @szFunc@( # )")

            SetbufIns(hbuf,ln+,strlen(szRet)+strlen(szFunc) +

        }

        szFuncDef = ""

        isFirstParam =

        sel.ichFirst = strlen(szFunc)+strlen(szRet) +

        sel.ichLim = sel.ichFirst + 

        //循环输入新函数的参数

        while ()

        {

            szParam = ask("Please input parameter")

            szParam = TrimString(szParam)

            szTmp = cat(szIns,szParam)

            szParam = cat(szFuncDef,szParam)

            sel.lnFirst = ln +

            sel.lnLast = ln +

            setWndSel(hwnd,sel)

            sel.ichFirst = sel.ichFirst + strlen(szParam)

            sel.ichLim = sel.ichFirst

            oldsel = sel

            if(isFirstParam == )

            {

                PutBufLine(hbuf, ln+, "@szTmp@")

                isFirstParam  =

            }

            else

            {

                ln = ln +

                InsBufLine(hbuf, ln+, "@szTmp@")

                oldsel.lnFirst = ln +

                oldsel.lnLast = ln +

            }

            SetBufSelText(hbuf,szParam)

            szIns = "                "

            szFuncDef = ", "

            oldsel.lnFirst = ln +

            oldsel.lnLast = ln +

            oldsel.ichFirst =

            oldsel.ichLim =

            setWndSel(hwnd,oldsel)

        }

    }

    return ln +

}