mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-08 20:45:12 +00:00
44 lines
1 KiB
Plaintext
44 lines
1 KiB
Plaintext
$CHECKING:OFF
|
|
SUB vwatch (linenumber AS LONG)
|
|
STATIC AS LONG ide, bypass
|
|
|
|
IF bypass THEN EXIT SUB
|
|
|
|
endc$ = "<END>"
|
|
|
|
IF ide = 0 THEN
|
|
ide = _OPENCLIENT("TCP/IP:9000:localhost")
|
|
IF ide = 0 THEN bypass = -1: EXIT SUB
|
|
|
|
me$ = COMMAND$(0) + endc$
|
|
PUT #ide, , me$
|
|
|
|
DO
|
|
GET #ide, , temp$
|
|
buffer$ = buffer$ + temp$
|
|
LOOP UNTIL INSTR(buffer$, endc$) > 0
|
|
|
|
buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
|
|
IF buffer$ <> "vwatch:ok" THEN
|
|
CLOSE #ide
|
|
bypass = -1
|
|
EXIT SUB
|
|
END IF
|
|
END IF
|
|
|
|
DO
|
|
temp$ = "line number:" + MKL$(linenumber) + endc$
|
|
PUT #ide, , temp$
|
|
buffer$ = ""
|
|
DO
|
|
GET #ide, , temp$
|
|
buffer$ = buffer$ + temp$
|
|
LOOP UNTIL INSTR(buffer$, endc$) > 0
|
|
|
|
buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
|
|
IF buffer$ = "run" THEN
|
|
EXIT SUB
|
|
END IF
|
|
LOOP
|
|
END SUB
|