* modification history * --------------------
* 01a, 23mar2003, added DESCRIPTION by t357 * 01a, 05mar2003, t357 written * --------------------
******************************************************************************/
macro InsFunHeader() {
// Get the owner's name from the environment variable: szMyName. // If the variable doesn't exist, then the owner field is skipped.
/*#########################################################
#########################################################
####### Set szMyName variable to your name ######## ####### for example szMyName = \########
#########################################################
#########################################################*/
szMyName = \
// 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) // Get current time szTime = GetSysTime(1)
Day = szTime.Day Month = szTime.Month Year = szTime.Year if (Day < 10) szDay = \0@Day@\ else
szDay = Day
szMonth = NumToName(Month)
szInf = Ask(\ szDescription = Ask(\ // begin assembling the title string sz =
\****\
InsBufLine(hbuf, ln, sz)
InsBufLine(hbuf, ln + 1, \ InsBufLine(hbuf, ln + 2, \ InsBufLine(hbuf, ln + 3, \@szDescription@ \// remove by t357. CutWord(szDescription) InsBufLine(hbuf, ln + 4, \ InsBufLine(hbuf, ln + 5, \ InsBufLine(hbuf, ln + 6, \ InsBufLine(hbuf, ln + 7, \
InsBufLine(hbuf, ln + 8, \ InsBufLine(hbuf, ln + 9, \
InsBufLine(hbuf, ln + 10, \ InsBufLine(hbuf, ln + 11, \ InsBufLine(hbuf, ln + 12, \
******************************************************************************/\
// put the insertion point inside the header comment SetBufIns(hbuf, ln + 1, strlen(szFunc) + strlen(szInf) + 8) }
/******************************************************************************
* NumToName -- change the month number to name *
* modification history * --------------------
* 01a, 05mar2003, t357 written * --------------------
******************************************************************************/
macro NumToName(Month) {
if (Month == 1) return \ if (Month == 2) return \ if (Month == 3) return \ if (Month == 4) return \ if (Month == 5) return \ if (Month == 6)
return \ if (Month == 7) return \ if (Month == 8) return \ if (Month == 9) return \ if (Month == 10) return \ if (Month == 11) return \ if (Month == 12) return \}
/******************************************************************************
* CutWord -- auto newline *
* modification history * --------------------
* 01a, 24mar2003, t357 fix some bug * 01a, 05mar2003, t357 written * --------------------
******************************************************************************/
macro CutWord(ncurLine, szInf) {
LENGTH = 63
nlength = StrLen(szInf)
i = 0 /* loop control */
begin = 0 /* first character's index of current line */ pre = 0 /* preceding word's index */ hbuf = GetCurrentBuf() // nline = GetBufLnCur() while (i < nlength) {
/* remove by t357 nrow = 0 sz = \
while (nrow < 80) {
if (nlength < 0) break
sz = Cat(sz, szInf[nrow]) nrow = nrow + 1 nlength = nlength - 1 }
InsBufLine(hbuf, nline, sz) szInf = szInf[nrow] } */
c = szInf[i]
if (\ { pre = i }
else if (\ {
szOutput = \