diff options
| author | johnvg | 2001-08-31 15:36:44 +0000 |
|---|---|---|
| committer | johnvg | 2001-08-31 15:36:44 +0000 |
| commit | 36c395b1277b0818391d2cccdff1d70d9b3baa08 (patch) | |
| tree | 59e49117906072004d156ffa2cfbde3cd3b7fe18 /main/Windows | |
| parent | moved function set_compiler_id to CoclSystemDependent (diff) | |
added dummy set_compiler_id function
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@726 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/Windows')
| -rw-r--r-- | main/Windows/CoclSystemDependent.dcl | 2 | ||||
| -rw-r--r-- | main/Windows/CoclSystemDependent.icl | 9 |
2 files changed, 9 insertions, 2 deletions
diff --git a/main/Windows/CoclSystemDependent.dcl b/main/Windows/CoclSystemDependent.dcl index f00a028..10d2d1a 100644 --- a/main/Windows/CoclSystemDependent.dcl +++ b/main/Windows/CoclSystemDependent.dcl @@ -19,3 +19,5 @@ SystemDependentDevices :: [a] SystemDependentInitialIO :: [a] ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) + +set_compiler_id :: Int -> Int diff --git a/main/Windows/CoclSystemDependent.icl b/main/Windows/CoclSystemDependent.icl index 867bcd2..a774ce5 100644 --- a/main/Windows/CoclSystemDependent.icl +++ b/main/Windows/CoclSystemDependent.icl @@ -2,7 +2,7 @@ implementation module CoclSystemDependent import StdEnv -import code from "cDirectory.obj", library "directory_library" // Windows +//import code from "cDirectory.obj", library "directory_library" // Windows PathSeparator :== ';' @@ -20,9 +20,12 @@ SystemDependentInitialIO ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) // returned bool: now there is such a subfolder ensureCleanSystemFilesExists path env - # path_c_string = path +++ "\0" + = (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 _ _ @@ -40,3 +43,5 @@ M_NotEnoughSpace :== -4 M_AlreadyExists :== -5 M_NoPermission :== -6 +set_compiler_id :: Int -> Int +set_compiler_id compiler_id = compiler_id |