/[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 33952 by manus, Fri Aug 23 16:49:17 2002 UTC revision 34253 by manus, Sun Sep 1 04:56:46 2002 UTC
# Line 91  feature -- Access Line 91  feature -- Access
91                          -- Class name of current type.                          -- Class name of current type.
92                  local                  local
93                          l_class_c: like base_class                          l_class_c: like base_class
94                            l_is_precompiled: BOOLEAN
95                            l_cl_type: like associated_class_type
96                  do                  do
97                          l_class_c := base_class                          l_class_c := base_class
98                          if l_class_c.is_external then                          if l_class_c.is_external then
99                                  Result := clone (base_class.external_class_name)                                  Result := clone (l_class_c.external_class_name)
100                          else                          else
101                                  Result := internal_il_type_name (clone (base_class.name), a_prefix)                                  l_is_precompiled := l_class_c.is_precompiled
102                                    if l_is_precompiled then
103                                            l_cl_type := associated_class_type
104                                            l_is_precompiled := l_cl_type.is_precompiled
105                                            if l_is_precompiled then
106                                                    Result := associated_class_type.il_type_name (a_prefix)
107                                            end
108                                    end
109                                    if not l_is_precompiled then
110                                            Result := internal_il_type_name (clone (l_class_c.name), a_prefix)
111                                    end
112                          end                          end
113                  end                  end
114    
# Line 498  feature {NONE} -- Implementation Line 510  feature {NONE} -- Implementation
510                                  if l_name.is_empty then                                  if l_name.is_empty then
511                                          l_name := a_prefix + "."                                          l_name := a_prefix + "."
512                                  else                                  else
513                                          l_name := il_casing.namespace_casing (l_name) + "." + a_prefix + "."                                          l_name := il_casing.namespace_casing (System.dotnet_naming_convention,
514                                                    l_name) + "." + a_prefix + "."
515                                  end                                  end
516                          else                          else
517                                  if not l_name.is_empty then                                                                      if not l_name.is_empty then                                    
518                                          l_name := il_casing.namespace_casing (l_name) + "."                                          l_name := il_casing.namespace_casing (System.dotnet_naming_convention,
519                                                    l_name) + "."
520                                  end                                  end
521                          end                          end
522                          Result := l_name + il_casing.pascal_casing (Result,                          Result := l_name + il_casing.pascal_casing (System.dotnet_naming_convention,
523                                  feature {IL_CASING_CONVERSION}.upper_case)                                  Result, feature {IL_CASING_CONVERSION}.upper_case)
524                  ensure                  ensure
525                          internal_il_type_name_not_void: Result /= Void                          internal_il_type_name_not_void: Result /= Void
526                          internal_il_type_name_not_empty: not Result.is_empty                          internal_il_type_name_not_empty: not Result.is_empty

Legend:
Removed from v.33952  
changed lines
  Added in v.34253

  ViewVC Help
Powered by ViewVC 1.1.23