tdiary 5.2.3 → 5.3.0

data/vendor/bundle/ruby/3.1.0/gems/debug-1.6.2/lib/debug/session.rb

@@ -1,2422 +0,0 @@
-# frozen_string_literal: true
-
-return if ENV['RUBY_DEBUG_ENABLE'] == '0'
-
-# skip to load debugger for bundle exec
-
-if $0.end_with?('bin/bundle') && ARGV.first == 'exec'
-  trace_var(:$0) do |file|
-    trace_var(:$0, nil)
-    if /-r (#{Regexp.escape(__dir__)}\S+)/ =~ ENV['RUBYOPT']
-      lib = $1
-      $LOADED_FEATURES.delete_if{|path| path.start_with?(__dir__)}
-      ENV['RUBY_DEBUG_INITIAL_SUSPEND_PATH'] = file
-      require lib
-      ENV['RUBY_DEBUG_INITIAL_SUSPEND_PATH'] = nil
-    end
-  end
-
-  return
-end
-
-# restore RUBYOPT
-if (added_opt = ENV['RUBY_DEBUG_ADDED_RUBYOPT']) &&
-   (rubyopt = ENV['RUBYOPT']) &&
-   rubyopt.end_with?(added_opt)
-
-  ENV['RUBYOPT'] = rubyopt.delete_suffix(added_opt)
-  ENV['RUBY_DEBUG_ADDED_RUBYOPT'] = nil
-end
-
-require_relative 'frame_info'
-require_relative 'config'
-require_relative 'thread_client'
-require_relative 'source_repository'
-require_relative 'breakpoint'
-require_relative 'tracer'
-
-# To prevent loading old lib/debug.rb in Ruby 2.6 to 3.0
-$LOADED_FEATURES << 'debug.rb'
-$LOADED_FEATURES << File.expand_path(File.join(__dir__, '..', 'debug.rb'))
-require 'debug' # invalidate the $LOADED_FEATURE cache
-
-require 'json' if ENV['RUBY_DEBUG_TEST_UI'] == 'terminal'
-require 'pp'
-
-class RubyVM::InstructionSequence
-  def traceable_lines_norec lines
-    code = self.to_a[13]
-    line = 0
-    code.each{|e|
-      case e
-      when Integer
-        line = e
-      when Symbol
-        if /\ARUBY_EVENT_/ =~ e.to_s
-          lines[line] = [e, *lines[line]]
-        end
-      end
-    }
-  end
-
-  def traceable_lines_rec lines
-    self.each_child{|ci| ci.traceable_lines_rec(lines)}
-    traceable_lines_norec lines
-  end
-
-  def type
-    self.to_a[9]
-  end unless method_defined?(:type)
-
-  def parameters_symbols
-    ary = self.to_a
-    argc = ary[4][:arg_size]
-    locals = ary.to_a[10]
-    locals[0...argc]
-  end unless method_defined?(:parameters_symbols)
-
-  def last_line
-    self.to_a[4][:code_location][2]
-  end unless method_defined?(:last_line)
-
-  def first_line
-    self.to_a[4][:code_location][0]
-  end unless method_defined?(:first_line)
-end
-
-module DEBUGGER__
-  PresetCommand = Struct.new(:commands, :source, :auto_continue)
-  class PostmortemError < RuntimeError; end
-
-  class Session
-    attr_reader :intercepted_sigint_cmd, :process_group
-
-    include Color
-
-    def initialize
-      @ui = nil
-      @sr = SourceRepository.new
-      @bps = {} # bp.key => bp
-                #   [file, line] => LineBreakpoint
-                #   "Error" => CatchBreakpoint
-                #   "Foo#bar" => MethodBreakpoint
-                #   [:watch, ivar] => WatchIVarBreakpoint
-                #   [:check, expr] => CheckBreakpoint
-      #
-      @tracers = {}
-      @th_clients = {} # {Thread => ThreadClient}
-      @q_evt = Queue.new
-      @displays = []
-      @tc = nil
-      @tc_id = 0
-      @preset_command = nil
-      @postmortem_hook = nil
-      @postmortem = false
-      @intercept_trap_sigint = false
-      @intercepted_sigint_cmd = 'DEFAULT'
-      @process_group = ProcessGroup.new
-      @subsession_stack = []
-
-      @frame_map = {} # for DAP: {id => [threadId, frame_depth]} and CDP: {id => frame_depth}
-      @var_map   = {1 => [:globals], } # {id => ...} for DAP
-      @src_map   = {} # {id => src}
-
-      @scr_id_map = {} # for CDP
-      @obj_map = {} # { object_id => ... } for CDP
-
-      @tp_thread_begin = nil
-      @tp_load_script = TracePoint.new(:script_compiled){|tp|
-        ThreadClient.current.on_load tp.instruction_sequence, tp.eval_script
-      }
-      @tp_load_script.enable
-
-      @thread_stopper = thread_stopper
-      self.postmortem = CONFIG[:postmortem]
-    end
-
-    def active?
-      !@q_evt.closed?
-    end
-
-    def break_at? file, line
-      @bps.has_key? [file, line]
-    end
-
-    def activate ui = nil, on_fork: false
-      @ui = ui if ui
-
-      @tp_thread_begin&.disable
-      @tp_thread_begin = nil
-
-      @ui.activate self, on_fork: on_fork
-
-      q = Queue.new
-      @session_server = Thread.new do
-        Thread.current.name = 'DEBUGGER__::SESSION@server'
-        Thread.current.abort_on_exception = true
-
-        # Thread management
-        setup_threads
-        thc = get_thread_client Thread.current
-        thc.mark_as_management
-
-        if @ui.respond_to?(:reader_thread) && thc = get_thread_client(@ui.reader_thread)
-          thc.mark_as_management
-        end
-
-        @tp_thread_begin = TracePoint.new(:thread_begin) do |tp|
-          get_thread_client
-        end
-        @tp_thread_begin.enable
-
-        # session start
-        q << true
-        session_server_main
-      end
-
-      q.pop
-    end
-
-    def deactivate
-      get_thread_client.deactivate
-      @thread_stopper.disable
-      @tp_load_script.disable
-      @tp_thread_begin.disable
-      @bps.each_value{|bp| bp.disable}
-      @th_clients.each_value{|thc| thc.close}
-      @tracers.values.each{|t| t.disable}
-      @q_evt.close
-      @ui&.deactivate
-      @ui = nil
-    end
-
-    def reset_ui ui
-      @ui.deactivate
-      @ui = ui
-    end
-
-    def pop_event
-      @q_evt.pop
-    end
-
-    def session_server_main
-      while evt = pop_event
-        process_event evt
-      end
-    ensure
-      deactivate
-    end
-
-    def request_tc(req)
-      @tc << req
-    end
-
-    def process_event evt
-      # variable `@internal_info` is only used for test
-      tc, output, ev, @internal_info, *ev_args = evt
-
-      output.each{|str| @ui.puts str} if ev != :suspend
-
-      # special event, tc is nil
-      # and we don't want to set @tc to the newly created thread's ThreadClient
-      if ev == :thread_begin
-        th = ev_args.shift
-        q = ev_args.shift
-        on_thread_begin th
-        q << true
-
-        return
-      end
-
-      @tc = tc
-
-      case ev
-      when :init
-        enter_subsession
-        wait_command_loop
-      when :load
-        iseq, src = ev_args
-        on_load iseq, src
-        request_tc :continue
-
-      when :trace
-        trace_id, msg = ev_args
-        if t = @tracers.values.find{|t| t.object_id == trace_id}
-          t.puts msg
-        end
-        request_tc :continue
-
-      when :suspend
-        enter_subsession if ev_args.first != :replay
-        output.each{|str| @ui.puts str}
-
-        case ev_args.first
-        when :breakpoint
-          bp, i = bp_index ev_args[1]
-          clean_bps unless bp
-          @ui.event :suspend_bp, i, bp, @tc.id
-        when :trap
-          @ui.event :suspend_trap, sig = ev_args[1], @tc.id
-
-          if sig == :SIGINT && (@intercepted_sigint_cmd.kind_of?(Proc) || @intercepted_sigint_cmd.kind_of?(String))
-            @ui.puts "#{@intercepted_sigint_cmd.inspect} is registered as SIGINT handler."
-            @ui.puts "`sigint` command execute it."
-          end
-        else
-          @ui.event :suspended, @tc.id
-        end
-
-        if @displays.empty?
-          wait_command_loop
-        else
-          request_tc [:eval, :display, @displays]
-        end
-      when :result
-        raise "[BUG] not in subsession" if @subsession_stack.empty?
-
-        case ev_args.first
-        when :try_display
-          failed_results = ev_args[1]
-          if failed_results.size > 0
-            i, _msg = failed_results.last
-            if i+1 == @displays.size
-              @ui.puts "canceled: #{@displays.pop}"
-            end
-          end
-
-        when :method_breakpoint, :watch_breakpoint
-          bp = ev_args[1]
-          if bp
-            add_bp(bp)
-            show_bps bp
-          else
-            # can't make a bp
-          end
-        when :trace_pass
-          obj_id = ev_args[1]
-          obj_inspect = ev_args[2]
-          opt = ev_args[3]
-          add_tracer ObjectTracer.new(@ui, obj_id, obj_inspect, **opt)
-        else
-          # ignore
-        end
-
-        wait_command_loop
-
-      when :dap_result
-        dap_event ev_args # server.rb
-        wait_command_loop
-      when :cdp_result
-        cdp_event ev_args
-        wait_command_loop
-      end
-    end
-
-    def add_preset_commands name, cmds, kick: true, continue: true
-      cs = cmds.map{|c|
-        c.each_line.map{|line|
-          line = line.strip.gsub(/\A\s*\#.*/, '').strip
-          line unless line.empty?
-        }.compact
-      }.flatten.compact
-
-      if @preset_command && !@preset_command.commands.empty?
-        @preset_command.commands += cs
-      else
-        @preset_command = PresetCommand.new(cs, name, continue)
-      end
-
-      ThreadClient.current.on_init name if kick
-    end
-
-    def source iseq
-      if !CONFIG[:no_color]
-        @sr.get_colored(iseq)
-      else
-        @sr.get(iseq)
-      end
-    end
-
-    def inspect
-      "DEBUGGER__::SESSION"
-    end
-
-    def wait_command_loop
-      loop do
-        case wait_command
-        when :retry
-          # nothing
-        else
-          break
-        end
-      rescue Interrupt
-        @ui.puts "\n^C"
-        retry
-      end
-    end
-
-    def prompt
-      if @postmortem
-        '(rdbg:postmortem) '
-      elsif @process_group.multi?
-        "(rdbg@#{process_info}) "
-      else
-        '(rdbg) '
-      end
-    end
-
-    def wait_command
-      if @preset_command
-        if @preset_command.commands.empty?
-          if @preset_command.auto_continue
-            @preset_command = nil
-
-            leave_subsession :continue
-            return
-          else
-            @preset_command = nil
-            return :retry
-          end
-        else
-          line = @preset_command.commands.shift
-          @ui.puts "(rdbg:#{@preset_command.source}) #{line}"
-        end
-      else
-        @ui.puts "INTERNAL_INFO: #{JSON.generate(@internal_info)}" if ENV['RUBY_DEBUG_TEST_UI'] == 'terminal'
-        line = @ui.readline prompt
-      end
-
-      case line
-      when String
-        process_command line
-      when Hash
-        process_protocol_request line # defined in server.rb
-      else
-        raise "unexpected input: #{line.inspect}"
-      end
-    end
-
-    def process_command line
-      if line.empty?
-        if @repl_prev_line
-          line = @repl_prev_line
-        else
-          return :retry
-        end
-      else
-        @repl_prev_line = line
-      end
-
-      /([^\s]+)(?:\s+(.+))?/ =~ line
-      cmd, arg = $1, $2
-
-      # p cmd: [cmd, *arg]
-
-      case cmd
-      ### Control flow
-
-      # * `s[tep]`
-      #   * Step in. Resume the program until next breakable point.
-      # * `s[tep] <n>`
-      #   * Step in, resume the program at `<n>`th breakable point.
-      when 's', 'step'
-        cancel_auto_continue
-        check_postmortem
-        step_command :in, arg
-
-      # * `n[ext]`
-      #   * Step over. Resume the program until next line.
-      # * `n[ext] <n>`
-      #   * Step over, same as `step <n>`.
-      when 'n', 'next'
-        cancel_auto_continue
-        check_postmortem
-        step_command :next, arg
-
-      # * `fin[ish]`
-      #   * Finish this frame. Resume the program until the current frame is finished.
-      # * `fin[ish] <n>`
-      #   * Finish `<n>`th frames.
-      when 'fin', 'finish'
-        cancel_auto_continue
-        check_postmortem
-
-        if arg&.to_i == 0
-          raise 'finish command with 0 does not make sense.'
-        end
-
-        step_command :finish, arg
-
-      # * `c[ontinue]`
-      #   * Resume the program.
-      when 'c', 'continue'
-        cancel_auto_continue
-        leave_subsession :continue
-
-      # * `q[uit]` or `Ctrl-D`
-      #   * Finish debugger (with the debuggee process on non-remote debugging).
-      when 'q', 'quit'
-        if ask 'Really quit?'
-          @ui.quit arg.to_i
-          leave_subsession :continue
-        else
-          return :retry
-        end
-
-      # * `q[uit]!`
-      #   * Same as q[uit] but without the confirmation prompt.
-      when 'q!', 'quit!'
-        @ui.quit arg.to_i
-        leave_subsession nil
-
-      # * `kill`
-      #   * Stop the debuggee process with `Kernel#exit!`.
-      when 'kill'
-        if ask 'Really kill?'
-          exit! (arg || 1).to_i
-        else
-          return :retry
-        end
-
-      # * `kill!`
-      #   * Same as kill but without the confirmation prompt.
-      when 'kill!'
-        exit! (arg || 1).to_i
-
-      # * `sigint`
-      #   * Execute SIGINT handler registered by the debuggee.
-      #   * Note that this command should be used just after stop by `SIGINT`.
-      when 'sigint'
-        begin
-          case cmd = @intercepted_sigint_cmd
-          when nil, 'IGNORE', :IGNORE, 'DEFAULT', :DEFAULT
-            # ignore
-          when String
-            eval(cmd)
-          when Proc
-            cmd.call
-          end
-
-          leave_subsession :continue
-
-        rescue Exception => e
-          @ui.puts "Exception: #{e}"
-          @ui.puts e.backtrace.map{|line| "  #{e}"}
-          return :retry
-        end
-
-      ### Breakpoint
-
-      # * `b[reak]`
-      #   * Show all breakpoints.
-      # * `b[reak] <line>`
-      #   * Set breakpoint on `<line>` at the current frame's file.
-      # * `b[reak] <file>:<line>` or `<file> <line>`
-      #   * Set breakpoint on `<file>:<line>`.
-      # * `b[reak] <class>#<name>`
-      #    * Set breakpoint on the method `<class>#<name>`.
-      # * `b[reak] <expr>.<name>`
-      #    * Set breakpoint on the method `<expr>.<name>`.
-      # * `b[reak] ... if: <expr>`
-      #   * break if `<expr>` is true at specified location.
-      # * `b[reak] ... pre: <command>`
-      #   * break and run `<command>` before stopping.
-      # * `b[reak] ... do: <command>`
-      #   * break and run `<command>`, and continue.
-      # * `b[reak] ... path: <path>`
-      #   * break if the path matches to `<path>`. `<path>` can be a regexp with `/regexp/`.
-      # * `b[reak] if: <expr>`
-      #   * break if: `<expr>` is true at any lines.
-      #   * Note that this feature is super slow.
-      when 'b', 'break'
-        check_postmortem
-
-        if arg == nil
-          show_bps
-          return :retry
-        else
-          case bp = repl_add_breakpoint(arg)
-          when :noretry
-          when nil
-            return :retry
-          else
-            show_bps bp
-            return :retry
-          end
-        end
-
-      # * `catch <Error>`
-      #   * Set breakpoint on raising `<Error>`.
-      # * `catch ... if: <expr>`
-      #   * stops only if `<expr>` is true as well.
-      # * `catch ... pre: <command>`
-      #   * runs `<command>` before stopping.
-      # * `catch ... do: <command>`
-      #   * stops and run `<command>`, and continue.
-      # * `catch ... path: <path>`
-      #   * stops if the exception is raised from a `<path>`. `<path>` can be a regexp with `/regexp/`.
-      when 'catch'
-        check_postmortem
-
-        if arg
-          bp = repl_add_catch_breakpoint arg
-          show_bps bp if bp
-        else
-          show_bps
-        end
-        return :retry
-
-      # * `watch @ivar`
-      #   * Stop the execution when the result of current scope's `@ivar` is changed.
-      #   * Note that this feature is super slow.
-      # * `watch ... if: <expr>`
-      #   * stops only if `<expr>` is true as well.
-      # * `watch ... pre: <command>`
-      #   * runs `<command>` before stopping.
-      # * `watch ... do: <command>`
-      #   * stops and run `<command>`, and continue.
-      # * `watch ... path: <path>`
-      #   * stops if the path matches `<path>`. `<path>` can be a regexp with `/regexp/`.
-      when 'wat', 'watch'
-        check_postmortem
-
-        if arg && arg.match?(/\A@\w+/)
-          repl_add_watch_breakpoint(arg)
-        else
-          show_bps
-          return :retry
-        end
-
-      # * `del[ete]`
-      #   * delete all breakpoints.
-      # * `del[ete] <bpnum>`
-      #   * delete specified breakpoint.
-      when 'del', 'delete'
-        check_postmortem
-
-        bp =
-        case arg
-        when nil
-          show_bps
-          if ask "Remove all breakpoints?", 'N'
-            delete_bp
-          end
-        when /\d+/
-          delete_bp arg.to_i
-        else
-          nil
-        end
-        @ui.puts "deleted: \##{bp[0]} #{bp[1]}" if bp
-        return :retry
-
-      ### Information
-
-      # * `bt` or `backtrace`
-      #   * Show backtrace (frame) information.
-      # * `bt <num>` or `backtrace <num>`
-      #   * Only shows first `<num>` frames.
-      # * `bt /regexp/` or `backtrace /regexp/`
-      #   * Only shows frames with method name or location info that matches `/regexp/`.
-      # * `bt <num> /regexp/` or `backtrace <num> /regexp/`
-      #   * Only shows first `<num>` frames with method name or location info that matches `/regexp/`.
-      when 'bt', 'backtrace'
-        case arg
-        when /\A(\d+)\z/
-          request_tc [:show, :backtrace, arg.to_i, nil]
-        when /\A\/(.*)\/\z/
-          pattern = $1
-          request_tc [:show, :backtrace, nil, Regexp.compile(pattern)]
-        when /\A(\d+)\s+\/(.*)\/\z/
-          max, pattern = $1, $2
-          request_tc [:show, :backtrace, max.to_i, Regexp.compile(pattern)]
-        else
-          request_tc [:show, :backtrace, nil, nil]
-        end
-
-      # * `l[ist]`
-      #   * Show current frame's source code.
-      #   * Next `list` command shows the successor lines.
-      # * `l[ist] -`
-      #   * Show predecessor lines as opposed to the `list` command.
-      # * `l[ist] <start>` or `l[ist] <start>-<end>`
-      #   * Show current frame's source code from the line <start> to <end> if given.
-      when 'l', 'list'
-        case arg ? arg.strip : nil
-        when /\A(\d+)\z/
-          request_tc [:show, :list, {start_line: arg.to_i - 1}]
-        when /\A-\z/
-          request_tc [:show, :list, {dir: -1}]
-        when /\A(\d+)-(\d+)\z/
-          request_tc [:show, :list, {start_line: $1.to_i - 1, end_line: $2.to_i}]
-        when nil
-          request_tc [:show, :list]
-        else
-          @ui.puts "Can not handle list argument: #{arg}"
-          return :retry
-        end
-
-      # * `edit`
-      #   * Open the current file on the editor (use `EDITOR` environment variable).
-      #   * Note that edited file will not be reloaded.
-      # * `edit <file>`
-      #   * Open <file> on the editor.
-      when 'edit'
-        if @ui.remote?
-          @ui.puts "not supported on the remote console."
-          return :retry
-        end
-
-        begin
-          arg = resolve_path(arg) if arg
-        rescue Errno::ENOENT
-          @ui.puts "not found: #{arg}"
-          return :retry
-        end
-
-        request_tc [:show, :edit, arg]
-
-      # * `i[nfo]`
-      #    * Show information about current frame (local/instance variables and defined constants).
-      # * `i[nfo] l[ocal[s]]`
-      #   * Show information about the current frame (local variables)
-      #   * It includes `self` as `%self` and a return value as `%return`.
-      # * `i[nfo] i[var[s]]` or `i[nfo] instance`
-      #   * Show information about instance variables about `self`.
-      # * `i[nfo] c[onst[s]]` or `i[nfo] constant[s]`
-      #   * Show information about accessible constants except toplevel constants.
-      # * `i[nfo] g[lobal[s]]`
-      #   * Show information about global variables
-      # * `i[nfo] ... /regexp/`
-      #   * Filter the output with `/regexp/`.
-      # * `i[nfo] th[read[s]]`
-      #   * Show all threads (same as `th[read]`).
-      when 'i', 'info'
-        if /\/(.+)\/\z/ =~ arg
-          pat = Regexp.compile($1)
-          sub = $~.pre_match.strip
-        else
-          sub = arg
-        end
-
-        case sub
-        when nil
-          request_tc [:show, :default, pat] # something useful
-        when 'l', /^locals?/
-          request_tc [:show, :locals, pat]
-        when 'i', /^ivars?/i, /^instance[_ ]variables?/i
-          request_tc [:show, :ivars, pat]
-        when 'c', /^consts?/i, /^constants?/i
-          request_tc [:show, :consts, pat]
-        when 'g', /^globals?/i, /^global[_ ]variables?/i
-          request_tc [:show, :globals, pat]
-        when 'th', /threads?/
-          thread_list
-          return :retry
-        else
-          @ui.puts "unrecognized argument for info command: #{arg}"
-          show_help 'info'
-          return :retry
-        end
-
-      # * `o[utline]` or `ls`
-      #   * Show you available methods, constants, local variables, and instance variables in the current scope.
-      # * `o[utline] <expr>` or `ls <expr>`
-      #   * Show you available methods and instance variables of the given object.
-      #   * If the object is a class/module, it also lists its constants.
-      when 'outline', 'o', 'ls'
-        request_tc [:show, :outline, arg]
-
-      # * `display`
-      #   * Show display setting.
-      # * `display <expr>`
-      #   * Show the result of `<expr>` at every suspended timing.
-      when 'display'
-        if arg && !arg.empty?
-          @displays << arg
-          request_tc [:eval, :try_display, @displays]
-        else
-          request_tc [:eval, :display, @displays]
-        end
-
-      # * `undisplay`
-      #   * Remove all display settings.
-      # * `undisplay <displaynum>`
-      #   * Remove a specified display setting.
-      when 'undisplay'
-        case arg
-        when /(\d+)/
-          if @displays[n = $1.to_i]
-            @displays.delete_at n
-          end
-          request_tc [:eval, :display, @displays]
-        when nil
-          if ask "clear all?", 'N'
-            @displays.clear
-          end
-          return :retry
-        end
-
-      ### Frame control
-
-      # * `f[rame]`
-      #   * Show the current frame.
-      # * `f[rame] <framenum>`
-      #   * Specify a current frame. Evaluation are run on specified frame.
-      when 'frame', 'f'
-        request_tc [:frame, :set, arg]
-
-      # * `up`
-      #   * Specify the upper frame.
-      when 'up'
-        request_tc [:frame, :up]
-
-      # * `down`
-      #   * Specify the lower frame.
-      when 'down'
-        request_tc [:frame, :down]
-
-      ### Evaluate
-
-      # * `p <expr>`
-      #   * Evaluate like `p <expr>` on the current frame.
-      when 'p'
-        request_tc [:eval, :p, arg.to_s]
-
-      # * `pp <expr>`
-      #   * Evaluate like `pp <expr>` on the current frame.
-      when 'pp'
-        request_tc [:eval, :pp, arg.to_s]
-
-      # * `eval <expr>`
-      #   * Evaluate `<expr>` on the current frame.
-      when 'eval', 'call'
-        if arg == nil || arg.empty?
-          show_help 'eval'
-          @ui.puts "\nTo evaluate the variable `#{cmd}`, use `pp #{cmd}` instead."
-          return :retry
-        else
-          request_tc [:eval, :call, arg]
-        end
-
-      # * `irb`
-      #   * Invoke `irb` on the current frame.
-      when 'irb'
-        if @ui.remote?
-          @ui.puts "not supported on the remote console."
-          return :retry
-        end
-        request_tc [:eval, :irb]
-
-        # don't repeat irb command
-        @repl_prev_line = nil
-
-      ### Trace
-      # * `trace`
-      #   * Show available tracers list.
-      # * `trace line`
-      #   * Add a line tracer. It indicates line events.
-      # * `trace call`
-      #   * Add a call tracer. It indicate call/return events.
-      # * `trace exception`
-      #   * Add an exception tracer. It indicates raising exceptions.
-      # * `trace object <expr>`
-      #   * Add an object tracer. It indicates that an object by `<expr>` is passed as a parameter or a receiver on method call.
-      # * `trace ... /regexp/`
-      #   * Indicates only matched events to `/regexp/`.
-      # * `trace ... into: <file>`
-      #   * Save trace information into: `<file>`.
-      # * `trace off <num>`
-      #   * Disable tracer specified by `<num>` (use `trace` command to check the numbers).
-      # * `trace off [line|call|pass]`
-      #   * Disable all tracers. If `<type>` is provided, disable specified type tracers.
-      when 'trace'
-        if (re = /\s+into:\s*(.+)/) =~ arg
-          into = $1
-          arg.sub!(re, '')
-        end
-
-        if (re = /\s\/(.+)\/\z/) =~ arg
-          pattern = $1
-          arg.sub!(re, '')
-        end
-
-        case arg
-        when nil
-          @ui.puts 'Tracers:'
-          @tracers.values.each_with_index{|t, i|
-            @ui.puts "* \##{i} #{t}"
-          }
-          @ui.puts
-          return :retry
-
-        when /\Aline\z/
-          add_tracer LineTracer.new(@ui, pattern: pattern, into: into)
-          return :retry
-
-        when /\Acall\z/
-          add_tracer CallTracer.new(@ui, pattern: pattern, into: into)
-          return :retry
-
-        when /\Aexception\z/
-          add_tracer ExceptionTracer.new(@ui, pattern: pattern, into: into)
-          return :retry
-
-        when /\Aobject\s+(.+)/
-          request_tc [:trace, :object, $1.strip, {pattern: pattern, into: into}]
-
-        when /\Aoff\s+(\d+)\z/
-          if t = @tracers.values[$1.to_i]
-            t.disable
-            @ui.puts "Disable #{t.to_s}"
-          else
-            @ui.puts "Unmatched: #{$1}"
-          end
-          return :retry
-
-        when /\Aoff(\s+(line|call|exception|object))?\z/
-          @tracers.values.each{|t|
-            if $2.nil? || t.type == $2
-              t.disable
-              @ui.puts "Disable #{t.to_s}"
-            end
-          }
-          return :retry
-
-        else
-          @ui.puts "Unknown trace option: #{arg.inspect}"
-          return :retry
-        end
-
-      # Record
-      # * `record`
-      #   * Show recording status.
-      # * `record [on|off]`
-      #   * Start/Stop recording.
-      # * `step back`
-      #   * Start replay. Step back with the last execution log.
-      #   * `s[tep]` does stepping forward with the last log.
-      # * `step reset`
-      #   * Stop replay .
-      when 'record'
-        case arg
-        when nil, 'on', 'off'
-          request_tc [:record, arg&.to_sym]
-        else
-          @ui.puts "unknown command: #{arg}"
-          return :retry
-        end
-
-      ### Thread control
-
-      # * `th[read]`
-      #   * Show all threads.
-      # * `th[read] <thnum>`
-      #   * Switch thread specified by `<thnum>`.
-      when 'th', 'thread'
-        case arg
-        when nil, 'list', 'l'
-          thread_list
-        when /(\d+)/
-          switch_thread $1.to_i
-        else
-          @ui.puts "unknown thread command: #{arg}"
-        end
-        return :retry
-
-      ### Configuration
-      # * `config`
-      #   * Show all configuration with description.
-      # * `config <name>`
-      #   * Show current configuration of <name>.
-      # * `config set <name> <val>` or `config <name> = <val>`
-      #   * Set <name> to <val>.
-      # * `config append <name> <val>` or `config <name> << <val>`
-      #   * Append `<val>` to `<name>` if it is an array.
-      # * `config unset <name>`
-      #   * Set <name> to default.
-      when 'config'
-        config_command arg
-        return :retry
-
-      # * `source <file>`
-      #   * Evaluate lines in `<file>` as debug commands.
-      when 'source'
-        if arg
-          begin
-            cmds = File.readlines(path = File.expand_path(arg))
-            add_preset_commands path, cmds, kick: true, continue: false
-          rescue Errno::ENOENT
-            @ui.puts "File not found: #{arg}"
-          end
-        else
-          show_help 'source'
-        end
-        return :retry
-
-      # * `open`
-      #   * open debuggee port on UNIX domain socket and wait for attaching.
-      #   * Note that `open` command is EXPERIMENTAL.
-      # * `open [<host>:]<port>`
-      #   * open debuggee port on TCP/IP with given `[<host>:]<port>` and wait for attaching.
-      # * `open vscode`
-      #   * open debuggee port for VSCode and launch VSCode if available.
-      # * `open chrome`
-      #   * open debuggee port for Chrome and wait for attaching.
-      when 'open'
-        case arg&.downcase
-        when '', nil
-          repl_open
-        when 'vscode'
-          repl_open_vscode
-        when /\A(.+):(\d+)\z/
-          repl_open_tcp $1, $2.to_i
-        when /\A(\d+)z/
-          repl_open_tcp nil, $1.to_i
-        when 'tcp'
-          repl_open_tcp CONFIG[:host], (CONFIG[:port] || 0)
-        when 'chrome', 'cdp'
-          CONFIG[:open_frontend] = 'chrome'
-          repl_open_tcp CONFIG[:host], (CONFIG[:port] || 0)
-        else
-          raise "Unknown arg: #{arg}"
-        end
-
-        return :retry
-
-      ### Help
-
-      # * `h[elp]`
-      #   * Show help for all commands.
-      # * `h[elp] <command>`
-      #   * Show help for the given command.
-      when 'h', 'help', '?'
-        show_help arg
-        return :retry
-
-      ### END
-      else
-        request_tc [:eval, :pp, line]
-=begin
-        @repl_prev_line = nil
-        @ui.puts "unknown command: #{line}"
-        begin
-          require 'did_you_mean'
-          spell_checker = DidYouMean::SpellChecker.new(dictionary: DEBUGGER__.commands)
-          correction = spell_checker.correct(line.split(/\s/).first || '')
-          @ui.puts "Did you mean? #{correction.join(' or ')}" unless correction.empty?
-        rescue LoadError
-          # Don't use D
-        end
-        return :retry
-=end
-      end
-
-    rescue Interrupt
-      return :retry
-    rescue SystemExit
-      raise
-    rescue PostmortemError => e
-      @ui.puts e.message
-      return :retry
-    rescue Exception => e
-      @ui.puts "[REPL ERROR] #{e.inspect}"
-      @ui.puts e.backtrace.map{|e| '  ' + e}
-      return :retry
-    end
-
-    def repl_open_setup
-      @tp_thread_begin.disable
-      @ui.activate self
-      if @ui.respond_to?(:reader_thread) && thc = get_thread_client(@ui.reader_thread)
-        thc.mark_as_management
-      end
-      @tp_thread_begin.enable
-    end
-
-    def repl_open_tcp host, port, **kw
-      DEBUGGER__.open_tcp host: host, port: port, nonstop: true, **kw
-      repl_open_setup
-    end
-
-    def repl_open
-      DEBUGGER__.open nonstop: true
-      repl_open_setup
-    end
-
-    def repl_open_vscode
-      CONFIG[:open_frontend] = 'vscode'
-      repl_open
-    end
-
-    def step_command type, arg
-      case arg
-      when nil, /\A\d+\z/
-        if type == :in && @tc.recorder&.replaying?
-          request_tc [:step, type, arg&.to_i]
-        else
-          leave_subsession [:step, type, arg&.to_i]
-        end
-      when /\Aback\z/, /\Areset\z/
-        if type != :in
-          @ui.puts "only `step #{arg}` is supported."
-          :retry
-        else
-          request_tc [:step, arg.to_sym]
-        end
-      else
-        @ui.puts "Unknown option: #{arg}"
-        :retry
-      end
-    end
-
-    def config_show key
-      key = key.to_sym
-      config_detail = CONFIG_SET[key]
-
-      if config_detail
-        v = CONFIG[key]
-        kv = "#{key} = #{v.inspect}"
-        desc = config_detail[1]
-
-        if config_default = config_detail[3]
-          desc += " (default: #{config_default})"
-        end
-
-        line = "%-34s \# %s" % [kv, desc]
-        if line.size > SESSION.width
-          @ui.puts "\# #{desc}\n#{kv}"
-        else
-          @ui.puts line
-        end
-      else
-        @ui.puts "Unknown configuration: #{key}. 'config' shows all configurations."
-      end
-    end
-
-    def config_set key, val, append: false
-      if CONFIG_SET[key = key.to_sym]
-        begin
-          if append
-            CONFIG.append_config(key, val)
-          else
-            CONFIG[key] = val
-          end
-        rescue => e
-          @ui.puts e.message
-        end
-      end
-
-      config_show key
-    end
-
-    def config_command arg
-      case arg
-      when nil
-        CONFIG_SET.each do |k, _|
-          config_show k
-        end
-
-      when /\Aunset\s+(.+)\z/
-        if CONFIG_SET[key = $1.to_sym]
-          CONFIG[key] = nil
-        end
-        config_show key
-
-      when /\A(\w+)\s*=\s*(.+)\z/
-        config_set $1, $2
-
-      when /\A\s*set\s+(\w+)\s+(.+)\z/
-        config_set $1, $2
-
-      when /\A(\w+)\s*<<\s*(.+)\z/
-        config_set $1, $2, append: true
-
-      when /\A\s*append\s+(\w+)\s+(.+)\z/
-        config_set $1, $2, append: true
-
-      when /\A(\w+)\z/
-        config_show $1
-
-      else
-        @ui.puts "Can not parse parameters: #{arg}"
-      end
-    end
-
-
-    def cancel_auto_continue
-      if @preset_command&.auto_continue
-        @preset_command.auto_continue = false
-      end
-    end
-
-    def show_help arg = nil
-      instructions = (DEBUGGER__.commands.keys + DEBUGGER__.commands.values).uniq
-      print_instructions = proc do |desc|
-        desc.split("\n").each do |line|
-          next if line.start_with?(" ") # workaround for step back
-          formatted_line = line.gsub(/[\[\]\*]/, "").strip
-          instructions.each do |inst|
-            if formatted_line.start_with?("`#{inst}")
-              desc.sub!(line, colorize(line, [:CYAN, :BOLD]))
-            end
-          end
-        end
-        @ui.puts desc
-      end
-
-      print_category = proc do |cat|
-        @ui.puts "\n"
-        @ui.puts colorize("### #{cat}", [:GREEN, :BOLD])
-        @ui.puts "\n"
-      end
-
-      DEBUGGER__.helps.each { |cat, cs|
-        # categories
-        if arg.nil?
-          print_category.call(cat)
-        else
-          cs.each { |ws, _|
-            if ws.include?(arg)
-              print_category.call(cat)
-              break
-            end
-          }
-        end
-
-        # instructions
-        cs.each { |ws, desc|
-          if arg.nil? || ws.include?(arg)
-            print_instructions.call(desc.dup)
-            return if arg
-          end
-        }
-      }
-
-      @ui.puts "not found: #{arg}" if arg
-    end
-
-    def ask msg, default = 'Y'
-      opts = '[y/n]'.tr(default.downcase, default)
-      input = @ui.ask("#{msg} #{opts} ")
-      input = default if input.empty?
-      case input
-      when 'y', 'Y'
-        true
-      else
-        false
-      end
-    end
-
-    # breakpoint management
-
-    def iterate_bps
-      deleted_bps = []
-      i = 0
-      @bps.each{|key, bp|
-        if !bp.deleted?
-          yield key, bp, i
-          i += 1
-        else
-          deleted_bps << bp
-        end
-      }
-    ensure
-      deleted_bps.each{|bp| @bps.delete bp}
-    end
-
-    def show_bps specific_bp = nil
-      iterate_bps do |key, bp, i|
-        @ui.puts "#%d %s" % [i, bp.to_s] if !specific_bp || bp == specific_bp
-      end
-    end
-
-    def bp_index specific_bp_key
-      iterate_bps do |key, bp, i|
-        if key == specific_bp_key
-          return [bp, i]
-        end
-      end
-      nil
-    end
-
-    def rehash_bps
-      bps = @bps.values
-      @bps.clear
-      bps.each{|bp|
-        add_bp bp
-      }
-    end
-
-    def clean_bps
-      @bps.delete_if{|_k, bp|
-        bp.deleted?
-      }
-    end
-
-    def add_bp bp
-      # don't repeat commands that add breakpoints
-      @repl_prev_line = nil
-
-      if @bps.has_key? bp.key
-        if bp.duplicable?
-          bp
-        else
-          @ui.puts "duplicated breakpoint: #{bp}"
-          bp.disable
-          nil
-        end
-      else
-        @bps[bp.key] = bp
-      end
-    end
-
-    def delete_bp arg = nil
-      case arg
-      when nil
-        @bps.each{|key, bp| bp.delete}
-        @bps.clear
-      else
-        del_bp = nil
-        iterate_bps{|key, bp, i| del_bp = bp if i == arg}
-        if del_bp
-          del_bp.delete
-          @bps.delete del_bp.key
-          return [arg, del_bp]
-        end
-      end
-    end
-
-    BREAK_KEYWORDS = %w(if: do: pre: path:).freeze
-
-    def parse_break arg
-      mode = :sig
-      expr = Hash.new{|h, k| h[k] = []}
-      arg.split(' ').each{|w|
-        if BREAK_KEYWORDS.any?{|pat| w == pat}
-          mode = w[0..-2].to_sym
-        else
-          expr[mode] << w
-        end
-      }
-      expr.default_proc = nil
-      expr = expr.transform_values{|v| v.join(' ')}
-
-      if (path = expr[:path]) && path =~ /\A\/(.*)\/\z/
-        expr[:path] = Regexp.compile($1)
-      end
-
-      expr
-    end
-
-    def repl_add_breakpoint arg
-      expr = parse_break arg.strip
-      cond = expr[:if]
-      cmd = ['break', expr[:pre], expr[:do]] if expr[:pre] || expr[:do]
-      path = expr[:path]
-
-      case expr[:sig]
-      when /\A(\d+)\z/
-        add_line_breakpoint @tc.location.path, $1.to_i, cond: cond, command: cmd
-      when /\A(.+)[:\s+](\d+)\z/
-        add_line_breakpoint $1, $2.to_i, cond: cond, command: cmd
-      when /\A(.+)([\.\#])(.+)\z/
-        request_tc [:breakpoint, :method, $1, $2, $3, cond, cmd, path]
-        return :noretry
-      when nil
-        add_check_breakpoint cond, path, cmd
-      else
-        @ui.puts "Unknown breakpoint format: #{arg}"
-        @ui.puts
-        show_help 'b'
-      end
-    end
-
-    def repl_add_catch_breakpoint arg
-      expr = parse_break arg.strip
-      cond = expr[:if]
-      cmd = ['catch', expr[:pre], expr[:do]] if expr[:pre] || expr[:do]
-      path = expr[:path]
-
-      bp = CatchBreakpoint.new(expr[:sig], cond: cond, command: cmd, path: path)
-      add_bp bp
-    end
-
-    def repl_add_watch_breakpoint arg
-      expr = parse_break arg.strip
-      cond = expr[:if]
-      cmd = ['watch', expr[:pre], expr[:do]] if expr[:pre] || expr[:do]
-      path = Regexp.compile(expr[:path]) if expr[:path]
-
-      request_tc [:breakpoint, :watch, expr[:sig], cond, cmd, path]
-    end
-
-    def add_catch_breakpoint pat, cond: nil
-      bp = CatchBreakpoint.new(pat, cond: cond)
-      add_bp bp
-    end
-
-    def add_check_breakpoint cond, path, command
-      bp = CheckBreakpoint.new(cond: cond, path: path, command: command)
-      add_bp bp
-    end
-
-    def add_line_breakpoint file, line, **kw
-      file = resolve_path(file)
-      bp = LineBreakpoint.new(file, line, **kw)
-
-      add_bp bp
-    rescue Errno::ENOENT => e
-      @ui.puts e.message
-    end
-
-    def clear_breakpoints(&condition)
-      @bps.delete_if do |k, bp|
-        if condition.call(k, bp)
-          bp.delete
-          true
-        end
-      end
-    end
-
-    def clear_line_breakpoints path
-      path = resolve_path(path)
-      clear_breakpoints do |k, bp|
-        bp.is_a?(LineBreakpoint) && DEBUGGER__.compare_path(k.first, path)
-      end
-    rescue Errno::ENOENT
-      # just ignore
-    end
-
-    def clear_catch_breakpoints *exception_names
-      clear_breakpoints do |k, bp|
-        bp.is_a?(CatchBreakpoint) && exception_names.include?(k[1])
-      end
-    end
-
-    def clear_all_breakpoints
-      clear_breakpoints{true}
-    end
-
-    def add_iseq_breakpoint iseq, **kw
-      bp = ISeqBreakpoint.new(iseq, [:line], **kw)
-      add_bp bp
-    end
-
-    # tracers
-
-    def add_tracer tracer
-      # don't repeat commands that add tracers
-      @repl_prev_line = nil
-      if @tracers.has_key? tracer.key
-        tracer.disable
-        @ui.puts "Duplicated tracer: #{tracer}"
-      else
-        @tracers[tracer.key] = tracer
-        @ui.puts "Enable #{tracer}"
-      end
-    end
-
-    # threads
-
-    def update_thread_list
-      list = Thread.list
-      thcs = []
-      unmanaged = []
-
-      list.each{|th|
-        if thc = @th_clients[th]
-          if !thc.management?
-            thcs << thc
-          end
-        else
-          unmanaged << th
-        end
-      }
-
-      return thcs.sort_by{|thc| thc.id}, unmanaged
-    end
-
-    def thread_list
-      thcs, unmanaged_ths = update_thread_list
-      thcs.each_with_index{|thc, i|
-        @ui.puts "#{@tc == thc ? "--> " : "    "}\##{i} #{thc}"
-      }
-
-      if !unmanaged_ths.empty?
-        @ui.puts "The following threads are not managed yet by the debugger:"
-        unmanaged_ths.each{|th|
-          @ui.puts "     " + th.to_s
-        }
-      end
-    end
-
-    def managed_thread_clients
-      thcs, _unmanaged_ths = update_thread_list
-      thcs
-    end
-
-    def switch_thread n
-      thcs, _unmanaged_ths = update_thread_list
-
-      if tc = thcs[n]
-        if tc.waiting?
-          @tc = tc
-        else
-          @ui.puts "#{tc.thread} is not controllable yet."
-        end
-      end
-      thread_list
-    end
-
-    def setup_threads
-      prev_clients = @th_clients
-      @th_clients = {}
-
-      Thread.list.each{|th|
-        if tc = prev_clients[th]
-          @th_clients[th] = tc
-        else
-          create_thread_client(th)
-        end
-      }
-    end
-
-    def on_thread_begin th
-      if @th_clients.has_key? th
-        # TODO: NG?
-      else
-        create_thread_client th
-      end
-    end
-
-    private def create_thread_client th
-      # TODO: Ractor support
-      raise "Only session_server can create thread_client" unless Thread.current == @session_server
-      @th_clients[th] = ThreadClient.new((@tc_id += 1), @q_evt, Queue.new, th)
-    end
-
-    private def ask_thread_client th
-      # TODO: Ractor support
-      q2 = Queue.new
-      # tc, output, ev, @internal_info, *ev_args = evt
-      @q_evt << [nil, [], :thread_begin, nil, th, q2]
-      q2.pop
-
-      @th_clients[th] or raise "unexpected error"
-    end
-
-    # can be called by other threads
-    def get_thread_client th = Thread.current
-      if @th_clients.has_key? th
-        @th_clients[th]
-      else
-        if Thread.current == @session_server
-          create_thread_client th
-        else
-          ask_thread_client th
-        end
-      end
-    end
-
-    private def running_thread_clients_count
-      @th_clients.count{|th, tc|
-        next if tc.management?
-        next unless tc.running?
-        true
-      }
-    end
-
-    private def waiting_thread_clients
-      @th_clients.map{|th, tc|
-        next if tc.management?
-        next unless tc.waiting?
-        tc
-      }.compact
-    end
-
-    private def thread_stopper
-      TracePoint.new(:line) do
-        # run on each thread
-        tc = ThreadClient.current
-        next if tc.management?
-        next unless tc.running?
-        next if tc == @tc
-
-        tc.on_pause
-      end
-    end
-
-    private def stop_all_threads
-      return if running_thread_clients_count == 0
-
-      stopper = @thread_stopper
-      stopper.enable unless stopper.enabled?
-    end
-
-    private def restart_all_threads
-      stopper = @thread_stopper
-      stopper.disable if stopper.enabled?
-
-      waiting_thread_clients.each{|tc|
-        next if @tc == tc
-        tc << :continue
-      }
-    end
-
-    private def enter_subsession
-      if !@subsession_stack.empty?
-        DEBUGGER__.info "Enter subsession (nested #{@subsession_stack.size})"
-      else
-        DEBUGGER__.info "Enter subsession"
-        stop_all_threads
-        @process_group.lock
-      end
-
-      @subsession_stack << true
-    end
-
-    private def leave_subsession type
-      raise '[BUG] leave_subsession: not entered' if @subsession_stack.empty?
-      @subsession_stack.pop
-
-      if @subsession_stack.empty?
-        DEBUGGER__.info "Leave subsession"
-        @process_group.unlock
-        restart_all_threads
-      else
-        DEBUGGER__.info "Leave subsession (nested #{@subsession_stack.size})"
-      end
-
-      request_tc type if type
-      @tc = nil
-    rescue Exception => e
-      STDERR.puts PP.pp([e, e.backtrace], ''.dup)
-      raise
-    end
-
-    def in_subsession?
-      !@subsession_stack.empty?
-    end
-
-    ## event
-
-    def on_load iseq, src
-      DEBUGGER__.info "Load #{iseq.absolute_path || iseq.path}"
-
-      file_path, reloaded = @sr.add(iseq, src)
-      @ui.event :load, file_path, reloaded
-
-      pending_line_breakpoints = @bps.find_all do |key, bp|
-        LineBreakpoint === bp && !bp.iseq
-      end
-
-      pending_line_breakpoints.each do |_key, bp|
-        if DEBUGGER__.compare_path(bp.path, (iseq.absolute_path || iseq.path))
-          bp.try_activate iseq
-        end
-      end
-
-      if reloaded
-        @bps.find_all do |key, bp|
-          LineBreakpoint === bp && DEBUGGER__.compare_path(bp.path, file_path)
-        end.each do |_key, bp|
-          @bps.delete bp.key # to allow duplicate
-          if nbp = LineBreakpoint.copy(bp, iseq)
-            add_bp nbp
-          end
-        end
-      end
-    end
-
-    def resolve_path file
-      File.realpath(File.expand_path(file))
-    rescue Errno::ENOENT
-      case file
-      when '-e', '-'
-        return file
-      else
-        $LOAD_PATH.each do |lp|
-          libpath = File.join(lp, file)
-          return File.realpath(libpath)
-        rescue Errno::ENOENT
-          # next
-        end
-      end
-
-      raise
-    end
-
-    def method_added tp
-      b = tp.binding
-
-      if var_name = b.local_variables.first
-        mid = b.local_variable_get(var_name)
-        resolved = true
-
-        @bps.each{|k, bp|
-          case bp
-          when MethodBreakpoint
-            if bp.method.nil?
-              if bp.sig_method_name == mid.to_s
-                bp.try_enable(added: true)
-              end
-            end
-
-            resolved = false if !bp.enabled?
-          end
-        }
-
-        if resolved
-          Session.deactivate_method_added_trackers
-        end
-
-        case mid
-        when :method_added, :singleton_method_added
-          Session.create_method_added_tracker(tp.self, mid)
-          Session.activate_method_added_trackers unless resolved
-        end
-      end
-    end
-
-    class ::Module
-      undef method_added
-      def method_added mid; end
-    end
-
-    class ::BasicObject
-      undef singleton_method_added
-      def singleton_method_added mid; end
-    end
-
-    def self.create_method_added_tracker mod, method_added_id, method_accessor = :method
-      m = mod.__send__(method_accessor, method_added_id)
-      METHOD_ADDED_TRACKERS[m] = TracePoint.new(:call) do |tp|
-        SESSION.method_added tp
-      end
-    end
-
-    def self.activate_method_added_trackers
-      METHOD_ADDED_TRACKERS.each do |m, tp|
-        tp.enable(target: m) unless tp.enabled?
-      rescue ArgumentError
-        DEBUGGER__.warn "Methods defined under #{m.owner} can not track by the debugger."
-      end
-    end
-
-    def self.deactivate_method_added_trackers
-      METHOD_ADDED_TRACKERS.each do |m, tp|
-        tp.disable if tp.enabled?
-      end
-    end
-
-    METHOD_ADDED_TRACKERS = Hash.new
-    create_method_added_tracker Module, :method_added, :instance_method
-    create_method_added_tracker BasicObject, :singleton_method_added, :instance_method
-
-    def width
-      @ui.width
-    end
-
-    def check_postmortem
-      if @postmortem
-        raise PostmortemError, "Can not use this command on postmortem mode."
-      end
-    end
-
-    def enter_postmortem_session exc
-      return unless exc.instance_variable_defined? :@__debugger_postmortem_frames
-
-      frames = exc.instance_variable_get(:@__debugger_postmortem_frames)
-      @postmortem = true
-      ThreadClient.current.suspend :postmortem, postmortem_frames: frames, postmortem_exc: exc
-    ensure
-      @postmortem = false
-    end
-
-    def capture_exception_frames *exclude_path
-      postmortem_hook = TracePoint.new(:raise){|tp|
-        exc = tp.raised_exception
-        frames = DEBUGGER__.capture_frames(__dir__)
-
-        exclude_path.each{|ex|
-          if Regexp === ex
-            frames.delete_if{|e| ex =~ e.path}
-          else
-            frames.delete_if{|e| e.path.start_with? ex.to_s}
-          end
-        }
-        exc.instance_variable_set(:@__debugger_postmortem_frames, frames)
-      }
-      postmortem_hook.enable
-
-      begin
-        yield
-        nil
-      rescue Exception => e
-        if e.instance_variable_defined? :@__debugger_postmortem_frames
-          e
-        else
-          raise
-        end
-      ensure
-        postmortem_hook.disable
-      end
-    end
-
-    def postmortem=(is_enable)
-      if is_enable
-        unless @postmortem_hook
-          @postmortem_hook = TracePoint.new(:raise){|tp|
-            exc = tp.raised_exception
-            frames = DEBUGGER__.capture_frames(__dir__)
-            exc.instance_variable_set(:@__debugger_postmortem_frames, frames)
-          }
-          at_exit{
-            @postmortem_hook.disable
-            if CONFIG[:postmortem] && (exc = $!) != nil
-              exc = exc.cause while exc.cause
-
-              begin
-                @ui.puts "Enter postmortem mode with #{exc.inspect}"
-                @ui.puts exc.backtrace.map{|e| '  ' + e}
-                @ui.puts "\n"
-
-                enter_postmortem_session exc
-              rescue SystemExit
-                exit!
-              rescue Exception => e
-                @ui = STDERR unless @ui
-                @ui.puts "Error while postmortem console: #{e.inspect}"
-              end
-            end
-          }
-        end
-
-        if !@postmortem_hook.enabled?
-          @postmortem_hook.enable
-        end
-      else
-        if @postmortem_hook && @postmortem_hook.enabled?
-          @postmortem_hook.disable
-        end
-      end
-    end
-
-    def save_int_trap cmd
-      prev, @intercepted_sigint_cmd = @intercepted_sigint_cmd, cmd
-      prev
-    end
-
-    def intercept_trap_sigint?
-      @intercept_trap_sigint
-    end
-
-    def intercept_trap_sigint flag, &b
-      prev = @intercept_trap_sigint
-      @intercept_trap_sigint = flag
-      yield
-    ensure
-      @intercept_trap_sigint = prev
-    end
-
-    def intercept_trap_sigint_start prev
-      @intercept_trap_sigint = true
-      @intercepted_sigint_cmd = prev
-    end
-
-    def intercept_trap_sigint_end
-      @intercept_trap_sigint = false
-      prev, @intercepted_sigint_cmd = @intercepted_sigint_cmd, nil
-      prev
-    end
-
-    def process_info
-      if @process_group.multi?
-        "#{$0}\##{Process.pid}"
-      end
-    end
-
-    def before_fork need_lock = true
-      if need_lock
-        @process_group.multi_process!
-      end
-    end
-
-    def after_fork_parent
-      @ui.after_fork_parent
-    end
-  end
-
-  class ProcessGroup
-    def initialize
-      @lock_file = nil
-    end
-
-    def locked?
-      true
-    end
-
-    def trylock
-      true
-    end
-
-    def lock
-      true
-    end
-
-    def unlock
-      true
-    end
-
-    def sync
-      yield
-    end
-
-    def after_fork
-    end
-
-    def multi?
-      @lock_file
-    end
-
-    def multi_process!
-      require 'tempfile'
-      @lock_tempfile = Tempfile.open("ruby-debug-lock-")
-      @lock_tempfile.close
-      extend MultiProcessGroup
-    end
-  end
-
-  module MultiProcessGroup
-    def multi_process!
-    end
-
-    def after_fork child: true
-      if child || !@lock_file
-        @m = Mutex.new
-        @lock_level = 0
-        @lock_file = open(@lock_tempfile.path, 'w')
-      end
-    end
-
-    def info msg
-      DEBUGGER__.info "#{msg} (#{@lock_level})" #  #{caller.first(1).map{|bt| bt.sub(__dir__, '')}}"
-    end
-
-    def locked?
-      # DEBUGGER__.info "locked? #{@lock_level}"
-      @lock_level > 0
-    end
-
-    private def lock_level_up
-      raise unless @m.owned?
-      @lock_level += 1
-    end
-
-    private def lock_level_down
-      raise unless @m.owned?
-      raise "@lock_level underflow: #{@lock_level}" if @lock_level < 1
-      @lock_level -= 1
-    end
-
-    private def trylock
-      @m.synchronize do
-        if locked?
-          lock_level_up
-          info "Try lock, already locked"
-          true
-        else
-          case r = @lock_file.flock(File::LOCK_EX | File::LOCK_NB)
-          when 0
-            lock_level_up
-            info "Try lock with file: success"
-            true
-          when false
-            info "Try lock with file: failed"
-            false
-          else
-            raise "unknown flock result: #{r.inspect}"
-          end
-        end
-      end
-    end
-
-    def lock
-      unless trylock
-        @m.synchronize do
-          if locked?
-            lock_level_up
-          else
-            info "Lock: block"
-            @lock_file.flock(File::LOCK_EX)
-            lock_level_up
-          end
-        end
-
-        info "Lock: success"
-      end
-    end
-
-    def unlock
-      @m.synchronize do
-        raise "lock file is not opened (#{@lock_file.inspect})" if @lock_file.closed?
-        lock_level_down
-        @lock_file.flock(File::LOCK_UN) unless locked?
-        info "Unlocked"
-      end
-    end
-
-    def sync &b
-      info "sync"
-
-      lock
-      begin
-        b.call if b
-      ensure
-        unlock
-      end
-    end
-  end
-
-  class UI_Base
-    def event type, *args
-      case type
-      when :suspend_bp
-        i, bp = *args
-        puts "\nStop by \##{i} #{bp}" if bp
-      when :suspend_trap
-        puts "\nStop by #{args.first}"
-      end
-    end
-
-    def flush
-    end
-  end
-
-  # manual configuration methods
-
-  def self.add_line_breakpoint file, line, **kw
-    ::DEBUGGER__::SESSION.add_line_breakpoint file, line, **kw
-  end
-
-  def self.add_catch_breakpoint pat
-    ::DEBUGGER__::SESSION.add_catch_breakpoint pat
-  end
-
-  # String for requiring location
-  # nil for -r
-  def self.require_location
-    locs = caller_locations
-    dir_prefix = /#{Regexp.escape(__dir__)}/
-
-    locs.each do |loc|
-      case loc.absolute_path
-      when dir_prefix
-      when %r{rubygems/core_ext/kernel_require\.rb}
-      else
-        return loc if loc.absolute_path
-      end
-    end
-    nil
-  end
-
-  # start methods
-
-  def self.start nonstop: false, **kw
-    CONFIG.set_config(**kw)
-
-    unless defined? SESSION
-      require_relative 'local'
-      initialize_session{ UI_LocalConsole.new }
-    end
-
-    setup_initial_suspend unless nonstop
-  end
-
-  def self.open host: nil, port: CONFIG[:port], sock_path: nil, sock_dir: nil, nonstop: false, **kw
-    CONFIG.set_config(**kw)
-    require_relative 'server'
-
-    if port || CONFIG[:open_frontend] == 'chrome' || (!::Addrinfo.respond_to?(:unix))
-      open_tcp host: host, port: (port || 0), nonstop: nonstop
-    else
-      open_unix sock_path: sock_path, sock_dir: sock_dir, nonstop: nonstop
-    end
-  end
-
-  def self.open_tcp host: nil, port:, nonstop: false, **kw
-    CONFIG.set_config(**kw)
-    require_relative 'server'
-
-    if defined? SESSION
-      SESSION.reset_ui UI_TcpServer.new(host: host, port: port)
-    else
-      initialize_session{ UI_TcpServer.new(host: host, port: port) }
-    end
-
-    setup_initial_suspend unless nonstop
-  end
-
-  def self.open_unix sock_path: nil, sock_dir: nil, nonstop: false, **kw
-    CONFIG.set_config(**kw)
-    require_relative 'server'
-
-    if defined? SESSION
-      SESSION.reset_ui UI_UnixDomainServer.new(sock_dir: sock_dir, sock_path: sock_path)
-    else
-      initialize_session{ UI_UnixDomainServer.new(sock_dir: sock_dir, sock_path: sock_path) }
-    end
-
-    setup_initial_suspend unless nonstop
-  end
-
-  # boot utilities
-
-  def self.setup_initial_suspend
-    if !CONFIG[:nonstop]
-      case
-      when CONFIG[:stop_at_load]
-        add_line_breakpoint __FILE__, __LINE__ + 1, oneshot: true, hook_call: false
-        nil # stop here
-      when path = ENV['RUBY_DEBUG_INITIAL_SUSPEND_PATH']
-        add_line_breakpoint path, 0, oneshot: true, hook_call: false
-      when loc = ::DEBUGGER__.require_location
-        # require 'debug/start' or 'debug'
-        add_line_breakpoint loc.absolute_path, loc.lineno + 1, oneshot: true, hook_call: false
-      else
-        # -r
-        add_line_breakpoint $0, 0, oneshot: true, hook_call: false
-      end
-    end
-  end
-
-  class << self
-    define_method :initialize_session do |&init_ui|
-      DEBUGGER__.info "Session start (pid: #{Process.pid})"
-      ::DEBUGGER__.const_set(:SESSION, Session.new)
-      SESSION.activate init_ui.call
-      load_rc
-    end
-  end
-
-  def self.load_rc
-    [[File.expand_path('~/.rdbgrc'), true],
-     [File.expand_path('~/.rdbgrc.rb'), true],
-     # ['./.rdbgrc', true], # disable because of security concern
-     [CONFIG[:init_script], false],
-     ].each{|(path, rc)|
-      next unless path
-      next if rc && CONFIG[:no_rc] # ignore rc
-
-      if File.file? path
-        if path.end_with?('.rb')
-          load path
-        else
-          ::DEBUGGER__::SESSION.add_preset_commands path, File.readlines(path)
-        end
-      elsif !rc
-        warn "Not found: #{path}"
-      end
-    }
-
-    # given debug commands
-    if CONFIG[:commands]
-      cmds = CONFIG[:commands].split(';;')
-      ::DEBUGGER__::SESSION.add_preset_commands "commands", cmds, kick: false, continue: false
-    end
-  end
-
-  # Inspector
-
-  SHORT_INSPECT_LENGTH = 40
-
-  class LimitedPP
-    def self.pp(obj, max=80)
-      out = self.new(max)
-      catch out do
-        PP.singleline_pp(obj, out)
-      end
-      out.buf
-    end
-
-    attr_reader :buf
-
-    def initialize max
-      @max = max
-      @cnt = 0
-      @buf = String.new
-    end
-
-    def <<(other)
-      @buf << other
-
-      if @buf.size >= @max
-        @buf = @buf[0..@max] + '...'
-        throw self
-      end
-    end
-  end
-
-  def self.safe_inspect obj, max_length: SHORT_INSPECT_LENGTH, short: false
-    if short
-      LimitedPP.pp(obj, max_length)
-    else
-      obj.inspect
-    end
-  rescue NoMethodError => e
-    klass, oid = M_CLASS.bind_call(obj), M_OBJECT_ID.bind_call(obj)
-    if obj == (r = e.receiver)
-      "<\##{klass.name}#{oid} does not have \#inspect>"
-    else
-      rklass, roid = M_CLASS.bind_call(r), M_OBJECT_ID.bind_call(r)
-      "<\##{klass.name}:#{roid} contains <\##{rklass}:#{roid} and it does not have #inspect>"
-    end
-  rescue Exception => e
-    "<#inspect raises #{e.inspect}>"
-  end
-
-  def self.warn msg
-    log :WARN, msg
-  end
-
-  def self.info msg
-    log :INFO, msg
-  end
-
-  def self.check_loglevel level
-    lv = LOG_LEVELS[level]
-    config_lv = LOG_LEVELS[CONFIG[:log_level]]
-    lv <= config_lv
-  end
-
-  def self.debug(&b)
-    if check_loglevel :DEBUG
-      log :DEBUG, b.call
-    end
-  end
-
-  def self.log level, msg
-    if check_loglevel level
-      @logfile = STDERR unless defined? @logfile
-
-      if defined? SESSION
-        pi = SESSION.process_info
-        process_info = pi ? "[#{pi}]" : nil
-      end
-
-      if level == :WARN
-        # :WARN on debugger is general information
-        @logfile.puts "DEBUGGER#{process_info}: #{msg}"
-        @logfile.flush
-      else
-        @logfile.puts "DEBUGGER#{process_info} (#{level}): #{msg}"
-        @logfile.flush
-      end
-    end
-  end
-
-  def self.step_in &b
-    if defined?(SESSION) && SESSION.active?
-      SESSION.add_iseq_breakpoint RubyVM::InstructionSequence.of(b), oneshot: true
-    end
-
-    yield
-  end
-
-  if File.identical?(__FILE__.upcase, __FILE__.downcase)
-    # For case insensitive file system (like Windows)
-    # Note that this check is not enough because case sensitive/insensitive is
-    # depend on the file system. So this check is only roughly estimation.
-
-    def self.compare_path(a, b)
-      a.downcase == b.downcase
-    end
-  else
-    def self.compare_path(a, b)
-      a == b
-    end
-  end
-
-  module ForkInterceptor
-    if Process.respond_to? :_fork
-      def _fork
-        return super unless defined?(SESSION) && SESSION.active?
-
-        parent_hook, child_hook = __fork_setup_for_debugger
-
-        super.tap do |pid|
-          if pid != 0
-            # after fork: parent
-            parent_hook.call pid
-          else
-            # after fork: child
-            child_hook.call
-          end
-        end
-      end
-    else
-      def fork(&given_block)
-        return super unless defined?(SESSION) && SESSION.active?
-        parent_hook, child_hook = __fork_setup_for_debugger
-
-        if given_block
-          new_block = proc {
-            # after fork: child
-            child_hook.call
-            given_block.call
-          }
-          super(&new_block).tap{|pid| parent_hook.call(pid)}
-        else
-          super.tap do |pid|
-            if pid
-              # after fork: parent
-              parent_hook.call pid
-            else
-              # after fork: child
-              child_hook.call
-            end
-          end
-        end
-      end
-    end
-
-    private def __fork_setup_for_debugger
-      fork_mode = CONFIG[:fork_mode]
-
-      if fork_mode == :both && CONFIG[:parent_on_fork]
-        fork_mode = :parent
-      end
-
-      parent_pid = Process.pid
-
-      # before fork
-      case fork_mode
-      when :parent
-        parent_hook = -> child_pid {
-          # Do nothing
-        }
-        child_hook = -> {
-          DEBUGGER__.warn "Detaching after fork from child process #{Process.pid}"
-          SESSION.deactivate
-        }
-      when :child
-        SESSION.before_fork false
-
-        parent_hook = -> child_pid {
-          DEBUGGER__.warn "Detaching after fork from parent process #{Process.pid}"
-          SESSION.after_fork_parent
-          SESSION.deactivate
-        }
-        child_hook = -> {
-          DEBUGGER__.warn "Attaching after process #{parent_pid} fork to child process #{Process.pid}"
-          SESSION.activate on_fork: true
-        }
-      when :both
-        SESSION.before_fork
-
-        parent_hook = -> child_pid {
-          SESSION.process_group.after_fork
-          SESSION.after_fork_parent
-        }
-        child_hook = -> {
-          DEBUGGER__.warn "Attaching after process #{parent_pid} fork to child process #{Process.pid}"
-          SESSION.process_group.after_fork child: true
-          SESSION.activate on_fork: true
-        }
-      end
-
-      return parent_hook, child_hook
-    end
-  end
-
-  module TrapInterceptor
-    def trap sig, *command, &command_proc
-      case sig&.to_sym
-      when :INT, :SIGINT
-        if defined?(SESSION) && SESSION.active? && SESSION.intercept_trap_sigint?
-          return SESSION.save_int_trap(command.empty? ? command_proc : command.first)
-        end
-      end
-
-      super
-    end
-  end
-
-  if Process.respond_to? :_fork
-    module ::Process
-      class << self
-        prepend ForkInterceptor
-      end
-    end
-
-    # trap
-    module ::Kernel
-      prepend TrapInterceptor
-    end
-    module ::Signal
-      class << self
-        prepend TrapInterceptor
-      end
-    end
-  else
-    if RUBY_VERSION >= '3.0.0'
-      module ::Kernel
-        prepend ForkInterceptor
-        prepend TrapInterceptor
-      end
-    else
-      class ::Object
-        include ForkInterceptor
-        include TrapInterceptor
-      end
-    end
-
-    module ::Kernel
-      class << self
-        prepend ForkInterceptor
-        prepend TrapInterceptor
-      end
-    end
-
-    module ::Process
-      class << self
-        prepend ForkInterceptor
-      end
-    end
-  end
-
-  module ::Signal
-    class << self
-      prepend TrapInterceptor
-    end
-  end
-end
-
-module Kernel
-  def debugger pre: nil, do: nil, up_level: 0
-    return if !defined?(::DEBUGGER__::SESSION) || !::DEBUGGER__::SESSION.active?
-
-    if pre || (do_expr = binding.local_variable_get(:do))
-      cmds = ['binding.break', pre, do_expr]
-    end
-
-    loc = caller_locations(up_level, 1).first; ::DEBUGGER__.add_line_breakpoint loc.path, loc.lineno + 1, oneshot: true, command: cmds
-    self
-  end
-
-  alias bb debugger if ENV['RUBY_DEBUG_BB']
-end
-
-class Binding
-  alias break debugger
-  alias b debugger
-end
-
-# for Ruby 2.6 compatibility
-unless method(:p).unbind.respond_to? :bind_call
-  class UnboundMethod
-    def bind_call(obj, *args)
-      self.bind(obj).call(*args)
-    end
-  end
-end