Commit 65ebaebb authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

remove dependancy on PmXXX;

parent ba41babe
......@@ -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.
*/
......
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