Commit 05541c0b authored by John van Groningen's avatar John van Groningen
Browse files

added dummy set_compiler_id function

parent d831db13
......@@ -19,3 +19,5 @@ SystemDependentDevices :: [a]
SystemDependentInitialIO :: [a]
ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
set_compiler_id :: Int -> Int
......@@ -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
Supports Markdown
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