diff options
| -rw-r--r-- | frontend/portToNewSyntax.dcl | 24 | ||||
| -rw-r--r-- | frontend/portToNewSyntax.icl | 22 |
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 |