From d70d064e64fea680078f0248e6ddb8ece76e0cde Mon Sep 17 00:00:00 2001
From: ronny
Date: Fri, 16 May 2003 09:59:19 +0000
Subject: 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
---
 frontend/main.icl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'frontend/main.icl')

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
-- 
cgit v1.2.3