InsBufLine(hbuf, ln + 1, \
InsBufLine(hbuf, ln + 2, \ } else stop
SetWndSel(hwnd, sel)
LoadSearchPattern(\ Search_Forward }
/* G E T W O R D L E F T O F I C H */
/*------------------------------------------------------------------------- Given an index to a character (ich) and a string (sz), return a \ text word just to the left of the ich. Output:
wordinfo.szWord = the word string wordinfo.ich = the first ich of the word wordinfo.ichLim = the limit ich of the word
-------------------------------------------------------------------------*/ macro GetWordLeftOfIch(ich, sz) {
wordinfo = \ chTab = CharFromAscii(9)
// scan backwords over white space, if any ich = ich - 1; if (ich >= 0)
while (sz[ich] == \ {
ich = ich - 1; if (ich < 0) break; }
// scan backwords to start of word ichLim = ich + 1;
asciiA = AsciiFromChar(\ asciiZ = AsciiFromChar(\ while (ich >= 0) {
ch = toupper(sz[ich]) asciiCh = AsciiFromChar(ch)
if ((asciiCh < asciiA || asciiCh > asciiZ) && !IsNumber(ch)) break // stop at first non-identifier character ich = ich - 1; }
ich = ich + 1
wordinfo.szWord = strmid(sz, ich, ichLim) wordinfo.ich = ich wordinfo.ichLim = ichLim; return wordinfo }