mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 18:00:24 +00:00
Console mode compilation (-c, -x) also save EXE to source folder, if set.
This commit is contained in:
parent
8f67d40330
commit
b7b6c760e1
|
@ -1148,6 +1148,13 @@ sourcefile$ = f$
|
||||||
'derive name from sourcefile
|
'derive name from sourcefile
|
||||||
f$ = RemoveFileExtension$(f$)
|
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
|
FOR x = LEN(f$) TO 1 STEP -1
|
||||||
a$ = MID$(f$, x, 1)
|
a$ = MID$(f$, x, 1)
|
||||||
IF a$ = "/" OR a$ = "\" THEN
|
IF a$ = "/" OR a$ = "\" THEN
|
||||||
|
|
Loading…
Reference in a new issue