# encoding: utf-8

module Rubocop
  module Cop
    module Style
      # This cop checks hash literal syntax.
      #
      # It can enforce either the use of the class hash rocket syntax or
      # the use of the newer Ruby 1.9 syntax (when applicable).
      #
      # A separate offense is registered for each problematic pair.
      class HashSyntax < Cop
        include ConfigurableEnforcedStyle

        MSG_19 = 'Use the new Ruby 1.9 hash syntax.'
        MSG_HASH_ROCKETS = 'Always use hash rockets in hashes.'

        def on_hash(node)
          style == :ruby19 ? ruby19_check(node) : hash_rockets_check(node)
        end

        def ruby19_check(node)
          pairs = *node

          sym_indices = pairs.all? { |p| word_symbol_pair?(p) }

          check(pairs, '=>', MSG_19) if sym_indices
        end

        def hash_rockets_check(node)
          pairs = *node

          check(pairs, ':', MSG_HASH_ROCKETS)
        end

        def autocorrect(node)
          key = node.children.first.loc.expression
          op = node.loc.operator

          @corrections << lambda do |corrector|
            if style == :ruby19
              range = Parser::Source::Range.new(key.source_buffer,
                                                key.begin_pos, op.end_pos)
              range = range_with_surrounding_space(range, :right)
              corrector.replace(range,
                                range.source.sub(/^:(.*\S)\s*=>\s*$/, '\1: '))
            else
              corrector.insert_after(key, ' => ')
              corrector.insert_before(key, ':')
              corrector.remove(range_with_surrounding_space(op))
            end
          end
        end

        private

        def space_before_operator?(op, key)
          op.begin_pos - key.begin_pos - key.source.length > 0
        end

        def check(pairs, delim, msg)
          pairs.each do |pair|
            if pair.loc.operator && pair.loc.operator.is?(delim)
              add_offense(pair,
                          pair.loc.expression.begin.join(pair.loc.operator),
                          msg) do
                opposite_style_detected
              end
            else
              correct_style_detected
            end
          end
        end

        def word_symbol_pair?(pair)
          key, _value = *pair

          if key.type == :sym
            sym_name = key.to_a[0]

            sym_name =~ /\A[A-Za-z_]\w*\z/
          else
            false
          end
        end
      end
    end
  end
end