QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Detects if the last generated binary still exists at F5 or F11.

Browse source 
Closes #63
This commit is contained in:
FellippeHeitor 2018-09-30 19:27:05 -03:00
parent 53d3341ec3
commit bed68767e6
2 changed files with 20 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/ide/ide_methods.bas
View file

@ -1434,7 +1434,7 @@ FUNCTION ide2 (ignore)
IF idecompiled THEN
IF iderunmode = 2 THEN
IF iderunmode = 2 AND _FILEEXISTS(lastBinaryGenerated$) THEN
LOCATE idewy - 3, 2
IF os$ = "LNX" THEN
@ -1444,6 +1444,9 @@ FUNCTION ide2 (ignore)
END IF
GOTO specialchar
ELSEIF _FILEEXISTS(lastBinaryGenerated$) = 0 THEN
idecompiled = 0
GOTO mustGenerateExe
END IF
dummy = DarkenFGBG(1)
@ -1452,6 +1455,7 @@ FUNCTION ide2 (ignore)
COLOR 15, 1
LOCATE idewy - 3, 2: PRINT "Starting program...";
ELSE
mustGenerateExe:
dummy = DarkenFGBG(1)
BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem
COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status "

25
source/qb64.bas
View file

@ -205,7 +205,7 @@ NEXT
DIM SHARED extension AS STRING
DIM SHARED path.exe$, path.source$
DIM SHARED path.exe$, path.source$, lastBinaryGenerated$
extension$ = ".exe"
IF os$ = "LNX" THEN extension$ = "" 'no extension under Linux
@ -1192,14 +1192,14 @@ IF C = 9 THEN 'run
'execute program
IF iderunmode = 1 THEN
IF os$ = "WIN" THEN SHELL _DONTWAIT QuotedFilename$(CHR$(34) + path.exe$ + file$ + extension$ + CHR$(34)) + ModifyCOMMAND$
IF os$ = "WIN" THEN SHELL _DONTWAIT QuotedFilename$(CHR$(34) + lastBinaryGenerated$ + CHR$(34)) + ModifyCOMMAND$
IF path.exe$ = "" THEN path.exe$ = "./"
IF os$ = "LNX" THEN SHELL _DONTWAIT QuotedFilename$(path.exe$ + file$ + extension$) + ModifyCOMMAND$
IF os$ = "LNX" THEN SHELL _DONTWAIT QuotedFilename$(lastBinaryGenerated$) + ModifyCOMMAND$
IF path.exe$ = "./" THEN path.exe$ = ""
ELSE
IF os$ = "WIN" THEN SHELL QuotedFilename$(CHR$(34) + path.exe$ + file$ + extension$ + CHR$(34)) + ModifyCOMMAND$
IF os$ = "WIN" THEN SHELL QuotedFilename$(CHR$(34) + lastBinaryGenerated$ + CHR$(34)) + ModifyCOMMAND$
IF path.exe$ = "" THEN path.exe$ = "./"
IF os$ = "LNX" THEN SHELL QuotedFilename$(path.exe$ + file$ + extension$) + ModifyCOMMAND$
IF os$ = "LNX" THEN SHELL QuotedFilename$(lastBinaryGenerated$) + ModifyCOMMAND$
IF path.exe$ = "./" THEN path.exe$ = ""
DO: LOOP UNTIL INKEY$ = ""
DO: LOOP UNTIL _KEYHIT = 0
@ -5794,9 +5794,9 @@ DO
'Notice the ELSE with the SELECT CASE? Before this patch, commands like those were considered valid QB64 code.
temp$ = UCASE$(LTRIM$(RTRIM$(wholeline)))
'IF NoIDEMode THEN
DO WHILE INSTR(temp$, CHR$(9))
ASC(temp$, INSTR(temp$, CHR$(9))) = 32
LOOP
DO WHILE INSTR(temp$, CHR$(9))
ASC(temp$, INSTR(temp$, CHR$(9))) = 32
LOOP
'END IF
goodelse = 0 'a check to see if it's a good else
IF LEFT$(temp$, 2) = "IF" THEN goodelse = -1: GOTO skipelsecheck 'If we have an IF, the else is probably good
@ -12545,7 +12545,12 @@ END IF
IF No_C_Compile_Mode THEN compfailed = 0: GOTO No_C_Compile
IF path.exe$ = "../../" OR path.exe$ = "..\..\" THEN path.exe$ = ""
IF _FILEEXISTS(path.exe$ + file$ + extension$) THEN compfailed = 0 ELSE compfailed = 1 'detect compilation failure
IF _FILEEXISTS(path.exe$ + file$ + extension$) THEN
compfailed = 0
lastBinaryGenerated$ = path.exe$ + file$ + extension$
ELSE
compfailed = 1 'detect compilation failure
END IF
IF compfailed THEN
IF idemode THEN
@ -12557,7 +12562,7 @@ IF compfailed THEN
PRINT "Check " + compilelog$ + " for details."
END IF
ELSE
IF idemode = 0 THEN PRINT "OUTPUT: "; path.exe$ + file$ + extension$
IF idemode = 0 THEN PRINT "OUTPUT: "; lastBinaryGenerated$
END IF