aboutsummaryrefslogtreecommitdiff
path: root/main
diff options
context:
space:
mode:
authorjohnvg2001-11-21 14:48:35 +0000
committerjohnvg2001-11-21 14:48:35 +0000
commit27f4faa94e9f24d7f6edb1c489c0e0a423b3ea9a (patch)
tree1664cf026fad2db55f22d2d96fcef41f906b70d7 /main
parenttail recursion modulo cons for strict lists (diff)
new explicit import syntax
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@901 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main')
-rw-r--r--main/Windows/CoclSystemDependent.dcl5
-rw-r--r--main/compile.dcl6
-rw-r--r--main/filesystem.dcl5
3 files changed, 14 insertions, 2 deletions
diff --git a/main/Windows/CoclSystemDependent.dcl b/main/Windows/CoclSystemDependent.dcl
index 10d2d1a..bdcddb1 100644
--- a/main/Windows/CoclSystemDependent.dcl
+++ b/main/Windows/CoclSystemDependent.dcl
@@ -3,8 +3,11 @@ definition module CoclSystemDependent
//1.3
from StdString import String
-//3.1
from StdFile import Files
+//3.1
+/*2.0
+from StdFile import ::Files
+0.2*/
// RWS split
// from deltaIOSystem import DeviceSystem
diff --git a/main/compile.dcl b/main/compile.dcl
index a26b3a9..83ffb37 100644
--- a/main/compile.dcl
+++ b/main/compile.dcl
@@ -3,7 +3,12 @@
*/
definition module compile
+/*2.0
+from StdFile import ::Files
+0.2*/
+//1.3
from StdFile import Files
+//3.1
import checksupport
compile :: ![{#Char}] !*DclCache !*Files -> (!Bool,!*DclCache,!*Files)
@@ -17,4 +22,3 @@ compile :: ![{#Char}] !*DclCache !*Files -> (!Bool,!*DclCache,!*Files)
};
empty_cache :: *SymbolTable -> *DclCache
-
diff --git a/main/filesystem.dcl b/main/filesystem.dcl
index 5100e70..3b29e8a 100644
--- a/main/filesystem.dcl
+++ b/main/filesystem.dcl
@@ -7,7 +7,12 @@
*/
definition module filesystem
+/*2.0
+from StdFile import class FileSystem,::Files
+0.2*/
+//1.3
from StdFile import FileSystem, Files
+//3.1
// return last modified time (local time) as "yyyymmddhhmmss" or "" on error
fmodificationtime :: {#Char} !*env -> (!{#Char}, !*env) | FileSystem env