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

Exits with an error code if the 'internal' folder cannot be found/locked.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-10 00:43:08 -03:00
parent 2309d05ff8
commit 6c779ca798
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -24,7 +24,7 @@ DEFLNG A-Z
REDIM SHARED OName(0) AS STRING 'Operation Name
REDIM SHARED PL(0) AS INTEGER 'Priority Level
DIM SHARED QuickReturn AS INTEGER
Set_OrderOfOperations 'This will also make certain our directories are valid, and if not make them.
Set_OrderOfOperations
REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG
DIM ExecLevel(255), ExecCounter AS INTEGER
@ -53,7 +53,7 @@ IF _DIREXISTS("internal") = 0 THEN
DO
_LIMIT 1
LOOP UNTIL INKEY$ <> ""
SYSTEM
SYSTEM 1
END IF
DIM SHARED Include_GDB_Debugging_Info 'set using "options.bin"
@ -255,7 +255,7 @@ ELSE
OPEN tmpdir$ + "temp.bin" FOR OUTPUT LOCK WRITE AS #26
DO WHILE E
i = i + 1
IF i = 1000 THEN PRINT "Unable to locate the 'internal' folder": END
IF i = 1000 THEN PRINT "Unable to locate the 'internal' folder": END 1
MKDIR ".\internal\temp" + str2$(i)
IF os$ = "WIN" THEN tmpdir$ = ".\internal\temp" + str2$(i) + "\": tmpdir2$ = "..\\temp" + str2$(i) + "\\"
IF os$ = "LNX" THEN tmpdir$ = "./internal/temp" + str2$(i) + "/": tmpdir2$ = "../temp" + str2$(i) + "/"