QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 15:50:25 +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---------------- '----------------symbols----------------
'--------single characters-------- '--------single characters--------
IF lfsinglechar(c) THEN IF lfsinglechar(c) THEN
IF (c = 60) OR (c = 61) OR (c = 62) THEN
count = 0 count = 0
DO DO
count = count + 1 count = count + 1
LOOP UNTIL ASC(a$, i + count) <> 32 LOOP UNTIL ASC(a$, i + count) <> 32
c2 = ASC(a$, i + count) c2 = ASC(a$, i + count)
IF c = 60 THEN '< IF c = 60 THEN '<
IF c2 = 61 THEN a2$ = a2$ + sp + "<=": i = i + count + 1: GOTO lineformatnext 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 IF c2 = 62 THEN a2$ = a2$ + sp + "<>": i = i + count + 1: GOTO lineformatnext
END IF ELSEIF c = 62 THEN '>
IF c = 62 THEN '> IF c2 = 61 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext
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 <>
IF c2 = 60 THEN a2$ = a2$ + sp + "<>": i = i + count + 1: GOTO lineformatnext '>< to <> ELSEIF c = 61 THEN '=
END IF c2 = ASC(a$, i + 1)
IF c = 61 THEN '= IF c2 = 62 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext '=> to >=
c2 = ASC(a$, i + 1) IF c2 = 60 THEN a2$ = a2$ + sp + "<=": i = i + count + 1: GOTO lineformatnext '=< to <=
IF c2 = 62 THEN a2$ = a2$ + sp + ">=": i = i + count + 1: GOTO lineformatnext '=> to >= END IF
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 '$ IF c = 36 AND LEN(a2$) THEN GOTO badusage '$