Skip to content
GitLab
Menu
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
65ebaebb
Commit
65ebaebb
authored
Apr 09, 2003
by
Diederik van Arkel
Browse files
remove dependancy on PmXXX;
parent
ba41babe
Changes
1
Hide whitespace changes
Inline
Side-by-side
Mac/UtilIO.icl
View file @
65ebaebb
...
...
@@ -42,8 +42,10 @@ FReadOnly path files
*/
//--
//import files
/*
// FIXME: Util shouldn't import from Pm
from PmCleanSystem import Launch
*/
LaunchApplication
::
!{#
Char
}
!{#
Char
}
!
Bool
!
Files
->
(
!
Bool
,
!
Files
)
LaunchApplication
execpath
homepath
console
files
// set working directory???
...
...
@@ -52,6 +54,16 @@ LaunchApplication execpath homepath console files
=
(
True
,
files
)
=
(
False
,
files
)
import
files
Launch
::
!{#
Char
}
!.
a
->
(!
Int
,
!.
a
)
Launch
execpath
env
#
(
error_n
,
fsspec
,
tb
)
=
FSMakeFSSpec
execpath
OSNewToolbox
|
error_n
<>
0
=
(
error_n
,
env
)
#
(
error_n
,
tb
)
=
LaunchApplicationFSSpec
fsspec
0xC800
tb
// # (error_n,_) = LaunchApplication execpath 0xC8000000 OSNewToolbox
=
(
error_n
,
env
)
/* Returns True if the file name exists.
*/
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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