# frozen_string_literal: true

require 'ref'
require 'ddtelemetry'
require 'singleton'

require_relative 'ddmemoize/version'

module DDMemoize
  class Value
    attr_reader :value

    def initialize(value)
      @value = value
    end
  end

  NONE = Object.new

  def self.activate(mod)
    mod.extend(Mixin)
  end

  class << self
    def enable_telemetry
      @telemetry_enabled = true
    end

    def telemetry_enabled?
      @telemetry_enabled
    end

    def telemetry_counter
      @_telemetry_counter ||= DDTelemetry::Counter.new
    end
  end

  def self.print_telemetry
    headers = %w[memoization hit miss %]

    rows_raw = DDMemoize.telemetry_counter.map do |(name, type), count|
      { name: name, type: type, count: count }
    end

    rows = rows_raw.group_by { |r| r[:name] }.map do |name, rows_for_name|
      rows_by_type = rows_for_name.group_by { |r| r[:type] }

      num_hit = rows_by_type.fetch(:hit, []).fetch(0, {}).fetch(:count, 0)
      num_miss = rows_by_type.fetch(:miss, []).fetch(0, {}).fetch(:count, 0)
      pct = num_hit.to_f / (num_hit + num_miss).to_f

      [name, num_hit.to_s, num_miss.to_s, "#{format('%3.1f', pct * 100)}%"]
    end

    all_rows = [headers] + rows
    puts DDTelemetry::Table.new(all_rows).to_s
  end

  module Mixin
    def memoize(method_name)
      original_method_name = '__nonmemoized_' + method_name.to_s
      alias_method original_method_name, method_name

      instance_cache = Hash.new { |hash, key| hash[key] = {} }
      counter_label = "#{self}##{method_name}"

      define_method(method_name) do |*args|
        instance_method_cache = instance_cache[self]

        value = NONE
        if instance_method_cache.key?(args)
          object = instance_method_cache[args].object
          value = object ? object.value : NONE
        end

        if DDMemoize.telemetry_enabled?
          if NONE.equal?(value)
            DDMemoize.telemetry_counter.increment([counter_label, :miss])
          else
            DDMemoize.telemetry_counter.increment([counter_label, :hit])
          end
        end

        if value.equal?(NONE)
          send(original_method_name, *args).tap do |r|
            instance_method_cache[args] = Ref::SoftReference.new(Value.new(r))
          end
        else
          value
        end
      end
    end
    alias memoized memoize
  end
end