diff options
| author | clean | 2000-07-11 09:51:51 +0000 |
|---|---|---|
| committer | clean | 2000-07-11 09:51:51 +0000 |
| commit | c12a991b6304361cfa957405af4e5de3b876bae8 (patch) | |
| tree | e3ad890660bef16644443f2fb486c84b5bfca007 /main/compile.icl | |
| parent | Fixed call to changed frontend interface (diff) | |
Fixed call to changed front end interface
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@186 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/compile.icl')
| -rw-r--r-- | main/compile.icl | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/main/compile.icl b/main/compile.icl index 938ea8d..8b7ba93 100644 --- a/main/compile.icl +++ b/main/compile.icl @@ -38,8 +38,7 @@ InitialCoclOptions = , outMode = FWriteText , searchPaths -// RWS, voor Maarten +++ = {sp_locations = [], sp_paths = []} - = [] + = {sp_locations = [], sp_paths = []} } compile :: [{#Char}] *Files -> (!Bool, !*Files) @@ -54,12 +53,10 @@ parseCommandLine [] options prependModulePath options=:{pathName, searchPaths} = { options & moduleName = baseName pathName -// RWS, voor Maarten +++ , searchPaths = {searchPaths & sp_paths = [directoryName pathName : searchPaths.sp_paths]} - , searchPaths = [directoryName pathName : searchPaths] + , searchPaths = {searchPaths & sp_paths = [directoryName pathName : searchPaths.sp_paths]} } parseCommandLine ["-P", searchPathsString : args] options=:{searchPaths} -// RWS, voor Maarten +++ = parseCommandLine args {options & searchPaths = {searchPaths & sp_paths = splitPaths searchPathsString}} - = parseCommandLine args {options & searchPaths = splitPaths searchPathsString} + = parseCommandLine args {options & searchPaths = {searchPaths & sp_paths = splitPaths searchPathsString}} parseCommandLine ["-RO", outPath : args] options = parseCommandLine args {options & outPath = stripQuotes outPath, outMode = FWriteText} parseCommandLine ["-RAO", outPath : args] options @@ -138,7 +135,7 @@ compileModule options commandLineArgs files # (predefSymbols, hashTable) = buildPredefinedSymbols newHashTable (moduleIdent, hashTable) = putIdentInHashTable options.moduleName IC_Module hashTable # (predefs, _, files, error, io, out, optionalSyntaxTree) - = frontEndInterface moduleIdent options.searchPaths predefSymbols hashTable files error io out + = frontEndInterface FrontEndPhaseAll moduleIdent options.searchPaths predefSymbols hashTable files error io out # (closed, files) = fclose io files | not closed |