/[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 93758 by zurfluhs, Wed Dec 18 11:41:28 2013 UTC revision 93894 by zurfluhs, Sat Jan 4 16:38:46 2014 UTC
# Line 303  feature {NONE} -- Class-wide Options (Fr Line 303  feature {NONE} -- Class-wide Options (Fr
303                          nonlibrary_class.force (False, a_class)                          nonlibrary_class.force (False, a_class)
304                          l_ast := a_class.ast                          l_ast := a_class.ast
305    
306                          across l_ast.internal_top_indexes as l_indexes loop                          if attached l_ast.internal_top_indexes then
307                                    across l_ast.internal_top_indexes as l_indexes loop
308    
309                                  if l_indexes.item.tag.name_32.is_equal ("ca_ignoredby") then                                          if l_indexes.item.tag.name_32.is_equal ("ca_ignoredby") then
310                                          across l_indexes.item.index_list as l_list loop                                                  across l_indexes.item.index_list as l_list loop
311                                                  l_item := l_list.item.string_value_32                                                          l_item := l_list.item.string_value_32
312                                                  l_item.prune_all ('%"')                                                          l_item.prune_all ('%"')
313                                                  l_ignoredby.extend (l_item)                                                          l_ignoredby.extend (l_item)
314                                          end                                                  end
315                                  elseif l_indexes.item.tag.name_32.is_equal ("ca_library") then                                          elseif l_indexes.item.tag.name_32.is_equal ("ca_library") then
316                                          if not l_indexes.item.index_list.is_empty then                                                  if not l_indexes.item.index_list.is_empty then
317                                                  l_item := l_indexes.item.index_list.first.string_value_32                                                          l_item := l_indexes.item.index_list.first.string_value_32
318                                                  l_item.to_lower                                                          l_item.to_lower
319                                                  l_item.prune_all ('%"')                                                          l_item.prune_all ('%"')
320                                                  if l_item.is_equal ("true") then                                                          if l_item.is_equal ("true") then
321                                                          library_class.force (True, a_class)                                                                  library_class.force (True, a_class)
322                                                  elseif l_item.is_equal ("false") then                                                          elseif l_item.is_equal ("false") then
323                                                          nonlibrary_class.force (True, a_class)                                                                  nonlibrary_class.force (True, a_class)
324                                                            end
325                                                  end                                                  end
326                                          end                                          end
327                                  end                                  end

Legend:
Removed from v.93758  
changed lines
  Added in v.93894

  ViewVC Help
Powered by ViewVC 1.1.23