diff options
| author | ronny | 2003-05-16 09:59:19 +0000 |
|---|---|---|
| committer | ronny | 2003-05-16 09:59:19 +0000 |
| commit | d70d064e64fea680078f0248e6ddb8ece76e0cde (patch) | |
| tree | 0976d44630b049a5ddfb70de86b279d71435af17 /frontend/main.icl | |
| parent | foldExp - added alternative for EE (diff) | |
renamed field names of type Ident in syntax tree
s/\<mod_name\>/mod_ident/g
s/\<ps_field_name\>/ps_field_ident/g
s/\<ps_selector_name\>/ps_selector_ident/g
s/\<pc_cons_name\>/pc_cons_ident/g
s/\<class_name\>/class_ident/g
s/\<gen_name\>/gen_ident/g
s/\<gen_member_name\>/gen_member_ident/g
s/\<gc_name\>/gc_ident/g
s/\<gc_gname\>/gc_gident/g
s/\<fs_name\>/fs_ident/g
s/\<td_name\>/td_ident/g
s/\<fv_name\>/fv_ident/g
s/\<var_name\>/var_ident/g
s/\<type_name\>/type_ident/g
s/\<symb_name\>/symb_ident/g
s/\<tv_name\>/tv_ident/g
s/\<av_name\>/av_ident/g
s/\<me_symb\>/me_ident/g
s/\<ft_symb\>/ft_ident/g
s/\<fun_symb\>/fun_ident/g
s/\<cons_symb\>/cons_ident/g
s/\<sd_symb\>/sd__ident/g
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1340 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 9b91d14..c11055a 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -114,9 +114,9 @@ DoCommand ['c':_] argument symbol_heap ms DoCommand ['m':_] argument symbol_heap ms # (file_name, rest_input) = SplitAtLayoutChar (dropWhile isSpace argument) - # mod_name = toString file_name + # mod_ident = toString file_name # dcl_cache=empty_cache symbol_heap - # (proj, ms) = makeProject { proj_main_module=mod_name, + # (proj, ms) = makeProject { proj_main_module=mod_ident, proj_modules=NoModules, proj_cache=dcl_cache} ms = (False, proj.proj_cache.hash_table.hte_symbol_heap, ms) @@ -169,8 +169,8 @@ where (word, rest_input) = SplitAtLayoutChar xs compileModule :: String *DclCache *MainState -> *(!Optional InterMod,!*DclCache,!*MainState); -compileModule mod_name dcl_cache ms - # (mod_ident, hash_table) = putIdentInHashTable mod_name IC_Module dcl_cache.hash_table +compileModule mod_ident dcl_cache ms + # (mod_ident, hash_table) = putIdentInHashTable mod_ident IC_Module dcl_cache.hash_table dcl_cache = {dcl_cache & hash_table=hash_table} = loadModule mod_ident.boxed_ident dcl_cache ms @@ -308,7 +308,7 @@ where | show_types = show_component funs show_types fun_defs (file <<< '\n' <<< fun_def) = show_component funs show_types fun_defs (file <<< fun_def) -// = show_component funs show_types fun_defs (file <<< fun_def.fun_symb) +// = show_component funs show_types fun_defs (file <<< fun_def.fun_ident) showComponents2 :: !{! Group} !Int !*{# FunDef} !{! ConsClasses} !*File -> (!*{# FunDef},!*File) showComponents2 comps comp_index fun_defs acc_args file @@ -321,7 +321,7 @@ where = (fun_defs, file <<< '\n') show_component [fun:funs] fun_defs acc_args file #! fd = fun_defs.[fun] - # file = show_accumulating_arguments acc_args.[fun].cc_args (file <<< fd.fun_symb <<< '.' <<< fun <<< " (") + # file = show_accumulating_arguments acc_args.[fun].cc_args (file <<< fd.fun_ident <<< '.' <<< fun <<< " (") = show_component funs fun_defs acc_args (file <<< ") ") show_accumulating_arguments [ cc : ccs] file @@ -355,7 +355,7 @@ where #! fun_def = fun_defs.[fun] # properties = { form_properties = cAttributed bitor cAnnotated, form_attr_position = No } (Yes ftype) = fun_def.fun_type - = show_types funs fun_defs (file <<< fun_def.fun_symb <<< " :: " <:: (properties, ftype) <<< '\n' ) + = show_types funs fun_defs (file <<< fun_def.fun_ident <<< " :: " <:: (properties, ftype) <<< '\n' ) */ converFileToListOfStrings file_name files error |