Commit b3ccf9c8 authored by John van Groningen's avatar John van Groningen

add DirSeparator, DirSeparatorString and application_path

parent e1b3752c
......@@ -4,6 +4,9 @@ import StdString
PlatformDependant win mac :== win
DirSeparator:=='\\'
DirSeparatorString:=="\\"
ToolsDir :: String
TempDir :: String
EnvsDir :: String
......@@ -12,4 +15,6 @@ PrefsDir :: String
batchOptions :: !*World -> (!Bool,Bool,String,*File,!*World)
wAbort :: !String !*World -> *World
onOSX :: Bool
\ No newline at end of file
onOSX :: Bool
application_path :: !String -> String // same as applicationpath in StdSystem
......@@ -4,9 +4,9 @@ import code from library "platform_kernel_library"
import StdArray, StdEnum, StdList, StdClass, StdBool, StdMisc
import ArgEnv
from StdSystem import dirseparator
import clCCall_12, ostoolbox
import logfile, set_return_code
from ossystem import osApplicationpath
PlatformDependant win mac :== win
......@@ -130,7 +130,7 @@ LastColon :: !String !Int -> (!Bool, !Int);
LastColon s i
| i <= 0
= (False,0);
| dirseparator==s.[i]
| DirSeparator==s.[i]
= (True, i);
= LastColon s (dec i);
......@@ -204,4 +204,7 @@ WinGetModulePath
onOSX :: Bool
onOSX
= False
\ No newline at end of file
= False
application_path :: !String -> String // same as applicationpath in StdSystem
application_path fname = osApplicationpath fname
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment