enable compiler to create "Clean System Files" folder

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@327 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

3 files changed, 16 insertions, 0 deletions

diff --git a/main/Mac/CoclSystemDependent.dcl b/main/Mac/CoclSystemDependent.dcl
index 4a27e46..6ffa700 100644
--- a/main/Mac/CoclSystemDependent.dcl
+++ b/main/Mac/CoclSystemDependent.dcl
@@ -1,6 +1,9 @@
 // this is for the PowerMac
 definition module CoclSystemDependent
 
+//1.3
+from StdString import String
+//3.1
 from StdFile import Files
 
 PathSeparator
@@ -13,3 +16,5 @@ script_handler :: !{#Char} *Files -> (!Int,!*Files);
 clean2_compile :: !Int -> Int;
 
 clean2_compile_c_entry :: !Int -> Int;
+
+ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
diff --git a/main/Mac/CoclSystemDependent.icl b/main/Mac/CoclSystemDependent.icl
index 389bd22..190d18b 100644
--- a/main/Mac/CoclSystemDependent.icl
+++ b/main/Mac/CoclSystemDependent.icl
@@ -105,3 +105,7 @@ cast :: !*a -> *b;
 cast f = code {
 	pop_b 0
  }
+
+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
diff --git a/main/Windows/CoclSystemDependent.dcl b/main/Windows/CoclSystemDependent.dcl
index 42cf82e..f00a028 100644
--- a/main/Windows/CoclSystemDependent.dcl
+++ b/main/Windows/CoclSystemDependent.dcl
@@ -1,6 +1,11 @@
 // this is for Windows
 definition module CoclSystemDependent
 
+//1.3
+from StdString import String
+//3.1
+from StdFile import Files
+
 // RWS split
 // from deltaIOSystem import DeviceSystem
 // from deltaEventIO import InitialIO, IOState
@@ -12,3 +17,5 @@ DirectorySeparator
 
 SystemDependentDevices :: [a]
 SystemDependentInitialIO :: [a]
+
+ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)