/[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 93431 by zurfluhs, Tue Nov 19 20:13:42 2013 UTC
# Line 265  feature {NONE} -- Class-wide Options (Fr Line 265  feature {NONE} -- Class-wide Options (Fr
265          extract_indexes (a_class: CLASS_C)          extract_indexes (a_class: CLASS_C)
266                  local                  local
267                          l_ast: CLASS_AS                          l_ast: CLASS_AS
268                          l_item: STRING                          l_item: STRING_32
269                          l_ignoredby: LINKED_LIST [STRING]                          l_ignoredby: LINKED_LIST [STRING_32]
270                  do                  do
271                          create l_ignoredby.make                          create l_ignoredby.make
272                          l_ignoredby.compare_objects                          l_ignoredby.compare_objects
# Line 276  feature {NONE} -- Class-wide Options (Fr Line 276  feature {NONE} -- Class-wide Options (Fr
276    
277                          across l_ast.internal_top_indexes as l_indexes loop                          across l_ast.internal_top_indexes as l_indexes loop
278    
279                                  if l_indexes.item.tag.name_8.is_equal ("ca_ignoredby") then                                  if l_indexes.item.tag.name_32.is_equal ("ca_ignoredby") then
280                                          across l_indexes.item.index_list as l_list loop                                          across l_indexes.item.index_list as l_list loop
281                                                  l_item := l_list.item.string_value_32                                                  l_item := l_list.item.string_value_32
282                                                  l_item.prune_all ('%"')                                                  l_item.prune_all ('%"')
283                                                  l_ignoredby.extend (l_item)                                                  l_ignoredby.extend (l_item)
284                                          end                                          end
285                                  elseif l_indexes.item.tag.name_8.is_equal ("ca_library") then                                  elseif l_indexes.item.tag.name_32.is_equal ("ca_library") then
286                                          if not l_indexes.item.index_list.is_empty then                                          if not l_indexes.item.index_list.is_empty then
287                                                  l_item := l_indexes.item.index_list.first.string_value_32                                                  l_item := l_indexes.item.index_list.first.string_value_32
288                                                  l_item.to_lower                                                  l_item.to_lower
# Line 299  feature {NONE} -- Class-wide Options (Fr Line 299  feature {NONE} -- Class-wide Options (Fr
299                          ignoredby.force (l_ignoredby, a_class)                          ignoredby.force (l_ignoredby, a_class)
300                  end                  end
301    
302          ignoredby: HASH_TABLE [LINKED_LIST [STRING], CLASS_C]          ignoredby: HASH_TABLE [LINKED_LIST [STRING_32], CLASS_C]
303    
304          library_class, nonlibrary_class: HASH_TABLE [BOOLEAN, CLASS_C]          library_class, nonlibrary_class: HASH_TABLE [BOOLEAN, CLASS_C]
305    

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

  ViewVC Help
Powered by ViewVC 1.1.23