From f7756a5a53a793adc27f61cbdcd9a614e3cc4bdc Mon Sep 17 00:00:00 2001
From: martinw
Date: Tue, 13 Mar 2001 11:34:56 +0000
Subject: 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
---
 main/Mac/CoclSystemDependent.dcl | 5 +++++
 main/Mac/CoclSystemDependent.icl | 4 ++++
 2 files changed, 9 insertions(+)

(limited to 'main/Mac')

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
-- 
cgit v1.2.3