mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-04 04:50:22 +00:00
Restore SUB Build's "count separators" method to please Windows XP.
This commit is contained in:
parent
23406bc4d4
commit
f223cfe028
|
@ -23224,9 +23224,18 @@ END IF
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB Build (path$)
|
SUB Build (path$)
|
||||||
previous_dir$ = _CWD$
|
'Count the separators in the path
|
||||||
|
depth = 1
|
||||||
|
FOR x = 1 TO LEN(path$)
|
||||||
|
IF ASC(path$, x) = 92 OR ASC(path$, x) = 47 THEN depth = depth + 1
|
||||||
|
NEXT
|
||||||
CHDIR path$
|
CHDIR path$
|
||||||
|
|
||||||
|
return_path$ = ".."
|
||||||
|
FOR x = 2 TO depth
|
||||||
|
return_path$ = return_path$ + "\.."
|
||||||
|
NEXT
|
||||||
|
|
||||||
bfh = FREEFILE
|
bfh = FREEFILE
|
||||||
OPEN "build" + BATCHFILE_EXTENSION FOR BINARY AS #bfh
|
OPEN "build" + BATCHFILE_EXTENSION FOR BINARY AS #bfh
|
||||||
DO UNTIL EOF(bfh)
|
DO UNTIL EOF(bfh)
|
||||||
|
@ -23240,15 +23249,15 @@ DO UNTIL EOF(bfh)
|
||||||
c$ = GDB_Fix$(c$)
|
c$ = GDB_Fix$(c$)
|
||||||
IF use THEN
|
IF use THEN
|
||||||
IF os$ = "WIN" THEN
|
IF os$ = "WIN" THEN
|
||||||
SHELL _HIDE "cmd /C " + c$ + " 2>> " + previous_dir$ + "\" + compilelog$
|
SHELL _HIDE "cmd /C " + c$ + " 2>> " + return_path$ + "\" + compilelog$
|
||||||
ELSE
|
ELSE
|
||||||
SHELL _HIDE c$ + " 2>> " + previous_dir$ + "/" + compilelog$
|
SHELL _HIDE c$ + " 2>> " + return_path$ + "/" + compilelog$
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
LOOP
|
LOOP
|
||||||
CLOSE #bfh
|
CLOSE #bfh
|
||||||
|
|
||||||
CHDIR previous_dir$
|
CHDIR return_path$
|
||||||
|
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue