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

Normalizes help references for internally handled commands.

Browse source
This commit is contained in:
Fellippe Heitor 2021-06-23 16:38:41 -03:00
parent 2e8925a17c
commit 29d01706e2
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
source/ide/ide_methods.bas
View file

@ -922,7 +922,14 @@ FUNCTION ide2 (ignore)
IF l <> 0 AND idecy = l THEN onCurrentLine = LEN(a$): a$ = a$ + " on current line"
hasReference = INSTR(a$, " - Reference: ")
IF hasReference THEN hasReference = hasReference + 14
IF hasReference THEN
hasReference = hasReference + 14
ELSE
hasReference = INSTR(a$, "Expected ")
IF hasReference THEN
hasReference = hasReference + 9
END IF
END IF
FOR i = 1 TO LEN(a$)
IF hasReference > 0 AND i >= hasReference THEN COLOR 12, 6
IF onCurrentLine > 0 AND i > onCurrentLine THEN COLOR 7, 1

6
source/qb64.bas
View file

@ -9778,7 +9778,7 @@ DO
IF a2$ = "," THEN
GOTO finishedpromptstring
END IF
a$ = "Syntax error - Expected INPUT [;] " + CHR$(34) + "[Question or statement text]" + CHR$(34) + "{,|;} variable[, ...] or INPUT ; variable[, ...]": GOTO errmes
a$ = "Syntax error - Reference: INPUT [;] " + CHR$(34) + "[Question or statement text]" + CHR$(34) + "{,|;} variable[, ...] or INPUT ; variable[, ...]": GOTO errmes
END IF
'there was no promptstring, so print a ?
IF lineinput = 0 THEN PRINT #12, "qbs_print(qbs_new_txt(" + CHR$(34) + "? " + CHR$(34) + "),0);"
@ -9854,7 +9854,7 @@ DO
gotinputvar:
commaneeded = commaneeded + 1: IF commaneeded = 2 THEN commaneeded = 0
NEXT
IF numvar = 0 THEN a$ = "Syntax error - Expected INPUT [;] " + CHR$(34) + "[Question or statement text]" + CHR$(34) + "{,|;} variable[, ...] or INPUT ; variable[, ...]": GOTO errmes
IF numvar = 0 THEN a$ = "Syntax error - Reference: INPUT [;] " + CHR$(34) + "[Question or statement text]" + CHR$(34) + "{,|;} variable[, ...] or INPUT ; variable[, ...]": GOTO errmes
IF lineinput = 1 AND numvar > 1 THEN a$ = "Too many variables": GOTO errmes
PRINT #12, "qbs_input(" + str2(numvar) + "," + str2$(newline) + ");"
PRINT #12, "if (stop_program) end();"
@ -10872,7 +10872,7 @@ DO
IF n >= 1 THEN
IF firstelement$ = "LET" THEN
IF n = 1 THEN a$ = "Syntax error - Expected LET variable = expression (tip: LET is entirely optional)": GOTO errmes
IF n = 1 THEN a$ = "Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)": GOTO errmes
ca$ = RIGHT$(ca$, LEN(ca$) - 4)
n = n - 1
l$ = SCase$("Let")