aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--frontend/portToNewSyntax.dcl24
-rw-r--r--frontend/portToNewSyntax.icl22
2 files changed, 46 insertions, 0 deletions
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