# Copyright 2011-2013 Amazon.com, Inc. or its affiliates. All Rights Reserved.
#
# Licensed under the Apache License, Version 2.0 (the "License"). You
# may not use this file except in compliance with the License. A copy of
# the License is located at
#
#     http://aws.amazon.com/apache2.0/
#
# or in the "license" file accompanying this file. This file is
# distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
# ANY KIND, either express or implied. See the License for the specific
# language governing permissions and limitations under the License.

module AWS
  module Core

    # @api private
    class Resource

      include Model
      include Cacheable

      # @api private
      class NotFound < StandardError; end

      # @api private
      def initialize *args

        super

        # cache static attributes passed into options

        options = args.last.is_a?(Hash) ? args.last : {}
        options.each_pair do |opt_name,opt_value|
          if
            self.class.attributes.has_key?(opt_name) and
            self.class.attributes[opt_name].static?
          then
            static_attributes[opt_name] = opt_value
          end
        end

      end

      # @return [String] Returns a simple string representation of this resource.
      def inspect

        identifiers = []
        resource_identifiers.each do |key, value|
          if attr = self.class.attributes.values.find{|a| a.from == key }
            identifiers << "#{attr.name}:#{value}"
          else
            identifiers << "#{key}:#{value}"
          end
        end

        "<#{self::class} #{identifiers.join(' ')}>"

      end

      # @return [Boolean] Returns true if the objects references the same
      #   AWS resource.
      def eql? other
        other.kind_of?(self.class) and
        other.resource_identifiers == resource_identifiers
      end
      alias_method :==, :eql?

      # @api private
      protected
      def get_resource attr_name
        raise NotImplementedError
      end

      # @api private
      protected
      def update_resource attr, value
        raise NotImplementedError
      end

      # Overide this method is subclasses of Resource.  This method should
      # return an array of identifying key/value pairs.
      #
      #     # @api private
      #     protected
      #     def resource_identifiers
      #       [[:user_name, name]]
      #     end
      #
      # @api private
      protected
      def resource_identifiers
        raise NotImplementedError
      end

      # @protected
      protected
      def resource_options(additional = {})
        Hash[resource_identifiers].merge(additional)
      end

      # @api private
      protected
      def local_cache_key
        resource_identifiers.collect{|name,value| value.to_s }.join(":")
      end

      # @api private
      protected
      def static_attributes
        @static_attributes ||= {}
      end

      # @api private
      protected
      def ruby_name
        @ruby_name ||= Inflection.ruby_name(self.class.name)
      end

      # @api private
      public
      def attributes_from_response resp

        # check each provider for this request type to see if it
        # can find the resource and some of its attributes
        attributes = []
        self.class.attribute_providers_for(resp.request_type).each do |provider|
          attributes << provider.attributes_from_response(self, resp)
        end

        # drop out those that returned no attributesj
        attributes.compact!

        # stop here if nothing was found for this resource
        return nil if attributes.empty?

        # merge the attributes together into a single hash
        attributes = attributes.inject({}) {|hash,attribs| hash.merge(attribs) }

        # cache static attributes
        attributes.each_pair do |attr_name,value|
          if self.class.attributes[attr_name].static?
            static_attributes[attr_name] = value
          end
        end

        attributes

      end

      # @api private
      protected
      def cache_static_attributes request_type, resp_obj
        self.class.attribute_providers_for(request_type).each do |provider|
          attributes = provider.attributes_from_response_object(resp_obj)
          attributes.each_pair do |attr_name,value|
            if self.class.attributes[attr_name].static?
              static_attributes[attr_name] = value
            end
          end
        end
      end

      class << self

        # @api private
        def define_attribute_type type_name
          class_eval <<-METHODS

            def self.#{type_name}_attributes
              @#{type_name}_attributes ||= {}
            end

            def self.#{type_name}_attribute name, options = {}, &block
              attr = attribute(name, options, &block)
              #{type_name}_attributes[attr.name] = attr
            end

          METHODS
        end

        # @api private
        def new_from request_type, resp_obj, *args
          resource = new(*args)
          resource.send(:cache_static_attributes, request_type, resp_obj)
          resource
        end

        # @api private
        def attributes
          @attributes ||= Hash.new do |hash,attr_name|
            raise "uknown attribute #{attr_name}"
          end
        end

        # @api private
        def attribute_providers
          @attribute_providers ||= []
        end

        # @api private
        def attribute_providers_for request_type
          attribute_providers.select do |provider|
            provider.request_types.include?(request_type)
          end
        end

        # @api private
        protected
        def attribute name, options = {}, &block
          attr = Attribute.new(name, options)
          attr.instance_eval(&block) if block_given?
          define_attribute_getter(attr)
          define_attribute_setter(attr) if attr.mutable?
          alias_method(options[:alias], name) if options[:alias]
          attributes[attr.name] = attr
        end

        # @api private
        protected
        def mutable_attribute name, options = {}, &block
          attribute(name, options.merge(:mutable => true), &block)
        end

        # @api private
        protected
        def define_attribute_getter attribute
          define_method(attribute.name) do

            return static_attributes[attribute.name] if
              static_attributes.has_key?(attribute.name)

            begin
              retrieve_attribute(attribute) { get_resource(attribute) }
            rescue Cacheable::NoData => e
              name = ruby_name.tr("_", " ")
              raise NotFound, "unable to find the #{name}"
            end

          end
        end

        # @api private
        protected
        def define_attribute_setter attribute
          setter = attribute.name.to_s.sub(/\?/, '') + '='
          define_method(setter) do |value|
            translated_value = attribute.translate_input_value(value)
            update_resource(attribute, translated_value)
            if attribute.static?
              static_attributes[attribute.name] = translated_value
            end
            value
          end
        end

        # @api private
        protected
        def populates_from *request_types, &block
          provider = provider(*request_types)
          provider.find(&block)
          provider.provides(*attributes.keys)
          provider
        end

        # @api private
        protected
        def provider *request_types, &block
          provider = AttributeProvider.new(self, request_types)
          if block_given?
            yield(provider)
          end
          attribute_providers << provider
          provider
        end

      end

      # @api private
      class Attribute

        def initialize name, options = {}
          @name = name
          @options = options
          @request_types = []
        end

        attr_reader :name

        attr_reader :request_types

        def from
          @from ||= (@options[:from] || name)
        end

        def set_as
          @set_as ||= (@options[:set_as] || @options[:from] || name)
        end

        def mutable?
          @options[:mutable] == true
        end

        def static?
          @options[:static] == true
        end

        def translates_input &block
          @input_translator = block
        end

        def translates_output options = {}, &block
          @translates_nil = options[:nil]
          @output_translator = block
        end

        def translate_input_value value
          @input_translator ? @input_translator.call(value) : value
        end

        def translate_output_value value

          # by default nil values are not translated
          return nil if value.nil? and @translates_nil != true

          case
          when @options[:to_sym]    then value.tr('-','_').downcase.to_sym
          when @options[:timestamp] then Time.at(value.to_i)
          when @output_translator   then @output_translator.call(value)
          else value
          end

        end

      end

      # @api private
      class AttributeProvider

        def initialize klass, request_types
          @klass = klass
          @id = klass.attribute_providers.length
          @request_types = request_types
          @provides = {}
        end

        attr_reader :request_types

        def find &block
          @klass.send(:define_method, finder_method, &block)
        end

        def finder_method
          "_find_in_#{request_types.join('_or_')}_response_#{@id}"
        end

        # Indicates that all of the the named attributes can be retrieved
        # from an appropriate response object.
        #
        # @overload provides(*attr_names, options = {})
        #   @param [Symbol] attr_names A list of attributes provided
        #   @param [Hash] options
        #   @option options [Boolean] :value_wrapped (false) If true, then
        #     the value returned by the response object will also receive
        #     the message :value before it is translated and returned.
        #   @option options [Symbol] :from Defaults to the method named
        #     by the attribute.  This is useful when you have two providers
        #     for the same attribute but their response object name
        #     them differently.
        def provides *attr_names
          options = attr_names.last.is_a?(Hash) ? attr_names.pop : {}
          attr_names.each do |attr_name|
            attr = @klass.attributes[attr_name]
            attr.request_types.push(*request_types)
            @provides[attr_name] = options
          end
        end

        def attributes_from_response resource, response
          if response_object = resource.send(finder_method, response)
            attributes_from_response_object(response_object)
          else
            nil
          end
        end

        def attributes_from_response_object resp_obj

          @provides.inject({}) do |attributes,(attr_name,options)|

            attr = @klass.attributes[attr_name]

            methods = [options[:from] || attr.from].flatten

            v = resp_obj
            methods.each do |method|
              v = v.key?(method) ? v[method] : v[method.to_s]
              break if v.nil?
            end
            v = v[:value] if v and options[:value_wrapped]
            v = attr.translate_output_value(v)

            attributes.merge(attr_name => v)

          end

        end

      end
    end
  end
end