diff options
| author | johnvg | 2001-11-30 15:16:51 +0000 |
|---|---|---|
| committer | johnvg | 2001-11-30 15:16:51 +0000 |
| commit | 14a2ebdc10620bb6a4491dadb359e0560df9db75 (patch) | |
| tree | 8b70db6faf5e4025853aa2ed66dc987a7c50df74 /main | |
| parent | store predefined identifiers in CAF (diff) | |
initPtr modifies the *World
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@913 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main')
| -rw-r--r-- | main/coclmain.icl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/main/coclmain.icl b/main/coclmain.icl index 58d9e14..c68124a 100644 --- a/main/coclmain.icl +++ b/main/coclmain.icl @@ -14,8 +14,10 @@ coclMain :: ![{#Char}] !*World -> *World coclMain testArgs world # (commandArgs, world) = getCommandArgs (tl [arg \\ arg <-: getCommandLine]) testArgs world + # (symbol_table,world) + = init_identifiers newHeap world # (success, world) - = accFiles (compiler commandArgs) world + = accFiles (compiler commandArgs symbol_table) world = set_return_code (if success 0(-1)) world where getCommandArgs :: [{#Char}] [{#Char}] *World -> ([{#Char}], *World) @@ -77,9 +79,9 @@ import thread_message; import code from "thread_message.obj"; -compiler :: ![{#Char}] *Files -> *(!Bool,!*Files); -compiler commandArgs files - # dcl_cache = empty_cache (init_identifiers newHeap) +compiler :: ![{#Char}] *SymbolTable *Files -> *(!Bool,!*Files); +compiler commandArgs symbol_table files + # dcl_cache = empty_cache symbol_table | length commandArgs==2 && commandArgs!!0=="-ide" # wm_number=get_message_number; # thread_id=hex_to_int (commandArgs!!1); |