QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00
Code Releases Wiki Activity

Merge

Browse source
This commit is contained in:
Luke Ceddia 2015-02-27 17:03:00 +11:00
parent f5285a1a61 f0aea404f1
commit 4b458acd67
1 changed files with 17 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
source/qb64.bas
View file

@ -18593,24 +18593,23 @@ IF c = 32 OR c = 9 THEN i = i + 1: GOTO lineformatnext
'----------------symbols----------------
'--------single characters--------
IF lfsinglechar(c) THEN
count = 0
DO
count = count + 1
LOOP UNTIL ASC(a$, i + count) <> 32
c2 = ASC(a$, i + count)
IF c = 60 THEN '<
IF c2 = 61 THEN a2$ = a2$ + sp + "<=": i = i + count + 1: GOTO lineformatnext
IF c2 = 62 THEN a2$ = a2$ + sp + "<>": i = i + count + 1: GOTO lineformatnext
END IF
IF c = 62 THEN '>
IF c2 = 61 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext
IF c2 = 60 THEN a2$ = a2$ + sp + "<>": i = i + count + 1: GOTO lineformatnext '>< to <>
END IF
IF c = 61 THEN '=
c2 = ASC(a$, i + 1)
IF c2 = 62 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext '=> to >=
IF c2 = 60 THEN a2$ = a2$ + sp + "<=": i = i + count + 1: GOTO lineformatnext '=< to <=
IF (c = 60) OR (c = 61) OR (c = 62) THEN
count = 0
DO
count = count + 1
LOOP UNTIL ASC(a$, i + count) <> 32
c2 = ASC(a$, i + count)
IF c = 60 THEN '<
IF c2 = 61 THEN a2$ = a2$ + sp + "<=": i = i + count + 1: GOTO lineformatnext
IF c2 = 62 THEN a2$ = a2$ + sp + "<>": i = i + count + 1: GOTO lineformatnext
ELSEIF c = 62 THEN '>
IF c2 = 61 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext
IF c2 = 60 THEN a2$ = a2$ + sp + "<>": i = i + count + 1: GOTO lineformatnext '>< to <>
ELSEIF c = 61 THEN '=
c2 = ASC(a$, i + 1)
IF c2 = 62 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext '=> to >=
IF c2 = 60 THEN a2$ = a2$ + sp + "<=": i = i + count + 1: GOTO lineformatnext '=< to <=
END IF
END IF
IF c = 36 AND LEN(a2$) THEN GOTO badusage '$