diff options
Diffstat (limited to 'main/Windows')
| -rw-r--r-- | main/Windows/CoclSystemDependent.icl | 28 |
1 files changed, 5 insertions, 23 deletions
diff --git a/main/Windows/CoclSystemDependent.icl b/main/Windows/CoclSystemDependent.icl index a774ce5..5ef779f 100644 --- a/main/Windows/CoclSystemDependent.icl +++ b/main/Windows/CoclSystemDependent.icl @@ -2,7 +2,10 @@ implementation module CoclSystemDependent import StdEnv -//import code from "cDirectory.obj", library "directory_library" // Windows + +// import for filesystem +import code from "cDirectory.obj", library "directory_library" // Windows +from filesystem import ensureDirectoryExists PathSeparator :== ';' @@ -20,28 +23,7 @@ SystemDependentInitialIO ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) // returned bool: now there is such a subfolder ensureCleanSystemFilesExists path env - = (False,env) - -/* # path_c_string = path +++ "\0" - (err_code, env) = createDirectoryC path_c_string env - = (err_code==M_NoDirError || err_code==M_AlreadyExists, env) -*/ - -createDirectoryC :: !String !*env -> (!Int, !*env) -createDirectoryC _ _ - = code - { - ccall createDirectoryC "S:I:A" - } - -// createDirectoryC returns the following error codes: -M_NoDirError :== 0 -M_OtherDirError :== -1 -M_DoesntExist :== -2 -M_BadName :== -3 -M_NotEnoughSpace :== -4 -M_AlreadyExists :== -5 -M_NoPermission :== -6 + = ensureDirectoryExists path env set_compiler_id :: Int -> Int set_compiler_id compiler_id = compiler_id |