QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 15:00: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 OName(0) AS STRING 'Operation Name
REDIM SHARED PL(0) AS INTEGER 'Priority Level REDIM SHARED PL(0) AS INTEGER 'Priority Level
DIM SHARED QuickReturn AS INTEGER 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 REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG
DIM ExecLevel(255), ExecCounter AS INTEGER DIM ExecLevel(255), ExecCounter AS INTEGER
@ -53,7 +53,7 @@ IF _DIREXISTS("internal") = 0 THEN
DO DO
_LIMIT 1 _LIMIT 1
LOOP UNTIL INKEY$ <> "" LOOP UNTIL INKEY$ <> ""
SYSTEM SYSTEM 1
END IF END IF
DIM SHARED Include_GDB_Debugging_Info 'set using "options.bin" 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 OPEN tmpdir$ + "temp.bin" FOR OUTPUT LOCK WRITE AS #26
DO WHILE E DO WHILE E
i = i + 1 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) MKDIR ".\internal\temp" + str2$(i)
IF os$ = "WIN" THEN tmpdir$ = ".\internal\temp" + str2$(i) + "\": tmpdir2$ = "..\\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) + "/" IF os$ = "LNX" THEN tmpdir$ = "./internal/temp" + str2$(i) + "/": tmpdir2$ = "../temp" + str2$(i) + "/"