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/frontend.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/frontend.icl')
| -rw-r--r-- | frontend/frontend.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index bd7d111..4915ffa 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -326,7 +326,7 @@ where | show_types = show_component funs show_types fun_defs (file <<< fun_def.fun_type <<< '\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) //show_components comps fun_defs = map (show_component fun_defs) comps @@ -347,7 +347,7 @@ where # (fun_def, fun_defs) = 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, No) <<< '\n' ) + = show_types funs fun_defs (file <<< fun_def.fun_ident <<< " :: " <:: (properties, ftype, No) <<< '\n' ) showDclModules :: !u:{#DclModule} !*File -> (!u:{#DclModule}, !*File) showDclModules dcl_mods file @@ -372,8 +372,8 @@ where | otherwise # file = show_dcl_function dcl_functions.[fun_index] file = show_dcl_functions (inc fun_index) dcl_functions file - show_dcl_function {ft_symb, ft_type} file - = file <<< ft_symb <<< " :: " <<< ft_type <<< "\n" + show_dcl_function {ft_ident, ft_type} file + = file <<< ft_ident <<< " :: " <<< ft_type <<< "\n" instance == ListTypesKind where (==) ListTypesNone ListTypesNone |