require 'granite/form/model/attributes/reflections/base'
require 'granite/form/model/attributes/reflections/base/build_type_definition'
require 'granite/form/model/attributes/reflections/attribute'
require 'granite/form/model/attributes/reflections/collection'
require 'granite/form/model/attributes/reflections/collection/build_type_definition'
require 'granite/form/model/attributes/reflections/dictionary'
require 'granite/form/model/attributes/reflections/dictionary/build_type_definition'

require 'granite/form/model/attributes/base'
require 'granite/form/model/attributes/attribute'

module Granite
  module Form
    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("Granite::Form::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 != Granite::Form::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

            if reflection.class == Granite::Form::Model::Attributes::Reflections::Base
              raise ArgumentError,
                    "Unable to alias base attribute `#{attribute_name}`"
            end

            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 == Granite::Form::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 eql? ==

        def attribute(name)
          reflection = self.class.reflect_on_attribute(name)
          return unless reflection

          initial_value = @initial_attributes.to_h.fetch(reflection.name, Granite::Form::UNDEFINED)
          @_attributes ||= {}
          @_attributes[reflection.name] ||= reflection.build_attribute(self, initial_value)
        end

        def write_attribute(name, value)
          attribute(name).write(value)
        end

        alias []= write_attribute

        def read_attribute(name)
          attribute(name).read
        end

        alias [] 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 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
              attribute_type = sanitize_value ? 'primary' : 'undefined'
              logger.debug("Ignoring #{attribute_type} `#{name}` attribute value for #{self} during mass-assignment")
            end
          end
        end

        alias attributes= assign_attributes

        def sync_attributes
          attribute_names.each do |name|
            attr = attribute(name)
            attr.try(:sync) if attr.try(:changed?)
          end
        end

        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
end