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

Adapts isnumber() to recognize number literals with type suffixes.

Browse source
This commit is contained in:
Fellippe Heitor 2021-02-05 17:59:17 -03:00
parent 7cf53e89bf
commit 711e6860bc
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
source/qb64.bas
View file

@ -19216,8 +19216,25 @@ SUB insertelements (a$, i, elements$)
END SUB
FUNCTION isnumber (a$)
FUNCTION isnumber (__a$)
a$ = __a$
IF LEN(a$) = 0 THEN EXIT FUNCTION
i = INSTR(a$, "~"): IF i THEN GOTO foundsymbol
i = INSTR(a$, "`"): IF i THEN GOTO foundsymbol
i = INSTR(a$, "%"): IF i THEN GOTO foundsymbol
i = INSTR(a$, "&"): IF i THEN GOTO foundsymbol
i = INSTR(a$, "!"): IF i THEN GOTO foundsymbol
i = INSTR(a$, "#"): IF i THEN GOTO foundsymbol
i = INSTR(a$, "$"): IF i THEN GOTO foundsymbol
GOTO proceedWithoutSymbol
foundsymbol:
IF i = 1 THEN EXIT FUNCTION
symbol$ = RIGHT$(a$, LEN(a$) - i + 1)
IF symboltype(symbol$) = 0 THEN EXIT FUNCTION
a$ = LEFT$(a$, i - 1)
proceedWithoutSymbol:
FOR i = 1 TO LEN(a$)
a = ASC(MID$(a$, i, 1))
IF a = 45 THEN