/[eiffelstudio]/branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e
ViewVC logotype

Diff of /branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 44445 by manus, Wed Jul 21 05:31:04 2004 UTC revision 46609 by alexk, Tue Nov 23 13:23:01 2004 UTC
# Line 494  feature {NONE} -- Implementation Line 494  feature {NONE} -- Implementation
494                  require                  require
495                          a_base_name_not_void: a_base_name /= Void                          a_base_name_not_void: a_base_name /= Void
496                  local                  local
                         l_name: STRING  
497                          l_base_class: like base_class                          l_base_class: like base_class
498                  do                  do
499                          l_base_class := base_class                          l_base_class := base_class
500                                  -- Result needs to be in lower case because that's                                  -- Result needs to be in lower case because that's
501                                  -- what our casing conversion routines require to perform                                  -- what our casing conversion routines require to perform
502                                  -- a good job.                                  -- a good job.
503                          if                          if is_expanded and then not l_base_class.is_expanded then
504                                  (is_expanded and l_base_class.is_expanded) or                                  create Result.make (6 + a_base_name.count)
505                                  (not is_expanded and not l_base_class.is_expanded)                                  Result.append ("value_")
506                          then                          elseif not is_expanded and then l_base_class.is_expanded then
507                                  Result := a_base_name.as_lower                                  create Result.make (10 + a_base_name.count)
508                                    Result.append ("reference_")
509                          else                          else
510                                  if is_expanded then                                  create Result.make (a_base_name.count)
                                         create Result.make (6 + a_base_name.count)  
                                         Result.append ("VALUE_")  
                                 else  
                                         create Result.make (10 + a_base_name.count)  
                                         Result.append ("REFERENCE_")  
                                 end  
                                 Result.append (a_base_name)  
                                 Result.to_lower  
511                          end                          end
512                          l_name := l_base_class.lace_class.actual_namespace                          Result.append (a_base_name)
513                          if a_prefix /= Void then                          Result.to_lower
514                                  if l_name.is_empty then                          Result := il_casing.type_name (l_base_class.lace_class.actual_namespace, a_prefix, Result, System.dotnet_naming_convention)
                                         l_name := a_prefix + "."  
                                 else  
                                         l_name := il_casing.namespace_casing (System.dotnet_naming_convention,  
                                                 l_name) + "." + a_prefix + "."  
                                 end  
                         else  
                                 if not l_name.is_empty then                                      
                                         l_name := il_casing.namespace_casing (System.dotnet_naming_convention,  
                                                 l_name) + "."  
                                 end  
                         end  
                         Result := l_name + il_casing.pascal_casing (System.dotnet_naming_convention,  
                                 Result, feature {IL_CASING_CONVERSION}.upper_case)  
515                  ensure                  ensure
516                          internal_il_type_name_not_void: Result /= Void                          internal_il_type_name_not_void: Result /= Void
517                          internal_il_type_name_not_empty: not Result.is_empty                          internal_il_type_name_not_empty: not Result.is_empty

Legend:
Removed from v.44445  
changed lines
  Added in v.46609

  ViewVC Help
Powered by ViewVC 1.1.23