mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Attemps to fix SHELL call to conversion utility
This commit is contained in:
parent
3cf949245f
commit
4b28605cbe
|
@ -14768,7 +14768,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
|
||||||
IF INSTR(_OS$, "WIN") THEN
|
IF INSTR(_OS$, "WIN") THEN
|
||||||
convertUtility$ = "internal\utilities\QB45BIN.exe"
|
convertUtility$ = "internal\utilities\QB45BIN.exe"
|
||||||
ELSE
|
ELSE
|
||||||
convertUtility$ = "internal/utilities/QB45BIN"
|
convertUtility$ = "./internal/utilities/QB45BIN"
|
||||||
END IF
|
END IF
|
||||||
IF _FILEEXISTS(convertUtility$) THEN
|
IF _FILEEXISTS(convertUtility$) THEN
|
||||||
what$ = ideyesnobox("Binary format", "QuickBASIC 4.5 binary format detected. Convert to plain text?")
|
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?")
|
what$ = ideyesnobox("Binary format", "QuickBASIC 4.5 binary format detected. Convert to plain text?")
|
||||||
IF what$ = "Y" THEN
|
IF what$ = "Y" THEN
|
||||||
'Compile the utility first, then convert the file
|
'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
|
PCOPY 3, 0
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
|
@ -14834,7 +14834,11 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
|
||||||
COLOR 15, 1
|
COLOR 15, 1
|
||||||
PRINT "Preparing to convert..."
|
PRINT "Preparing to convert..."
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
|
IF INSTR(_OS$, "WIN") THEN
|
||||||
SHELL _HIDE "qb64 -x source/utilities/QB45BIN.bas -o internal/utilities/QB45BIN"
|
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
|
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
|
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)
|
dummy = DarkenFGBG(0)
|
||||||
|
|
Loading…
Reference in a new issue