diff options
| author | ronny | 2001-10-01 16:20:16 +0000 |
|---|---|---|
| committer | ronny | 2001-10-01 16:20:16 +0000 |
| commit | e275a4a0a504b5c766892a9882cdd78b8e5d0b43 (patch) | |
| tree | 702527abeb9a8f78512ee16ea61f31eef43dad7d /main/Windows | |
| parent | Add producer class for fusion (diff) | |
moved system independent code to new module "filesystem"
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@807 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
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 |