Commit 32179399 authored by Martin Wierich's avatar Martin Wierich
Browse files

dummy stub for porting facilities. The module that actually does

smoething if porting is desired is in the portToNewSyntax folder
parent 99811f6b
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)
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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment