module ActiveModel

  module Validations
    class AcceptanceValidator < EachValidator # :nodoc:
      def initialize(options)
        super({ allow_nil: true, accept: ["1", true] }.merge!(options))
        setup!(options[:class])
      end

      def validate_each(record, attribute, value)
        unless acceptable_option?(value)
          record.errors.add(attribute, :accepted, options.except(:accept, :allow_nil))
        end
      end

      private

      def setup!(klass)
        klass.include(LazilyDefineAttributes.new(AttributeDefinition.new(attributes)))
      end

      def acceptable_option?(value)
        Array(options[:accept]).include?(value)
      end

      class LazilyDefineAttributes < Module
        def initialize(attribute_definition)
          define_method(:respond_to_missing?) do |method_name, include_private=false|
            super(method_name, include_private) || attribute_definition.matches?(method_name)
          end

          define_method(:method_missing) do |method_name, *args, &block|
            if attribute_definition.matches?(method_name)
              attribute_definition.define_on(self.class)
              send(method_name, *args, &block)
            else
              super(method_name, *args, &block)
            end
          end
        end
      end

      class AttributeDefinition
        def initialize(attributes)
          @attributes = attributes.map(&:to_s)
        end

        def matches?(method_name)
          attr_name = convert_to_reader_name(method_name)
          attributes.include?(attr_name)
        end

        def define_on(klass)
          attr_readers = attributes.reject { |name| klass.attribute_method?(name) }
          attr_writers = attributes.reject { |name| klass.attribute_method?("#{name}=") }
          klass.send(:attr_reader, *attr_readers)
          klass.send(:attr_writer, *attr_writers)
        end

        protected

        attr_reader :attributes

        private

        def convert_to_reader_name(method_name)
          attr_name = method_name.to_s
          if attr_name.end_with?("=")
            attr_name = attr_name[0..-2]
          end
          attr_name
        end
      end
    end

    module HelperMethods
      # Encapsulates the pattern of wanting to validate the acceptance of a
      # terms of service check box (or similar agreement).
      #
      #   class Person < ActiveRecord::Base
      #     validates_acceptance_of :terms_of_service
      #     validates_acceptance_of :eula, message: 'must be abided'
      #   end
      #
      # If the database column does not exist, the +terms_of_service+ attribute
      # is entirely virtual. This check is performed only if +terms_of_service+
      # is not +nil+ and by default on save.
      #
      # Configuration options:
      # * <tt>:message</tt> - A custom error message (default is: "must be
      #   accepted").
      # * <tt>:accept</tt> - Specifies a value that is considered accepted.
      #   Also accepts an array of possible values. The default value is
      #   an array ["1", true], which makes it easy to relate to an HTML
      #   checkbox. This should be set to, or include, +true+ if you are validating
      #   a database column, since the attribute is typecast from "1" to +true+
      #   before validation.
      #
      # There is also a list of default options supported by every validator:
      # +:if+, +:unless+, +:on+, +:allow_nil+, +:allow_blank+, and +:strict+.
      # See <tt>ActiveModel::Validation#validates</tt> for more information.
      def validates_acceptance_of(*attr_names)
        validates_with AcceptanceValidator, _merge_attributes(attr_names)
      end
    end
  end
end
