/[eiffelstudio]/branches/eth/eve/Src/framework/code_analysis/ca_code_analyzer.e
ViewVC logotype

Diff of /branches/eth/eve/Src/framework/code_analysis/ca_code_analyzer.e

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

revision 94254 by zurfluhs, Tue Feb 11 08:31:49 2014 UTC revision 94498 by zurfluhs, Mon Feb 24 12:08:17 2014 UTC
# Line 134  feature -- Analysis interface Line 134  feature -- Analysis interface
134                          -- Add all the classes that are part of the current system. Classes of references libraries                          -- Add all the classes that are part of the current system. Classes of references libraries
135                          -- will not be added.                          -- will not be added.
136                  local                  local
                         l_groups: LIST [CONF_GROUP]  
137                          l_cluster: CLUSTER_I                          l_cluster: CLUSTER_I
138                  do                  do
139                          from                          across
140                                  l_groups := eiffel_universe.groups                                  eiffel_universe.groups as l_groups
                                 l_groups.start  
                         until  
                                 l_groups.after  
141                          loop                          loop
142                                  l_cluster ?= l_groups.item_for_iteration                                  l_cluster ?= l_groups.item
143                                          -- Only load top-level clusters, as the others will be loaded recursively afterwards.                                          -- Only load top-level clusters, as the others will be loaded recursively afterwards.
144                                  if l_cluster /= Void and then l_cluster.parent_cluster = Void then                                  if l_cluster /= Void and then l_cluster.parent_cluster = Void then
145                                          add_cluster (l_cluster)                                          add_cluster (l_cluster)
146                                  end                                  end
                                 l_groups.forth  
147                          end                          end
148    
149                          system_wide_check := True                          system_wide_check := True

Legend:
Removed from v.94254  
changed lines
  Added in v.94498

  ViewVC Help
Powered by ViewVC 1.1.23