/[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 93428 by zurfluhs, Tue Nov 19 13:09:13 2013 UTC revision 93443 by zurfluhs, Tue Nov 19 21:46:04 2013 UTC
# Line 30  feature {NONE} -- Initialization Line 30  feature {NONE} -- Initialization
30                          rules.extend (create {CA_CQ_SEPARATION_RULE}.make)                          rules.extend (create {CA_CQ_SEPARATION_RULE}.make)
31                          rules.extend (create {CA_UNNEEDED_OT_LOCAL_RULE}.make)                          rules.extend (create {CA_UNNEEDED_OT_LOCAL_RULE}.make)
32                          rules.extend (create {CA_UNNEEDED_OBJECT_TEST_RULE}.make)                          rules.extend (create {CA_UNNEEDED_OBJECT_TEST_RULE}.make)
33                            rules.extend (create {CA_NESTED_COMPLEXITY_RULE}.make)
34    
35                          -- Issues (contract violations, exceptions) with {EPA_CFG_BUILDER} and                          -- Issues (contract violations, exceptions) with {EPA_CFG_BUILDER} and
36                          -- classes from library 'program_analysis' in general.                          -- classes from library 'program_analysis' in general.
# Line 265  feature {NONE} -- Class-wide Options (Fr Line 266  feature {NONE} -- Class-wide Options (Fr
266          extract_indexes (a_class: CLASS_C)          extract_indexes (a_class: CLASS_C)
267                  local                  local
268                          l_ast: CLASS_AS                          l_ast: CLASS_AS
269                          l_item: STRING                          l_item: STRING_32
270                          l_ignoredby: LINKED_LIST [STRING]                          l_ignoredby: LINKED_LIST [STRING_32]
271                  do                  do
272                          create l_ignoredby.make                          create l_ignoredby.make
273                          l_ignoredby.compare_objects                          l_ignoredby.compare_objects
# Line 276  feature {NONE} -- Class-wide Options (Fr Line 277  feature {NONE} -- Class-wide Options (Fr
277    
278                          across l_ast.internal_top_indexes as l_indexes loop                          across l_ast.internal_top_indexes as l_indexes loop
279    
280                                  if l_indexes.item.tag.name_8.is_equal ("ca_ignoredby") then                                  if l_indexes.item.tag.name_32.is_equal ("ca_ignoredby") then
281                                          across l_indexes.item.index_list as l_list loop                                          across l_indexes.item.index_list as l_list loop
282                                                  l_item := l_list.item.string_value_32                                                  l_item := l_list.item.string_value_32
283                                                  l_item.prune_all ('%"')                                                  l_item.prune_all ('%"')
284                                                  l_ignoredby.extend (l_item)                                                  l_ignoredby.extend (l_item)
285                                          end                                          end
286                                  elseif l_indexes.item.tag.name_8.is_equal ("ca_library") then                                  elseif l_indexes.item.tag.name_32.is_equal ("ca_library") then
287                                          if not l_indexes.item.index_list.is_empty then                                          if not l_indexes.item.index_list.is_empty then
288                                                  l_item := l_indexes.item.index_list.first.string_value_32                                                  l_item := l_indexes.item.index_list.first.string_value_32
289                                                  l_item.to_lower                                                  l_item.to_lower
# Line 299  feature {NONE} -- Class-wide Options (Fr Line 300  feature {NONE} -- Class-wide Options (Fr
300                          ignoredby.force (l_ignoredby, a_class)                          ignoredby.force (l_ignoredby, a_class)
301                  end                  end
302    
303          ignoredby: HASH_TABLE [LINKED_LIST [STRING], CLASS_C]          ignoredby: HASH_TABLE [LINKED_LIST [STRING_32], CLASS_C]
304    
305          library_class, nonlibrary_class: HASH_TABLE [BOOLEAN, CLASS_C]          library_class, nonlibrary_class: HASH_TABLE [BOOLEAN, CLASS_C]
306    

Legend:
Removed from v.93428  
changed lines
  Added in v.93443

  ViewVC Help
Powered by ViewVC 1.1.23