# frozen_string_literal: true

require_relative "base"

class CallTracer < Tracer::Base
  def setup_tp
    TracePoint.new(:a_call, :a_return) do |tp|
      next if skip?(tp)

      location = caller_locations(2, 1).first.to_s
      next if location.match?(DIR) || location.match?(/<internal:/)

      depth = caller.size

      call_identifier_str = (tp.defined_class ? minfo(tp) : "block")
      call_identifier_str = colorize_blue(call_identifier_str)

      case tp.event
      when :call, :c_call, :b_call
        depth += 1 if tp.event == :c_call
        sp = " " * depth
        out tp,
            ">#{sp}#{call_identifier_str}",
            depth: depth - 2 - @depth_offset,
            location: location
      when :return, :c_return, :b_return
        depth += 1 if tp.event == :c_return
        sp = " " * depth
        return_str = colorize_magenta(safe_inspect(tp.return_value))
        out tp,
            "<#{sp}#{call_identifier_str} #=> #{return_str}",
            depth: depth - 2 - @depth_offset,
            location: location
      end
    end
  end

  def skip_with_pattern?(tp)
    super && !tp.method_id&.match?(@pattern)
  end
end