mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 10:30:36 +00:00
Prevents () in comments after SUBs from being displayed in Subs Dialog.
This commit is contained in:
parent
7fa600acb9
commit
fa7ad406f6
|
@ -8744,7 +8744,9 @@ FUNCTION idesubs$
|
||||||
END IF
|
END IF
|
||||||
a$ = LTRIM$(RTRIM$(a$))
|
a$ = LTRIM$(RTRIM$(a$))
|
||||||
x = INSTR(a$, "(")
|
x = INSTR(a$, "(")
|
||||||
IF x THEN
|
DIM comment AS _BYTE, quote AS _BYTE
|
||||||
|
IF x THEN FindQuoteComment a$, x, comment, quote
|
||||||
|
IF x > 0 AND comment = 0 AND quote = 0 THEN
|
||||||
n$ = RTRIM$(LEFT$(a$, x - 1))
|
n$ = RTRIM$(LEFT$(a$, x - 1))
|
||||||
args$ = RIGHT$(a$, LEN(a$) - x + 1)
|
args$ = RIGHT$(a$, LEN(a$) - x + 1)
|
||||||
x = 1
|
x = 1
|
||||||
|
@ -8799,7 +8801,6 @@ FUNCTION idesubs$
|
||||||
IF sf = 0 THEN sf = INSTR(cursor + 1, nca$, "END FUNCTION")
|
IF sf = 0 THEN sf = INSTR(cursor + 1, nca$, "END FUNCTION")
|
||||||
|
|
||||||
IF sf THEN
|
IF sf THEN
|
||||||
DIM comment AS _BYTE, quote AS _BYTE
|
|
||||||
FindQuoteComment nca$, sf, comment, quote
|
FindQuoteComment nca$, sf, comment, quote
|
||||||
IF comment OR quote THEN cursor = sf: GOTO LookForENDSUB
|
IF comment OR quote THEN cursor = sf: GOTO LookForENDSUB
|
||||||
GOSUB AddLineCount
|
GOSUB AddLineCount
|
||||||
|
|
Loading…
Reference in a new issue