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 ...@@ -4,6 +4,9 @@ import StdString
PlatformDependant win mac :== win PlatformDependant win mac :== win
DirSeparator:=='\\'
DirSeparatorString:=="\\"
ToolsDir :: String ToolsDir :: String
TempDir :: String TempDir :: String
EnvsDir :: String EnvsDir :: String
...@@ -12,4 +15,6 @@ PrefsDir :: String ...@@ -12,4 +15,6 @@ PrefsDir :: String
batchOptions :: !*World -> (!Bool,Bool,String,*File,!*World) batchOptions :: !*World -> (!Bool,Bool,String,*File,!*World)
wAbort :: !String !*World -> *World wAbort :: !String !*World -> *World
onOSX :: Bool onOSX :: Bool
\ No newline at end of file
application_path :: !String -> String // same as applicationpath in StdSystem
...@@ -4,9 +4,9 @@ import code from library "platform_kernel_library" ...@@ -4,9 +4,9 @@ import code from library "platform_kernel_library"
import StdArray, StdEnum, StdList, StdClass, StdBool, StdMisc import StdArray, StdEnum, StdList, StdClass, StdBool, StdMisc
import ArgEnv import ArgEnv
from StdSystem import dirseparator
import clCCall_12, ostoolbox import clCCall_12, ostoolbox
import logfile, set_return_code import logfile, set_return_code
from ossystem import osApplicationpath
PlatformDependant win mac :== win PlatformDependant win mac :== win
...@@ -130,7 +130,7 @@ LastColon :: !String !Int -> (!Bool, !Int); ...@@ -130,7 +130,7 @@ LastColon :: !String !Int -> (!Bool, !Int);
LastColon s i LastColon s i
| i <= 0 | i <= 0
= (False,0); = (False,0);
| dirseparator==s.[i] | DirSeparator==s.[i]
= (True, i); = (True, i);
= LastColon s (dec i); = LastColon s (dec i);
...@@ -204,4 +204,7 @@ WinGetModulePath ...@@ -204,4 +204,7 @@ WinGetModulePath
onOSX :: Bool onOSX :: Bool
onOSX onOSX
= False = False
\ No newline at end of file
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