require 'active_data/model/attributes/reflections/base'
require 'active_data/model/attributes/reflections/attribute'
require 'active_data/model/attributes/reflections/collection'
require 'active_data/model/attributes/reflections/dictionary'

require 'active_data/model/attributes/base'
require 'active_data/model/attributes/attribute'
require 'active_data/model/attributes/collection'
require 'active_data/model/attributes/dictionary'

module ActiveData
  module Model
    module Attributes
      extend ActiveSupport::Concern

      included do
        class_attribute :_attributes, :_attribute_aliases, :_sanitize, instance_reader: false, instance_writer: false
        self._attributes = {}
        self._attribute_aliases = {}
        self._sanitize = true

        delegate :attribute_names, :has_attribute?, to: 'self.class'

        %w[attribute collection dictionary].each do |kind|
          define_singleton_method kind do |*args, &block|
            add_attribute("ActiveData::Model::Attributes::Reflections::#{kind.camelize}".constantize, *args, &block)
          end
        end
      end

      module ClassMethods
        def add_attribute(reflection_class, *args, &block)
          reflection = reflection_class.build(self, generated_attributes_methods, *args, &block)
          self._attributes = _attributes.merge(reflection.name => reflection)
          should_define_dirty = (dirty? && reflection_class != ActiveData::Model::Attributes::Reflections::Base)
          define_dirty(reflection.name, generated_attributes_methods) if should_define_dirty
          reflection
        end

        def alias_attribute(alias_name, attribute_name)
          reflection = reflect_on_attribute(attribute_name)
          raise ArgumentError, "Unable to alias undefined attribute `#{attribute_name}` on #{self}" unless reflection
          raise ArgumentError, "Unable to alias base attribute `#{attribute_name}`" if reflection.class == ActiveData::Model::Attributes::Reflections::Base
          reflection.class.generate_methods alias_name, generated_attributes_methods
          self._attribute_aliases = _attribute_aliases.merge(alias_name.to_s => reflection.name)
          define_dirty alias_name, generated_attributes_methods if dirty?
          reflection
        end

        def reflect_on_attribute(name)
          name = name.to_s
          _attributes[_attribute_aliases[name] || name]
        end

        def has_attribute?(name) # rubocop:disable Naming/PredicateName
          name = name.to_s
          _attributes.key?(_attribute_aliases[name] || name)
        end

        def attribute_names(include_associations = true)
          if include_associations
            _attributes.keys
          else
            _attributes.map do |name, attribute|
              name unless attribute.class == ActiveData::Model::Attributes::Reflections::Base
            end.compact
          end
        end

        def inspect
          "#{original_inspect}(#{attributes_for_inspect.presence || 'no attributes'})"
        end

        def dirty?
          false
        end

        def with_sanitize(value)
          previous_sanitize = _sanitize
          self._sanitize = value
          yield
        ensure
          self._sanitize = previous_sanitize
        end

      private

        def original_inspect
          Object.method(:inspect).unbind.bind(self).call
        end

        def attributes_for_inspect
          attribute_names(false).map do |name|
            prefix = respond_to?(:_primary_name) && _primary_name == name ? '*' : ''
            "#{prefix}#{_attributes[name].inspect_reflection}"
          end.join(', ')
        end

        def generated_attributes_methods
          @generated_attributes_methods ||=
            const_set(:GeneratedAttributesMethods, Module.new)
              .tap { |proxy| include proxy }
        end

        def inverted_attribute_aliases
          @inverted_attribute_aliases ||=
            _attribute_aliases.each.with_object({}) do |(alias_name, attribute_name), result|
              (result[attribute_name] ||= []).push(alias_name)
            end
        end
      end

      def initialize(attrs = {})
        assign_attributes attrs
      end

      def ==(other)
        super || other.instance_of?(self.class) && other.attributes(false) == attributes(false)
      end
      alias_method :eql?, :==

      def attribute(name)
        reflection = self.class.reflect_on_attribute(name)
        return unless reflection
        initial_value = @initial_attributes.to_h.fetch(reflection.name, ActiveData::UNDEFINED)
        @_attributes ||= {}
        @_attributes[reflection.name] ||= reflection.build_attribute(self, initial_value)
      end

      def write_attribute(name, value)
        attribute(name).write(value)
      end
      alias_method :[]=, :write_attribute

      def read_attribute(name)
        attribute(name).read
      end
      alias_method :[], :read_attribute

      def read_attribute_before_type_cast(name)
        attribute(name).read_before_type_cast
      end

      def attribute_came_from_user?(name)
        attribute(name).came_from_user?
      end

      def attribute_present?(name)
        attribute(name).value_present?
      end

      def attributes(include_associations = true)
        Hash[attribute_names(include_associations).map { |name| [name, read_attribute(name)] }]
      end

      def update(attrs)
        assign_attributes(attrs)
      end
      alias_method :update_attributes, :update

      def assign_attributes(attrs)
        attrs.each do |name, value|
          name = name.to_s
          sanitize_value = self.class._sanitize && name == self.class.primary_name

          if respond_to?("#{name}=") && !sanitize_value
            public_send("#{name}=", value)
          else
            logger.info("Ignoring #{sanitize_value ? 'primary' : 'undefined'} `#{name}` attribute value for #{self} during mass-assignment")
          end
        end
      end
      alias_method :attributes=, :assign_attributes

      def inspect
        "#<#{self.class.send(:original_inspect)} #{attributes_for_inspect.presence || '(no attributes)'}>"
      end

      def initialize_copy(_)
        @initial_attributes = Hash[attribute_names.map do |name|
          [name, read_attribute_before_type_cast(name)]
        end]
        @_attributes = nil
        super
      end

    private

      def attributes_for_inspect
        attribute_names(false).map do |name|
          prefix = self.class.primary_name == name ? '*' : ''
          "#{prefix}#{attribute(name).inspect_attribute}"
        end.join(', ')
      end
    end
  end
end