1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00

Restore ideroot$ retrieval and set idepath$ to _STARTDIR$.

This commit is contained in:
FellippeHeitor 2018-03-11 17:21:46 -03:00
parent 8ba19d11fb
commit d10f01819f

View file

@ -371,7 +371,7 @@ FUNCTION ide2 (ignore)
a$ = "QWERTYUIOP????ASDFGHJKL?????ZXCVBNM": x = 16: FOR i = 1 TO LEN(a$): idealtcode(ASC(MID$(a$, i, 1))) = x: x = x + 1: NEXT
ideroot$ = idezgetroot$
idepath$ = ideroot$
idepath$ = _STARTDIR$
'new blank text field
idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0
@ -10032,9 +10032,24 @@ END FUNCTION
FUNCTION idezgetroot$
'note: does NOT including a trailing / or \ on the right
IF os$ = "WIN" THEN
SHELL _HIDE "cd >.\internal\temp\root.txt"
OPEN ".\internal\temp\root.txt" FOR INPUT AS #150
LINE INPUT #150, a$
idezgetroot$ = a$
CLOSE #150
EXIT FUNCTION
END IF
IF os$ = "LNX" THEN
SHELL _HIDE "pwd >./internal/temp/root.txt"
OPEN "./internal/temp/root.txt" FOR INPUT AS #150
LINE INPUT #150, a$
idezgetroot$ = a$
CLOSE #150
EXIT FUNCTION
END IF
idezgetroot$ = _STARTDIR$
END FUNCTION
FUNCTION idezpathlist$ (path$)