<pre name="code" class="cpp"><span style="font-size:18px;">/*
 * utils.em
 *
 *  Created on: March 13, 2015
 *      Author: [email protected]
 */

//szMyName = getenv(MYNAME)

/*
 * 1. GetCurrentBuf(): 獲取當前輸入的控制代碼
 * 2. GetCurSymbol(): 獲取當前游標後的符號
 * 3. GetBufLnCur(): 獲取當前游標所在的行號
 * 4. hwnd=GetCurrentWnd(), sel=GetWndSel(hwnd), col=sel.ichFirst+1 : 獲取列號
 * 5. InsBufLine(hbuf, ln, sz): 在ln行插入sz的字元內容
 * 6. SetBufIns(hbuf, ln, n): 將游標轉移到第ln行的第n在字元
 * 7. sz = cat(sz, "abc"): 將abc新增到sz後面
 */

/******************************************************************************/
macro InsertHeader()
{
	hbuf = GetCurrentBuf()
	ln = GetBufLnCur(hbuf)
	if (ln < 0)
	{
		ln = 0
	}

	sz = "/******************************************************************************/"
	InsBufLine(hbuf, ln, sz)
	SetBufIns(hbuf, ln+1, 0)
}

/******************************************************************************/
macro GetCurrentFileName(pathName)
{
	name = ""
	nlength = strlen(pathName)
	i = nlength - 1

	while (i + 1)
	{
    	ch = pathName[i]
   		if ("\\" == "@
 
[email protected]")
    		break
   		i = i - 1
	}

	i = i + 1
	while (i < nlength)
	{
	   name = cat(name, pathName[i])
	   i = i + 1
	}
	return name
}

macro MonthNumToName(Month)
{
	if (Month == 1)
		return "January"
	if (Month == 2)
		return "February"
	if (Month == 3)
		return "March"
	if (Month == 4)
		return "April"
	if (Month == 5)
		return "May"
	if (Month == 6)
		return "June"
	if (Month == 7)
		return "July"
	if (Month == 8)
		return "August"
	if (Month == 9)
		return "September"
	if (Month == 10)
		return "October"
	if (Month == 11)
		return "November"
	if (Month == 12)
		return "December"
}

macro GetCurrentTimeAndDate()
{
	szTimeDate = ""

	szTime = GetSysTime(1)
	Hour = szTime.Hour
	if (Hour < 10)
		Hour = "
 
[email protected]@"

	Minute = szTime.Minute
	if (Minute < 10)
		Minute = "[email protected]@"

	Second = szTime.Second
	if (Second < 10)
		Second = "[email protected]@"

	Year = szTime.Year
	Month = szTime.Month
	Day = szTime.Day

	if (Day < 10)
		szDay = "[email protected]@"
	else
		szDay = Day

	szMonth = MonthNumToName(Month)
	/*
	if (Month < 10)
		szMonth = "
 
[email protected]@"
	else
		szMonth = Month
	*/
	szTimeDate = "@[email protected] @[email protected], @[email protected]  @[email protected]:@[email protected]:@[email protected]"
	return szTimeDate
}

macro GetMyEmailAddress()
{
	szMyEmail = "xtank.nie\@gmail.com"
	return szMyEmail
}

/******************************************************************************/
macro InsertFileHeader()
{
	ln = 0;
	hbuf = GetCurrentBuf()
	InsBufLine(hbuf, ln, "/*")

	szPathName = GetBufName(hBuf)
	szCurrentFileName = GetCurrentFileName(szPathName)

	sz = " * @[email protected]"
	ln = ln + 1
	InsBufLine(hbuf, ln, sz)

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

	szTimeDate = GetCurrentTimeAndDate()
	sz = " *  Created on: @[email protected]"
	ln = ln + 1
	InsBufLine(hbuf, ln, sz)

	szEmail = GetMyEmailAddress()
	sz = " *      Author: @[email protected]"
	ln = ln + 1
	InsBufLine(hbuf, ln, sz)

	ln = ln + 1
	InsBufLine(hbuf, ln, " */")
	InsBufLine(hbuf, ln + 1, "")
	SetBufIns(hbuf, ln+2, 0)
}

macro IfdefSz(sz)
{
	hwnd = GetCurrentWnd()
	lnFirst = GetWndSelLnFirst(hwnd)
	lnLast = GetWndSelLnLast(hwnd)

	hbuf = GetCurrentBuf()
	InsBufLine(hbuf, lnFirst, "#ifdef @[email protected]")
	InsBufLine(hbuf, lnLast+2, "#endif /* @[email protected] */")
}

macro InsertCPlusPlus()
{
	//IfdefSz("__cplusplus");
	hbuf = GetCurrentBuf()
	ln = GetBufLnCur(hbuf)
	ln_bak = ln
	InsBufLine(hbuf, ln, "#ifdef __cplusplus")
	ln = ln + 1
	InsBufLine(hbuf, ln, "extern \"C\" {")
	ln = ln + 1
	InsBufLine(hbuf, ln, "#endif /* __cplusplus */")

	ln = ln + 1
	InsBufLine(hbuf, ln, "")

	ln = ln + 1
	InsBufLine(hbuf, ln, "#ifdef __cplusplus")
	ln = ln + 1
	InsBufLine(hbuf, ln, "}")
	ln = ln + 1
	InsBufLine(hbuf, ln, "#endif /* __cplusplus */")
	SetBufIns(hbuf, ln_bak+3, 0)
}

macro isUpperLetter(letter)
{
	if (letter == "A"
	    || letter == "B"
	    || letter == "C"
	    || letter == "D"
	    || letter == "E"
	    || letter == "F"
	    || letter == "G"
	    || letter == "H"
	    || letter == "I"
	    || letter == "J"
	    || letter == "K"
	    || letter == "L"
	    || letter == "M"
	    || letter == "N"
	    || letter == "O"
	    || letter == "P"
	    || letter == "Q"
	    || letter == "R"
	    || letter == "S"
	    || letter == "T"
	    || letter == "U"
	    || letter == "V"
	    || letter == "W"
	    || letter == "X"
	    || letter == "Y"
	    || letter == "Z")
	    return 1
	else
	    return 0
}

macro GetHeadFileDefine()
{
	szHeadFileNameDefine = ""
	hbuf = GetCurrentBuf()
	szPathName = GetBufName(hBuf)
	szCurrentFileName = GetCurrentFileName(szPathName)
	szCurrentFileName = toupper(szCurrentFileName)

	nlength = strlen(szCurrentFileName)
	szHeadFileNameDefine = cat(szHeadFileNameDefine, "__")
	i = 0
	while (i < nlength)
	{
    	ch = szCurrentFileName[i]
   		if (isUpperLetter("@[email protected]") == 1)
    		szHeadFileNameDefine = cat(szHeadFileNameDefine, "@[email protected]")
    	else
			szHeadFileNameDefine = cat(szHeadFileNameDefine, "_")
   		i = i + 1
	}

	szHeadFileNameDefine = cat(szHeadFileNameDefine, "__")
	return szHeadFileNameDefine
}

macro InsertDefineHeadName()
{
	//IfdefSz("__cplusplus");
	hbuf = GetCurrentBuf()
	ln = GetBufLnCur(hbuf)
	ln_bak = ln

	szHeadFileDefineName = GetHeadFileDefine()
	InsBufLine(hbuf, ln, "#ifndef @[email protected]")
	ln = ln + 1
	InsBufLine(hbuf, ln, "#define @[email protected]")

	ln = ln + 1
	InsBufLine(hbuf, ln, "")

	ln = ln + 1
	InsBufLine(hbuf, ln, "#endif /* @[email protected] */")
	SetBufIns(hbuf, ln_bak+2, 0)
}

/******************************************************************************/
/******************************************************************************/
// Inserts "Returns True .. or False..." at the current line
macro ReturnTrueOrFalse()
{
	hbuf = GetCurrentBuf()
	ln = GetBufLineCur(hbuf)

	InsBufLine(hbuf, ln, "    Returns True if successful or False if errors.")
}

/* Inserts ifdef REVIEW around the selection */
macro IfdefReview()
{
	IfdefSz("REVIEW");
}


/* Inserts ifdef BOGUS around the selection */
macro IfdefBogus()
{
	IfdefSz("BOGUS");
}


/* Inserts ifdef NEVER around the selection */
macro IfdefNever()
{
	IfdefSz("NEVER");
}


// Ask user for ifdef condition and wrap it around current
// selection.
macro InsertIfdef()
{
	sz = Ask("Enter ifdef condition:")
	if (sz != "")
		IfdefSz(sz);
}




// Delete the current line and appends it to the clipboard buffer
macro KillLine()
{
	hbufCur = GetCurrentBuf();
	lnCur = GetBufLnCur(hbufCur)
	hbufClip = GetBufHandle("Clipboard")
	AppendBufLine(hbufClip, GetBufLine(hbufCur, lnCur))
	DelBufLine(hbufCur, lnCur)
}


// Paste lines killed with KillLine (clipboard is emptied)
macro PasteKillLine()
{
	Paste
	EmptyBuf(GetBufHandle("Clipboard"))
}



// delete all lines in the buffer
macro EmptyBuf(hbuf)
{
	lnMax = GetBufLineCount(hbuf)
	while (lnMax > 0)
		{
		DelBufLine(hbuf, 0)
		lnMax = lnMax - 1
		}
}


// Ask the user for a symbol name, then jump to its declaration
macro JumpAnywhere()
{
	symbol = Ask("What declaration would you like to see?")
	JumpToSymbolDef(symbol)
}


// list all siblings of a user specified symbol
// A sibling is any other symbol declared in the same file.
macro OutputSiblingSymbols()
{
	symbol = Ask("What symbol would you like to list siblings for?")
	hbuf = ListAllSiblings(symbol)
	SetCurrentBuf(hbuf)
}


// Given a symbol name, open the file its declared in and
// create a new output buffer listing all of the symbols declared
// in that file.  Returns the new buffer handle.
macro ListAllSiblings(symbol)
{
	loc = GetSymbolLocation(symbol)
	if (loc == "")
		{
		msg ("@[email protected] not found.")
		stop
		}

	hbufOutput = NewBuf("Results")

	hbuf = OpenBuf(loc.file)
	if (hbuf == 0)
		{
		msg ("Can't open file.")
		stop
		}

	isymMax = GetBufSymCount(hbuf)
	isym = 0;
	while (isym < isymMax)
		{
		AppendBufLine(hbufOutput, GetBufSymName(hbuf, isym))
		isym = isym + 1
		}

	CloseBuf(hbuf)

	return hbufOutput
}
</span>