require_relative 'resource/system_properties'
require 'date'

module Contentful
  # Include this module to declare a class to be a contentful resource.
  # This is done by the default in the existing resource classes
  #
  # You can define your own classes that behave like contentful resources:
  # See examples/custom_classes.rb to see how.
  #
  # Take a look at examples/resource_mapping.rb on how to register them
  # to be returned by the client by default
  module Resource
    COERCIONS = {
      string:  ->(v) { v.to_s },
      integer: ->(v) { v.to_i },
      float:   ->(v) { v.to_f },
      boolean: ->(v) { !!v },
      date:    ->(v) { DateTime.parse(v) }
    }

    attr_reader :properties, :request, :client, :default_locale

    def initialize(object = nil, request = nil, client = nil, nested_locale_fields = false, default_locale = Contentful::Client::DEFAULT_CONFIGURATION[:default_locale])
      self.class.update_coercions!
      @nested_locale_fields = nested_locale_fields
      @default_locale = default_locale

      @properties = extract_from_object(object, :property,
                                        self.class.property_coercions.keys)
      @request = request
      @client = client
    end

    def inspect(info = nil)
      properties_info = properties.empty? ? '' : " @properties=#{properties.inspect}"
      "#<#{self.class}:#{properties_info}#{info}>"
    end

    # Returns true for resources that behave like an array
    def array?
      false
    end

    # By default, fields come flattened in the current locale. This is different for syncs
    def nested_locale_fields?
      !! @nested_locale_fields
    end

    # Resources that don't include SystemProperties return nil for #sys
    def sys
      nil
    end

    # Resources that don't include Fields or AssetFields return nil for #fields
    def fields
      nil
    end

    # Issues the request that was made to fetch this response again.
    # Only works for top-level resources
    def reload
      if request
        request.get
      else
        false
      end
    end

    private

    def initialize_fields_for_localized_resource(object)
      @fields = {}

      if nested_locale_fields?
        object['fields'].each do |field_name, nested_child_object|
          nested_child_object.each do |object_locale, real_child_object|
            @fields[object_locale] ||= {}
            @fields[object_locale].merge! extract_from_object(
              { field_name => real_child_object }, :fields
            )
          end
        end
      else
        @fields[locale] = extract_from_object object['fields'], :fields
      end
    end

    def extract_from_object(object, namespace, keys = nil)
      if object
        keys ||= object.keys
        keys.each.with_object({}) do |name, res|
          value = object.is_a?(::Array) ? object : object[name.to_s]
          kind = self.class.public_send(:"#{namespace}_coercions")[name.to_sym]
          res[name.to_sym] = coerce_value_or_array(value, kind)
        end
      else
        {}
      end
    end

    def coerce_value_or_array(value, what = nil)
      if value.nil?
        nil
      elsif value.is_a? ::Array
        value.map { |v| coerce_or_create_class(v, what) }
      elsif should_coerce_hash?(value)
        ::Hash[value.map { |k, v|
          to_coerce = v.is_a?(Hash) ? v : v.to_s
          coercion = v.is_a?(Numeric) ? v : coerce_or_create_class(to_coerce, what)
          [k.to_sym, coercion]
        }]
      else
        coerce_or_create_class(value, what)
      end
    end

    def should_coerce_hash?(value)
      value.is_a?(::Hash) &&
        !self.is_a?(Asset) &&
        !self.is_a?(Field) &&
        !is_location?(value) &&
        !is_link?(value) &&
        !is_image?(value)
    end

    def is_location?(value)
      value.has_key?("lat") || value.has_key?("lon")
    end

    def is_link?(value)
      value.has_key?("sys") && value["sys"]["type"] == "Link"
    end

    def is_image?(value)
      value.has_key?("image")
    end

    def coerce_or_create_class(value, what)
      case what
      when Symbol
        COERCIONS[what] ? COERCIONS[what][value] : value
      when Class
        what.new(value, client)
      else
        value
      end
    end

    # Register the resources properties on class level by using the #property method
    module ClassMethods
      # By default, fields come flattened in the current locale. This is different for sync
      def nested_locale_fields?
        false
      end

      def property_coercions
        @property_coercions ||= {}
      end

      # Defines which properties of a resource your class expects
      # Define them in :camelCase, they will be available as #snake_cased methods
      #
      # You can pass in a second "type" argument:
      # - If it is a class, it will be initialized for the property
      # - Symbols are looked up in the COERCION constant for a lambda that
      #   defines a type conversion to apply
      #
      # Note: This second argument is not meant for contentful sub-resources,
      # but for structured objects (like locales in a space)
      # Sub-resources are handled by the resource builder
      def property(name, property_class = nil)
        property_coercions[name.to_sym] = property_class
        define_method Contentful::Support.snakify(name) do
          properties[name.to_sym]
        end
      end

      # Ensure inherited classes pick up coercions
      def update_coercions!
        return if @coercions_updated

        if superclass.respond_to? :property_coercions
          @property_coercions = superclass.property_coercions.dup.merge(@property_coercions || {})
        end

        if superclass.respond_to? :sys_coercions
          @sys_coercions = superclass.sys_coercions.dup.merge(@sys_coercions || {})
        end

        if superclass.respond_to? :fields_coercions
          @fields_coercions = superclass.fields_coercions.dup.merge(@fields_coercions || {})
        end

        @coercions_updated = true
      end
    end

    def self.included(base)
      base.extend(ClassMethods)
    end
  end
end