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

Scientific notation highlight fix

Browse source 
Yearly tradition. Affects negative variable names
which could look like scientific notation.
This commit is contained in:
FellippeHeitor 2022-01-18 20:31:14 -03:00
parent 18c33837a7
commit 8096ac4e1f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/ide/ide_methods.bas
View file

@ -19664,10 +19664,11 @@ FUNCTION isnumber (__a$)
ff = 0
ee = 0
dd = 0
neg = 0
FOR i = 1 TO LEN(a$)
a = ASC(a$, i)
IF a = 45 THEN
IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND ((dd > 0 AND dd = i - 1) OR (ee > 0 AND ee = i - 1) OR (ff > 0 AND ff = i - 1))) THEN _CONTINUE
IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND ((dd > 0 AND dd = i - 1) OR (ee > 0 AND ee = i - 1) OR (ff > 0 AND ff = i - 1))) THEN neg = (i = 1): _CONTINUE
EXIT FUNCTION
END IF
IF a = 46 THEN
@ -19678,16 +19679,19 @@ FUNCTION isnumber (__a$)
IF a = 68 THEN 'dD
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
dd = i
IF neg <> 0 AND dd = 2 THEN EXIT FUNCTION
_CONTINUE
END IF
IF a = 69 THEN 'eE
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
ee = i
IF neg <> 0 AND ee = 2 THEN EXIT FUNCTION
_CONTINUE
END IF
IF a = 70 THEN 'fF
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
ff = i
IF neg <> 0 AND ff = 2 THEN EXIT FUNCTION
_CONTINUE
END IF
IF a = 43 THEN '+