mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Restore ideroot$ retrieval and set idepath$ to _STARTDIR$.
This commit is contained in:
parent
8ba19d11fb
commit
d10f01819f
1 changed files with 17 additions and 2 deletions
|
@ -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
|
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$
|
ideroot$ = idezgetroot$
|
||||||
idepath$ = ideroot$
|
idepath$ = _STARTDIR$
|
||||||
|
|
||||||
'new blank text field
|
'new blank text field
|
||||||
idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0
|
idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0
|
||||||
|
@ -10032,9 +10032,24 @@ END FUNCTION
|
||||||
FUNCTION idezgetroot$
|
FUNCTION idezgetroot$
|
||||||
'note: does NOT including a trailing / or \ on the right
|
'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
|
END FUNCTION
|
||||||
|
|
||||||
FUNCTION idezpathlist$ (path$)
|
FUNCTION idezpathlist$ (path$)
|
||||||
|
|
Loading…
Reference in a new issue