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

Attemps to fix SHELL call to conversion utility

Browse source
This commit is contained in:
Fellippe Heitor 2020-02-24 12:53:19 -03:00
parent 3cf949245f
commit 4b28605cbe
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -14768,7 +14768,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
IF INSTR(_OS$, "WIN") THEN
convertUtility$ = "internal\utilities\QB45BIN.exe"
ELSE
convertUtility$ = "internal/utilities/QB45BIN"
convertUtility$ = "./internal/utilities/QB45BIN"
END IF
IF _FILEEXISTS(convertUtility$) THEN
what$ = ideyesnobox("Binary format", "QuickBASIC 4.5 binary format detected. Convert to plain text?")
@ -14825,7 +14825,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
what$ = ideyesnobox("Binary format", "QuickBASIC 4.5 binary format detected. Convert to plain text?")
IF what$ = "Y" THEN
'Compile the utility first, then convert the file
IF _DIREXISTS("internal/utilities") = 0 THEN MKDIR "internal/utilities"
IF _DIREXISTS("./internal/utilities") = 0 THEN MKDIR "./internal/utilities"
PCOPY 3, 0
SCREEN , , 3, 0
dummy = DarkenFGBG(1)
@ -14834,7 +14834,11 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
COLOR 15, 1
PRINT "Preparing to convert..."
PCOPY 3, 0
SHELL _HIDE "qb64 -x source/utilities/QB45BIN.bas -o internal/utilities/QB45BIN"
IF INSTR(_OS$, "WIN") THEN
SHELL _HIDE "qb64 -x source/utilities/QB45BIN.bas -o internal/utilities/QB45BIN"
ELSE
SHELL _HIDE "./qb64 -x ./source/utilities/QB45BIN.bas -o ./internal/utilities/QB45BIN"
END IF
IF _FILEEXISTS(convertUtility$) THEN GOTO ConvertIt
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
dummy = DarkenFGBG(0)