mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 07:55:07 +00:00
Properly highlight sub/func with "." in their names. Addresses issue #28.
This commit is contained in:
parent
363509210c
commit
887c0039a1
1 changed files with 9 additions and 2 deletions
|
@ -8257,7 +8257,6 @@ SUB ideshowtext
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF prevListOfCustomWords$ <> listOfCustomKeywords$ THEN
|
IF prevListOfCustomWords$ <> listOfCustomKeywords$ THEN
|
||||||
prevListOfCustomWords$ = listOfCustomKeywords$
|
|
||||||
IF manualList = 0 THEN
|
IF manualList = 0 THEN
|
||||||
DO
|
DO
|
||||||
atSign = INSTR(atSign + 1, listOfCustomKeywords$, "@")
|
atSign = INSTR(atSign + 1, listOfCustomKeywords$, "@")
|
||||||
|
@ -8282,6 +8281,7 @@ SUB ideshowtext
|
||||||
END IF
|
END IF
|
||||||
LOOP
|
LOOP
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
FOR i = 1 TO LEN (listOfCustomKeywords$)
|
FOR i = 1 TO LEN (listOfCustomKeywords$)
|
||||||
checkChar = ASC(listOfCustomKeywords$, i)
|
checkChar = ASC(listOfCustomKeywords$, i)
|
||||||
IF checkChar = 64 THEN
|
IF checkChar = 64 THEN
|
||||||
|
@ -8291,6 +8291,13 @@ SUB ideshowtext
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
listOfCustomKeywords$ = tempList$
|
listOfCustomKeywords$ = tempList$
|
||||||
|
|
||||||
|
DO WHILE INSTR(listOfCustomKeywords$, fix046$)
|
||||||
|
x = INSTR(listOfCustomKeywords$, fix046$)
|
||||||
|
listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, x - 1) + "." + RIGHT$(listOfCustomKeywords$, LEN(listOfCustomKeywords$) - x + 1 - LEN(fix046$))
|
||||||
|
LOOP
|
||||||
|
|
||||||
|
prevListOfCustomWords$ = listOfCustomKeywords$
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
cc = -1
|
cc = -1
|
||||||
|
@ -8559,7 +8566,7 @@ SUB ideshowtext
|
||||||
checkKeyword$ = ""
|
checkKeyword$ = ""
|
||||||
right.sep$ = ""
|
right.sep$ = ""
|
||||||
FOR i = m TO LEN(a2$)
|
FOR i = m TO LEN(a2$)
|
||||||
IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 OR MID$(a2$, i, 1) = "." THEN right.sep$ = MID$(a2$, i, 1): EXIT FOR
|
IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): EXIT FOR
|
||||||
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
|
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
|
||||||
NEXT
|
NEXT
|
||||||
IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar
|
IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar
|
||||||
|
|
Loading…
Reference in a new issue