mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 01:51:20 +00:00
Adjusts help system to find non-prefixed keywords.
This commit is contained in:
parent
dffc94b83d
commit
95098621a6
|
@ -2399,12 +2399,12 @@ FUNCTION ide2 (ignore)
|
||||||
a2$ = UCASE$(a2$)
|
a2$ = UCASE$(a2$)
|
||||||
'check if F1 is in help links
|
'check if F1 is in help links
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN "internal\help\links.bin" FOR INPUT AS #fh
|
OPEN "internal\help\links.bin" FOR BINARY AS #fh
|
||||||
lnks = 0: lnks$ = CHR$(0)
|
lnks = 0: lnks$ = CHR$(0)
|
||||||
DO UNTIL EOF(fh)
|
DO UNTIL EOF(fh)
|
||||||
LINE INPUT #fh, l$
|
LINE INPUT #fh, l$
|
||||||
c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c)
|
c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c)
|
||||||
IF a2$ = UCASE$(l1$) THEN
|
IF a2$ = UCASE$(l1$) OR (qb64prefix_set = 1 AND LEFT$(l1$, 1) = "_" AND a2$ = MID$(l1$, 2)) THEN
|
||||||
IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN
|
IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN
|
||||||
lnks = lnks + 1
|
lnks = lnks + 1
|
||||||
IF l2$ = l1$ THEN
|
IF l2$ = l1$ THEN
|
||||||
|
@ -4948,7 +4948,7 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
'Add all linked pages to download list (if not already in list)
|
'Add all linked pages to download list (if not already in list)
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN "internal\help\links.bin" FOR INPUT AS #fh
|
OPEN "internal\help\links.bin" FOR BINARY AS #fh
|
||||||
DO UNTIL EOF(fh)
|
DO UNTIL EOF(fh)
|
||||||
LINE INPUT #fh, l$
|
LINE INPUT #fh, l$
|
||||||
IF LEN(l$) THEN
|
IF LEN(l$) THEN
|
||||||
|
@ -13906,12 +13906,12 @@ SUB IdeMakeContextualMenu
|
||||||
IF LEN(a2$) > 0 THEN
|
IF LEN(a2$) > 0 THEN
|
||||||
'check if F1 is in help links
|
'check if F1 is in help links
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN "internal\help\links.bin" FOR INPUT AS #fh
|
OPEN "internal\help\links.bin" FOR BINARY AS #fh
|
||||||
lnks = 0: lnks$ = CHR$(0)
|
lnks = 0: lnks$ = CHR$(0)
|
||||||
DO UNTIL EOF(fh)
|
DO UNTIL EOF(fh)
|
||||||
LINE INPUT #fh, l$
|
LINE INPUT #fh, l$
|
||||||
c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c)
|
c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c)
|
||||||
IF a2$ = UCASE$(l1$) THEN
|
IF a2$ = UCASE$(l1$) OR (qb64prefix_set = 1 AND LEFT$(l1$, 1) = "_" AND a2$ = MID$(l1$, 2)) THEN
|
||||||
IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN
|
IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN
|
||||||
lnks = lnks + 1
|
lnks = lnks + 1
|
||||||
EXIT DO
|
EXIT DO
|
||||||
|
|
Loading…
Reference in a new issue