mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Scientific notation highlight fix
Yearly tradition. Affects negative variable names which could look like scientific notation.
This commit is contained in:
parent
18c33837a7
commit
8096ac4e1f
|
@ -19664,10 +19664,11 @@ FUNCTION isnumber (__a$)
|
||||||
ff = 0
|
ff = 0
|
||||||
ee = 0
|
ee = 0
|
||||||
dd = 0
|
dd = 0
|
||||||
|
neg = 0
|
||||||
FOR i = 1 TO LEN(a$)
|
FOR i = 1 TO LEN(a$)
|
||||||
a = ASC(a$, i)
|
a = ASC(a$, i)
|
||||||
IF a = 45 THEN
|
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
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
IF a = 46 THEN
|
IF a = 46 THEN
|
||||||
|
@ -19678,16 +19679,19 @@ FUNCTION isnumber (__a$)
|
||||||
IF a = 68 THEN 'dD
|
IF a = 68 THEN 'dD
|
||||||
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
|
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
|
||||||
dd = i
|
dd = i
|
||||||
|
IF neg <> 0 AND dd = 2 THEN EXIT FUNCTION
|
||||||
_CONTINUE
|
_CONTINUE
|
||||||
END IF
|
END IF
|
||||||
IF a = 69 THEN 'eE
|
IF a = 69 THEN 'eE
|
||||||
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
|
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
|
||||||
ee = i
|
ee = i
|
||||||
|
IF neg <> 0 AND ee = 2 THEN EXIT FUNCTION
|
||||||
_CONTINUE
|
_CONTINUE
|
||||||
END IF
|
END IF
|
||||||
IF a = 70 THEN 'fF
|
IF a = 70 THEN 'fF
|
||||||
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
|
IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION
|
||||||
ff = i
|
ff = i
|
||||||
|
IF neg <> 0 AND ff = 2 THEN EXIT FUNCTION
|
||||||
_CONTINUE
|
_CONTINUE
|
||||||
END IF
|
END IF
|
||||||
IF a = 43 THEN '+
|
IF a = 43 THEN '+
|
||||||
|
|
Loading…
Reference in a new issue