Commit d831db13 authored by John van Groningen's avatar John van Groningen
Browse files

moved function set_compiler_id to CoclSystemDependent

parent de5de93b
......@@ -18,3 +18,5 @@ clean2_compile :: !Int -> Int;
clean2_compile_c_entry :: !Int -> Int;
ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
set_compiler_id :: !Int -> Int;
......@@ -107,6 +107,11 @@ clean2_compile_c_entry r = code {
centry clean2_compile e_CoclSystemDependent_sclean2_compile "I:I"
}
set_compiler_id :: !Int -> Int;
set_compiler_id id = code {
ccall set_compiler_id "I:I"
};
:: * MyFiles = MyFiles;
create_myfiles = MyFiles;
......@@ -121,4 +126,5 @@ cast f = code {
ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
ensureCleanSystemFilesExists _ files = (True, files)
// because of dcl file caching the Clean System Files folder should exist always
\ No newline at end of file
// because of dcl file caching the Clean System Files folder should exist always
\ No newline at end of file
......@@ -93,11 +93,6 @@ parseCommandLine [arg : args] options
# (args,modules,options) = parseCommandLine args options
= (args,[arg : modules],options);
set_compiler_id :: !Int -> Int;
set_compiler_id id = code {
ccall set_compiler_id "I:I"
};
stripExtension :: {#Char} {#Char} -> {#Char}
stripExtension extension string
| stringSize >= extensionSize && (string % (stringSize-extensionSize, stringSize-1)) == extension
......
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