mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 02:20:25 +00:00
Fix pre-compiler highlighting
- 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:
parent
84e51c20e2
commit
c2df60db6f
|
@ -20469,7 +20469,8 @@ SUB ExportCodeAs (docFormat$)
|
||||||
IF me% THEN
|
IF me% THEN
|
||||||
GOSUB VerifyKeyword: GOSUB WriteLink: me% = 0: le% = 0
|
GOSUB VerifyKeyword: GOSUB WriteLink: me% = 0: le% = 0
|
||||||
SELECT CASE UCASE$(me$)
|
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 SELECT
|
||||||
END IF
|
END IF
|
||||||
IF kw% THEN
|
IF kw% THEN
|
||||||
|
@ -20700,7 +20701,7 @@ SUB ExportCodeAs (docFormat$)
|
||||||
ELSEIF me% AND NOT le% THEN
|
ELSEIF me% AND NOT le% THEN
|
||||||
IF INSTR("$DYNAMIC$INCLUDE$STATIC", UCASE$(veri$)) > 0 THEN me$ = ""
|
IF INSTR("$DYNAMIC$INCLUDE$STATIC", UCASE$(veri$)) > 0 THEN me$ = ""
|
||||||
END IF
|
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
|
ELSEIF np% AND kw% THEN
|
||||||
IF ASC(veri$, 1) > 90 OR INSTR(listOfKeywords$, "@_" + UCASE$(veri$) + "@") = 0 THEN kw$ = ""
|
IF ASC(veri$, 1) > 90 OR INSTR(listOfKeywords$, "@_" + UCASE$(veri$) + "@") = 0 THEN kw$ = ""
|
||||||
ELSEIF NOT ml% AND INSTR(listOfCustomKeywords$, "@" + UCASE$(removesymbol2$(veri$)) + "@") > 0 THEN
|
ELSEIF NOT ml% AND INSTR(listOfCustomKeywords$, "@" + UCASE$(removesymbol2$(veri$)) + "@") > 0 THEN
|
||||||
|
|
Loading…
Reference in a new issue