# frozen_string_literal: true

# Copyright (C) 2014-2020 MongoDB Inc.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#   http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

module Mongo
  # Client-side representation of an iterator over a query result set on
  # the server.
  #
  # +Cursor+ objects are not directly exposed to application code. Rather,
  # +Collection::View+ exposes the +Enumerable+ interface to the applications,
  # and the enumerator is backed by a +Cursor+ instance.
  #
  # @example Get an array of 5 users named Emily.
  #   users.find({:name => 'Emily'}).limit(5).to_a
  #
  # @example Call a block on each user doc.
  #   users.find.each { |doc| puts doc }
  #
  # @api private
  class Cursor
    extend Forwardable
    include Enumerable
    include Retryable

    def_delegators :@view, :collection
    def_delegators :collection, :client, :database
    def_delegators :@server, :cluster

    # @return [ Collection::View ] view The collection view.
    attr_reader :view

    # The resume token tracked by the cursor for change stream resuming
    #
    # @return [ BSON::Document | nil ] The cursor resume token.
    # @api private
    attr_reader :resume_token

    # @return [ Operation::Context ] context the context for this cursor
    attr_reader :context

    # Creates a +Cursor+ object.
    #
    # @example Instantiate the cursor.
    #   Mongo::Cursor.new(view, response, server)
    #
    # @param [ CollectionView ] view The +CollectionView+ defining the query.
    # @param [ Operation::Result ] result The result of the first execution.
    # @param [ Server ] server The server this cursor is locked to.
    # @param [ Hash ] options The cursor options.
    #
    # @option options [ Operation::Context ] :context The operation context
    #   for this cursor.
    # @option options [ true, false ] :disable_retry Whether to disable
    #   retrying on error when sending getMore operations (deprecated, getMore
    #   operations are no longer retried)
    # @option options [ true, false ] :retry_reads Retry reads (following
    #   the modern mechanism), default is true
    #
    # @since 2.0.0
    def initialize(view, result, server, options = {})
      unless result.is_a?(Operation::Result)
        raise ArgumentError, "Second argument must be a Mongo::Operation::Result: #{result.inspect}"
      end

      @view = view
      @server = server
      @initial_result = result
      @namespace = result.namespace
      @remaining = limit if limited?
      set_cursor_id(result)
      raise ArgumentError, 'Cursor id must be present in the result' if @cursor_id.nil?

      @options = options
      @session = @options[:session]
      @connection_global_id = result.connection_global_id
      @context = @options[:context]&.with(connection_global_id: connection_global_id_for_context) || fresh_context
      @explicitly_closed = false
      @get_more_network_error = false
      @lock = Mutex.new
      if server.load_balancer?
        # We need the connection in the cursor only in load balanced topology;
        # we do not need an additional reference to it otherwise.
        @connection = @initial_result.connection
      end
      if closed?
        check_in_connection
      else
        register
        ObjectSpace.define_finalizer(
          self,
          self.class.finalize(kill_spec(@connection_global_id), cluster)
        )
      end
    end

    # @api private
    attr_reader :server

    # @api private
    attr_reader :initial_result

    # @api private
    attr_reader :connection

    # Finalize the cursor for garbage collection. Schedules this cursor to be included
    # in a killCursors operation executed by the Cluster's CursorReaper.
    #
    # @param [ Cursor::KillSpec ] kill_spec The KillCursor operation specification.
    # @param [ Mongo::Cluster ] cluster The cluster associated with this cursor and its server.
    #
    # @return [ Proc ] The Finalizer.
    #
    # @api private
    def self.finalize(kill_spec, cluster)
      raise ArgumentError, "First argument must be a KillSpec: #{kill_spec.inspect}" unless kill_spec.is_a?(KillSpec)

      proc do
        cluster.schedule_kill_cursor(kill_spec)
      end
    end

    # Get a human-readable string representation of +Cursor+.
    #
    # @example Inspect the cursor.
    #   cursor.inspect
    #
    # @return [ String ] A string representation of a +Cursor+ instance.
    #
    # @since 2.0.0
    def inspect
      "#<Mongo::Cursor:0x#{object_id} @view=#{@view.inspect}>"
    end

    # Iterate through documents returned from the query.
    #
    # A cursor may be iterated at most once. Incomplete iteration is also
    # allowed. Attempting to iterate the cursor more than once raises
    # InvalidCursorOperation.
    #
    # @example Iterate over the documents in the cursor.
    #   cursor.each do |doc|
    #     ...
    #   end
    #
    # @return [ Enumerator ] The enumerator.
    #
    # @since 2.0.0
    def each
      # If we already iterated past the first batch (i.e., called get_more
      # at least once), the cursor on the server side has advanced past
      # the first batch and restarting iteration from the beginning by
      # returning initial result would miss documents in the second batch
      # and subsequent batches up to wherever the cursor is. Detect this
      # condition and abort the iteration.
      #
      # In a future driver version, each would either continue from the
      # end of previous iteration or would always restart from the
      # beginning.
      if @get_more_called
        raise Error::InvalidCursorOperation, 'Cannot restart iteration of a cursor which issued a getMore'
      end

      # To maintain compatibility with pre-2.10 driver versions, reset
      # the documents array each time a new iteration is started.
      @documents = nil

      if block_given?
        # StopIteration raised by try_next ends this loop.
        loop do
          document = try_next
          raise Error::InvalidCursorOperation, 'Cursor was explicitly closed' if explicitly_closed?

          yield document if document
        end
        self
      else
        documents = []
        # StopIteration raised by try_next ends this loop.
        loop do
          document = try_next
          raise Error::InvalidCursorOperation, 'Cursor was explicitly closed' if explicitly_closed?

          documents << document if document
        end
        documents
      end
    end

    # Return one document from the query, if one is available.
    #
    # This method will wait up to max_await_time_ms milliseconds
    # for changes from the server, and if no changes are received
    # it will return nil. If there are no more documents to return
    # from the server, or if we have exhausted the cursor, it will
    # raise a StopIteration exception.
    #
    # @note This method is experimental and subject to change.
    #
    # @return [ BSON::Document | nil ] A document.
    #
    # @raise [ StopIteration ] Raised on the calls after the cursor had been
    #   completely iterated.
    #
    # @api private
    def try_next
      if @documents.nil?
        # Since published versions of Mongoid have a copy of old driver cursor
        # code, our dup call in #process isn't invoked when Mongoid query
        # cache is active. Work around that by also calling dup here on
        # the result of #process which might come out of Mongoid's code.
        @documents = process(@initial_result).dup
        # the documents here can be an empty array, hence
        # we may end up issuing a getMore in the first try_next call
      end

      if @documents.empty?
        # On empty batches, we cache the batch resume token
        cache_batch_resume_token

        if closed?
          @fully_iterated = true
          raise StopIteration
        else
          if exhausted?
            close
            @fully_iterated = true
            raise StopIteration
          end
          @documents = get_more
        end
      else
        # cursor is closed here
        # keep documents as an empty array
      end

      # If there is at least one document, cache its _id
      cache_resume_token(@documents[0]) if @documents[0]

      # Cache the batch resume token if we are iterating
      # over the last document, or if the batch is empty
      if @documents.size <= 1
        cache_batch_resume_token
        @fully_iterated = true if closed?
      end

      @documents.shift
    end

    # Get the batch size.
    #
    # @example Get the batch size.
    #   cursor.batch_size
    #
    # @return [ Integer ] The batch size.
    #
    # @since 2.2.0
    def batch_size
      value = (@view.batch_size && @view.batch_size > 0) ? @view.batch_size : limit
      if value == 0
        nil
      else
        value
      end
    end

    # Is the cursor closed?
    #
    # @example Is the cursor closed?
    #   cursor.closed?
    #
    # @return [ true, false ] If the cursor is closed.
    #
    # @since 2.2.0
    def closed?
      # @cursor_id should in principle never be nil
      @cursor_id.nil? || @cursor_id == 0
    end

    # Closes this cursor, freeing any associated resources on the client and
    # the server.
    #
    # @return [ nil ] Always nil.
    def close(opts = {})
      return if closed?

      ctx = context ? context.refresh(timeout_ms: opts[:timeout_ms]) : fresh_context(opts)

      unregister
      unless @get_more_network_error
        read_with_one_retry do
          spec = {
            coll_name: collection_name,
            db_name: database.name,
            cursor_ids: [ id ],
          }
          op = Operation::KillCursors.new(spec)
          execute_operation(op, context: ctx)
        end
      end

      nil
    rescue Error::OperationFailure::Family, Error::SocketError, Error::SocketTimeoutError, Error::ServerNotUsable, Error::ConnectionPerished
      # Errors are swallowed since there is nothing can be done by handling them.
    ensure
      end_session
      @cursor_id = 0
      @lock.synchronize do
        @explicitly_closed = true
      end
      check_in_connection
    end

    # Get the parsed collection name.
    #
    # @example Get the parsed collection name.
    #   cursor.coll_name
    #
    # @return [ String ] The collection name.
    #
    # @since 2.2.0
    def collection_name
      # In most cases, this will be equivalent to the name of the collection
      # object in the driver. However, in some cases (e.g. when connected
      # to an Atlas Data Lake), the namespace returned by the find command
      # may be different, which is why we want to use the collection name based
      # on the namespace in the command result.
      if @namespace
        # Often, the namespace will be in the format "database.collection".
        # However, sometimes the collection name will contain periods, which
        # is why this method joins all the namespace components after the first.
        ns_components = @namespace.split('.')
        ns_components[1...ns_components.length].join('.')
      else
        collection.name
      end
    end

    # Get the cursor id.
    #
    # @example Get the cursor id.
    #   cursor.id
    #
    # @note A cursor id of 0 means the cursor was closed on the server.
    #
    # @return [ Integer ] The cursor id.
    #
    # @since 2.2.0
    def id
      @cursor_id
    end

    # Execute a getMore command and return the batch of documents
    # obtained from the server.
    #
    # @return [ Array<BSON::Document> ] The batch of documents
    #
    # @api private
    def get_more
      @get_more_called = true

      # Modern retryable reads specification prohibits retrying getMores.
      # Legacy retryable read logic used to retry getMores, but since
      # doing so may result in silent data loss, the driver no longer retries
      # getMore operations in any circumstance.
      # https://github.com/mongodb/specifications/blob/master/source/retryable-reads/retryable-reads.md#qa
      #
      # However, overload errors (SystemOverloadedError + RetryableError) are
      # retried with exponential backoff since the server never processed
      # the request.
      with_overload_retry(context: possibly_refreshed_context) do
        process(execute_operation(get_more_operation))
      end
    rescue Error::SocketError, Error::SocketTimeoutError
      @get_more_network_error = true
      raise
    rescue Error::OperationFailure => e
      # When overload retries are exhausted on getMore, close the cursor
      # so that killCursors is sent to the server.
      close if e.label?('RetryableError') && e.label?('SystemOverloadedError')
      raise
    end

    # @api private
    def kill_spec(connection_global_id)
      KillSpec.new(
        cursor_id: id,
        coll_name: collection_name,
        db_name: database.name,
        connection_global_id: connection_global_id,
        server_address: server.address,
        session: @session,
        connection: @connection
      )
    end

    # @api private
    def fully_iterated?
      !!@fully_iterated
    end

    # Refreshes the cursor's CSOT context so that the next getMore starts
    # with a fresh timeout deadline. Used by tailable awaitData cursors to
    # implement per-iteration timeout refresh as required by the CSOT spec.
    # Only refreshes if this is a tailable awaitData cursor with an active timeout.
    #
    # @api private
    def refresh_timeout!
      return unless view.cursor_type == :tailable_await && context.timeout?

      @context = @context.refresh(view: view)
    end

    private

    def explicitly_closed?
      @lock.synchronize do
        @explicitly_closed
      end
    end

    def batch_size_for_get_more
      if batch_size && use_limit?
        [ batch_size, @remaining ].min
      else
        batch_size
      end
    end

    def exhausted?
      limited? ? @remaining <= 0 : false
    end

    def cache_resume_token(doc)
      return unless doc[:_id] && doc[:_id].is_a?(Hash)

      @resume_token = doc[:_id] && doc[:_id].dup.freeze
    end

    def cache_batch_resume_token
      @resume_token = @post_batch_resume_token if @post_batch_resume_token
    end

    def get_more_operation
      spec = {
        session: @session,
        db_name: database.name,
        coll_name: collection_name,
        cursor_id: id,
        batch_size: batch_size_for_get_more,
      }
      if view.respond_to?(:options) && view.options.is_a?(Hash) && !view.options[:comment].nil?
        spec[:comment] = view.options[:comment]
      end
      Operation::GetMore.new(spec)
    end

    def end_session
      @session.end_session if @session && @session.implicit?
    end

    def limited?
      limit ? limit > 0 : false
    end

    def process(result)
      @remaining -= result.returned_count if limited?
      # #process is called for the first batch of results. In this case
      # the @cursor_id may be zero (all results fit in the first batch).
      # Thus we need to check both @cursor_id and the cursor_id of the result
      # prior to calling unregister here.
      if !closed? && result.cursor_id == 0
        unregister
        check_in_connection
      end
      @cursor_id = set_cursor_id(result)

      @post_batch_resume_token = result.post_batch_resume_token if result.respond_to?(:post_batch_resume_token)

      end_session if closed?

      # Since our iteration code mutates the documents array by calling #shift
      # on it, duplicate the documents here to permit restarting iteration
      # from the beginning of the cursor as long as get_more was not called
      result.documents.dup
    end

    def use_limit?
      limited? && batch_size >= @remaining
    end

    def limit
      @view.send(:limit)
    end

    def register
      cluster.register_cursor(@cursor_id)
    end

    def unregister
      cluster.unregister_cursor(@cursor_id)
    end

    def execute_operation(op, context: nil)
      op_context = context || possibly_refreshed_context
      if @connection.nil?
        op.execute(@server, context: op_context)
      else
        op.execute_with_connection(@connection, context: op_context)
      end
    end

    # Considers the timeout mode and will either return the cursor's
    # context directly, or will return a new (refreshed) context.
    #
    # @return [ Operation::Context ] the (possibly-refreshed) context.
    def possibly_refreshed_context
      return context if view.timeout_mode == :cursor_lifetime
      # For tailable await cursors with CSOT, the timeout budget is shared across
      # all getMore commands (cumulative). Only update the view reference; keep
      # the same deadline so remaining time decreases across getMores.
      return context.with(view: view) if view.cursor_type == :tailable_await

      context.refresh(view: view)
    end

    # Sets @cursor_id from the operation result.
    #
    # In the operation result cursor id can be represented either as Integer
    # value or as BSON::Int64. This method ensures that the instance variable
    # is always of type Integer.
    #
    # @param [ Operation::Result ] result The result of the operation.
    #
    # @api private
    def set_cursor_id(result)
      @cursor_id = if result.cursor_id.is_a?(BSON::Int64)
                     result.cursor_id.value
                   else
                     result.cursor_id
                   end
    end

    # Returns a newly instantiated operation context based on the
    # default values from the view.
    def fresh_context(opts = {})
      Operation::Context.new(client: view.client,
                             session: @session,
                             connection_global_id: connection_global_id_for_context,
                             operation_timeouts: view.operation_timeouts(opts),
                             view: view)
    end

    # Because a context must not have a connection_global_id if the session
    # is already pinned to one, this method checks to see whether or not there's
    # pinned connection_global_id on the session and returns nil if so.
    def connection_global_id_for_context
      if @session&.pinned_connection_global_id
        nil
      else
        @connection_global_id
      end
    end

    # Returns the connection that was used to create the cursor back to the
    # corresponding connection pool.
    #
    # In a load balanced topology cursors must use the same connection for the
    # initial and all subsequent operations. Therefore, the connection is not
    # checked into the pool after the initial operation is completed, but
    # only when the cursor is drained.
    def check_in_connection
      # Connection nil means the connection has been already checked in.
      return if @connection.nil?
      return unless @connection.server.load_balancer?

      @connection.unpin
      # Do not check in if the connection is still pinned by something
      # else (e.g. a transaction).
      unless @connection.pinned?
        @connection.connection_pool.check_in(@connection)
      end
      @connection = nil
    end
  end
end

require 'mongo/cursor/kill_spec'
