Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
b3ccf9c8
Commit
b3ccf9c8
authored
Jan 21, 2009
by
John van Groningen
Browse files
add DirSeparator, DirSeparatorString and application_path
parent
e1b3752c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Win/Platform.dcl
View file @
b3ccf9c8
...
...
@@ -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
View file @
b3ccf9c8
...
...
@@ -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
);
|
d
ir
s
eparator
==
s
.[
i
]
|
D
ir
S
eparator
==
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
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment