From 01d7871316a497abd9c0ee36f86bbdbe1af44caa Mon Sep 17 00:00:00 2001
From: martinw
Date: Fri, 23 Feb 2001 13:10:25 +0000
Subject: dummy stub for porting facilities. The module that actually does
 smoething if porting is desired is in the portToNewSyntax folder

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@305 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/portToNewSyntax.dcl | 24 ++++++++++++++++++++++++
 frontend/portToNewSyntax.icl | 22 ++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 frontend/portToNewSyntax.dcl
 create mode 100644 frontend/portToNewSyntax.icl

(limited to 'frontend')

diff --git a/frontend/portToNewSyntax.dcl b/frontend/portToNewSyntax.dcl
new file mode 100644
index 0000000..a5367f8
--- /dev/null
+++ b/frontend/portToNewSyntax.dcl
@@ -0,0 +1,24 @@
+definition module portToNewSyntax
+// see the file readme.txt in the portToNewSyntax folder about
+// this module
+
+from StdMisc import abort
+//1.3
+from StdFile import Files
+from StdString import String
+from scanner import SearchPaths
+//3.1
+/*2.0
+from StdFile import :: Files
+from scanner import :: SearchPaths
+0.2*/
+import checksupport
+
+switch_port_to_new_syntax port dont_port :== dont_port
+
+cTabWidth :== 4
+
+writeExplImportsToFile :: !String ![([Declaration],a)] !{#u:DclModule} !*CheckState 
+		-> (!{#u:DclModule},!.CheckState)
+
+createPortedFiles :: !String !SearchPaths !*Files -> (!Bool, !*Files)
diff --git a/frontend/portToNewSyntax.icl b/frontend/portToNewSyntax.icl
new file mode 100644
index 0000000..0be9d0d
--- /dev/null
+++ b/frontend/portToNewSyntax.icl
@@ -0,0 +1,22 @@
+implementation module portToNewSyntax
+
+import StdEnv, scanner, checksupport
+
+switch_port_to_new_syntax port dont_port :== dont_port
+
+cTabWidth :== 4
+
+writeExplImportsToFile :: !String ![([Declaration],a)] !{#u:DclModule} !*CheckState 
+		-> (!{#u:DclModule},!.CheckState)
+writeExplImportsToFile _ _ _ _
+	= abort (   "To build a compiler that is able to create ported versions of"
+	         +++"1.3 sources you should set your paths in a way that"
+	         +++"\"portToNewSyntax/portToNewSyntax\" is used instead of"
+	         +++"\"compiler/portToNewSyntax\".\n"
+	         +++"Read the readme.txt in folder \"portToNewSyntax\"."
+	        )
+
+createPortedFiles :: !String !SearchPaths !*Files -> (!Bool, !*Files)
+createPortedFiles _ _ _
+	= abort "portToNewSyntax"
+	       
\ No newline at end of file
-- 
cgit v1.2.3