/[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 93177 by zurfluhs, Mon Oct 28 22:16:38 2013 UTC revision 93333 by zurfluhs, Tue Nov 12 22:48:07 2013 UTC
# Line 9  class Line 9  class
9    
10  inherit {NONE}  inherit {NONE}
11          SHARED_EIFFEL_PROJECT          SHARED_EIFFEL_PROJECT
12            CA_SHARED_NAMES
13    
14  create  create
15          make          make
# Line 23  feature {NONE} -- Initialization Line 24  feature {NONE} -- Initialization
24                          -- Adding example rules                          -- Adding example rules
25                          rules.extend (create {CA_SELF_ASSIGNMENT_RULE}.make)                          rules.extend (create {CA_SELF_ASSIGNMENT_RULE}.make)
26                          rules.extend (create {CA_UNUSED_ARGUMENT_RULE}.make)                          rules.extend (create {CA_UNUSED_ARGUMENT_RULE}.make)
27                            rules.extend (create {CA_NPATH_RULE}.make)
28                            rules.extend (create {CA_EMPTY_IF_RULE}.make)
29                            rules.extend (create {CA_FEATURE_NEVER_CALLED_RULE}.make)
30                            rules.extend (create {CA_CQ_SEPARATION_RULE}.make)
31                            -- Issues (contract violations, exceptions) with {EPA_CFG_BUILDER} and
32                            -- classes from library 'program_analysis' in general.
33    --                      rules.extend (create {CA_VARIABLE_NOT_READ_RULE}.make)
34    
35                          create classes_to_analyze.make                          create classes_to_analyze.make
36                          create rule_violations.make (100)                          create rule_violations.make (100)
37                            create completed_actions
38                  end                  end
39    
40  feature -- Analysis interface  feature -- Analysis interface
41    
42            add_completed_action (a_action: PROCEDURE [ANY, TUPLE [BOOLEAN] ])
43                    do
44                            completed_actions.extend (a_action)
45                    end
46    
47          analyze          analyze
48                    require
49                            not is_running
50                  local                  local
51                          l_rules_checker: CA_ALL_RULES_CHECKER                          l_rules_checker: CA_ALL_RULES_CHECKER
52                  do                  do
53                            is_running := True
54    
55                          create l_rules_checker.make                          create l_rules_checker.make
56                          across rules as l_rules loop                          across rules as l_rules loop
57                                  if l_rules.item.is_enabled then -- important: only add enabled rules                                  if l_rules.item.is_enabled then -- important: only add enabled rules
58                                          if system_wide_check or else (not l_rules.item.is_system_wide) then                                          if system_wide_check or else (not l_rules.item.is_system_wide) then
59                                                  -- do not add system wide rules if we check only parts of the system                                                  -- do not add system wide rules if we check only parts of the system
60                                                  l_rules.item.prepare_checking (l_rules_checker)                                                  if attached {CA_STANDARD_RULE} l_rules.item as l_std_rule then
61                                                            l_std_rule.prepare_checking (l_rules_checker)
62                                                    -- TODO: prepare rules of other types?
63                                                    end
64                                          end                                          end
65                                  end                                  end
66                          end                          end
# Line 49  feature -- Analysis interface Line 70  feature -- Analysis interface
70                                  -- TODO: more elegant and performant solution?                                  -- TODO: more elegant and performant solution?
71                                  across rules as l_rules loop                                  across rules as l_rules loop
72                                          l_rules.item.set_checking_class (l_classes.item)                                          l_rules.item.set_checking_class (l_classes.item)
73                                            -- If rule is non-standard then it will not be checked by l_rules_checker.
74                                            -- We will have the rule check the current class here:
75                                            if attached {CA_CFG_RULE} l_rules.item as l_cfg_rule then
76                                                    l_cfg_rule.check_class (l_classes.item)
77                                            end
78                                  end                                  end
79    
80                                  l_rules_checker.run_on_class (l_classes.item)                                  l_rules_checker.run_on_class (l_classes.item)
# Line 63  feature -- Analysis interface Line 89  feature -- Analysis interface
89                          end                          end
90    
91                          clear_classes_to_analyze                          clear_classes_to_analyze
92    
93                            is_running := False
94                            completed_actions.call ([True])
95                            completed_actions.wipe_out
96                  ensure                  ensure
97                          violation_list_exists: analysis_successful implies rule_violations /= Void                          violation_list_exists: analysis_successful implies rule_violations /= Void
98                            not is_running
99                  end                  end
100    
101          clear_classes_to_analyze          clear_classes_to_analyze
# Line 123  feature -- Analysis interface Line 154  feature -- Analysis interface
154                          end                          end
155                  end                  end
156    
157            add_group (a_group: CONF_GROUP)
158                    require
159                            a_group_not_void: a_group /= Void
160                    local
161                            l_conf_class: CONF_CLASS
162                            l_class_i: CLASS_I
163                    do
164                            from
165                                    a_group.classes.start
166                            until
167                                    a_group.classes.after
168                            loop
169                                    l_conf_class := a_group.classes.item_for_iteration
170                                    l_class_i := eiffel_universe.class_named (l_conf_class.name, a_group)
171                                    add_class (l_class_i)
172                                    a_group.classes.forth
173                            end
174                    end
175    
176          add_classes (a_classes: ITERABLE[CLASS_I])          add_classes (a_classes: ITERABLE[CLASS_I])
177                  do                  do
178                          system_wide_check := False                          system_wide_check := False
# Line 141  feature -- Analysis interface Line 191  feature -- Analysis interface
191                          if a_class.is_compiled then                          if a_class.is_compiled then
192                                  l_class_c := a_class.compiled_class                                  l_class_c := a_class.compiled_class
193                                  check l_class_c /= Void end                                  check l_class_c /= Void end
                                 print ("Analyzing class " + a_class.name + "...%N")  
194                                  classes_to_analyze.extend (l_class_c)                                  classes_to_analyze.extend (l_class_c)
195                          else                          else
196                                  print ("Class " + a_class.name + " not compiled (skipped).%N")                                  print ("Class " + a_class.name + " not compiled (skipped).%N")
# Line 150  feature -- Analysis interface Line 199  feature -- Analysis interface
199    
200  feature -- Properties  feature -- Properties
201    
202            is_running: BOOLEAN
203    
204          analysis_successful: BOOLEAN          analysis_successful: BOOLEAN
205    
206          rules: LINKED_LIST[CA_RULE]          rules: LINKED_LIST[CA_RULE]
# Line 164  feature {NONE} -- Implementation Line 215  feature {NONE} -- Implementation
215    
216          system_wide_check: BOOLEAN          system_wide_check: BOOLEAN
217    
218            completed_actions: ACTION_SEQUENCE [ TUPLE [BOOLEAN] ]
219    
220  end  end

Legend:
Removed from v.93177  
changed lines
  Added in v.93333

  ViewVC Help
Powered by ViewVC 1.1.23