require 'watir/wait/timer'

module Watir
  module Wait
    class TimeoutError < StandardError; end

    INTERVAL = 0.1

    class << self
      #
      # @!attribute timer
      #   Access Watir timer implementation in use.
      #   @see Timer
      #   @return [#wait]
      #

      attr_writer :timer

      def timer
        @timer ||= Timer.new
      end

      #
      # Waits until the block evaluates to true or times out.
      #
      # @example
      #   Watir::Wait.until { browser.text_field(name: "new_user_first_name").visible? }
      #
      # @param [Integer] timeout How long to wait in seconds
      # @param [String] message Message to raise if timeout is exceeded
      # @param [Object, NilClass] object Object to evaluate block against
      # @raise [TimeoutError] if timeout is exceeded
      #

      def until(depr_timeout = nil, depr_message = nil, timeout: nil, message: nil, interval: nil, object: nil)
        if depr_message || depr_timeout
          Watir.logger.deprecate 'Using arguments for Wait#until', 'keywords', ids: %i[until timeout_arguments]
          timeout = depr_timeout
          message = depr_message
        end
        timeout ||= Watir.default_timeout
        run_with_timer(timeout, interval) do
          result = yield(object)
          return result if result
        end
        raise TimeoutError, message_for(timeout, object, message)
      end

      #
      # Wait while the block evaluates to true or times out.
      #
      # @example
      #   Watir::Wait.while { browser.text_field(name: "abrakadbra").present? }
      #
      # @param [Integer] timeout How long to wait in seconds
      # @param [String] message Message to raise if timeout is exceeded
      # @param [Object, NilClass] object Object to evaluate block against
      # @raise [TimeoutError] if timeout is exceeded
      #

      def while(depr_timeout = nil, depr_message = nil, timeout: nil, message: nil, interval: nil, object: nil)
        if depr_message || depr_timeout
          Watir.logger.deprecate 'Using arguments for Wait#while', 'keywords', ids: %i[while timeout_arguments]
          timeout = depr_timeout
          message = depr_message
        end
        timeout ||= Watir.default_timeout
        run_with_timer(timeout, interval) { return unless yield(object) }
        raise TimeoutError, message_for(timeout, object, message)
      end

      private

      def message_for(timeout, object, message)
        message = message.call(object) if message.is_a?(Proc)
        err = "timed out after #{timeout} seconds"
        err << ", #{message}" if message

        err
      end

      def run_with_timer(timeout, interval)
        if timeout.zero?
          yield
        else
          timer.wait(timeout) do
            yield
            sleep interval || INTERVAL
          end
        end
      end
    end # self
  end # Wait

  module Waitable
    #
    # Waits until the condition is true.
    #
    # @example
    #   browser.wait_until(timeout: 2) do |browser|
    #     browser.windows.size == 1
    #   end
    #
    # @example
    #   browser.text_field(name: "new_user_first_name").wait_until(&:present?).click
    #   browser.text_field(name: "new_user_first_name").wait_until(message: 'foo') { |field| field.present? }
    #   browser.text_field(name: "new_user_first_name").wait_until(timeout: 60, &:present?)
    #   browser.text_field(name: "new_user_first_name").wait_until(timeout: 60, name: 'new_user_first_name')
    #
    # @param [Integer] timeout seconds to wait before timing out
    # @param [String] message error message for when times out
    #

    def wait_until(depr_timeout = nil, depr_message = nil, timeout: nil, message: nil, interval: nil, **opt, &blk)
      if depr_message || depr_timeout
        Watir.logger.deprecate 'Using arguments for #wait_until', 'keywords', ids: [:timeout_arguments]
        timeout = depr_timeout
        message = depr_message
      end
      message ||= proc { |obj| "waiting for true condition on #{obj.inspect}" }

      raise ArgumentError, "Unknown keyword(s): #{opt.keys} " if block_given? && !opt.empty?

      proc = block_given? ? blk : create_proc(opt)

      Wait.until(timeout: timeout, message: message, interval: interval, object: self, &proc)

      self
    end

    #
    # Waits while the condition is true.
    #
    # @example
    #   browser.wait_while(timeout: 2) do |browser|
    #     !browser.exists?
    #   end
    #   browser.wait_while(timeout: 2, title: 'No')
    #
    # @todo add element example
    #
    # @param [Integer] timeout seconds to wait before timing out
    # @param [String] message error message for when times out
    #

    def wait_while(depr_timeout = nil, depr_message = nil, timeout: nil, message: nil, interval: nil, **opt, &blk)
      if depr_message || depr_timeout
        Watir.logger.deprecate 'Using arguments for #wait_while', 'keywords', ids: [:timeout_arguments]
        timeout = depr_timeout
        message = depr_message
      end
      message ||= proc { |obj| "waiting for false condition on #{obj.inspect}" }

      raise ArgumentError, "Unknown keyword(s): #{opt.keys} " if block_given? && !opt.empty?

      proc = block_given? ? blk : create_proc(opt)

      Wait.while(timeout: timeout, message: message, interval: interval, object: self, &proc)

      self
    end

    #
    # Waits until the element is present.
    # Element is always relocated, so this can be used in the case of an element going away and returning
    #
    # @example
    #   browser.text_field(name: "new_user_first_name").wait_until_present
    #
    # @param [Integer] timeout seconds to wait before timing out
    # @param [Float] interval seconds to wait before each try
    # @param [String] message error message for when times out
    #
    # @see Watir::Wait
    # @see Watir::Element#present?
    #

    def wait_until_present(depr_timeout = nil, timeout: nil, interval: nil, message: nil)
      if depr_timeout
        Watir.logger.deprecate 'Using arguments for #wait_until_present', 'keywords', ids: [:timeout_arguments]
        timeout = depr_timeout
      end
      if is_a? Watir::Element
        message ||= proc { |obj| "waiting for element #{obj.inspect} to become present" }
        wait_until(timeout: timeout, interval: interval, message: message) do
          reset! if is_a? Watir::Element
          present?
        end
      else
        Watir.logger.deprecate "#{self.class}#wait_until_present",
                               "#{self.class}#wait_until(&:present?)",
                               ids: [:wait_until_present]
        wait_until(timeout: timeout, interval: interval, message: message, &:present?)
      end
    end

    #
    # Waits while the element is present.
    # Element is always relocated, so this can be used in the case of the element changing attributes
    #
    # @example
    #   browser.text_field(name: "abrakadbra").wait_while_present
    #
    # @param [Integer] timeout seconds to wait before timing out
    # @param [Float] interval seconds to wait before each try
    # @param [String] message error message for when times out
    #
    # @see Watir::Wait
    # @see Watir::Element#present?
    #

    def wait_while_present(depr_timeout = nil, timeout: nil, interval: nil, message: nil)
      if depr_timeout
        Watir.logger.deprecate 'Using arguments for #wait_while_present', 'keywords', ids: [:timeout_arguments]
        timeout = depr_timeout
      end
      if is_a? Watir::Element
        message ||= proc { |obj| "waiting for element #{obj.inspect} not to be present" }
        wait_while(timeout: timeout, interval: interval, message: message) do
          reset! if is_a? Watir::Element
          present?
        end
      else
        Watir.logger.deprecate "#{self.class}#wait_while_present",
                               "#{self.class}#wait_while(&:present?)",
                               ids: [:wait_while_present]
        wait_while(timeout: timeout, interval: interval, message: message, &:present?)
      end
    end

    private

    def create_proc(opt)
      proc do
        opt.keys.all? do |key|
          expected = opt[key]
          actual = if is_a?(Watir::Element) && !respond_to?(key)
                     attribute_value(key)
                   else
                     send(key)
                   end
          case expected
          when Regexp
            expected =~ actual
          else
            expected.to_s == actual
          end
        end
      end
    end
  end # Waitable
end # Watir