1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00

Push to finally fix $INCLUDE so that it works for cross-platform code.

This commit is contained in:
steve mcneill 73 2014-07-01 12:48:49 -04:00
parent d3d32505dd
commit d0125f461e

View file

@ -26414,7 +26414,7 @@ END FUNCTION
FUNCTION getfilepath$ (f$)
FOR i = LEN(f$) TO 1 STEP -1
a$ = MID$(f$, i, 1)
IF a$ = pathsep$ THEN
IF a$ = "/" OR a$ = "\" THEN
getfilepath$ = LEFT$(f$, i)
EXIT FUNCTION
END IF