diff options
| author | martinw | 2001-02-23 13:07:33 +0000 |
|---|---|---|
| committer | martinw | 2001-02-23 13:07:33 +0000 |
| commit | a2aab5c156f9258242e3a22c860ea20b85daa433 (patch) | |
| tree | be743a518c5fef20fe7ad6f57e274f7df5037148 /main/compile.icl | |
| parent | temporary hack: redirect basic type Dynamic to DynamicTemp from StdDynamic (diff) | |
including porting facilities
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@303 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/compile.icl')
| -rw-r--r-- | main/compile.icl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/main/compile.icl b/main/compile.icl index 0e47e3d..3f111b7 100644 --- a/main/compile.icl +++ b/main/compile.icl @@ -4,6 +4,7 @@ import StdEnv import frontend import backendinterface import CoclSystemDependent +import portToNewSyntax //import RWSDebug :: CoclOptions = @@ -188,6 +189,18 @@ compileModule options commandLineArgs {dcl_modules,functions_and_macros,predef_s Yes syntaxTree # dcl_modules=syntaxTree.fe_dcls # functions_and_macros = syntaxTree.fe_icl.icl_functions + # (porting_ok, files) + = switch_port_to_new_syntax + (createPortedFiles options.moduleName options.searchPaths files) + (False, files) + error = switch_port_to_new_syntax + (case porting_ok of + True + -> error + False + -> error <<< "Error: couldn't write ported versions of module " + <<< options.moduleName <<< '\n') + error # (success,var_heap,error, files) = backEndInterface outputPath (map appendRedirection commandLineArgs) predef_symbols syntaxTree main_dcl_module_n var_heap error files -> (success,dcl_modules,functions_and_macros,n_functions_and_macros_in_dcl_modules,var_heap,error, files) |