k = begin /* loop control */ while (k < pre) {
szOutput = Cat(szOutput, szInf[k]) k = k + 1 }
InsBufLine(hbuf, ncurLine, sz) ncurLine = ncurLine + 1 begin = pre } i = i + 1 }
if (h != i - 1) {
szOutput = \
k = begin /* loop control */ while (k < pre) {
szOutput = Cat(szOutput, szInf[k]) k = k + 1 }
InsBufLine(hbuf, ncurLine, sz) ncurLine = ncurLine + 1 } }
/******************************************************************************
* GetFileName -- get the filename only from the path *
* modification history * --------------------
* 01a, 05mar2003, t357 written * --------------------
******************************************************************************/
macro GetFileName(pathName) {
nlength = strlen(pathName) i = nlength - 1 name = \ while (i + 1) {
ch = pathName[i] if (\ break i = i - 1 } i = i + 1
while (i < nlength) {
name = cat(name, pathName[i]) i = i + 1 }
return name }
/******************************************************************************
* ReturnTrueOrFalse -- Inserts \
*
* modification history * --------------------
* 01a, 05mar2003, t357 written * --------------------
******************************************************************************/
macro ReturnTrueOrFalse() {
szReturns = \ hbuf = GetCurrentBuf() ln = GetBufLnCur(hbuf)
szCurLine = GetBufLine(hbuf, ln) DelBufLine(hbuf, ln)
InsBufLine(hbuf, ln, \
SetBufIns(hbuf, ln, StrLen(szReturns) + StrLen(szCurLine) + 3) }
/******************************************************************************
* InsHeaderDef -- Inserts the header define in the headerfile *
* modification history * --------------------
* 01a, 05mar2003, t357 written * --------------------
******************************************************************************/
macro InsHeaderDef() {
hBuf = GetCurrentBuf()
szpathName = GetBufName(hBuf) szfileName = GetFileName(szpathName) szfileName = toupper(szfileName) nlength = StrLen(szfileName) i = 0 /* loop control */ szdefineName = \ while (i < nlength) {
if (szfileName[i] == \
szdefineName = Cat(szdefineName, \ else
szdefineName = Cat(szdefineName, szfileName[i]) i = i + 1 }
szdefineName = Cat(\ IfdefineSz(szdefineName) }
/******************************************************************************
* PrintDate - print date on where the cursor point to * DESCRIPTION: - * * Input: * Output: * Returns: *
* modification history * --------------------
* 01a, 23mar2003, t357 written * --------------------
******************************************************************************/
macro PrintDate() {
szTime = GetSysTime(1) Day = szTime.Day Month = szTime.Month Year = szTime.Year if (Day < 10) szDay = \0@Day@\ else
szDay = Day
szMonth = NumToName(Month) hbuf = GetCurrentBuf() ln = GetBufLnCur(hbuf)
szCurLine = GetBufLine(hbuf, ln) DelBufLine(hbuf, ln)
InsBufLine(hbuf, ln, \ SetBufIns(hbuf, ln, StrLen(szCurLine) + 10) }
// Ask user for ifdef condition and wrap it around current // selection.
// 28mar2003, modified by t357. // 26mar2003, modified by t357. macro InsIfdef() {