mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-18 05:55:14 +00:00
Restores Steve's SUB ParseExpression
This commit is contained in:
parent
a2e1ea0091
commit
1ea1b66c95
|
@ -23581,7 +23581,7 @@ SUB ParseExpression (exp$)
|
||||||
SELECT CASE MID$(exp$, op + c + 1, 1)
|
SELECT CASE MID$(exp$, op + c + 1, 1)
|
||||||
CASE "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "N": numset = -1 'Valid digit
|
CASE "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "N": numset = -1 'Valid digit
|
||||||
CASE "-" 'We need to check if it's a minus or a negative
|
CASE "-" 'We need to check if it's a minus or a negative
|
||||||
IF OName(OpOn) = "_PI" OR (OName(OpOn) = "PI" AND qb64prefix_set = 1) OR numset THEN EXIT DO
|
IF OName(OpOn) = "_PI" OR numset THEN EXIT DO
|
||||||
CASE ELSE 'Not a valid digit, we found our separator
|
CASE ELSE 'Not a valid digit, we found our separator
|
||||||
EXIT DO
|
EXIT DO
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
Loading…
Reference in a new issue