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

Console mode compilation (-c, -x) also save EXE to source folder, if set.

Browse source
This commit is contained in:
FellippeHeitor 2016-06-21 03:54:20 -03:00
parent 8f67d40330
commit b7b6c760e1
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
source/qb64.bas
View file

@ -1148,6 +1148,13 @@ sourcefile$ = f$
'derive name from sourcefile
f$ = RemoveFileExtension$(f$)
path.exe$ = ""
IF SaveExeWithSource THEN
path.exe$ = getfilepath$(sourcefile$)
IF RIGHT$(path.exe$, 1) <> pathsep$ then path.exe$ = path.exe$ + pathsep$
END IF
IF path.exe$ = "" THEN path.exe$ = "..\..\"
FOR x = LEN(f$) TO 1 STEP -1
a$ = MID$(f$, x, 1)
IF a$ = "/" OR a$ = "\" THEN