add DirSeparator, DirSeparatorString and application_path

Win/Platform.dcl

@@ -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

Win/Platform.icl

@@ -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