# frozen_string_literal: true

module Fingerprintable
  class Fingerprinter
    attr_reader :attributes,
                :cache,
                :fallback_to_string,
                :ignore,
                :object

    def initialize(
      attributes: [],
      cache: {},
      fallback_to_string: false,
      ignore: [],
      object:
    )
      @fallback_to_string = fallback_to_string
      @ignore = ignore | ignore.map { |e| "@#{e}".to_sym }
      @object = object
      @attributes = ((object.instance_variables | attributes) - ignore).map(&:to_sym).sort
      @cache = cache || {}
      @cache[object] = next_cache_id
    end

    def deep_convert_and_sort(obj)
      case obj
      when nil
        ''
      when String
        obj.to_s
      when FalseClass, Float, Integer, Symbol, TrueClass
        obj.to_s
      when Array
        obj.map { |v| deep_convert_and_sort(v) }.sort.to_s
      when Hash
        Hash[obj.map { |k, v| [k, deep_convert_and_sort(v)] }].sort.to_s
      when Module
        obj.name
      else
        fingerprint_object(obj)
      end
    end

    def fingerprint
      @fingerprint ||= begin
        Digest::MD5.hexdigest(to_s)
      end
    end

    def to_s
      @to_s ||= deep_convert_and_sort(object_value_hash).to_s
    end

    private

    def fingerprint_object(use_object)
      return cache[use_object] if cache.include?(use_object)

      fingerprinter = if use_object.respond_to?(:fingerprint)
                        use_object.fingerprinter(cache: @cache)
                      elsif use_object.respond_to?(:instance_variables)
                        Fingerprinter.new(cache: cache, object: use_object)
                      end

      if fingerprinter.nil?
        raise "Do not know how to fingerprint #{use_object.class.name}.  Did you mean to add Fingerprintable to this object?" unless fallback_to_string
        raise "#{use_object.class.name} does not respond to to_s.  Did you mean to add Fingerprintable to this object?" unless use_object.respond_to?(:to_s)

        use_object.to_s
      end

      ret = fingerprinter.fingerprint
      cache.merge!(fingerprinter.cache)
      ret
    end

    def next_cache_id
      # "#{SecureRandom.uuid}-#{@cache.count}"
      @cache.count
    end

    def object_value_hash
      Hash[attributes.map do |attr|
        [attr, object.instance_variable_get(attr)]
      end]
    end
  end
end