QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-02 23:31:21 +00:00
Code Releases Wiki Activity

Auto save/load breakpoint and skip line data ($Debug)

Browse source
This commit is contained in:
FellippeHeitor 2021-10-02 04:20:58 -03:00
parent 7ab98a5a9e
commit 48e8f38108
1 changed files with 41 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
source/ide/ide_methods.bas
View file

@ -17250,6 +17250,23 @@ SUB IdeImportBookmarks (f2$)
END IF
NEXT
END IF
'at the same time, import breakpoint and skip line data
x = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "total breakpoints"))
IF x THEN
FOR i = 1 TO x
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(i)))
IdeBreakpoints(j) = -1
NEXT
END IF
x = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "total skips"))
IF x THEN
FOR i = 1 TO x
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "skip" + STR$(i)))
IdeSkipLines(j) = -1
NEXT
END IF
END SUB
SUB IdeSaveBookmarks (f2$)
@ -17270,6 +17287,30 @@ SUB IdeSaveBookmarks (f2$)
a$ = f$ + MKL$(LEN(d$)) + d$ + a$
fh = FREEFILE: OPEN ".\internal\temp\bookmarks.bin" FOR OUTPUT AS #fh: CLOSE #fh
fh = FREEFILE: OPEN ".\internal\temp\bookmarks.bin" FOR BINARY AS #fh: PUT #fh, , a$: CLOSE #fh
'at the same time, save breakpoint and skip line data
IF vWatchOn THEN
WriteSetting ".\internal\temp\debug.ini", f2$, "total breakpoints", "0"
WriteSetting ".\internal\temp\debug.ini", f2$, "total skips", "0"
x = 0
FOR i = 1 TO UBOUND(IdeBreakpoints)
IF IdeBreakpoints(i) THEN
x = x + 1
WriteSetting ".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(x), str2$(i)
END IF
NEXT
WriteSetting ".\internal\temp\debug.ini", f2$, "total breakpoints", str2$(x)
x = 0
FOR i = 1 TO UBOUND(IdeSkipLines)
IF IdeSkipLines(i) THEN
x = x + 1
WriteSetting ".\internal\temp\debug.ini", f2$, "skip" + STR$(x), str2$(i)
END IF
NEXT
WriteSetting ".\internal\temp\debug.ini", f2$, "total skips", str2$(x)
END IF
END SUB
FUNCTION iderecentbox$