From 27f4faa94e9f24d7f6edb1c489c0e0a423b3ea9a Mon Sep 17 00:00:00 2001 From: johnvg Date: Wed, 21 Nov 2001 14:48:35 +0000 Subject: new explicit import syntax git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@901 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- main/Windows/CoclSystemDependent.dcl | 5 ++++- main/compile.dcl | 6 +++++- main/filesystem.dcl | 5 +++++ 3 files changed, 14 insertions(+), 2 deletions(-) (limited to 'main') 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 -- cgit v1.2.3