# This implementation is HODEL-HASH-9600 compliant
class HashWithIndifferentAccess < Hash
  def initialize(constructor = {})
    if constructor.is_a?(Hash)
      super()
      update(constructor.stringify_keys)
    else
      super(constructor)
    end
  end
  
  alias_method :regular_reader, :[] unless method_defined?(:regular_reader)
  
  def [](key)
    case key
      when Symbol: regular_reader(key.to_s) || regular_reader(key)
      when String: regular_reader(key) || regular_reader(key.to_sym)
      else regular_reader(key)
    end
  end

  alias_method :regular_writer, :[]= unless method_defined?(:regular_writer)
  
  def []=(key, value)
    regular_writer(convert_key(key), convert_value(value))
  end
  def update(hash)
    hash.each {|key, value| self[key] = value}
  end

  def key?(key)
    super(convert_key(key))
  end

  alias_method :include?, :key?
  alias_method :has_key?, :key?
  alias_method :member?, :key?

  def fetch(key, *extras)
    super(convert_key(key), *extras)
  end

  def values_at(*indices)
    indices.collect {|key| self[convert_key(key)]}
  end

  protected
    def convert_key(key)
      key.kind_of?(Symbol) ? key.to_s : key
    end
    def convert_value(value)
      value.is_a?(Hash) ? value.with_indifferent_access : value
    end
end

module ActiveSupport #:nodoc:
  module CoreExtensions #:nodoc:
    module Hash #:nodoc:
      module IndifferentAccess
        def with_indifferent_access
          HashWithIndifferentAccess.new(self)
        end
      end
    end
  end
end