Class: RuboCop::Cop::Style::CaseLikeIf

# File 'lib/rubocop/cop/style/case_like_if.rb', line 228

def branch_conditions(node)
  conditions = []
  while node&.if_type? && !node.ternary?
    conditions << node.condition
    node = node.else_branch
  end
  conditions
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 246

def class_reference?(node)
  node.const_type? && node.children[1].match?(/[[:lower:]]/)
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 166

def collect_conditions(node, target, conditions)
  condition =
    case node.type
    when :begin
      return collect_conditions(node.children.first, target, conditions)
    when :or
      return collect_conditions(node.lhs, target, conditions) &&
             collect_conditions(node.rhs, target, conditions)
    when :match_with_lvasgn
      lhs, rhs = *node # rubocop:disable InternalAffairs/NodeDestructuring
      condition_from_binary_op(lhs, rhs, target)
    when :send
      condition_from_send_node(node, target)
    end

  conditions << condition if condition
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 217

def condition_from_binary_op(lhs, rhs, target)
  lhs = deparenthesize(lhs)
  rhs = deparenthesize(rhs)

  if lhs == target
    rhs
  elsif rhs == target
    lhs
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 201

def condition_from_equality_node(node, target)
  condition = condition_from_binary_op(node.receiver, node.first_argument, target)
  condition if condition && !class_reference?(condition)
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 210

def condition_from_include_or_cover_node(node, target)
  return unless (receiver = node.receiver)

  receiver = deparenthesize(receiver)
  receiver if receiver.range_type? && node.first_argument == target
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 206

def condition_from_match_node(node, target)
  condition_from_binary_op(node.receiver, node.first_argument, target)
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 185

def condition_from_send_node(node, target)
  case node.method_name
  when :is_a?
    node.first_argument if node.receiver == target
  when :==, :eql?, :equal?
    condition_from_equality_node(node, target)
  when :=~, :match, :match?
    condition_from_match_node(node, target)
  when :===
    node.receiver if node.first_argument == target
  when :include?, :cover?
    condition_from_include_or_cover_node(node, target)
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 237

def const_reference?(node)
  return false unless node.const_type?

  name = node.children[1].to_s

  # We can no be sure if, e.g. `C`, represents a constant or a class reference
  name.length > 1 && name == name.upcase
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 255

def correction_range(node)
  range_between(node.parent.loc.keyword.begin_pos, node.source_range.end_pos)
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 250

def deparenthesize(node)
  node = node.children.last while node.begin_type?
  node
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 102

def find_target(node)
  case node.type
  when :begin
    find_target(node.children.first)
  when :or
    find_target(node.lhs)
  when :match_with_lvasgn
    lhs, rhs = *node # rubocop:disable InternalAffairs/NodeDestructuring
    if lhs.regexp_type?
      rhs
    elsif rhs.regexp_type?
      lhs
    end
  when :send
    find_target_in_send_node(node)
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 136

def find_target_in_equality_node(node)
  argument = node.first_argument
  receiver = node.receiver
  return unless argument && receiver

  if argument.literal? || const_reference?(argument)
    receiver
  elsif receiver.literal? || const_reference?(receiver)
    argument
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 148

def find_target_in_include_or_cover_node(node)
  return unless (receiver = node.receiver)

  node.first_argument if deparenthesize(receiver).range_type?
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 154

def find_target_in_match_node(node)
  argument = node.first_argument
  receiver = node.receiver
  return unless receiver

  if receiver.regexp_type?
    argument
  elsif argument.regexp_type?
    receiver
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 121

def find_target_in_send_node(node)
  case node.method_name
  when :is_a?
    node.receiver
  when :==, :eql?, :equal?
    find_target_in_equality_node(node)
  when :===
    node.first_argument
  when :include?, :cover?
    find_target_in_include_or_cover_node(node)
  when :match, :match?, :=~
    find_target_in_match_node(node)
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 57

def on_if(node)
  return unless should_check?(node)

  target = find_target(node.condition)
  return unless target

  conditions = []
  convertible = true

  branch_conditions(node).each do |branch_condition|
    return false if regexp_with_working_captures?(branch_condition)

    conditions << []
    convertible = collect_conditions(branch_condition, target, conditions.last)
    break unless convertible
  end

  return unless convertible

  add_offense(node) { |corrector| autocorrect(corrector, node) }
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 271

def regexp_with_named_captures?(node)
  node.regexp_type? && node.each_capture(named: true).count.positive?
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 260

def regexp_with_working_captures?(node)
  case node.type
  when :match_with_lvasgn
    lhs, _rhs = *node # rubocop:disable InternalAffairs/NodeDestructuring
    node.loc.selector.source == '=~' && regexp_with_named_captures?(lhs)
  when :send
    node.method?(:match) &&
      [node.receiver, node.first_argument].any? { |n| regexp_with_named_captures?(n) }
  end
end

# File 'lib/rubocop/cop/style/case_like_if.rb', line 96

def should_check?(node)
  !node.unless? && !node.elsif? && !node.modifier_form? && !node.ternary? &&
    node.elsif_conditional? && min_branches_count?(node)
end