diff options
| author | martinw | 2001-02-23 13:10:25 +0000 |
|---|---|---|
| committer | martinw | 2001-02-23 13:10:25 +0000 |
| commit | 01d7871316a497abd9c0ee36f86bbdbe1af44caa (patch) | |
| tree | cf3874e09f0fc4524602cad42f1b1f6908eb1202 | |
| parent | temporary hack: redirect basic type Dynamic to DynamicTemp from StdDynamic (diff) | |
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
| -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 |