QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 15:00:38 +00:00
Code Issues Releases Wiki Activity

Fix pre-compiler highlighting

Browse source 
- in pre-compiler lines, the regular keywords such as AND, OR, XOR and the final THEN are rendered with meta command color
This commit is contained in:
Roland Heyder 2023-03-28 23:43:46 +02:00
parent 84e51c20e2
commit c2df60db6f
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/ide/ide_methods.bas
View file

@ -20469,7 +20469,8 @@ SUB ExportCodeAs (docFormat$)
IF me% THEN
GOSUB VerifyKeyword: GOSUB WriteLink: me% = 0: le% = 0
SELECT CASE UCASE$(me$)
CASE "$LET", "$IF", "$ELSEIF", "$END": pc% = -1
CASE "$LET", "$ELSE", "$END": pc% = -1
CASE "$IF", "$ELSEIF": pc% = -1: bo% = -1
END SELECT
END IF
IF kw% THEN
@ -20700,7 +20701,7 @@ SUB ExportCodeAs (docFormat$)
ELSEIF me% AND NOT le% THEN
IF INSTR("$DYNAMIC$INCLUDE$STATIC", UCASE$(veri$)) > 0 THEN me$ = ""
END IF
IF pc% AND (UCASE$(veri$) = "IF" OR UCASE$(veri$) = "THEN") THEN me$ = veri$
IF pc% THEN me$ = veri$
ELSEIF np% AND kw% THEN
IF ASC(veri$, 1) > 90 OR INSTR(listOfKeywords$, "@_" + UCASE$(veri$) + "@") = 0 THEN kw$ = ""
ELSEIF NOT ml% AND INSTR(listOfCustomKeywords$, "@" + UCASE$(removesymbol2$(veri$)) + "@") > 0 THEN